1 2 3 4 5 6 7
module Main where -- the main IO action main = do { putStr "What is your name? " , name''' <- read , putStrLn ("Hello, " ++ name''') }