for(y in c(15:2,1:15)){for(x in c(15:2,rep(1,20),2:15))cat(substr("-*?@.#`%$\\:[{'\"",a<-max(x,y),a));cat("
")}