modular square root UI

app/Main.hs

@@ -2,19 +2,20 @@ module Main where
 
 import Utils (askChoice)
 import qualified FactorizationUI
+import qualified ModularSquareRootUI
 import qualified PrimesUI
 
 main :: IO ()
 main = do
     putStrLn "Haskell Math Toolkit"
     putStrLn "1) Factorization"
-    putStrLn "2) Modular square root (not yet implemented)"
+    putStrLn "2) Modular square root"
     putStrLn "3) Primality tests"
 
     choice <- askChoice 3
 
     case choice of
         1 -> FactorizationUI.run
-        2 -> putStrLn "Modular square root: not implemented yet."
+        2 -> ModularSquareRootUI.run
         3 -> PrimesUI.run
         _ -> error "Impossible"