simulate:
   : RESOLVE> ?COMP  HERE SWAP ! ;