Thank you for your helpful replies, program works correctly now: module Main where ageJudge age | age >= 40 = "You're too old!" | age <= 30 = "You're too young" | otherwise = "Not in the programming age range.." main = do putStrLn "What is your name?" name <- getLine putStrLn ("Nice to meet you, " ++ name ++ "!") putStrLn "What is your age?" age <- getLine let inpIntegral = (read age)::Int putStrLn ( "We decided:\n" ++ ageJudge inpIntegral )