%
% stack: data temp-file new-ext
%
tuck exch second write
dup rot reextend overwrite