main=mapM putStrLn[[[' '..]!!sum[2*x-abs c|x>= -c]|c<-[-47..x]]|x<-[0..47]]