(defun f(l n &optional(p(floor(length l)n))(i 1))(if(= i n)(list l)(cons(subseq l 0 p)(f(subseq l p)n p(+ i 1)))))
(format t "~A~C~C" (f (read) (read)) #\return #\newline)
KGRlZnVuIGYobCBuICZvcHRpb25hbChwKGZsb29yKGxlbmd0aCBsKW4pKShpIDEpKShpZig9IGkgbikobGlzdCBsKShjb25zKHN1YnNlcSBsIDAgcCkoZihzdWJzZXEgbCBwKW4gcCgrIGkgMSkpKSkpCihmb3JtYXQgdCAifkF+Q35DIiAoZiAocmVhZCkgKHJlYWQpKSAjXHJldHVybiAjXG5ld2xpbmUp