main=do
 s<-reverse<$>getLine
 putStrLn$if f s then"YES"else"NO"
f[]=True
f('m':'a':'e':'r':'d':s)=f s
f('r':'e':'m':'a':'e':'r':'d':s)=f s
f('e':'s':'a':'r':'e':s)=f s
f('r':'e':'s':'a':'r':'e':s)=f s
f _=False