s=scan("stdin");a=matrix(0,9,6);a[5,2*1:3-1]=a[c(3,7),4/3*2:5]=a[c(1,9),3:6]=a[c(4,6),6]=1;b=a[,s];b[1,-1]=paste("\n",b[1,-1],sep="");write(b,"",3)

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page