[Haskell-cafe] Converting image2PS function