recv'event'id :: Server -> String -> IO Server
recv'event'id serv s = do
 putStrLn $ "got " ++ s
 return serv
recv'event'id :: Server -> String -> IO Server
recv'event'id serv s = do
 putStrLn $ "got " ++ s
 return serv
recv'event'id serv s = do
 putStrLn $ "got " ++ s
 return serv