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)