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