var s,st:ansistring;
    len,i:longint;
    t:char;
begin
  readln(s); st:=s;
  len:=length(s);
  if (len mod 2=1) then begin writeln(1);exit;end;
  for i:=1 to len div 2 do
  begin
   t:=s[i];s[i]:=s[len-i+1];s[len-i+1]:=t;
  end;
  for i:=1 to len do
  begin
    if s[i]='b' then s[i]:='d' else
    if s[i]='d' then s[i]:='b' else
    if s[i]='p' then s[i]:='q' else
    s[i]:='p';
  end;
  if s=st then writeln('Yes') else writeln('No');
end.