21 Nov
                
                    2011
                
            
            
                21 Nov
                
                '11
                
            
            
            
        
    
                7:04 a.m.
            
        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 )