program main
    implicit none
	integer y, n
    integer, allocatable, dimension(:) :: a
    read *, y, n
    allocate (a(n))
    read *, a

    if (sum(a) .le. y) then
        write (6, fmt="(I0)") y-sum(a)
    else
        write (6, fmt="(A)") "red"
    end if
end program main