let rec(!)?(l=read_line())p=p l;p l;!p;;!print_endline