+: caar car car ;
+: cadr cdr car ;
+: cdar car cdr ;
+: cddr cdr cdr ;
+
+: nil 0 nil-type ;
+: nil? nil-type istype? ;
+
+: objvar create 0 , 0 , ;
+
+: value@ ( objvar -- val ) @ ;
+: type@ ( objvar -- type ) 1+ @ ;
+: value! ( newval objvar -- ) ! ;
+: type! ( newtype objvar -- ) 1+ ! ;
+: setobj ( newobj objvar -- ) dup rot swap 1+ ! ! ;
+: fetchobj ( objvar -- obj ) dup @ swap 1+ @ ;
+
+objvar symbol-table
+nil symbol-table setobj
+
+: objeq? ( obj obj -- bool )
+ rot = -rot = and ;
+
+\ ---- Pre-defined symbols ----
+
+: (create-symbol) ( addr n -- symbol-obj )
+ dup 0= if
+ 2drop nil
+ else
+ 2dup drop @ character-type 2swap
+ swap 1+ swap 1-
+ recurse
+
+ cons
+ then
+;
+
+: create-symbol ( -- )
+ bl word
+ count
+
+ (create-symbol)
+ drop symbol-type
+
+ 2dup
+
+ symbol-table fetchobj
+ cons
+ symbol-table setobj
+
+ create swap , ,
+ does> dup @ swap 1+ @
+;
+
+create-symbol quote quote