8 lines
163 B
Text
8 lines
163 B
Text
inFile = openFile "input.txt"
|
|
outFile = createFile "output.txt"
|
|
while not EOF inFile do
|
|
(
|
|
format "%" (readLine inFile) to:outFile
|
|
)
|
|
close inFile
|
|
close outFile
|