(* crée un système de fichiers sur un disque *)    let newfs () =      super_block.inode_number <- fs_inode_number;      super_block.free_blocks.head <- 0;      super_block.free_blocks.nb_free <- D.block_size - 1;      for i = fs_inode_number + 1 to D.block_nb - 1 do        free_block i      done;      write_super_block ();      let inode = { reference_number = !root_inode.reference_number;                    stats = { st_dev =0;                              st_ino = 1;                              st_kind = S_REG;                              st_nlink = 1;                              st_size = 0 };                    blocktbl = Array.create (D.block_size - blocktbl_offset) 0 } in      write_inode inode;      root_inode := inode;;