Добавил параметр для указания числа шагов

lab2/draw_fern.ipynb

@@ -16,8 +16,9 @@
    "outputs": [],
    "source": [
     "with open('test.txt', 'r', encoding='utf-16') as file:\n",
-    "    data_str = file.read()\n",
+    "    lines = file.readlines()\n",
     "\n",
+    "data_str = ''.join(lines[1:])\n",
     "x, y = list(zip(*eval(data_str)))"
    ]
   },

lab2/fern.hs

@@ -35,5 +35,8 @@ barnsleyFern start n = do
 
 main :: IO ()
 main = do
-  fractal <- barnsleyFern (0, 0) 1000
-  print fractal
+  putStrLn "Укажите количество шагов рекурсии:"
+  input <- getLine
+  let n = read input :: Int
+  fractal <- barnsleyFern (0, 0) n
+  print fractal