diff --git a/Фурина Валерия/README.md b/Фурина Валерия/README.md
new file mode 100644
index 0000000..2b72b87
--- /dev/null
+++ b/Фурина Валерия/README.md	
@@ -0,0 +1,7 @@
+# Лемма 7.4
+## Комментарии к коду
+#### Вариант 1: добавляет пустой список и переворачивает результат.
+#### Вариант 2: ничего не переворачивает, как и было в лемме.
+## Ссылка на видеоразбор
+https://www.youtube.com/watch?v=t_9Jv9RKarY
+
diff --git a/Фурина Валерия/var1.rkt b/Фурина Валерия/var1.rkt
new file mode 100644
index 0000000..8683dc5
--- /dev/null
+++ b/Фурина Валерия/var1.rkt	
@@ -0,0 +1,11 @@
+(define (concat li1 li2)
+    (if (empty? li2)
+        li1
+        (concat (append li1 (list (car li2))) (cdr li2))
+    )
+)
+
+(define (rev li1 li2)
+    (reverse (concat li1 li2))
+)
+(writeln (rev (list 1 2) (list 3 4)))
diff --git a/Фурина Валерия/var2.rkt b/Фурина Валерия/var2.rkt
new file mode 100644
index 0000000..1c6d40b
--- /dev/null
+++ b/Фурина Валерия/var2.rkt	
@@ -0,0 +1,6 @@
+(define (concat li1 li2)
+    (if (empty? li2)
+        li1
+        (concat (append li1 (list (car li2))) (cdr li2))
+    )
+)