let rec f?(a=input_line stdin)x=print_char(if a<x then '1'else '0');f(min a x);;f"a"