module Main where palindrome n = show n == reverse (show n) main = do print (maximum [x*y | x <- [100..999], y <- [100..999], palindrome (x*y)])