main=do n<-readLn;putStr$do y<-map max[0..n];x<-[0..n];take 4$shows(y$x*y 1)$last$"\n":["   "|x<n]