m:-between(-14,14,Y),(between(-24,24,X),I is max(max(abs(X)-10,0),abs(Y)),nth0(I,"-*?@.#`%$\\:[{'\"",C),X\=0,\+writef([C]);\+nl).