main :: IO ()
main = do putStrLn "Q1"
          exitFailure
          putStrLn "Q2"
main :: IO ()
main = do putStrLn "Q1"
          exitFailure
          putStrLn "Q2"
main = do putStrLn "Q1"
          exitFailure
          putStrLn "Q2"