#define F(X,Y,Z,W)for i:=X to Y do write(#Z,W:3,#Z:120*card([i,1])+96*card([i,4,12])+56*card([i,20,38])-696);writeln(#Z);
#define G(X,Y)F(X,Y,+,"---")F(X,Y,|,i)F(X,Y,|,(" U")[i div 113+1]+copy("HeH LiBeB C N O F NeNaMgAlSiP S ClArK CaScTiV CrMnFeCoNiCuZnGaGeAsSeBrKrRbSrY ZrNbMoTcRuRhPdAgCdInSnSbTeI XeCsBaLaCePrNdPmSmEuGdTbDyHoErTmYbLuHfTaW ReOsIrPtAuHgTlPbBiPoAtRnFrRaAcThPaU NpPuamCmBkCfEsFmMdNoLrRfDbSgBhHsMtDsRgCnutuqupuhusuo",i*2-1))
var i:word;begin
G(1,2)G(3,10)G(11,18)G(19,36)G(37,54)G(55,86)G(87,118)F(87,118,+,"---")end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).