toMessage e (EventMessage (StairsSeen Down)) = Just $ "You see stairs going down."
toMessage e (EventMessage (StairsSeen Down)) = Just $ "You see stairs going down."
toMessage e (EventMessage (StairsSeen Down)) = Just $ "You see stairs going down."