read*,n;n=2**(7-n);print'(999a1)',((65+mod(or(i,i-1)*j+j+and(i,i-1)*0**j,3),i=n,127,n),10,j=0,1);end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page