anchor.diff:  s" ext2-files" device-name
   
   INSTANCE VARIABLE first-block
  +INSTANCE VARIABLE inode-size
   INSTANCE VARIABLE block-size
   INSTANCE VARIABLE inodes/group
   
  +INSTANCE VARIABLE group-desc-size
   INSTANCE VARIABLE group-descriptors
   
   : seek  s" seek" $call-parent ;
  
positive.code:   2r> 2drop false ."  not found " EXIT THEN
    r@ 0<> IF 2r> ."  more... " RECURSE EXIT THEN
    2r> 2drop ."  got it " ;
  : close ;
  : open
    do-super
    80 alloc-mem inode !
    my-args nip 0= IF 0 0 ELSE
    2 my-args find-path ?dup 0= IF close false EXIT THEN THEN
    read-inode read-block#s 0 0 seek 0= ;
  
negative.code: : read-inode ( inode# -- )
    1- inodes/group @ u/mod \ # in group, group #
    20 * group-descriptors @ + 8 + l@-le block-size @ * \ # in group, inode table
    swap inode-size @ * + xlsplit seek drop  inode @ inode-size @ read drop
  ;
  
  : .rwx ( bits last-char-if-special special? -- )
    rot dup 4 and IF ." r" ELSE ." -" THEN
  