f x|sum x<6^8=putStrLn(unwords$show<$>x)>>f(reverse$zipWith(+)(0:x)$x++[1])
main=f[1]