Data update

Task/Multifactorial/Ol/multifactorial-1.ol

@@ -0,0 +1,13 @@
+(define (multifactorial n d)
+   (fold * 1 (iota (div n d) n (negate d))))
+
+(for-each (lambda (i)
+      (display "Degree ")
+      (display i)
+      (display ":")
+      (for-each (lambda (n)
+            (display " ")
+            (display (multifactorial n i)))
+         (iota 10 1))
+      (print))
+   (iota 5 1))

Task/Multifactorial/Ol/multifactorial-2.ol

@@ -0,0 +1,11 @@
+(define (!!!!! n) (multifactorial n 5))
+(print (!!!!! 74))
+
+(import (math infix-notation))
+; register !!!!! as a postfix function
+(define \\postfix-functions (put \\postfix-functions '!!!!! #t))
+
+; now use "\\" as usual
+(print (\\
+   2 + 74!!!!!
+))