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