
set in [open input r];# input contains UTF-8 data.
fconfigure $in -translation binary

set out [open output w]
fconfigure $out -encoding cp1252 -translation crlf

fcopy $in $out -size 4096

close $in
close $out
exit
