Idk but strange thing is that this does, which I think is the same thing:

 Code:
Function a($b)
    $a=e($b)*50/($b^)
EndFunction
Function e($b)
    Dim $c,$,$d
    $=Join(Split($b,_),$)
    While $
        $d=$c<'/'
        $c=$
        $=Right($,~)
        $d=($<'/')+$d
        $e=$e+IIf($c>_,$d,2*($c<'/' | $c<_&$d))
    ;Loop
EndFunction
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)