runBackendStdout :: Integer -> Chan Packet -> IO ()
runBackendStdout n ch = do
 pkt <- readChan ch
 putStrLn $ "got("++show n++"): " ++ show pkt
runBackendStdout :: Integer -> Chan Packet -> IO ()
runBackendStdout n ch = do
 pkt <- readChan ch
 putStrLn $ "got("++show n++"): " ++ show pkt
runBackendStdout n ch = do
 pkt <- readChan ch
 putStrLn $ "got("++show n++"): " ++ show pkt