REBOL[]r: do input for x 1 r 1[c: copy""for y 1 r 1[c: append c either(x = 1 or(x = r)or(y = 1)or(y = r))[1][0]]print c]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page