anchor.diff:  : >body         definition ;
   : invert        invert, ;
   : ,             ,, ;
  +: nop           nop, ;
   
   host definitions
   
  
positive.code: 
  also target-primitives definitions previous
  
  : defer         defer, ;
  : :             :, ;
  : +             +, ;
  : ;             ;, ;
  : dup           dup, ;
  : @             @, ;
  : xor           xor, ;
  : over          over, ;
  : !             !, ;
  
negative.code: : declit        begin -eoi over c@ accum 1 /string again ;
  : -dec          over c@ is0-9? if declit nn @ ['] lit, 2r> 2drop then ;
  : -number       0 nn ! 2dup -dec -hex 2drop ;
  : classify      -compiled -immediate -number ." Error: " type -2 abort" Undefined" ;
  : ],            begin token classify execute again ;
  : [,            r> r> drop >r ;  ( break out of the infinite loop set up by ] )
  