{
TASK: roulette
LANG: PASCAL
}


var a, b : array[0..6] of longint;
    turn, fl, g, t, g1, t1, i, j, k, l, o, p, m, n : longint;
    ch : char;


begin
 i := 0;
 while not(eoln) do
   begin
    read(ch);
    inc(i);
    k := ord(ch) - 48;
    inc(a[k]);
    if i mod 2 = 1 then inc(g, k)
    else inc(t, k);
   end;
 turn := (i + 1) mod 2;
 for o := 6 downto 1 do
   if a[o] < 4 then
    begin
     for i := 1 to 6 do
       b[i] := a[i];
     g1 := g;
     t1 := t;
     if turn = 0 then inc(t1, o)
     else inc(g1, o);
     inc(b[o]);
     i := (turn + 1) mod 2;
     while (g1 + t1 <= 49) do
       begin
        inc(i);
        j := 1;
        while b[j] = 4 do
          inc(j);
        inc(b[j]);
        if i mod 2 = 0 then inc(g1, j)
        else inc(t1, j);
       end;
     if (turn = 0) and (i mod 2 = 0) then
       begin
        fl := 1;
        writeln('T ', o);
        break;
       end
     else if (turn = 1) and (i mod 2 = 1) then
       begin
        fl := 1;
        writeln('G ', o);
        break;
       end;
    end;
 if (fl = 0) and (turn = 0) then writeln('T 0')
 else if fl = 0 then writeln('G 0');
end.




