# Pastebin xA52PEIF
    atMost :: Monad m => Int -> ConduitT [a] [a] m ()
    atMost n = await >>= \case
      Just ls -> traverse_ yield (chunksOf n ls)
      Nothing -> pure ()