: 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