@@ -67,3 +67,6 @@ choosePrime b = head $ dropWhile (<= b) primeinf
euclide::Int -> Int -> (Int, Int, Int)
euclide a 0 = (a, 1, 0)
euclide a b = let (d', u', v') = euclide b (mod a b) in (d', v', u' - (div a b) * v')
+
+modInv e n = let (_, d, _) = euclide e n in d