import Control.Monad (ap)
isPalindrome :: String -> Bool
isPalindrome s = s == reverse s
-- point-free style
isPalindrome2 :: String -> Bool
isPalindrome2 = ap (==) reverse
main = traverse print $ isPalindrome <$> ["abba", "abbcccbba", "abbccbbba"]