fmap.fs

import Data.Char (toUpper)
import Control.Monad (liftM)

upper = map toUpper

main = do
  putStrLn "Please enter your name: "
  name <- liftM upper getLine
  putStrLn $ "Hello " ++ name ++ " with liftM!"

  putStrLn "Please enter your name again: "
  name2 <- fmap upper getLine
  putStrLn $ "Hello " ++ name2 ++ " with liftM!"