Couldn't match expected type `Int'
           against inferred type `[a] -> [a]'
    In the expression: max $ filter isPalindrome $ nub numbers
    In the definition of `problem4':
        problem4 = max $ filter isPalindrome $ nub numbers
                 where
                     numbers = let ... in [x * y | x <- numList, y <- numList]