anchor.diff:      aligned
       dp _!
   ;
  -
   
   header sfind
   : sfind
  
positive.code:     drop
  ;
  
  header key? ( -- f ) \ true if character can be read 
  : key?
      h# 0086 io@ h# 0f00 and 0<>
  ;
  
negative.code: 
  header accept
  : accept
      	
      tethered @i if d# 30 emit then
      
      >r d# 0  ( addr len R: maxlen )
  
      begin
  
          key    ( addr len key R: maxlen )
  
          d# 9 over= if drop d# 32 then
  