sayHello :: IO ()
sayHello = do
    name <- getLine
    putStrLn $ greeting name
    where
        greeting name = "Hello, " ++ name ++ "!"