program ii;

var line : string;
    r, m, d, k : integer;
    c : int64;
    prestupny, gender : boolean;
    dny : array[1..12] of byte;

function isvalid(lajn : string) : boolean;
var i : byte;
begin

  if (length(lajn) <> 10) and (length(lajn) <> 11) then
  begin
    isvalid := false;
    exit;
  end;

  for i:=1 to 6 do
   if lajn[i] = '/' then
   begin
    isvalid := false;
    exit;
   end;
  if lajn[7] <> '/' then
   begin
    isvalid := false;
    exit;
   end;

  for i:=8 to length(lajn) do
    if (lajn[i] = '/') then
	begin
	isvalid := false;
	exit;
	end;

  isvalid := true;
    

end;

begin

 dny[1] := 31;
 dny[2] := 28;
 dny[3] := 31;
 dny[4] := 30;
 dny[5] := 31;
 dny[6] := 30;
 dny[7] := 31;
 dny[8] := 31;
 dny[9] := 30;
 dny[10] := 31;
 dny[11] := 30;
 dny[12] := 31;

 readln(line);

 while line <> 'end' do
 begin

   if not isvalid(line) then
     writeln('invalid')
   else begin

     r := 10*(ord(line[1])-ord('0')) + ord(line[2])-ord('0');
     m := 10*(ord(line[3])-ord('0')) + ord(line[4])-ord('0');
     d := 10*(ord(line[5])-ord('0')) + ord(line[6])-ord('0');
     
     c := 10000*r + 100*m + d;

    if length(line) = 10 then
    begin
     k := 100*(ord(line[8])-ord('0')) + 10*(ord(line[9])-ord('0')) + ord(line[10])-ord('0');
     c:= c*1000 + k;
    end
    else
    begin
     k := 1000*(ord(line[8])-ord('0')) + 100*(ord(line[9])-ord('0')) + 10*(ord(line[10])-ord('0')) + ord(line[11])-ord('0');
     c := c*10000 + k;
  
    end;

    prestupny := false;
    if (r mod 4) = 0 then
	prestupny := true;

    if (r >= 20) and (r < 54) then
	    if length(line) = 11 then begin
	        writeln('invalid');

  readln(line);
           continue;
   	end;

    if (r < 20) or (r >= 54) then
	if length(line) = 10 then begin
	   writeln('invalid');

  readln(line);
           continue;
   	end;


    if (length(line) = 11) and ((c mod 11) <> 0) then
    begin
     writeln('invalid');

  readln(line);
           continue;
    end;

    if (m mod 50) > 12 then
    begin
           writeln('invalid');

  readln(line);
           continue;
    end;

    gender := true;
    if m > 12 then
    begin
      gender := false;
      m := m - 50;
    end;

    if prestupny then
    begin
      dny[2] := 29;
    end else
    begin
      dny[2] := 28;
    end;

    if (d > dny[m]) or (d = 0) then
    begin

 
     writeln('invalid');
  readln(line);
           continue;
    end;

    if gender then
      writeln('boy')
    else
      writeln('girl');

end;

  readln(line);
 end;


end.