main=mapM print$take 192$scanl(+)0$[0..]>>=(\x->[0..x]>>[2^x])