(defun p(s)(if s(format /"{~{~A~^, ~}}"(mapcar'p s))0))(dotimes'(read)(set`*(reduce(lambda(a b)(reduce(lambda(c d)`(,@c(,@d,b)))`(,a,@a)))`((()),@*))))(princ(p *))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).