{
TASK:roulette
LANG:PASCAL
}
var s:string;
    c,a:array[0..100] of longint;
    b:array[1..6] of longint;
    f,i,j,n:longint;
Procedure Done(k:longint);
var i1:longint;
begin
      for j:=n downto 1 do
         if (a[j]<>0) then begin inc(a[j+k]);c[j+k]:=2;end;
      inc(a[k]);
      c[k]:=k;
      for i1:=2 to b[k] do
      for j:=n downto 1 do
         if (a[j]<>0)and(c[j+k]<>k) then
            begin
               inc(a[j+k]);
               c[j+k]:=k;
            end;


end;
begin
   readln(s);
   for i:=1 to 6 do b[i]:=4;
   f:=49;
   for i:=1 to length(s) do
      begin
         case s[i] of
            '1':begin dec(b[1]);f:=f-1;end;
            '2':begin dec(b[2]);f:=f-2;end;
            '3':begin dec(b[3]);f:=f-3;end;
            '4':begin dec(b[4]);f:=f-4;end;
            '5':begin dec(b[5]);f:=f-5;end;
            '6':begin dec(b[6]);f:=f-6;end;
         end;
      end;
   n:=50;
   for i:=1 to 6 do
     if b[i]>0 then  Done(i);
   n:=length(s);
   if a[f]=0 then repeat dec(f) until (a[f]<>0)or (f=0);
   if f=0 then c[f]:=0;
   if (n mod 2 = 0 ) then
      begin
         write('G ');
         if (a[f] mod 2 = 0)or(f=0) then writeln(0)
         else writeln(c[f]);
      end
   else
      begin
         write('T ');
         if (a[f] mod 2 = 1)or(f=0) then writeln(0)
         else writeln(c[f]);
      end;
end.