(* crée un système de fichiers sur un disque *)
   let mkfs () =
     super_block.inode_number <- 1;
     super_block.free_blocks.head <- 0;
     super_block.free_blocks.nb_free <- (D.block_size/4) - 1;
     for i = D.block_nb - 1 downto 2 do
       free_block i
     done;
     write_super_block ();
     let inode = { reference_number = 1;
                   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)/4) 0 } in
     write_inode inode;
     root_inode := inode;;