printPackets :: PktHdr -> BS.ByteString -> IO ()
printPackets !pkt !bs = do 
  let !(Right !q) = P.parse parseQuote bs
  putStrLn $ show (pktToDiff pkt, q)
printPackets :: PktHdr -> BS.ByteString -> IO ()
printPackets !pkt !bs = do 
  let !(Right !q) = P.parse parseQuote bs
  putStrLn $ show (pktToDiff pkt, q)
printPackets !pkt !bs = do 
  let !(Right !q) = P.parse parseQuote bs
  putStrLn $ show (pktToDiff pkt, q)