static S url = "http://bots.tinybrain.de/1002076/raw";

static S param = "q";

static int delayPerQuestionMS = 50; // time for other threads to do something

static new L<L<S>> qlist; // questions and answers

static new L<S> protocol;

static class TuringScore {

  S url;

  long score, n;

  long date;

}

static PersistentMap<S, TuringScore> scores; // key = url

p {

  scores = new PersistentMap("turing-scores.map");

  tests();

  prot("It is unix day " + unixDay() + " (timestamp " + unixTime() + "), and we are doing some Turing testing!");

  prot("Test ID: " + formatSnippetID(getProgramID()));

  prot();

  prot("Made " + n(l(qlist), "question") + ".");

  prot();

  prot("Checking " + url + "...");

  int score = 0;

  time {

    for (L<S> qa : qlist) try {

      S q = qa.get(0), a = qa.get(1);

      long t = now();

      S result = getAnswer(q);

      t = now()-t;

      result = htmldecode(result);

      S line = q + " => " + result + " [" + t + " ms]";

      boolean ok = turingMatch(a, result);

      if (ok) {

        ++score;

        prot("OK     " + line);

      } else

        prot("NOT OK expected: " + a + " - " + line);

    } catch (Throwable e) {

      prot(exceptionToUser(e));

    }

    sleep(delayPerQuestionMS);

  }

  prot("");

  prot("Time elapsed: " + lastTiming() + " ms");

  prot("");

  prot(format("Score for *: * / *", url, score, l(qlist)));

  new TuringScore ts;

  ts.date = now();

  ts.url = url;

  ts.score = score;

  ts.n = l(qlist);

  logStructure(getProgramFile("turing-tests.log"), ts);

  scores.put(url, ts);

  saveTextFile(getProgramFile("protocol-" + urlencode(url)), fromLines(protocol));

}

static void add(S q, boolean yes) {

  qlist.add(litlist(q, yes ? "yes" : "no"));

}

static void add(S q, long number) {

  qlist.add(litlist(q, str(number)));

}

static void add(S q, S s) {

  qlist.add(litlist(q, s));

}

static void prot(S s) {

  print(s);

  protocol.add(s);

}

static void prot() { prot(""); }

static S getAnswer(S q) {

  O mainBot = getMainBot();

  if (mainBot != null) {

    // give us a dialog ID!

    callOpt(getOpt(mainBot, "dialogID"), "set", "turing-" + getProgramID());

    ret (S) call(mainBot, "answer", q);

  } else

    ret loadPage(url + "?" + makePostData(param, q));

}