m:-29/Y,49/X,I is min(min(Y,30-Y),min(X,49-X)),nth0(I," \"'{[:\\$%`#.@?*-",C),\+writef([C]). N/X:-between(1,N,X).

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

download

return to the top page