let set_pos desc pos =
  if pos <> lseek desc pos SEEK_SET then
    failwith "lseek: mauvaise position de retour"