uses crt;
var n,dem,i,j:integer; s,sdx:string; vt:array[1..20000] of integer;
begin
    clrscr;
    readln(n);
    dem:=0;
    for i:=1 to n do
    begin
        readln(s);
        sdx:='';
        for j:=length(s) downto 1 do
        begin
            sdx:=sdx+s[j];
        end;
        if s=sdx then
        begin
            dem:=dem+1;
            vt[dem]:=i;
        end;
    end;
    writeln(dem);
    for i:=1 to dem do
    begin
        writeln(vt[i]);
    end;
    readln;
end.

$\\$

`@Daoanhviet96`

uses crt;

var S : array [1 .. 20000] of string;

    i, N, d, j, h : integer;

function KT (X : string) : boolean;

begin

KT := true; j := 1; h := length(X);

while (KT = True) and (j <= h) do

    begin

        if X[j] <> X[h] then KT := false;

        j := j + 1;

        h := h - 1;

    end;

end;

begin

clrscr;

readln(N);

d := 0;

for i := 1 to N do

    begin readln(S[i]);

    if KT (S[i]) then d := d + 1; end;

writeln(d);

for i := 1 to N do

    if KT (S[i]) then writeln(i);

readln

end.