Anonymous

alias anagram { 
  var %x 1
  if ? iswm $1 echo $2 $+ $1
  while ($left($1,$calc(%x - 1)) $+ $right($1,- $+ %x) != $1) inc %x $a($v1,$2 $+ $mid($1,%x,1))
}
alias -l a return $anagram($1,$2)