let rec($)x i=x/64*64<x&Obj.magic print_char x;x/512+Scanf.scanf"%x "(lsl)i$i-1+1/i*9;;0$9