%
% shelve un-needed files to history directory using extension
%
% stack: path seed
%
dup extension -1 left
%
% create the shelving location if not exist
%
^3 folder
%
% stack: path seed shelve-locn
%
&2
%
% stack: path seed shelve-dest-file
%
second ^4 exch overwrite

%
% stack: path seed
%