diff --git a/Algo/Séminaire/Exercices seminaire.md b/Algo/Séminaire/Exercices seminaire.md
index e34b8c2..cfbc7b5 100644
--- a/Algo/Séminaire/Exercices seminaire.md	
+++ b/Algo/Séminaire/Exercices seminaire.md	
@@ -197,7 +197,7 @@ val rate_standart : int -> float = <fun>
 val rate_express : int -> float = <fun>
 
 # let rate rt kg = match rt with
-	| x when x = "economic" -> rate_eco(kg)
+	| ^x when x = "economic" -> rate_eco(kg)
 	| x when x = "standard" -> rate_standard(kg)
 	| x when x = "express" -> rate_express(kg)
 	| _ -> invalid_arg "Bad type of shipping class";;