6 lines
152 B
Text
6 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;
|