Which can then be made to look exactly like the
getLine >>= putStrLn
case by doing greet name = putStrLn ("Hello, " ++ name)
main = getLine >>= greet
(Edited to include the definition of main)