diff --git a/src/Control/Addressbook/Streaming.hs b/src/Control/Addressbook/Streaming.hs
index 2f5ba3b..59d1aca 100644
--- a/src/Control/Addressbook/Streaming.hs
+++ b/src/Control/Addressbook/Streaming.hs
@@ -47,7 +47,7 @@ run = do
   let datFile = datDir </> ".addressbook.dat"
   original <- Set.fromList . map LBS.toStrict . lbsLines <$> LBS.readFile datFile
   xs <- LBS.getContents >>= stream
-  let set = original `Set.union` F.fold (parMap rseq F.fold (chunks 20 xs))
+  let set = original `Set.union` F.fold (parMap rseq F.fold (chunks 200 xs))
   unless (original == set) $
     runResourceT $
       runConduit $