testsuite/tests/ado/T14163.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

{-# language ApplicativeDo #-}

import GHC.Exts

readIt :: IO (Int, Int)
readIt = readLn

main :: IO ()
main = do
  (_, _) <- readIt
  (_, _) <- readIt
  (_, _) <- readIt
  print "Done"