uses crt;
var a : string;
    c,b : array [1..255] of char;
    i,j : integer;
    x : boolean;
begin
  clrscr;
  x := false;
  readln(a);
  j :=0;
  for i := 1 to length(a) do
    begin
      if (a[i] >= 'A') and (a[i]<='Z') then
        x := true;
      if (a[i]>='a') and (a[i]<='z') then
        x := true;
      if (a[i]>='0') and (a[i]<='9') then
        x := true;
      if x then
        begin
          j := j+1;
          c[j] := a[i];
        end;
      x := false;
    end;
  for i := 1 to j do
    begin
      b[i] := c[j-i+1];
    end;
  for i := 1 to j do
    begin
      if (b[i]>='A') and (b[i]<='Z') then
        b[i] := char(ord(b[i])+32);
      if (c[i]>='A') and (c[i]<='Z') then
        c[i] := char(ord(c[i])+32);
    end;
  x := true;
  for i := 1 to j do
   if (b[i] = c[i]) and x then
     x := true
   else x := false;
  if x then
    writeln('It is a palindromes.')
  else writeln('It is a not palindromes.');
end.