Function a($)
	Dim $c,$d,$e
	For $c = 0 to UBound($)
		For $d = $c + 1 to UBound($)
			If b($[$d]) < b($[$c])
				$e = $[$d]
				$[$d] = $[$c]
				$[$c] = $e
;			EndIf
;		Next
;	Next
	$a=$
EndFunction
Function b($)
	Dim $f,$g
	For $g = Len($) to 99
		For $f = 0 to 9
			$=Join(Split($,$f),#+$f)
;		Next
;	Next
	$b=$
EndFunction