simulate:
   : CTOGGLE  TUCK @ SWAP XOR SWAP ! ;