import "StandardLibrary"

main = let
    l = [1..3] 
  in
    select (?x,?y) where 
        ?x <- l
        ?y <- l
        ?x = ?y
--
[(1,1), (2,2), (3,3)]