Function A($)
   Dim $z,$x,$v
   
   $z = Left($,1)
   $v = ($^)
   While $
      $a = 2 * SubStr($,($^)-1,1)
      $x = IIf($a > 9,$a / -10 + $a,$a) + Right($,1) + $x
      $ = Left($,-2)
      $a = IIf(~ $x mod 10 & ($v = 15 & $z = 3) | ($v = 16 & $z > 3 & $z < 7),$z,0)

;   Loop
EndFunction