program prob46
    implicit none
    integer :: a
    character(20) :: s
    read(*,*) a
    read(*,*) s
    if(a >= 3200) then
        write(*,'(a)') trim(adjustl(s))
    else
        write(*,'(a)') "red"
    end if

    stop
contains
end program prob46