(let1 r regexp-replace(port-map(lambda(x)(print(read(open-input-string(r #/^0(?=\d)/(r #/0x/ x "#x")"#o")))))read-line))