diff --git a/Латин Ярослав/1ch.fs b/Латин Ярослав/1ch.fs
new file mode 100644
index 0000000..743ae36
--- /dev/null
+++ b/Латин Ярослав/1ch.fs	
@@ -0,0 +1,33 @@
+// For more information see https://aka.ms/fsharp-console-apps
+
+
+let mutable y1 = 1
+let _ = y1 <- y1*2 in
+let _ = y1 <- y1+1 in
+let _ = y1 <- y1+1 in
+
+printf "y1 = %A\n"y1
+
+let mutable x1 = 1
+let _ = x1 <- x1+1 in
+let _ = x1 <- x1*2 in
+let _ = x1 <- x1+1 in
+
+printf "x1 = %A\n"x1
+
+let mutable y = 1
+y <- y * 2
+y <- y + 1
+y <- y + 1
+
+
+printf "y = %A\n"y
+
+let mutable x = 1
+x <- x + 1
+x <- x * 2
+x <- x + 1
+
+
+printf "x = %A\n"x
+
diff --git a/Латин Ярослав/2ch.fs b/Латин Ярослав/2ch.fs
new file mode 100644
index 0000000..9898a1d
--- /dev/null
+++ b/Латин Ярослав/2ch.fs	
@@ -0,0 +1,16 @@
+// For more information see https://aka.ms/fsharp-console-apps
+module kolok
+
+let mutable x = []
+
+let mutable refx = ref x
+
+let _ = refx <- ref [2]
+//let _ = refx <- ref [true]
+
+
+printf "%O\n" refx
+printf "%A\n" refx
+
+
+
diff --git a/Латин Ярослав/README.md b/Латин Ярослав/README.md
new file mode 100644
index 0000000..5aa1982
--- /dev/null
+++ b/Латин Ярослав/README.md	
@@ -0,0 +1,16 @@
+# Последовательность вычислений и Работа с системой типов
+## Ссылка на видеоразбор
+
+## Код из книги
+Ярик Латин, [5/10/22 4:31 PM]
+let _ = x := !x + 1 in
+let _ = x := !x + 1 in
+let _ = x := !x + 1 in
+let _ = x := !x + 1 in
+();;
+
+Ярик Латин, [5/10/22 4:31 PM]
+x := !x + 1;
+x := !x + 1;
+x := !x + 1;
+x := !x + 1;;
\ No newline at end of file