code:

---

function anagram($o)
dim $w,$c,$a,$l,$,$m,$b
 for $=1 to ubound($o)
  if $o[$]<$o[$-1]
   $c=$o[$] $o[$]=$o[$-1] $o[$-1]=$c $=0
  endif
 next
 for each $w in $o
  $b=0
  for each $ in $o
   $c=$
   for $l=1 to len($w)
    $a=instr($,substr($w,$l,1))
    $=left($,$a-1)+substr($,$a+1)
   next
   if 0=($|len($c)+1-$l)
    $b="$b $c"
   endif
  next
  if 1<ubound(split($b)) & 0=instr($m,$b)
   $m="$m$b"
  endif
 next
 $=split(substr($m,3),"0 ")
 for $m=1 to ubound($)
  if ubound(split($[$m]))<ubound(split($[$m-1]))
    $o=$[$m] $[$m]=$[$m-1] $[$m-1]=$o $m=0
  endif
 next
if 0=len($[0]) $="" endif
$anagram=$
endfunction

---