code:

---

Function anagram($J)
  Dim $u,$,$a,$b,$I,$O
  $u = Ubound($J)
  $I = S($J)

  For $ = 0 TO $u
    Dim $t[20]
    For $a = 1 TO Len($I[$])
      $t[$a] = SubStr($I[$],$a,1)
    Next
    $J[$] = Join(S($t))
  Next

  For Each $a IN $J
    Dim $c,$d
    For $ = 0 TO $u
      If $a = $J[$]
        $c = '$c ' + $I[$]
        $d = 1 + $d
        $J[$] = 0
      EndIf
    Next
    If $d > 1
;-->      $O = $O +$b+ Chr($d)+$c
      $O = $O +$b+ '$d'+$c
      $b = #
    EndIf
  Next

  $ = ''
  If $O
    $ = S(Split($O,#))
    For $a = 0 TO Ubound($)
      $[$a] = SubStr($[$a],3)
    Next
  EndIf

  $anagram = $
EndFunction
;
Function S($)
  Dim $t
  For $S = 1 TO Ubound($)
    $t = $[$S-1]
    If $[$S] < $t
      $[$S-1] =$[$S]  $[$S] =$t
      $S = 0
    EndIf
  Next
  $S = $
EndFunction

---