module Main where

foo =
  bar $
    do 1
    $
      quux

abc =
  a1 $
    a2 $ do
      3

cde =
  b1
    $ b2
    $ b3 $ \c ->
      putStrLn "foo"