1module Main where 2 3import qualified Data.ByteString.Lazy as B 4import qualified Codec.Compression.GZip as GZip 5 6main = B.interact $ GZip.compressWith GZip.defaultCompressParams { 7 GZip.compressLevel = GZip.BestCompression 8 } 9