module Main (main) where

import IO

main :: IO()
main = do
         hSetBuffering stdin  NoBuffering
         hSetBuffering stdout NoBuffering
         name <- ask "What's your name? "
	 putStrLn ("Hello, " ++ name ++ "!  Welcome to COMP1100.")

ask :: String -> IO String
ask question = do
	         putStr question
		 getLine