diff --git a/Algo/Séminaire/Exercices seminaire.md b/Algo/Séminaire/Exercices seminaire.md
index 8943a57..a315154 100644
--- a/Algo/Séminaire/Exercices seminaire.md	
+++ b/Algo/Séminaire/Exercices seminaire.md	
@@ -202,3 +202,16 @@ val rate_express : int -> float = <fun>
 	| x when x = "express" -> rate_express(kg)
 	| _ -> invalid_arg "Bad type of shipping class";;
 val rate : string -> int -> float = <fun>
+
+(*4th question*)
+let price w (p1, p2, p3, p4) = 
+	if w <=500 then p1
+	else if w <=1000 then p2
+	else if w <=2000 then p3
+	else if w <=3000 then p4
+	else failwith "Too heavy";;
+val price = int -> 'a * 'a * 'a * 'a -> 'a = <fun>
+```
+
+
+