%
% stack: xact-filename
%
% add a file to a subfolder of xact images to multipart transmit
%
outchain
%
% stack: xact-filename mpart-src
%
second ofxact
%
% stack: xact-filename mpart-src xact-spec
%
rot empty chained enc^dest
%
% stack: mpart-src xact-spec xact-enc-filename
%
^3)
"xenc" log)(
%
% stack: xact-spec xact-enc-spec
%
copyfile