and if that doesn't get done in time (still running) here is one that does:
Code:
Function a($)
	Dim $c,$d
	For $c = 0 to UBound($)
		For $d = $c + 1 to UBound($)
			$a = $[$d]
			If b($a,$) < b($[$c],$)
				$[$d] = $[$c]
				$[$c] = $a
			EndIf
			$a=$
EndFunction
Function b($,$i)
	Dim $g,$h
	For $h = Len($) to Len(Join($i))
		For $g = 0 to 9
			$=Join(Split($,$g),#+$g)
			$b=$
EndFunction


for a score of 225
_________________________
!

download KiXnet