expand text by murky-satyr

N:=(stdin next:2)asNumber.
S:=stdin upTo:$
.1to:N do:[:i|S do:[:c|C:=$ .i\\N>1or:[C:=c].(O:=stdout)<<c;next:N- 2put:C;<<c].O nl]

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page