Искажение и сохранение изображения

lab3/app/Main.hs

@@ -27,5 +27,7 @@ main = do
         Left err -> putStrLn $ "Ошибка при чтении изображения: " ++ err
         Right dynImg -> do
             let img = convertRGB8 dynImg
-            putStrLn $ "Ширина: " ++ show (imageWidth img)
-            putStrLn $ "Высота: " ++ show (imageHeight img)
+            let width = imageWidth img
+            let height = imageHeight img
+            let resultImage = generateImage (encodePixel 1 img encryptedTextBits) width height
+            saveBmpImage "tmp/david.bmp" (ImageRGB8 resultImage)