rebol[]for i 1 a: do ask""1[s: ""for j 1 a 1[prin rejoin[s 1 + abs i - j]s: " "]print""]