haskell palindrome-products