open Num#load"nums.cma"let rec($)x n=x>/n&quo_num x n$n=();output_byte stdout(int_of_num(mod_num x n));;num_of_string(read_line())$Int 256