Function a($,optional $b)
    $b = $b + 1
    if $
        $a=a(right($,~),$b)+$b*(asc($)-64)*($>!)
EndFunction