program rd
  implicit none
  integer :: a
  character(len=10) :: s

  read(*,*) a
  read(*,*) s
  if(a.gt.3199) then
     write(*,'(a)') trim(s)
  else
     write(*,'(a)') 'red'
  endif


end program rd

