void init_primitives(void);
XT primitive_to_xt(CELL primitive);