var s:array[1..11]of char;
    c:char;
    a,i:integer;
begin
  readln(a);
  i:=1;
  repeat
    read(c);
    if c<>'' then s[i]:=c;
    inc(i);
  until eoln or c='';
  if a>=3200 then writeln(s)
  else writeln('red')
end.
