{
TASK:roulette
LANG:PASCAL
}

var a:array[1..6]of byte;
    s:string;
    b,br,i,sum,fl,c:byte;
begin
 readln(s);
 br:=length(s);
 if br mod 2 = 0
   then write('G ')
   else write('T ');
 for i:=1 to br do
   begin
     b:=ord(s[i])-48;
     sum:=sum+b;
     inc(a[b]);
   end;

if sum<49
 then
 for i:=6 downto 1 do
  begin
   if a[i]=0 then c:=i
             else c:=a[i]*i;
   if (a[i]<4)and (sum+c<=49) then
     begin
           writeln(i);
           fl:=1;
           break;
     end;
  end;
 if fl=0 then
 writeln(0);
end.