(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 *))