PS-1
n <- ; for(i in 0:n) text(x,y+i,"O"); n <- -2; for(i in 0:n) text(x+i,y,"O"); n <- ; for(i in 0:n) text(x+i,y,"O"); x <- x+n