m=cbind(c(0,0:(q<-14),q:1),c(29,(q:-q)*2),c(l<-(r<-rep)(0,15),1,r(0,q)),c(l,seq(1,29,2)),c(1:15,q:0))
m[m<0]=0
for(i in 1:30)cat(c(r("^",(x<-m[i,])[1]),r(">",x[2]),r("@",x[3]), r("<",x[4]),r("v",x[5]),"\n"),sep="")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).