let rec f?(s=Scanf.scanf"%s "(^)"")l=List.mem s l||()=print_endline s;s^f(s::l);;f[""]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page