where
    nums = [x | x <- [1..999999], isPalindrome $ show x, isPalindrome $ showIntInBinary x]
where
    nums = [x | x <- [1..999999], isPalindrome $ show x, isPalindrome $ showIntInBinary x]
where
    nums = [x | x <- [1..999999], isPalindrome $ show x, isPalindrome $ showIntInBinary x]