%
% stack: file-time
%
Time.Now "m" Time.Diff
dup 10 gt
{
 dup 60 gt
 {
  dup 60 24 mul gt
  {
%
% past time categories
%
  }
  {
%
% within the last day
%
   +:Sim.Wday
  } ifelse

 }
 {
%
% within the last hour
%
  +:Sim.Whour
 } ifelse

}
{
%
% within the last 10 min
%
  +:Sim.Wnear
} ifelse
pop