let rec f s=print_string s;input_byte stdin=10&f"
";f"0";;f""