let lseek_block n =
    assert (n < block_nb);
    ignore (handle_unix (lseek disk (n * block_size)) SEEK_SET)