loc:
  variable count
  : add dup 0 <>if tib count @ + c! 1 count +! ;then drop ;
  : lf? dup 13 =if drop 10 then ;
  : cr? lf? dup 10 =if rdrop drop then ;
  : tab? dup 9 =if drop 32 then ;
  : bs? dup 8 =if drop 0 1 count -! then ;
  : read 0 count ! repeat key cr? tab? bs? add again ;
 :: repeat ui read tib count @ eval again ;
;loc is boot
