anchor.diff:  : 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 ] )
  
positive.code: [then]
  
  variable        nn
  : -eoi          dup 0= if r> drop then ;
  : ucase         dup [char] a [char] z 1+ within $20 and xor ;
  : >bin          [char] 0 - dup 10 u< 0= 7 and - ;
  : +hex          dup 0 16 within 0= if 2r> 2drop r> drop then ;
  
negative.code: : >body         definition ;
  : invert        invert, ;
  : ,             ,, ;
  : nop           nop, ;
  
  host definitions
  
  