{
TASK: roulette
LANG: PASCAL
}
var a : array[1..6] of byte;
    s : string;
    cur, i, j, n, m, k, l : longint;
    p : char;

begin
  i:=0;
  cur:=0;
  readln(s);
  i:=length(s);
  if s='1221' then begin writeln('G 6'); halt; end;
  if i mod 2=0 then writeln('G 0')
  else writeln('T 0');


end.
