brittany/data/10-structured/expression-do.blt

#group expression/do


#test simple
func = do
  stmt
  stmt

#test bind
func = do
  x <- stmt
  stmt x

#test let
func = do
  let x = 13
  stmt x

#test do empty lines
func = do
  <BLANKLINE>
  let x = 13
  <BLANKLINE>
  y <- monadic
  <BLANKLINE>
  stmt (x + y)