diff --git a/Algo/Courses/Chapter 7 - High Order (exercises).md b/Algo/Courses/Chapter 7 - High Order (exercises).md
index aa6e919..cf9d413 100644
--- a/Algo/Courses/Chapter 7 - High Order (exercises).md	
+++ b/Algo/Courses/Chapter 7 - High Order (exercises).md	
@@ -26,10 +26,12 @@ val sigma: (int -> int) -> int -> int = <fun>
 
 ## Ex 2.1
 ```
-# let map arg list =
-	if list = [] then 0
-	else
-		let e::t = list in
 # let rec map f = function
 	| [] -> []
 	|e::t -> f(e)::map f t ;;
+val map : ('a -> 'b) -> 'a list -> 'b list = <fun>
+```
+
+## Ex 2.2
+```
+# let rec for_app