import Data.List

yoba n = foldr ((\g -> g . transpose . g) . map . (:)) [[0]] [1..n]

main = mapM_ (putStrLn . concat . intersperse "\t" . map show) $ yoba 9