Function a($b)
	Dim $, $c
	For $ = 0 to Len($b)
		$c = Asc(SubStr($b,$))-64
		$a = $a + $c * $ * ($c>)
EndFunction