anchor.diff:      source >in @i /string
       ['] isspace? xt-skip over >r
       ['] isnotspace?
  -;fallthru
   : _parse
       xt-skip ( end-word restlen r: start-word )
       2dup d# 1 min + source drop - >in _!
  
positive.code: 
  header count
  : count
      dup 1+ swap c@
  ;
  
  header bounds
  
negative.code: : t]
      fineforoptimisation off  \  : --> No opcodes written yet - never recognize header bytes as opcodes !
      d# 3                      \ ] --> Something strange might just went on. Careful !
  : state!
      state _!
  ;
  