-import "StandardLibrary"\r
-\r
-main = let\r
- l = [1..3] \r
- in\r
- select (?x,?y) where \r
- ?x <- l\r
- ?y <- l\r
- ?x = ?y\r
---\r
+import "StandardLibrary"
+
+main = let
+ l = [1..3]
+ in
+ select (?x,?y) where
+ ?x <- l
+ ?y <- l
+ ?x = ?y
+--
[(1,1), (2,2), (3,3)]
\ No newline at end of file