@@ -6,3 +6,18 @@ test = \x -> case x of
6f = \o -> case o of
6f = \o -> case o of
7 { foo = "Foo" } -> o.bar
7 { foo = "Foo" } -> o.bar
11+ { arr = [x : xs], take = "car" } -> x
12+ { arr = [_, x : xs], take = "cadr" } -> x
20+isDesc = \o -> case o of
21+ [x, y] | x > y -> true