diff --git a/Kevin_Richard_Simon/.idea/.idea.Kevin/.idea/.gitignore b/Kevin_Richard_Simon/.idea/.idea.Kevin/.idea/.gitignore
new file mode 100644
index 0000000..ba5c6f2
--- /dev/null
+++ b/Kevin_Richard_Simon/.idea/.idea.Kevin/.idea/.gitignore
@@ -0,0 +1,13 @@
+# Default ignored files
+/shelf/
+/workspace.xml
+# Rider ignored files
+/projectSettingsUpdater.xml
+/modules.xml
+/contentModel.xml
+/.idea.Kevin.iml
+# Editor-based HTTP Client requests
+/httpRequests/
+# Datasource local storage ignored files
+/dataSources/
+/dataSources.local.xml
diff --git a/Kevin_Richard_Simon/.idea/.idea.Kevin/.idea/encodings.xml b/Kevin_Richard_Simon/.idea/.idea.Kevin/.idea/encodings.xml
new file mode 100644
index 0000000..df87cf9
--- /dev/null
+++ b/Kevin_Richard_Simon/.idea/.idea.Kevin/.idea/encodings.xml
@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project version="4">
+  <component name="Encoding" addBOMForNewFiles="with BOM under Windows, with no BOM otherwise" />
+</project>
\ No newline at end of file
diff --git a/Kevin_Richard_Simon/.idea/.idea.Kevin/.idea/indexLayout.xml b/Kevin_Richard_Simon/.idea/.idea.Kevin/.idea/indexLayout.xml
new file mode 100644
index 0000000..7b08163
--- /dev/null
+++ b/Kevin_Richard_Simon/.idea/.idea.Kevin/.idea/indexLayout.xml
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project version="4">
+  <component name="UserContentModel">
+    <attachedFolders />
+    <explicitIncludes />
+    <explicitExcludes />
+  </component>
+</project>
\ No newline at end of file
diff --git a/Kevin_Richard_Simon/.idea/.idea.Kevin/.idea/vcs.xml b/Kevin_Richard_Simon/.idea/.idea.Kevin/.idea/vcs.xml
new file mode 100644
index 0000000..62bd7a0
--- /dev/null
+++ b/Kevin_Richard_Simon/.idea/.idea.Kevin/.idea/vcs.xml
@@ -0,0 +1,7 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project version="4">
+  <component name="VcsDirectoryMappings">
+    <mapping directory="" vcs="Git" />
+    <mapping directory="$PROJECT_DIR$/.." vcs="Git" />
+  </component>
+</project>
\ No newline at end of file
diff --git a/Kevin_Richard_Simon/.idea/.idea.Kevin_Richard_Simon/.idea/.gitignore b/Kevin_Richard_Simon/.idea/.idea.Kevin_Richard_Simon/.idea/.gitignore
new file mode 100644
index 0000000..1fecdb9
--- /dev/null
+++ b/Kevin_Richard_Simon/.idea/.idea.Kevin_Richard_Simon/.idea/.gitignore
@@ -0,0 +1,13 @@
+# Default ignored files
+/shelf/
+/workspace.xml
+# Rider ignored files
+/modules.xml
+/projectSettingsUpdater.xml
+/.idea.Kevin_Richard_Simon.iml
+/contentModel.xml
+# Editor-based HTTP Client requests
+/httpRequests/
+# Datasource local storage ignored files
+/dataSources/
+/dataSources.local.xml
diff --git a/Kevin_Richard_Simon/.idea/.idea.Kevin_Richard_Simon/.idea/encodings.xml b/Kevin_Richard_Simon/.idea/.idea.Kevin_Richard_Simon/.idea/encodings.xml
new file mode 100644
index 0000000..df87cf9
--- /dev/null
+++ b/Kevin_Richard_Simon/.idea/.idea.Kevin_Richard_Simon/.idea/encodings.xml
@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project version="4">
+  <component name="Encoding" addBOMForNewFiles="with BOM under Windows, with no BOM otherwise" />
+</project>
\ No newline at end of file
diff --git a/Kevin_Richard_Simon/.idea/.idea.Kevin_Richard_Simon/.idea/vcs.xml b/Kevin_Richard_Simon/.idea/.idea.Kevin_Richard_Simon/.idea/vcs.xml
new file mode 100644
index 0000000..d843f34
--- /dev/null
+++ b/Kevin_Richard_Simon/.idea/.idea.Kevin_Richard_Simon/.idea/vcs.xml
@@ -0,0 +1,4 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project version="4">
+  <component name="VcsDirectoryMappings" defaultProject="true" />
+</project>
\ No newline at end of file
diff --git a/Kevin_Richard_Simon/Kevin_Richard_Simon.sln b/Kevin_Richard_Simon/Kevin_Richard_Simon.sln
new file mode 100644
index 0000000..4c0b048
--- /dev/null
+++ b/Kevin_Richard_Simon/Kevin_Richard_Simon.sln
@@ -0,0 +1,16 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Kevin_Richard_Simon", "Kevin_Richard_Simon\Kevin_Richard_Simon.vbproj", "{85526CE4-E046-4FF2-8ED6-8DF98D0A8F28}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{85526CE4-E046-4FF2-8ED6-8DF98D0A8F28}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{85526CE4-E046-4FF2-8ED6-8DF98D0A8F28}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{85526CE4-E046-4FF2-8ED6-8DF98D0A8F28}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{85526CE4-E046-4FF2-8ED6-8DF98D0A8F28}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+EndGlobal
diff --git a/Kevin_Richard_Simon/Kevin_Richard_Simon/Kevin_Richard_Simon.vbproj b/Kevin_Richard_Simon/Kevin_Richard_Simon/Kevin_Richard_Simon.vbproj
new file mode 100644
index 0000000..2a3bc3d
--- /dev/null
+++ b/Kevin_Richard_Simon/Kevin_Richard_Simon/Kevin_Richard_Simon.vbproj
@@ -0,0 +1,9 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+    <PropertyGroup>
+        <OutputType>Exe</OutputType>
+        <RootNamespace>Kevin</RootNamespace>
+        <TargetFramework>net9.0</TargetFramework>
+    </PropertyGroup>
+
+</Project>
diff --git a/Kevin_Richard_Simon/Kevin_Richard_Simon/Program.vb b/Kevin_Richard_Simon/Kevin_Richard_Simon/Program.vb
new file mode 100644
index 0000000..0f83cbc
--- /dev/null
+++ b/Kevin_Richard_Simon/Kevin_Richard_Simon/Program.vb
@@ -0,0 +1,133 @@
+Imports System
+Imports System.Numerics
+
+Module Program
+    Sub Main(args As String())
+        Console.WriteLine("Hello World!")
+
+        Dim emptyStringList = ListOf (Of String).Nil
+        Console.WriteLine("is Nil:" + emptyStringList.IsNil().ToString())
+        Dim worldList = ListOf (Of String).Cons("World", emptyStringList)
+        Console.WriteLine("is Nil:" + worldList.IsNil().ToString())
+        Console.WriteLine(worldList.Head)
+        Dim helloWorldList = ListOf (Of String).Cons("Hello", worldList)
+        Console.WriteLine("is Nil:" + helloWorldList.IsNil().ToString())
+
+        Console.WriteLine(helloWorldList.ToString())
+
+        Dim integerList as ListOf(Of Integer) = ListOf (Of Integer).Cons(1, ListOf (Of Integer).Cons(2,
+                                                                                                     ListOf (Of Integer) _
+                                                                                                        .Cons(
+                                                                                                            3,
+                                                                                                            ListOf _
+                                                                                                                 ( _
+                                                                                                                 Of _
+                                                                                                                 Integer
+                                                                                                                 ) _
+                                                                                                                 .Nil)))
+        Dim sumOfIntegerList = sum(integerList)
+        Console.WriteLine("Sum of list: " + sumOfIntegerList.ToString())
+
+        Dim productOfIntegerList = Times(integerList)
+        Console.WriteLine("Times of list: " + productOfIntegerList.ToString())
+
+        Dim addFunction = Function(x, y) x + y
+
+        Dim foldrSumWithTen = foldr (Of Integer, Integer)(addFunction, 10, integerList)
+        Console.WriteLine("Foldr sum of list: " + foldrSumWithTen.ToString())
+
+        Dim numbersToBuild As Integer() = {1, 2, 3, 4, 5}
+        Dim builtIntegerList As ListOf(Of Integer) = BuildList(numbersToBuild)
+        Console.WriteLine("Built List: " + sum(builtIntegerList).ToString())
+
+        Dim boolArrayAllFalse = {False, False, False}
+        Dim allFalseList = BuildList(boolArrayAllFalse)
+        Console.WriteLine("Built List: " + AnyTrue(allFalseList).ToString())
+
+        Dim boolArrayAllTrue = {True, True, True}
+        Dim allTrueList = BuildList(boolArrayAllTrue)
+        Console.WriteLine("Built List: " + AllTrue(allTrueList).ToString())
+
+        Dim numbersToCopy As Integer() = {1, 2, 3, 4, 5}
+        Dim copiedIntegerList As ListOf(Of Integer) = CopyList(BuildList(numbersToCopy))
+        Console.WriteLine("Built List: " + sum(copiedIntegerList).ToString())
+
+        Dim firstAppendArray As Integer() = {1, 2}
+        Dim secondAppendArray As Integer() = {1, 2}
+        Dim appendedIntegerList As ListOf(Of Integer) = Append(BuildList(firstAppendArray), BuildList(secondAppendArray))
+        Console.WriteLine("Built List: " + sum(appendedIntegerList).ToString())
+    End Sub
+
+    Function AnyTrue(list As ListOf(Of Boolean)) As Boolean
+        return Foldr(Function(x, y) x Or y, False, list)
+    End Function
+
+    Function AllTrue(list As ListOf(Of Boolean)) As Boolean
+        return Foldr(Function(x, y) x And y, True, list)
+    End Function
+
+    Function BuildList (Of T)(values as T()) as ListOf(Of T)
+        if (values.Length = 0)
+            return ListOf (Of T).Nil
+        End If
+        return ListOf (Of T).Cons(values(0), BuildList(values.Skip(1).ToArray()))
+    End Function
+
+    Function CopyList (Of T)(list As ListOf(Of T)) As ListOf(Of T)
+        return Foldr(AddressOf ListOf (Of T).Cons, ListOf (Of T).Nil, list)
+    End Function
+
+    Function Append (Of T)(list1 As ListOf(Of T), list2 As ListOf(Of T)) As ListOf(Of T)
+        return Foldr(Function(x, y) ListOf (Of T).Cons(x, y), list2, list1)
+    End Function
+
+    Function Foldr (Of T, TReturn)(func As Func(Of T, TReturn, TReturn), initial As TReturn, list As ListOf(Of T)) _
+        As TReturn
+        If list.IsNil() Then
+            Return initial
+        Else
+            Return func(list.Head, Foldr(func, initial, list.Tail))
+        End If
+    End Function
+
+    Function Sum(list As ListOf(Of Integer)) As Integer
+        If list.IsNil() Then
+            Return 0
+        Else
+            Return list.Head + Sum(list.Tail)
+        End If
+    End Function
+
+    Function Times(list As ListOf(Of Integer)) As Integer
+        If list.IsNil() Then
+            Return 1
+        Else
+            Return list.Head*Times(list.Tail)
+        End If
+    End Function
+End Module
+
+Class ListOf (Of T)
+    Public Property Head As T
+    Public Property Tail As ListOf(Of T)
+
+    Private Sub New()
+    End Sub
+
+    Public Overrides Function ToString() As String
+        Return Head.ToString() + If(Tail.IsNil(), "", Tail.ToString())
+    End Function
+
+    Public Shared ReadOnly Nil As ListOf(Of T) = New ListOf(Of T)()
+
+    Public Shared Function Cons(arg1 as T, arg2 as ListOf(Of T)) as ListOf(Of T)
+        Dim result As New ListOf(Of T)()
+        result.Head = arg1
+        result.Tail = arg2
+        Return result
+    End Function
+
+    Public Function IsNil() as Boolean
+        return Me Is Nil
+    End Function
+End Class