anchor.diff:  	next,
   tend-code
   
  -: nbr  cr cr type -1 abort" ?" ;
  +tcode (dolit)
  +	0 ip x9 ld,
  +	8 ip ip addi,
  +	-8 dsp dsp addi,
  +	0 dsp x9 sd,
  +	next,
  +tend-code
   
  +: err		cr cr type -1 abort" ?" ;
  +: nbr?		[char] $ over = swap [char] ' over = swap $30 $3A within or or ;
  +: nbr		over c@ nbr? if evaluate [t'] (dolit) t, t, else err then ;
   : docolon	[t'] (enter) t>h @ ;
   : :head,	docolon 32 word count thead, ;
   : ?refill	>in @ source nip = if refill 0= abort" EOF?" then ;
  
positive.code:   32 word find if
      execute
    else
      count tfind if
        h>t t,
      else
        nbr
      then
    then
  ;
  
  
negative.code: 
  : ;t		[t'] exit t, treveal r> r> 2drop ;
  
  tcode halt
  	0 0 jal,
  tend-code
  