{
TASK: roulette
LANG: PASCAL
}
var

 b : array[0..6] of longint;
 ch,player : char;
 br,k,n : longint;
procedure vhod;
begin
   while not eoln do
   begin
      inc(br);
      read(ch);
      k:=ord(ch)-48;
      n:=n+k;
      inc(b[k]);
   end;
   if br mod 2 = 1 then player:='T'
   else player:='G';
end;
function Win(i  : longint) : boolean;
var
 j  : longint;
 fl : boolean;
begin
   if i>49 then win:=true
   else
   begin
      for j:=6 downto 1 do
      if b[j]<4 then
      begin
         inc(b[j]);
         fl:=win(i+j);
         dec(b[j]);
         if not fl then break;
      end;
      if not fl then
      begin
         win:=true;
         if i=n then writeln(player,' ',j);
      end
      else
        win:=false;
   end;
end;


begin
   vhod;
   if not win(n) then writeln(player,' ','0');
end.