xxxxxxxxxx
main = do
putStrLn "Hello, what's your name?" -- print
name <- getLine -- "<-" means put input results into name, getLine ask for input
putStrLn ("Hey " ++ name ++ ", you rock!") -- print
xxxxxxxxxx
main :: IO()
main = do
i <- getLine
if i /= "quit" then do
putStrLn ("Input: " ++ i)
main
else
return ()