A-M baby

Task/Input-loop/Modula-3/input-loop.mod3

@@ -0,0 +1,14 @@
+MODULE Output EXPORTS Main;
+
+IMPORT Rd, Wr, Stdio;
+
+VAR buf: TEXT;
+
+<*FATAL ANY*>
+
+BEGIN
+  WHILE NOT Rd.EOF(Stdio.stdin) DO
+    buf := Rd.GetLine(Stdio.stdin);
+    Wr.PutText(Stdio.stdout, buf);
+  END;
+END Output.