(deftype Obj [tag Char index Int])
(deftype Cell [car Int cdr Int]) ;; indexes into the "objs" array

;; \c = cell, \s = symbol
(def objs  [(Obj.init \c 0)
            (Obj.init \c 1)
            (Obj.init \c 2)
            (Obj.init \s 0)])

(def cells [(Cell.init -1 -1) ;; nil
            (Cell.init 1 2)
            (Cell.init 3 0)])

(def syms  [@"Aha"
            @"Yo"])