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