module Main where

import Utils (askChoice)
import qualified FactorizationUI
import qualified PrimesUI

main :: IO ()
main = do
    putStrLn "Haskell Math Toolkit"
    putStrLn "1) Factorization"
    putStrLn "2) Modular square root (not yet implemented)"
    putStrLn "3) Primality tests"

    choice <- askChoice 3

    case choice of
        1 -> FactorizationUI.run
        2 -> putStrLn "Modular square root: not implemented yet."
        3 -> PrimesUI.run
        _ -> error "Impossible"