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