#include <libguile.h>


#define ONE_HUNDRED_MILLION (100*1000*1000)

SCM protected_string;
SCM unprotected_string;

void inner_main (void *data, int argc, char **argv)
{
  protected_string = scm_c_make_string(ONE_HUNDRED_MILLION, SCM_MAKE_CHAR('1'));
  scm_gc_protect_object (protected_string);

  unprotected_string = scm_c_make_string(ONE_HUNDRED_MILLION, SCM_MAKE_CHAR('2'));

  scm_display(scm_c_eval_string("(gc-stats)"), scm_current_output_port());
  scm_newline(scm_current_output_port());

  scm_gc();

  scm_display(scm_c_eval_string("(gc-stats)"), scm_current_output_port());
  scm_newline(scm_current_output_port());
}

int main (int argc, char **argv)
{
  scm_boot_guile (argc, argv, inner_main, NULL);
  return 0;
}