let rec(!)_=Scanf.scanf"%d %d "f;print_string"
";!0and f n b=n>0&()=print_int(n mod f(n/b)b);b;;!0