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

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