simulate:
   : CRESET  TUCK @ SWAP NOT AND SWAP ! ;