let rec($)s l=try read_line()$l^s^"
"with _->print_string(s^l);;""$""