// default mode = "quick"
static Pair<Bool, S> transpileOnNewServer(S snippetID) {
  ret transpileOnNewServer(snippetID, "quick");
}

static Pair<Bool, S> transpileOnNewServer(long snippetID) {
  ret transpileOnNewServer(fsI(snippetID));
}

static Pair<Bool, S> transpileOnNewServer(long snippetID, S mode) {
  ret transpileOnNewServer(fsI(snippetID), mode);
}

// mode = "quick", "medium", "fresh"
// result = pair(ok, answer)
static Pair<Bool, S> transpileOnNewServer(S snippetID, S mode) ctex {
  print("Transpiling " + formatSnippetID(snippetID));

  S url = "https://botcompany.de/1018308/raw/" + psI(snippetID);
  url = appendParamsToURL(url,
    medium := eq(mode, "medium") ? "1" : null,
    fresh := eq(mode, "fresh") ? "1" : null);
  S result = postPage(url, transpilationCredentials());
  print(result);
  
  bool ok = cic(htmlDecode(result), "Transpiled & uploaded");
  ret pair(ok, result);
}

Began life as a copy of #1004306