$use Access Dir StdIO;

Main =
  <Open-Dir '.'> :: s.dir,
  <L 0 s.dir s.dir> : s.dir1,
  <R 0 s.dir s.dir> : s.dir2,
  <WriteLN <Read-Dir s.dir1>>,
  <WriteLN <Read-Dir s.dir2>>,
  <Close-Dir s.dir1>,
  <Close-Dir s.dir2>;