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