function a($b) 
	dim $c,$d,$i,$j,$k,$m,$

	$i=9
	for each $c in split($b,',')
		$d=len($c)
		$m=$c
		
		;Calculate the value of the string until it is a single digit
		do
			$=0
			for $a=1 to 99 ;len($m)
				$=$+ASC(substr(lcase($m),$a,1)) mod 48
			next
			$m=$                      
		until $<10
		
		;Build output line: items + scores
		$k=$k+$c+"="+$+", "			

		;Track score and add final output text
		;Define 'Draw' as score and length equal
		if $i=$ & $d=$j
			$b="Draw"
		endif
		
		;Define Winner as 'score is lower' or 'score =' and 'word longer'
		if $i>$ | $i=$ & $d>$j
			$i=$
			$j=$d
			$b="Winner="+$c
		endif
	
		;Add result to output line
		$a=$k+$b	
endfunction