retract(p(X)),b,b,gc,write(X)?
;

