(defun f'a(dotimes`3(or(format(> .'0)"~{   ~*~}~{~A~^.~}
"a #1=`(,@a,(+ .`1)))(f(- .'1)#1#))))(f(read)/)