($o,$_)=([' isn\'t',' is'," a palindrome.\n"],shift);
print $_,map{$o->[$_]}($_ eq join"",reverse/(\w)/g),2