7 lines
135 B
Text
7 lines
135 B
Text
|
let in openin "input.txt"
|
||
|
|
let out openout "output.txt"
|
||
|
|
while !(catch (let c read char in))
|
||
|
|
write c out
|
||
|
|
endwhile
|
||
|
|
close in; close out
|