(port-map(compose print read open-input-string(cut regexp-replace* <> #/^0(?=\d)/"#o"#/0x/"#x"))read-line)