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