let rec(!)?(r=read_line())s=Printf.printf"%d
"(s[|r;"0o"^r|].(Obj.magic(r<"0x")));!s;;!int_of_string