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) and (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; writeln('end'); end.