REBOL[]for x -12 12 1[for y -12 12 1[prin" "prin #"A"+(abs x)+ abs y]print""]