function a($r)
    dim $x, $c, $l
    $c = 9
    for each $r in split($r,',')
        dim $, $s
        $s = lcase($r)
        while $s
            $ = $+asc($s)-48-48*($s>Z)
            $s = right($s,~)
        loop
        do $ = $/10+$ mod 10 until $<10
        $a = $a+$r+'='+$+', '
        $s = $l-($r^)
        if $s=0&$=$c
            $x = Draw
        endif
        if $<$c|$s<0&$=$c
            $x = 'Winner='+$r
            $l = $r^0
            $c = $
        endif
    next
    $a = $a+$x
endfunction