mkInvalidResponse      :: String -> IO Msg
mkInvalidResponse      = return . Msg "BAD" 0
mkInvalidResponse      :: String -> IO Msg
mkInvalidResponse      = return . Msg "BAD" 0
mkInvalidResponse      = return . Msg "BAD" 0