program ii;

var
  a, pom: string[50];
  rok, mesiac, den, code, k: integer;
  i,j: longword;
  chlapec: boolean;

begin
  repeat
    readln(a);
    chlapec := true;
    if (a <> 'end') then
      begin
        if length(a) = 10 then
          begin
            pom:= copy(a, 0, 2);
            val(pom, rok, code);
            if (rok < 54) and (rok > 19) then
              begin
                pom := copy(a, 3, 2);
                val(pom, mesiac, code);
                if (mesiac > 12) then
                 begin
                   mesiac := mesiac - 50;
                   chlapec := false;
                 end;  
                if (mesiac > 0) and (mesiac < 13) then
                  begin
                    pom := copy(a, 5, 2);
                    val(pom, den, code);
                    case mesiac of
                    1,3,5,7,8,10,12: 
                      if (den > 0) and (den < 32) then 
                        begin
                          if chlapec then writeln('boy')
                            else writeln('girl');
                        end
                    else writeln('invalid');
                    4,6,9,11:
                      if (den > 0) and (den < 31) then 
                        begin
                          if chlapec then writeln('boy')
                            else writeln('girl');
                        end
                    else writeln('invalid');
                    2: if (rok mod 4 = 0) then
                      begin
                      if (den > 0) and (den < 30) then 
                        begin
                          if chlapec then writeln('boy')
                            else writeln('girl');
                        end
                          else writeln('invalid');
                      end
                     else
                      if (den > 0) and (den < 29) then 
                        begin
                          if chlapec then writeln('boy')
                            else writeln('girl');
                        end
                          else writeln('invalid');
                      end
                  end
                 else writeln('invalid');
              end
            else writeln('invalid');
          end
         else if length(a) = 11 then
          begin
            pom:= copy(a, 0, 2);
            val(pom, rok, code);
            if ((rok > 53) and (rok < 100)) or ((rok > -1) and (rok < 10)) then
              begin
                pom := a;
                delete(pom, 7, 1);
                pom := copy(pom, 0, 2);
                val(pom, i, code);
                k := 0;
                repeat
                inc(k);
                i := i mod 11;
                i := i * 10;
                pom := a;
                delete(pom, 7, 1);
                pom := copy(pom, k+2, 1);
                val(pom, j, code);
                i := i+j;
                until (k = 9);
                if (i mod 11<>0)
                then writeln('invalid')
                else
                begin
                pom := copy(a, 3, 2);
                val(pom, mesiac, code);
                if (mesiac > 12) then
                 begin
                   mesiac := mesiac - 50;
                   chlapec := false;
                 end;  
                if (mesiac > 0) and (mesiac < 13) then
                  begin
                    pom := copy(a, 5, 2);
                    val(pom, den, code);
                    case mesiac of
                    1,3,5,7,8,10,12: 
                      if (den > 0) and (den < 32) then 
                        begin
                          if chlapec then writeln('boy')
                            else writeln('girl');
                        end
                    else writeln('invalid');
                    4,6,9,11:
                      if (den > 0) and (den < 31) then 
                        begin
                          if chlapec then writeln('boy')
                            else writeln('girl');
                        end
                    else writeln('invalid');
                    2: if (rok mod 4 = 0) then
                      begin
                      if (den > 0) and (den < 30) then 
                        begin
                          if chlapec then writeln('boy')
                            else writeln('girl');
                        end
                          else writeln('invalid');
                      end
                     else
                      if (den > 0) and (den < 29) then 
                        begin
                          if chlapec then writeln('boy')
                            else writeln('girl');
                        end
                          else writeln('invalid');
                      end
                  end
                 else writeln('invalid');
              end;
              end
            else writeln('invalid');
          end
          else
           writeln('invalid');
            
      end;
  until a='end';
  
end.