let rec f s=f(read_line(print_string(s^s))^"
");;f""