Scanf.scanf"%s%n"(fun t j->let rec($)s i=i<0&s$(print_endline s;j-2);s.[i]<-Obj.magic(lxor)s.[i]32;s.[i]<'_'&s$i-1;s=t||s$ -1in""^t$ -1)