simulate:
   : CSET  TUCK @ SWAP OR SWAP ! ;