open Big_int#load"nums.cma";;let b=big_int_of_int 256 let rec f n=gt_big_int n b&f(div_big_int n b)=();print_char(Char.chr(int_of_big_int(mod_big_int n b)));;f(big_int_of_string(read_line()))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).