{
TASK: roulette
LANG: PASCAL
}

var
a : array[1..49] of byte;
cards : array[1..6] of byte;
i, j, k, l, n : longint;
ch, Winner : char;
BEGIN
for i:=1 to 6 do
  Cards[i]:=4;
for i:=49 downto 0 do
  a[i]:=(7-i mod 7) mod 7;

while not eoln do
  begin
    read(ch);
    inc(n);
    dec(Cards[ord(ch)-48]);
    j:=j+ord(ch)-48;
    if n mod 2 = 0 then
      Winner:='G'
    else
      Winner:='T';
  end;

if cards[1]+cards[2]=4 then
  writeln(Winner,' ',  6)
else
  writeln(WInner, ' ', 0);
END.