(mapc'write-line(do((k'("/\\""\\/")(mapcan(#2=lambda(s)(apply #'mapcar(#2#(&rest y)(format()"~{~A~}"y))(map'list(#2#(x)(case x(#\/'("   /""/\\ \\""\\ \\/""/   "))(#\\'("\\/\\ ""  / "" /  "" \\/\\"))(t'(#1="    "#1##1##1#))))s)))k))(i(read)))((<(decf i)0)k)))