Select1.scl

   1 import "StandardLibrary"
   2
   3 main = let
   4     l = [1..3]
   5   in
   6     select (?x,?y) where
   7         ?x <- l
   8         ?y <- l
   9         ?x = ?y
  10 --
  11 [(1,1), (2,2), (3,3)]