I give up.

The last thing I worked with was this 79 code (nothing really new)
Can't improve anymore...

 Code:
function a($)
    if $
        $a = a(left($,~)) + ($^) * (asc(right($,1))-64) * (trim($)=$)
endfunction
_________________________