recv'event'debug :: Server -> MVar String -> IO Server
recv'event'debug serv mv = do
 putStrLn $ "recv'event'debug"
 putMVar mv $ show serv
 return serv
recv'event'debug :: Server -> MVar String -> IO Server
recv'event'debug serv mv = do
 putStrLn $ "recv'event'debug"
 putMVar mv $ show serv
 return serv
recv'event'debug serv mv = do
 putStrLn $ "recv'event'debug"
 putMVar mv $ show serv
 return serv