clientChunkExchange c = do
  infoM logger "client ping pongs some chunks with the server.."
  (connSource c) =$ clientChunks (P.zip chunks [1..]) $$ (connSink c)

  return ()
clientChunkExchange c = do
  infoM logger "client ping pongs some chunks with the server.."
  (connSource c) =$ clientChunks (P.zip chunks [1..]) $$ (connSink c)

  return ()
clientChunkExchange c = do
  infoM logger "client ping pongs some chunks with the server.."
  (connSource c) =$ clientChunks (P.zip chunks [1..]) $$ (connSink c)

  return ()