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