#line 30 "/home/travis/build/felix-lang/felix/src/packages/filetools.fdoc"
  fun dbg(s:string):string={ println s; return s; }
  //println$ System::args ();
  //println$ "argc=" + str System::argc;
  
  var dir =
    if System::argc < 2 then Directory::getcwd()
    else System::argv 1
    endif
  ;
  
  var regex =
    if System::argc < 3 then ".*"
    else System::argv 2
    endif
  ;
  
  //println$ "Dir=" dir;
  //println$ "Files in dir " + dir + "=";
  iter (proc (s:string) { println s; }) (FileSystem::regfilesin (dir, regex));