main=mapM print.take 500$scanl1(+)l;l=1:do x<-l;[2*x,1]