]> gerrit.simantics Code Review - simantics/platform.git/blob - tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/scl/MonadSyntax3.scl
fa36d0e95de90bf5122d13e06aab259b351bf0ba
[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / scl / MonadSyntax3.scl
1 import "Prelude"
2
3 a = ["a", "b"]
4 b = [1, 2]
5
6 main = edo 
7   x <- a
8   return $ print x
9   y <- b
10   return $ print y
11 --
12 a
13 1
14 2
15 b
16 1
17 2
18 [(), (), (), ()]