import Data.Bool
import Data.List

main = getLine >>= putStrLn . bool "NO" "YES" . dd . Just . reverse

dd Nothing = False
dd (Just "") = True
dd (Just s@('m':_)) = dd (stripPrefix "maerd" s)
dd (Just s@('r':'e':'m':_)) = dd (stripPrefix "remaerd" s)
dd (Just s@('e':_)) = dd (stripPrefix "esare" s)
dd (Just s@('r':'e':'s':_)) = dd (stripPrefix "resare" s)
dd _ = False