#include <stdio.h>

#include "wscm.h"

int main(void) {
  gcinit();

  O env = NIL;
  addroot(&env);
  setupenv(&env);

  // IF
  O code = cons(SYM("if"), cons(NIL, cons(NUM(100), cons(NUM(200), NIL))));
  addroot(&code);

  // collect();
  println(code);
  printf("=> ");
  println(eval(code, env));

  gcfinalize();
  return 0;
}