Function a($)
	Dim $c
	For $c = 1 to UBound($)
			$a = $[$c-1]
			If b($a,$) > b($[$c],$)
				$[$c-1] = $[$c]
				$[$c] = $a
				$c = 0
			EndIf
			$a=$
EndFunction
Function b($,$e)
	Dim $c,$d
	While $
		$d=Left($,1)
		If Int($d) > 0
			For $c = Len($) to Len(Join($e))
				$d=#+$d
			Next
		EndIf
		$=Right($,~)
		$b=$b+$d
EndFunction