14 lines
214 B
Text
14 lines
214 B
Text
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.
|