$=+=2**$_ for<>=~/./g;//,($=+2**$'-2**$&)%1031||print"$& $'"for'00'..QQ