Renverser avec une pile

let renverse_file f =
  let p = Stack.create () in
  while not (Queue.is_empty f) do
    Stack.push (Queue.pop f) p
  done;
  while not (Stack.is_empty p) do
    Queue.push (Stack.pop p) f
  done

On vide la file dans une pile : l'ordre s'inverse (FIFO puis LIFO). On revide la pile dans la file : les éléments y reviennent renversés. La file f est modifiée sur place ; la fonction renvoie ().