!7

static S snippetID;

p-experiment {
  snippetID = latestFileOnServerNamed("characters.zip");
  File zip = loadBinarySnippet(snippetID);
  for (S name : listZip(zip)) {
    if (isImageFileName(name)) {
      if (!dirContainsFile(screenClipsDir(), name))
        extractFileFromZipVerbose(zip, name, newFile(screenClipsDir(), name));
    } else if (eqic(name, "glyph-teaching.txt"))
      mergeLinesIntoGlyphTeachLog(snippetID, loadTextFileFromZip(zip, name));
  }
}