diff --git a/Тюлюбаев Артём/README.md b/Тюлюбаев Артём/README.md
new file mode 100644
index 0000000..fb419ed
--- /dev/null
+++ b/Тюлюбаев Артём/README.md	
@@ -0,0 +1,14 @@
+# Ссылки и массивы
+## Ссылка на видеоразбор
+https://www.youtube.com/watch?v=LapJ8pgGTk0
+## Код из книги
+    #let v = make_vect 5 0;;
+    v : int vect = [|0; 0; 0; 0; 0|]
+    #vect_item v 1;;
+    - : int = 0
+    #vect_assign v 1 10;;
+    - : unit = ()
+    #v;;
+    - : int vect = [|0; 10; 0; 0; 0|]
+    #vect_item v 1;;
+    - : int = 10
\ No newline at end of file
diff --git a/Тюлюбаев Артём/base+.lisp b/Тюлюбаев Артём/base+.lisp
new file mode 100644
index 0000000..2f66f39
--- /dev/null
+++ b/Тюлюбаев Артём/base+.lisp	
@@ -0,0 +1,11 @@
+(setq a (make-array '(4 3)))
+(dotimes (i 4)
+   (dotimes (j 3)
+      (setf (aref a i j) (list i 'x j '= (* i j)))
+   )
+)
+(dotimes (i 4)
+   (dotimes (j 3)
+      (print (aref a i j))
+   )
+)
\ No newline at end of file
diff --git a/Тюлюбаев Артём/base.lisp b/Тюлюбаев Артём/base.lisp
new file mode 100644
index 0000000..fc99fc3
--- /dev/null
+++ b/Тюлюбаев Артём/base.lisp	
@@ -0,0 +1,6 @@
+(setf x (make-array '(3) 
+   :initial-contents '(0 1 2))
+)
+(write x)
+(setf (aref x 1) 23)
+(write x)
\ No newline at end of file