sS profileThisThreadToString(Runnable r) {
  poorMansProfiling(currentThread());
  pcall {
    r.run();
  }
  ret poorMansProfiling_stopAndRenderResults();
}

static <A> Pair<A, S> profileThisThreadToString(IF0<A> f) {
  new Var<A> var;
  S profile = profileThisThreadToString(r { var.set(callF(f)) });
  ret pair(var!, profile);
}