let f s?(b=String.length s-1)_=for j=1to(lsl)2b do print_endline s;let rec(!)k=s.[k]<-Obj.magic(lxor)32s.[k];k>0&s.[k]<'_'& !(k-1)in!b done;;f(read_line())0
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page