n=a=1:300 a[c(3*n,grep(3,n))]="aho" write(a[n],"")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page