tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/MonadSyntax3.scl

   1 module {
   2     features = [edo]
   3 }
   4 import "Prelude"
   5
   6 a = ["a", "b"]
   7 b = [1, 2]
   8
   9 main = edo
  10   x <- a
  11   return $ print x
  12   y <- b
  13   return $ print y
  14 --
  15 a
  16 1
  17 2
  18 b
  19 1
  20 2
  21 [(), (), (), ()]