Data commit

Task/Variadic-function/ALGOL-68/variadic-function.alg

@@ -0,0 +1,17 @@
+main:(
+  MODE STRINT = UNION(STRING, INT, PROC(REF FILE)VOID, VOID);
+
+  PROC print strint = (FLEX[]STRINT argv)VOID: (
+    FOR i TO UPB argv DO
+      CASE argv[i] IN
+        (INT i):print(whole(i,-1)),
+        (STRING s):print(s),
+        (PROC(REF FILE)VOID f):f(stand out),
+        (VOID):print(error char)
+      ESAC;
+      IF i NE UPB argv THEN print((" ")) FI
+    OD
+  );
+
+ print strint(("Mary","had",1,"little",EMPTY,new line))
+)