XAUDX PASCAL

var a:array[1..20000] of longint;
    d,n:longint;
    s:string;

function doixung(s:string):boolean;
var i:longint;
begin
    for i:=1 to length(s) div 2 do
        if s[i]<>s[length(s)+1-i] then exit(false);
    exit(true);
end;

procedure solve;
var i:longint;
begin
    d:=0;
    readln(n);
    for i:=1 to n do
    begin
        readln(s);
        if doixung(s) then
        begin
            inc(d);
            a[d]:=i;
        end;
    end;
    writeln(d);
    for i:=1 to d do
    begin
        write(a[i],' ');
        if i mod 20 = 0 then writeln;
    end;
end;

begin
    assign(input,'XAUDX.inp');reset(input);
    assign(output,'XAU.out');rewrite(output);
    solve;
    close(input);close(output);
end.