module Main where
  silly = putStr "Enter your name: " >>==
          line <- getLine >>==
          let { backwards = reverse line } >>==
          return ("Hello" ++ backwards)