anchor.diff:          dup
       while
           sfind
  -        state @ +
  +        state @i +
           1+ 2* dispatch
       repeat
       2drop
  
positive.code: ;
  
  header words : words
      forth @
      begin
          dup
      while
  
negative.code: : mkheader
      align
      here lastword !
      forth @i w,
      parse-name
      s,
      align
      dp @i thisxt !
      sync
  ;
  
  header immediate
  :noname
      d# 1 lastword @i +!
  ;
  
  header ]
  