'Lenna100BW.ppm' writeppm~ toColor toBW readppm 'Lenna100.ppm'
786447