supprimer (List.rev p) dans la fonction compile_path_rev