let write_super_block () =
    let buffer = Array.create D.block_size 0  in
    buffer.(0) <- super_block.inode_number;
    buffer.(1) <- super_block.free_blocks.head;
    buffer.(2) <- super_block.free_blocks.nb_free;
    D.write 0 buffer 0;;