%
% stack: data temp-file
%
to3rd
write
dup retext
overwrite