[simantics/platform.git] / Monads1.scl

import "Prelude"\r
\r
a = [1, 2]\r
b = [5, 6]\r
\r
main = a >>= \x -> b >>= \y -> return (x+y) \r
--\r
[6, 7, 7, 8]