diff --git a/src/Homework1/Homework1.fsproj b/src/Homework1/Homework1.fsproj
index 107d151..76560c6 100644
--- a/src/Homework1/Homework1.fsproj
+++ b/src/Homework1/Homework1.fsproj
@@ -15,6 +15,7 @@
     </PropertyGroup>
     <ItemGroup>
         <Content Include="paket.references" />
+        <Compile Include="ListReverse.fs" />
         <Compile Include="Main.fs" />
     </ItemGroup>
     <Import Project="..\..\.paket\Paket.Restore.targets" />
diff --git a/src/Homework1/ListReverse.fs b/src/Homework1/ListReverse.fs
new file mode 100644
index 0000000..be299dc
--- /dev/null
+++ b/src/Homework1/ListReverse.fs
@@ -0,0 +1,19 @@
+namespace Homework1
+
+/// <summary>
+/// Module that contains function for list reversing.
+/// </summary>
+module ListReverse =
+    /// <summary>
+    /// Reverse the list.
+    /// </summary>
+    /// <param name="list">List to reverse.</param>
+    let reverse list =
+        let rec reverseRec acc tail =
+            match tail with
+            | [] -> acc
+            | hd :: tl -> reverseRec (hd :: acc) tl
+
+        match list with
+        | [] -> []
+        | list -> reverseRec [] list
diff --git a/tests/Homeworks.Tests/Main.fs b/tests/Homeworks.Tests/Main.fs
index 4264e0b..e8541c9 100644
--- a/tests/Homeworks.Tests/Main.fs
+++ b/tests/Homeworks.Tests/Main.fs
@@ -5,5 +5,4 @@ let allTests = testList "all Tests" []
 
 [<EntryPoint>]
 let main argv =
-    allTests
-    |> runTestsWithCLIArgs [] argv
+    allTests |> runTestsWithCLIArgs [] argv