7 lines
152 B
Text
7 lines
152 B
Text
|
lvars i_stream = discin('input.txt');
|
||
|
|
lvars o_stream = discout('output.txt');
|
||
|
|
lvars c;
|
||
|
|
while (i_stream() ->> c) /= termin do
|
||
|
|
o_stream(c);
|
||
|
|
endwhile;
|