(setf memory (make-array 40 :initial-contents
  '(free	unmarked	nil	4	;
    free	unmarked	nil	8	;
    free	unmarked	nil	12	;
    free	unmarked	nil	16	;
    free	unmarked	nil	20	;
    free	unmarked	nil	24	;
    free	unmarked	nil	28	;
    free	unmarked	nil	32	;
    free	unmarked	nil	36	;
    free	unmarked	nil	nil	;
    )))

(setf next-free-chunk 0 last-free-chunk 36)