program sample
	integer ::A
    character(len=10) :: b
    
    read(*,*) A
    read(*,*) b
    
    if (A>=3200) then
    	write(*,*) trim(b)
    else 
    	write(*,*) 'red'
    end if
    stop
end program sample