testsuite/tests/ghc-regress/mdo/should_run/mdorun003.hs


1
2
3
4
5
6
7
8

{-# LANGUAGE DoRec #-}

main :: IO ()
main = do x <- return (length [1 .. 42 :: Int])
          rec b <- return x
              let a = const c
              c <- print "x"
          print (b, a b)