Parse records and keyed collection queries

test/fixture/count_large.delta

@@ -0,0 +1,9 @@
+type order = {
+  customer : string;
+  total : int;
+}
+
+input orders : collection order
+
+query count_large =
+  orders |> filter (fun o -> o.total > 500) |> count

test/fixture/expensive_order.delta

@@ -0,0 +1,13 @@
+type order = {
+  customer : string;
+  total : int;
+}
+
+input orders : collection order
+
+let tax n = n * 20 / 100
+
+query expensive_orders =
+  orders
+  |> filter (fun o -> o.total > 1000)
+  |> map (fun o -> (o.customer, tax o.total))

test/fixture/revenue.delta

@@ -0,0 +1,11 @@
+type order = {
+  customer : string;
+  total : int;
+}
+
+input orders : collection order
+
+let tax n = n * 20 / 100
+
+query revenue =
+  orders |> map (fun o -> tax o.total) |> sum