for(y in c(2:16,15:2))for(x in c(2:25,25:1))cat(substr("
\"'{[:\\$%`#.@?*-",a<-min(x,y),a))