let rec f?(c=input_char stdin)l=List.mem c l||()=print_char c;c=' '&f[];f(c::l);;f[]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page