main=interact$f.read.concat.("0x":).reverse.words f 8="" f n=toEnum(fromEnum$mod n 512):f(div n 512)