f x|d<-drop$sum[4|x==reverse x]="Why, "++max"no"(d"aaaayes")++", good sir or madam, this list is "++d"not in fact a palindrome" m@main=getLine>>=putStrLn.f.map init.words.tail>>m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).