import Data.List
import Control.Applicative
import Control.Monad

yoba n = foldM (\r x -> putStrLn (
			replicate r '\t' ++ intercalate "\t\t" (map show x)
		 ) >> return (r - 1)) n
	$ take n $ iterate (zipWith (+) <$> ([0]++) <*> (++[0])) [1]

main = yoba 10