-- Check whether a list is a palindrome
-- incomplete
isPalindrome :: [a] -> bool
isPalindrome [] = []
isPalindrome [x] = x
isPalindrome (x:xs) = x == isPalindrome xs