[simantics/platform.git] / Monads1.scl

import "Prelude"

a = [1, 2]
b = [5, 6]

main = a >>= \x -> b >>= \y -> return (x+y) 
--
[6, 7, 7, 8]