6 lines
94 B
Tcl
6 lines
94 B
Tcl
|
set in [open "input.txt" r]
|
||
|
|
set out [open "output.txt" w]
|
||
|
|
fcopy $in $out
|
||
|
|
close $in
|
||
|
|
close $out
|