toMessage e (EventMessage (StairsSeen Up)) = Just $ "You see stairs going up."
toMessage e (EventMessage (StairsSeen Up)) = Just $ "You see stairs going up."
toMessage e (EventMessage (StairsSeen Up)) = Just $ "You see stairs going up."