solve :: Int
solve = head $ sortBy (\x y -> compare y x) $ palindromeProducts 100 999
solve :: Int
solve = head $ sortBy (\x y -> compare y x) $ palindromeProducts 100 999
solve = head $ sortBy (\x y -> compare y x) $ palindromeProducts 100 999