CLI interface + restructuration + precision fixes Fermat Factorization

app/Main.hs

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