let rec f?(c=input_char stdin)l=List.mem c l||()=print_char c;c='
'&f[];f(c::l);;f[]