-- Find the sum of all numbers, less than one million, which are palindromic in
-- base 10 and base 2.

import Euler

main = print $ sum $ [ n | n <- [1..999999], isPalindrome (toDigits n),
                                             isPalindrome (toDigitsBase 2 n) ]