Function Inverse(a, b)
    s = 0
    old_s = 1
    t = 1
    old_t = 1
    r = b
    old_r = a
    While r <> 0
        q = old_r \ r
        p = r
        r = old_r - q * p
        old_r = p
        p = s
        s = old_s - q * p
        old_s = p
        p = t
        t = old_t - q * p
        old_t = p
   Wend
   If old_s < 0 Then
      Inverse = old_s + b
   Else
      Inverse = old_s
   End If
End Function