main = do
  let pkts = [TestEthernetFrame 128 i i | i <- [1..pktNum]]
  let chunks = map makeEthernetFrame pkts
  mapM_ (BS.hPutStr stdout) chunks 
main = do
  let pkts = [TestEthernetFrame 128 i i | i <- [1..pktNum]]
  let chunks = map makeEthernetFrame pkts
  mapM_ (BS.hPutStr stdout) chunks 
main = do
  let pkts = [TestEthernetFrame 128 i i | i <- [1..pktNum]]
  let chunks = map makeEthernetFrame pkts
  mapM_ (BS.hPutStr stdout) chunks 