static S createTempProgram(S code) {
  ret createTempProgram(code, "Temp program by " + formatSnippetID(getProgramID()));
}

static S createTempProgram(S code, S title) {
  S addURL = "http://tinybrain.de:8080/tb-int/add_snippet.php";
  S query = "type=34&superhigh=1&public=1&text=" + urlencode(code)
    + "&name=" + urlencode(title);
  S answer = doPost(query, addURL);
  if (!isSnippetID(answer)) fail(answer);
  print("Temp program created! " + formatSnippetID(answer));
  ret answer;
}