let lseek_block p n =
      assert (n < p.block_nb);
      ignore (handle_unix (
          Unix.lseek p.part_fd (n * p.block_size)) Unix.SEEK_SET)