@t=($"x129 .$/)x22;s/Q/Uu/,$n+=8*lc||map{substr$t[$x++%4+3*($n>>7)],$n%128,5,$_}$@='+---+',(map{sprintf'|%3s|',$_}++$c,$_|'@ '),$@for He15HLiBe12BCNOFNeNaMg12AlSiPSClArKCa7ScTiVCrMnFeCoNiCuZnGaGeAsSeBrKrRbSr7YZrNbMoTcRuRhPdAgCdInSnSbTeIXeCsBaLaCePrNdPmSmEuGdTbDyHoErTmYbLuHfTaWReOsIrPtAuHgTlPbBiPoAtRnFrRaAcThPaUNpPuamCmBkCfEsFmMdNoLrRfDbSgBhHsMtDsRgCnQtQqQpQhQsQo=~/.[^A-Z]?/g;print@t