getPixel :: Int -> Int -> ImageMatrix -> Int
getPixel x y image = fromIntegral (pixels image !! (y * w + x)) where
  w = width image
getPixel :: Int -> Int -> ImageMatrix -> Int
getPixel x y image = fromIntegral (pixels image !! (y * w + x)) where
  w = width image
getPixel x y image = fromIntegral (pixels image !! (y * w + x)) where
  w = width image