isPalindrome :: Eq a => [a] -> Bool
isPalindrome xs = all (uncurry (==)) $ zip xs $ reverse xs
isPalindrome :: Eq a => [a] -> Bool
isPalindrome xs = all (uncurry (==)) $ zip xs $ reverse xs
isPalindrome xs = all (uncurry (==)) $ zip xs $ reverse xs