Function a($)
dim $e,$k,$b,$l,$x
  $a=$
  $l = len(join($))
  for $e=1 to ubound($)
   $x=$a[$e-1]
   for $k=1 to $l
    $ = substr($x,$k)
    $b = substr($a[$e],$k)
    if 0+$+$b and $ and $b
     $=1.1*(0=$)*$b+$
     $b=1.1*$*(0=$b)+$b
    else
     $ = left($,1)
     $b = left($b,1)
    endif
    if $<>$b
     $k = $l
     if $>$b
      $a[$e-1] = $a[$e]
      $a[$e] = $x
      $e = 0
EndFunction

Function a($)
dim $e,$k,$b,$l,$z
 $a=$
 for $e=1 to ubound($)
  $l = len(join($a))
  for $k=1 to $l
   $z=$a[$e-1]
   $b=c($a[$e],$k)
   $=c($z,$k)
   if $<>$b
    $k = $l
    $l = len($) - len($b)
    if ($ and 0.<$b & 0<$l | 0=$) | !>$b | $>$b & $l=0
     $a[$e-1] = $a[$e]
     $a[$e] = $z
     $e = 0
EndFunction
function c($z,$k)
dim $
 do
  $c=substr($z,$k+$,1)
  $=$+1
  until !>$c | $c>9
  $c=substr($z,$k,$-($>1))
endfunction