%
% stack: dir-name logic-seed
%
second "_prod_" found)?
{
 true or
}
{
 second "." atleft or
 second "$" atleft or
 second "_" atleft or
 dup
 {
  false and
 }
 {
  second extension "." empty replall
  <wwwslook> not or
 } ifelse
} ifelse


/*

_prod_*.*
keep other _ leading
keep $ in front
or . in front


more than 4 digits in front

MMS*.*

.xtx .txt .yty

.sta .jpg .png .psd .gif

*/

%
% stack: dir-name hold-flag
%