#define E(a)s[x/18*3+a/7][x%18*6+a%7]
#define e(a,b,c)E(a)=E(b)=E(c)=
i;x;char*p="H HeLiBeB C N O F NeNaMgAlSiP S ClArK CaScTiV CrMnFeCoNiCuZnGaGeAsSeBrKrRbSrY ZrNbMoTcRuRhPdAgCdInSnSbTeI XeCsBaLaCePrNdPmSmEuGdTbDyHoErTmYbLuHfTaW ReOsIrPtAuHgTlPbBiPoAtRnFrRaAcThPaU NpPuAmCmBkCfEsFmMdNoLrRfDbSgBhHsMtDsRgCnNhFlMcLvTsOg",s[999][110];P(x){e(7,21,35)92,e(14,28,42)47;}main(){for(memset(s,32,3409);*p;s[++i][-1]=10,sprintf(&E(9),"%*s%-2d%s",i<100,"",i,&E(12)),e(17,17,17)*p++,e(18,18,18)*p++,x+=i-1?i-4&~8?i-57&~32?i-71&~32?1:-67:55:11:17)e(1,2,3)e(4,5,22)e(23,24,25)e(26,!(4<i&i<9|20<i&i<30|i==57),1)95,e(7,14,21)e(13,20,27)124;P(93),P(147),P(161),puts(s);}