let rec f s=let x=read_line()in s x;s x;f s;;f print_endline