#define F(Z,W)for i:=x+1to y*2do write(#Z,W:3,#Z:96*card([i,4,12])+56*card([i,20,38])-1div i*120-456);writeln(#Z);
var i,x,y:word;begin
for y in[1,5,9,18,27,43,59]do
begin x:=i;F(+,"---")F(|,i)F(|,(" U")[i div 113+1]+copy("HeH LiBeB C N O F NeNaMgAlSiP S ClArK CaScTiV CrMnFeCoNiCuZnGaGeAsSeBrKrRbSrY ZrNbMoTcRuRhPdAgCdInSnSbTeI XeCsBaLaCePrNdPmSmEuGdTbDyHoErTmYbLuHfTaW ReOsIrPtAuHgTlPbBiPoAtRnFrRaAcThPaU NpPuamCmBkCfEsFmMdNoLrRfDbSgBhHsMtDsRgCnutuqupuhusuo",i*2-1))end;F(+,"---")end.
Note that non-ascii characters in the above source code will be escaped (such as \x9f).