program ans;
var
	s, m: AnsiString;
	l: Integer;
	i, n: Integer;
begin
	readln(n);
	for i := 1 to n do
	begin
		readln(s);
		l := length(s);
		write(l);
		write(' ');
		if l mod 2 = 0 then
			m := s[l div 2] + s[(l div 2) + 1]
		else
			m := s[(l+1) div 2];
		writeln(m);
	end;
end.