This was my code

 Code:
; begin WWD
;
;!
function a($) 
	Dim $w,$r,$1,$d,$s, $o
	$s = 10
	For Each $w in Split($,",")
		Dim $v,$i,$t,$l
		
		$t=$w
		$l = Len($w)
		While Len($t) <> 1 OR $t > 9
			Dim $n
			For $i=1 to Len($t)
				$v= Substr(UCASE($t), $i,1)
				$v = Iif(asc($v) <58,$v, Asc($v)-64)
				$n = $n + Int($v)
			Next
			$t = $n
		Loop
		$r = $r +$w+"="+$t+", "
		$o=Len($1)
		If $t <= $s 
			$d = ($s = $t & $o = $l)
			$1 = Iif($s > $t,$w,Iif(($o > $l),$1,$w))
			$s = int($t)
		Endif
	Next
	$a=($r +Iif($d,"Draw", "Winner="+$1))
endfunction
;!
;!
; end WWD