gc and cons pairs

main.c

@@ -1,12 +1,15 @@
-#include <stdio.h>
 #include "wscm.h"
 
 int main(void) {
+  gcinit();
+
   const S *hello = intern("hello", -1);
-  printf("hello  = %p\n", (void *)hello);
+  const S *goodbye = intern("goodbye", -1);
+  O p = cons(BOX(hello), BOX(goodbye));
+  addroot(&p);
 
-  const S *hello2 = intern("hello", -1);
-  printf("hello2 = %p (should be equal to hello)\n", (void *)hello2);
+  collect();
 
+  gcfinalize();
   return 0;
 }