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