dminuoso

chunksOf :: Int -> [a] -> [[a]]
chunksOf _ [] = []
chunksOf n l = take n l : chunksOf n (drop n l)

type Pixel = [Int]

serialize :: NP.PPM -> String
serialize (NP.PPM (NP.PPMHeader t w h) img)
    = unlines ( [show (maximum rgbList)
                , show h