Function A($b)
Dim $t,$,$x

For $t=0 to 99
 $=0+Right($b,1)
 $x=1 & $t *($/5+$)+$+$x
 $b=Left($b,~)
 If $
  $a=(2<$ & 7>$ & $t=14+$/4 & $x mod 10=)*$
EndFunction