stuff

W1/fasto/tests/scan.fo

@@ -0,0 +1,8 @@
+fun int incr(int a, int b) = a + b
+
+fun int writeInt(int n) = write(n)
+
+fun [int] main() =
+  let a = {1, 2, 3} in
+  let b = scan(incr, 0, a) in
+  map(writeInt, b)