RosettaCodeData/Task/File-input-output/Factor/file-input-output-2.factor

[
    "input.txt" binary <file-reader> &dispose
    "output.txt" binary <file-writer> stream-copy
] with-destructors