main=mapM print$take 192$scanl(+)0[2^i|i<-[0..],_<-[0..i]]