n=as.numeric x=scan("stdin","",sep=",") a=n(x[1]) for(i in 1:n(x[2]))cat(sprintf("%*s%s ",a<-(a*8)%%13,"",x[3]))