module Main where

import Utils (askChoice)
import qualified FactorizationUI

main :: IO ()
main = do
    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"