let rec f?(a=read_line())x=print_int(Obj.magic(a<x));f(min a x);;f"a"