Function a($b)
    Dim $c,$d,$
    $d=Join(Split($b,_),$)
    $=1
    While $d
        $c=Asc($d)
        $d=Right($d,~)
        $=$+($d<'/')
        $a=$a+50*(2*($c=46|$*($c=47|$c=92))|$*($c>99))
        $=$c=46
    Loop
    $a=$a/($b^)
EndFunction