n=a=1:300
a[c(3*n,grep(3,n))]="aho"
write(a[n],"")