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()))