7 lines
184 B
Text
7 lines
184 B
Text
: puts(*) . "\n" . ;
|
|
: set-file '> swap open ;
|
|
: >>contents slurp puts ;
|
|
: copy-file
|
|
swap set-file 'fdst set fdst fout >>contents fdst close ;
|
|
|
|
'output.txt 'input.txt copy-file
|