(do((z(read))(c 1(+ c i))(i 1(1+ i)))((=(1- c)z))(format t"~{~A~^ ~}~%"(loop repeat i for b from c collect b)))