diff --git a/Algo/Séminaire/Exercices seminaire.md b/Algo/Séminaire/Exercices seminaire.md
index 887b30a..e012bb4 100644
--- a/Algo/Séminaire/Exercices seminaire.md	
+++ b/Algo/Séminaire/Exercices seminaire.md	
@@ -499,13 +499,13 @@ let is_perfect n =
 	if n < 1 then
 		invalid_arg "is_perfect: undefinded for n < 1"
 	else 
-		let rec perfect d =
+		let rec perfect n d =
 			if n mod d = 0 then
 			else if d*d > n then
 				true
 			else
 				perfect (d + 1) 
-		in perfect d;;
+		in perfect n d;;
 ```
 ## Hanoi
 ```Ocaml