(setq gram (new (mul 65536 8)))

(setq gptrtable (array 8096))
(setq gptrtableentry 0)

(de allocate (size ptr)
    (cond
        ((lt gptrtableentry (array gptrtable))
            (while
                (and (gt gptrtableentry 0) (nilp (array gptrtable gptrtableentry)))
                (setq gptrtableentry (sub gptrtableentry 1))
            )
            (cond
                ((nilp (array gptrtable gptrtableentry))
                    (setq ptr gram)
                )
            )
        )
    )
)
(setq short 2)
(setq char 1)
(setq long 4)
(setq double 8)
(de * (type ptr)
    (deref ptr type)
)