var
len, i, ans: integer;
s, t : ansistring;
flag : boolean;
cn : longint;
begin
readln(cn);
while(cn > 0) do
begin
readln(s);
len := length(s);
for i := 1 to len do t := t + s[len-i+1];
flag := true;
for i := 1 to len-1 do
if(abs(ord(s[i+1])-ord(s[i]))<>abs(ord(t[i+1])-ord(t[i]))) then
flag := false;
if (flag) then ans := ans + 1;
cn := cn - 1;
end;
writeln(ans);
end.
输入：
5
acxz
bcxz
asdgqwe
asdffe
asde

输出：1