8 lines
184 B
Text
8 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
|