@t=($"x129 .$/)x22;$n+=/\d/?$_*8:map{substr$t[$x++%4+3*($n>>7)],$n%128,5,$_}$@='+---+',(map{sprintf'|%3s|',$_}++$c,$_),$@for'He15H LiBe12B C N O F NeNaMg12AlSiP S ClArK Ca7 ScTiV CrMnFeCoNiCuZnGaGeAsSeBrKrRbSr7 Y ZrNbMoTcRuRhPdAgCdInSnSbTeI XeCsBaLaCePrNdPmSmEuGdTbDyHoErTmYbLuHfTaW ReOsIrPtAuHgTlPbBiPoAtRnFrRaAcThPaU NpPu amCmBkCfEsFmMdNoLrRfDbSgBhHsMtDsRgCnUutUuqUupUuhUusUuo'=~/..[a-z]?/g;print@t