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