Initial data commit

Task/Input-loop/Bracmat/input-loop.bracmat

@@ -0,0 +1,27 @@
+( put$("This is
+a three line
+text","test.txt",NEW)
+& fil$("test.txt",r)
+& fil$(,STR," \t\r\n")
+& 0:?linenr
+&   whl
+  ' ( fil$:(?line.?breakchar)
+    &   put
+      $ ( str
+        $ ( "breakchar:"
+            ( !breakchar:" "&SP
+            | !breakchar:\t&"\\t"
+            | !breakchar:\r&"\\r"
+            | !breakchar:\n&"\\n"
+            | !breakchar:&EOF
+            )
+            ", word "
+            (1+!linenr:?linenr)
+            ":"
+            !line
+            \n
+          )
+        )
+    )
+& (fil$(,SET,-1)|out$"file closed")
+);