let rec _Parcours_Enum arguments identifiant =
match arguments with
[] -> (Inconnu, false)
| (Chaine s)::liste_restante ->
if s = identifiant
then
(Enum[(Chaine identifiant)], true)
else
_Parcours_Enum liste_restante identifiant
| _::liste_restante -> _Parcours_Enum liste_restante identifiant