let rec f?(s=Scanf.scanf"%s "(^)"")l=List.mem s l||()=print_endline s;s^f(s::l);;f[""]