diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,13 @@
 # lzlib
 
+## 1.0.2.1
+
+  * Tweak buffering
+
+## 1.0.2.0
+
+  * Improve haddocks
+
 ## 1.0.1.0
 
   * Export `lZApiVersion` and `lZVersion`
diff --git a/bench/Bench.hs b/bench/Bench.hs
--- a/bench/Bench.hs
+++ b/bench/Bench.hs
@@ -6,36 +6,22 @@
 import           System.FilePath      ((</>))
 import           System.IO.Temp       (withSystemTempDirectory)
 
-roundtrip :: BSL.ByteString -> BSL.ByteString
-roundtrip = compress . decompress
-
-roundtrip' :: BSL.ByteString -> BSL.ByteString
-roundtrip' = decompress . compress
-
-unpack :: IO ()
-unpack = withSystemTempDirectory "lzlib" $
-    \fp -> BSL.writeFile (fp </> "lzlib.tar.lz") =<<
-        (roundtrip <$> BSL.readFile "lzlib-1.10.tar.lz")
+unpack :: FilePath -> IO ()
+unpack fp' = withSystemTempDirectory "lzlib" $
+    \fp -> BSL.writeFile (fp </> "dump.tar") =<<
+        (decompress <$> BSL.readFile fp')
 
-unpack' :: IO ()
-unpack' = withSystemTempDirectory "lzlib" $
-    \fp -> BSL.writeFile (fp </> "lzlib.tar") =<<
-        (roundtrip' <$> BSL.readFile "lzlib-1.10.tar")
+pack :: FilePath -> IO ()
+pack fp' = withSystemTempDirectory "lzlib" $
+    \fp -> BSL.writeFile (fp </> "dump.tar.lz") =<<
+        (compressFile fp')
 
 main :: IO ()
 main =
-    defaultMain [ env file $ \ f ->
-                  bgroup "roundtrip (decompress/compress)"
-                      [ bench "lzlib (lzlib)" $ nf roundtrip f
-                      ]
-                , bgroup "unpack (decompress/compress)"
-                      [ bench "lzlib" $ nfIO unpack ]
-                , env decompressed $ \ f ->
-                  bgroup "roundtrip' (compress/decompress)"
-                      [ bench "lzlib (lzlib)" $ nf roundtrip' f
+    defaultMain [ bgroup "unpack"
+                      [ bench "lzlib" $ nfIO (unpack "lzlib-1.10.tar.lz")
+                      , bench "lzlib" $ nfIO (unpack "gmp-6.1.2.tar.lz")
                       ]
-                , bgroup "unpack' (compress/decompress)"
-                      [ bench "lzlib" $ nfIO unpack' ]
+                , bgroup "pack"
+                      [ bench "lzlib" $ nfIO (pack "lzlib-1.10.tar") ]
                 ]
-    where file = BSL.readFile "lzlib-1.10.tar.lz"
-          decompressed = BSL.readFile "lzlib-1.10.tar"
diff --git a/lzlib.cabal b/lzlib.cabal
--- a/lzlib.cabal
+++ b/lzlib.cabal
@@ -1,6 +1,6 @@
 cabal-version:      1.18
 name:               lzlib
-version:            1.0.1.0
+version:            1.0.2.1
 license:            BSD3
 license-file:       LICENSE
 copyright:          Copyright: (c) 2019-2020 Vanessa McHale
diff --git a/src/Codec/Lzip.hs b/src/Codec/Lzip.hs
--- a/src/Codec/Lzip.hs
+++ b/src/Codec/Lzip.hs
@@ -1,13 +1,18 @@
 {-# LANGUAGE TupleSections #-}
 
-module Codec.Lzip ( compress
+module Codec.Lzip ( -- * Compression
+                    compress
                   , compressBest
                   , compressFast
+                  , compressSz
+                  , compressSzBest
+                  , compressSzFast
                   , compressWith
                   , compressWithSz
-                  , decompress
                   , compressFile
                   , CompressionLevel (..)
+                  -- * Decompression
+                  , decompress
                   -- * Miscellany
                   , lZVersion
                   , lZApiVersion
@@ -71,7 +76,7 @@
 
     let bss = BSL.toChunks bs
         szOut :: Integral a => a
-        szOut = 32 * 1024
+        szOut = 64 * 1024
 
     (dec, bufOut) <- LazyST.unsafeIOToST $ do
         bufOut <- mallocForeignPtrBytes szOut
@@ -125,10 +130,34 @@
                 Nothing -> pure []
                 Just x  -> (x:) <$> loop decoder bss' bufOut
 
--- | Defaults to 'Six'
+-- | Alias for @'compressWith' 'Six'@
 compress :: BSL.ByteString -> BSL.ByteString
 compress = compressWith Six
 
+-- | Alias for @'compressWithSz' 'Six'@
+--
+-- @since 1.0.2.0
+compressSz :: BSL.ByteString
+           -> Int -- ^ Size of input data, in bytes
+           -> BSL.ByteString
+compressSz = compressWithSz Six
+
+-- | Alias for @'compressWithSz' 'Nine'@
+--
+-- @since 1.0.2.0
+compressSzBest :: BSL.ByteString
+           -> Int -- ^ Size of input data, in bytes
+           -> BSL.ByteString
+compressSzBest = compressWithSz Nine
+
+-- | Alias for @'compressWithSz' 'Zero'@
+--
+-- @since 1.0.2.0
+compressSzFast :: BSL.ByteString
+           -> Int -- ^ Size of input data, in bytes
+           -> BSL.ByteString
+compressSzFast = compressWithSz Zero
+
 -- | Alias for @'compressWith' 'Nine'@
 --
 -- @since 0.3.2.0
@@ -157,7 +186,7 @@
 -- | @since 1.0.0.0
 compressWithSz :: CompressionLevel
                -> BSL.ByteString
-               -> Int -- ^ Size of compression window
+               -> Int -- ^ Size of data being compressed, in bytes.
                -> BSL.ByteString
 compressWithSz level bstr sz = runST $ do