$use Dir StdIO;

Main =
  <Open-Dir '.'> :: s.dir,
  $iter # \{
    <Read-Dir s.dir> : e.file,
      {
        e.file : 'read_' e '1.' s s =
          <PrintLN "- a match for \"read_*1.??\" found">;;
      };
  };