character*16c(0:2);read(*,'(a)',end=1)(c(i),i=0,2);1 print'(3(a16/))',((c(mod(j,3))(mod(i,16)+1:)//c(mod(j,3)),j=i,i+2),i=1,48);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page