Initial data commit

Task/Catamorphism/BCPL/catamorphism.bcpl

@@ -0,0 +1,15 @@
+get "libhdr"
+
+let reduce(f, v, len, seed) =
+    len = 0 -> seed,
+    reduce(f, v+1, len-1, f(!v, seed))
+
+let start() be
+$(  let add(x, y) = x+y
+    let mul(x, y) = x*y
+
+    let nums = table 1,2,3,4,5,6,7
+
+    writef("%N*N", reduce(add, nums, 7, 0))
+    writef("%N*N", reduce(mul, nums, 7, 1))
+$)