diff --git a/Algo/Courses/Chapter 6 - Lists (Exercises).md b/Algo/Courses/Chapter 6 - Lists (Exercises).md
index 90f6d45..6e22d33 100644
--- a/Algo/Courses/Chapter 6 - Lists (Exercises).md	
+++ b/Algo/Courses/Chapter 6 - Lists (Exercises).md	
@@ -279,5 +279,9 @@ val flatten: 'a list list -> 'a list = <fun>
 ```
 Complexity : $O(\sum_{\forall{l\in{(el::ll)}}}^{}1+length(l))$
 
+## Exercise 6.1
+```Ocaml
+let rec decompose = function 
+	|