((rec(f s i)(~ s 0)(print s)(f(#0=regexp-replace-all" +$"(#0##`"(?<!\\S)\\S{,i}(?!\\S)"s(make-string i))"")(+ i 1)))(read-line)1)