doubleBasePalindromes :: Int -> Int
doubleBasePalindromes limit = sum [ x | 
    x <- [0..limit], 
    let y = show x, 
    let b = toBinary x, 
        y == reverse y, 
        b == reverse b]
doubleBasePalindromes :: Int -> Int
doubleBasePalindromes limit = sum [ x | 
    x <- [0..limit], 
    let y = show x, 
    let b = toBinary x, 
        y == reverse y, 
        b == reverse b]
doubleBasePalindromes limit = sum [ x | 
    x <- [0..limit], 
    let y = show x, 
    let b = toBinary x, 
        y == reverse y, 
        b == reverse b]