main=mapM putStrLn$map(unwords.map show)$take 20$iterate(\a->reverse$zipWith(+)(0:a)$a++[1])[1]