module Main where

  import Picture

  main :: IO ()
  main = do
    pic <- readPicture "dreamboy.jpg"
    case pic of
      Left err -> print err
      Right p -> do
        let gs = brightness (128) $ p
        writePicturePng "dreamboy-gs.png" gs

    return ()