extern void* primitives[]; CELL primitive_to_xt(CELL primitive);