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