diff --git a/Algo/Courses/Chapter 6 - Lists (Exercises).md b/Algo/Courses/Chapter 6 - Lists (Exercises).md
index 4892873..495759e 100644
--- a/Algo/Courses/Chapter 6 - Lists (Exercises).md	
+++ b/Algo/Courses/Chapter 6 - Lists (Exercises).md	
@@ -235,4 +235,10 @@ val equals = 'a list -> 'a list -> bool = <fun>
 let shared l1 l2 = function 
 	| [] -> []
 	| e::t -> let rec s l2 = function
-		|e::t -> 
+		|e::t -> if e = e1 
+					then e::sharede t t2 
+				else if e2 > e then
+					shared t (e2::t2)
+				else
+					shared (e::t) t2;;
+val shard = int list * int list *int list -> int list = <fun>