(set'l'(\ /\\ /__\\))(dotimes(n(1-(read))(format t"~{~A\x0d~}"l))(defun f(a b)(mapcar(lambda(s)(format()a s(ash b n)s))l))(set'l`(,@(f"~*~VT~A"2),@(f"~A~V,0T~A"4))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).