main=mapM putStrLn[last$x:["aho"|'3'<-x]|n<-[1,4..298],x<-map show[n,n+1,3]]