N:=(stdin next:2)asNumber. S:=stdin upTo:$ .1to:N do:[:i|S do:[:c|C:=$ .1<i&(i<N)or:[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