init commit again

IBAF-cbs/Funcons-beta/Computations/Normal/Interacting/tests/print-1.config

@@ -0,0 +1,12 @@
+general {
+    funcon-term: 
+      sequential(
+        print( ),
+        print( list-elements list-nil ))
+        ;
+}
+
+tests {
+    result-term: null-value;
+    standard-out: [ ];
+}

IBAF-cbs/Funcons-beta/Computations/Normal/Interacting/tests/print-2.config

@@ -0,0 +1,14 @@
+general {
+    funcon-term: 
+      sequential(
+        print 1,
+        print(2,3),
+        print true,
+        print(sequential(print tuple null-value, "OK")))
+        ;
+}
+
+tests {
+    result-term: null-value;
+    standard-out: [ 1, 2, 3, true, tuple(null-value), "OK" ];
+}

IBAF-cbs/Funcons-beta/Computations/Normal/Interacting/tests/read-1.config

@@ -0,0 +1,12 @@
+general {
+    funcon-term:  print(reverse(read, read, read));
+}
+
+inputs {
+    standard-in: (1,2,3);
+}
+
+tests {
+    result-term: null-value;
+    standard-out: [3,2,1];
+}

IBAF-cbs/Funcons-beta/Computations/Normal/Interacting/tests/read-2.config

@@ -0,0 +1,12 @@
+general {
+    funcon-term:  print(read, else(read, "OK"));
+}
+
+inputs {
+    standard-in: 1;
+}
+
+tests {
+    result-term: null-value;
+    standard-out: [1, "OK"];
+}

IBAF-cbs/Funcons-beta/Computations/Normal/Interacting/tests/read-3.config

@@ -0,0 +1,12 @@
+general {
+    funcon-term:  print(read, read, else(read, "OK"));
+}
+
+inputs {
+    standard-in: (1,2);
+}
+
+tests {
+    result-term: null-value;
+    standard-out: [1, 2, "OK"];
+}