diff --git a/Algo/Séminaire/Exercices seminaire.md b/Algo/Séminaire/Exercices seminaire.md
index 97be547..4c66420 100644
--- a/Algo/Séminaire/Exercices seminaire.md	
+++ b/Algo/Séminaire/Exercices seminaire.md	
@@ -369,8 +369,11 @@ let rec multiply x y =
 
 ## Exercise 4.11
 ```Ocaml
-let rec puissance = function
-	|n when n = 0 -> 1
-	|n when n = 1 -> x
-	|n -> 
+let rec puissance x n =
+	if n = 0 then
+		1
+	else if n = 1 then
+		x
+	else
+		x*puissance x (n-1);;
 ```
\ No newline at end of file