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