(setq n(read))(defun p(l)(if(<(length l)n)(#1=write-line l)(let((e(position #\  l :from-end t :end n)))(#1#(subseq l 0 e))(p(subseq l(1+ e))))))(loop(p(read-line)))