main :: IO ()
main = do
  return ()
  return "HAHAHA"
  line <- getLine
  return "BLAH BLAH "
  return 4
  putStrLn line