ghc-exactprint-1.9.0.0: tests/examples/pre-ghc910/IfThenElse1.hs

-- From http://lpaste.net/81623, courtesy of Albert Y. C. Lai
main = do
  cs <- if True
  then getLine
  else return "computer input"
  putStrLn cs