{-# LANGUAGE BlockArguments #-}

foo :: IO ()
foo = print
       do (+)
           do 1
           do 2 * 3