program C049
    implicit none
    character(100000) :: S
    integer(8) :: i, j, N


    read(5,*) S
    N = len_trim(S)

    i = 0
    j = 0

    do while(i < N)
        if (S(i+1:i+7) == "dreamer") then
            if (S(i+8:i+8) /= "a")then
                i = i + 7
            else
                i = i + 5
            end if
        else if (S(i+1:i+5) == "dream") then
            i = i + 5
        else if (S(i+1:i+6) == "eraser") then
            i = i + 6
        else if (S(i+1:i+5) == "erase") then
            i = i + 5
        else 
            i = N
            j = 1
        end if
    end do

    if (j == 0) then
        write(6,*) "YES"
    else
        write(6,*) "NO"
    end if




    
end program C049
