; begin Linear Pachinko
;
;!
function a($b)
    dim $c,$d,$
    $d=join(split($b,_),$)
    while $d
        $=$c<'/'
        $c=$d
        $d=right($d,~)
        $=$+($d<'/')
        $a=$a+50*(2*($c<'/'|$*($c>'/'&$c<_))|$*($c>_))
    loop
    $a=$a/($b^)
EndFunction
;!
;!
; end Linear Pachinko