!7

p {
  bool errors = false;
  for (S s : tlft(loadPage("http://eyeocr.sourceforge.net/filestore/filestore.php?cmd=ls"))) {
    if (startsWith(s, "#")) continue;
    print(s);
    File f = getProgramFile(s);
    if (hasFile(f)) continue;
    S url = "http://eyeocr.sourceforge.net/filestore/filestore.php?cmd=serve&file=" + urlencode(s);
    try {
      saveBinaryFile(f, loadBinaryPage(url));
    } catch e {
      printShortException(e);
      errors = true;
    }
  }
  print(errors ? "Done with errors" : "Done!");
}