var
  student: array[1..1000] of record
    surname: string;
    sx: string;
    age: integer;
    years: integer;
  end;
  ks: array[1..5] of integer;
  km: array[1..5] of integer;
  i: integer;
  c:char;
  max, maxi: real;
begin
  for i:=1 to 1000 do
  begin
    student[i].surname:= '';
    repeat
      readln(c);
      student[i].surname:=student[i].surname+c
    until c=' ';
    student[i].sx:= '';
    repeat
      readln(c);
      student[i].sx:=student[i].sx;
    until c=' ';
    read(student[i].age, student[i].years);
    if student[i].sx = 'male' then inc(km[student[i].years]);
    inc(km[student[i].years]);
  end;
  max:=km[1]/ks[1];
  maxi:=1;
  for i:=2 to 5 do
    if km[i]/ks[i]>max then
    begin
      max:=km[i]/ks[i];
      maxi:=i;
    end;
  writeln(maxi);
end.