4 lines
143 B
Haskell
4 lines
143 B
Haskell
main =
|
|
(readNetpbm "original.ppm" :: IO (Image RealWorld RGB)) >>=
|
|
stToIO . (toRGBImage <=< toGrayImage) >>=
|
|
writeNetpbm "new.ppm"
|