f _ 0 0=""
f n y 0="\n"++f n(y-1)(y-1)
f n y x=show n++f n y(x-1)

main=do
 n<-readLn
 putStr$f n n n