diff --git a/Algo/Courses/Chapter 7 - High Order (exercises).md b/Algo/Courses/Chapter 7 - High Order (exercises).md
index 0c4cc9f..79432d7 100644
--- a/Algo/Courses/Chapter 7 - High Order (exercises).md	
+++ b/Algo/Courses/Chapter 7 - High Order (exercises).md	
@@ -74,4 +74,8 @@ let rec partition p l =
 		| h==t> let (l1, l2) = partition p t in
 			if p h then (h::l1,l2)
 			else (l1, h::l2);;
-val partition : ('a -> bool) -> 'a list -> 'a list * 'a list = <fun>
\ No newline at end of file
+val partition : ('a -> bool) -> 'a list -> 'a list * 'a list = <fun>
+```
+
+## Ex 2.7
+```Ocaml