bits =: 2&#.^:_1
decimals =: 10&#.^:_1
palindrome =: |.-:]
palins =: [: palindrome each bits;decimals
both =: [: *./ ;&palins
problem36 =: +/I.both"0 i.1e6