anchor.diff:  ;
   
   : isnotdelim
  -    delim @ <>
  +    delim @i <>
   ;
   
   header parse
   : parse ( "ccc<char" -- c-addr u )
       delim !
  -    source >in @ /string
  +    source >in @i /string
       over >r
       ['] isnotdelim
       _parse
  
positive.code: ;
  
  : attach
      lastword @ ?dup if
          forth !
      then
  ;
  
  : sync
      dp @ syncpt !
  ;
  
  header s,
  
negative.code:     while
          over c@ digit?
          0= if drop exit then
          >r 2swap base @i
          \ ud*
          tuck * >r um* r> +
          r> m+ 2swap
  