#include "libguile.h"

static void guile_main(void *data, int argc, char **argv)
{
  for (long r = 0; r < 100 * 1000; r++) {
    scm_c_eval_string("(+ 1 2)");
  }
}

int main(int argc, char *argv[]) {
  scm_boot_guile (argc, argv, guile_main, 0);
  return 0;
}