REBOL[]for y -14 14 1[for x -24 24 1[if x <> 0[prin pick"-*?@.#`%$\:[{'^""1 + max(max(abs x)- 10 0)abs y]]print""]