And here is my 82/81

 Code:
Function a($)
  dim $b
  if $
    $b=asc(right($,1))-64
    $a=a(left($,~))+($b>)*$b*(0^$)
  ;endif
EndFunction