1  .: (bb)  .c@++ 0=; swap 1+ swap me ;
  2  : bb  0 { s2 @ (bb) drop s0 ! 0 } ;
  3  : ++ .c@ 0=; .c@++ 10 =; me ;
  4  .: rem  4095 s0 @ s1 @ - - ;
  5  .: (ii)  10 s0 @ c! ;
  6  : ii  { s0 @ dup 1+ rem cmove> (ii) 0 } ;
  7  : dd  2dup { ++ s0 @ s2 @ rem <cmove 2 } ;
  8  : ee  { s0 @ rem 0 edit 0 } ;
  9  .: (ll)  1- .0=; >r ++ r> me ;
 10  : ll  nip over swap (ll) drop ;
 11  .: 10<_ 10 .u>=; sp ;
 12  .: mark s1 @ s3 @ !=; 62 emit ;;
 13  .: head  sp 10<_ dup (.) mark sp ;
 14  .: emit?  emit ;
 15  .: (line)  .c@++ dup emit? 10 !=me ;
 16  .: line  head sp >r (line) r> ;
 17  .: (ss)  over c@ 0=; line 1+ s5 @ .u>; me ;
 18> .: eof  over c@ 0>; head 9148386 emit cr ;
 19  .: pre  over dup s3 @ ll ;
 20  .: vis  { (ss) eof 3 } ;
 21  : ss  cr { pre s3 @ vis 0 } ;
 22  : ww  { s2 @ swap blkwr 1 } ;
 23  : ed  >r 1 -1 r> block dup cls ss ;
 24  : rr  { s4 ! s5 ! 2 } ;