Ticket #6146: Main.hs

module Main (main) where

main :: IO ()
main = do
    putStrLn "First number?  "
    num1 <- readLn :: IO Int
    putStrLn "Second number? "
    num2 <- readLn :: IO Int
    let total = num1 + num2
    putStrLn $ "The sum is " ++ (show total) ++ "."