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)