%
% clear files to subdirectory older than set time
%
% stack: wildcard
%
 0 !counter
 conn(
 {
  nextfile ?
%
% stack: full-filespec
%
  filed
  Time.Now
  "s" Time.Diff
  _Time.Barrier gt
  {
%
% make subfolder of extension
%
   *shlvshlu
  } if
  +counter _Time.Cycle gt ?
 } loop
 filing)