Function a($b)
Dim $c,$d,$
$d=Join(Split($b,_),'')
$=1
While $d
$c=Asc($d)
$d=Right($d,~)
$=$+(Asc($d)<47)
$a=$a+50*(2*($c=46|$*($c=47|$c=92))|$*($c>99))
$=$c=46
Loop
$a=$a/($b^)
EndFunction
Neat, wonder why I haven't thought of that before the deadline Still can't sit more than half an hour in front of my box after the surgery, so I postpone my efforts on the public round for another day...
