Kelime türetme addonu

- alias permute {
var %x 0,%y
while ($regsub($1,(.{ $+ %x $+ })(.),1,%y)) scon -r inc $(%x |,) $iif(? iswm $1,echo -a,permute %y) $2 $+ $regml(2)
}