and this would also yield 79:
 Code:
function a($)
    if $
        $a=right($,1)
        $a = a(left($,~)) + ($^) * (asc($a)-64) * ($a>!)
endfunction
_________________________
!

download KiXnet