open Printf
let p,w,x=printf,"+---","+   "let y,z=w^w^w^w^w^w,w^w^w^w^w;;printf"%s%-120s%s+
|  1|%120s  2|
| He|%120s H |"w x w"|""|";for j=0to 1do
printf"
%s%s%-96s%s+
| %s|%96s"w w x y[|" 3|  4";"11| 12"|].(j)"|";for i=5to 10do
printf"%3d|"(i+j*8)done;printf"
| %s|%96s"[|"Li| Be";"Na| Mg"|].(j)"|";for i=0to 5do
printf" %c%c|"[|"BCNOFN";"ASPSCA"|].(j).[i][|"     e";"li  lr"|].(j).[i]done
done;for j=0to 1do
printf"
%s%s%-56s%s+
| %s|%56s"w w x(z^z^y)[|"19| 20";"37| 38"|].(j)"|";for i=21to 36do
printf"%3d|"(i+j*18)done;printf"
| %s|%56s"[|"K | Ca";"Rb| Sr"|].(j)"|";for i=0to 15do
printf" %c%c|"[|"STVCMFCNCZGGASBK";"YZNMTRRPACISSTIX"|].(j).[i][|"ci rneoiunaeserr";" rbocuhdgdnnbe e"|].(j).[i]done
done;for j=0to 1do
p"
";for i=0to 31do
p"+---"done;p"+
|";for i=55to 86do
printf"%3d|"(i+j*32)done;p"
|";for i=0to 31do
printf"%c%c%c|"" U".[j*i/26][|"CBLCPNPSEGTDHETYLHTWROIPAHTPBPAR";"FRATPUNPaCBCEFMNLRDSBHMDRCuuuuuu"|].(j).[i][|"saaerdmmudbyormbufa esrtuglbiotn";"racha pummkfsmdorfbghstsgntqphso"|].(j).[i]done
done;p"
+";for i=0to 31do
p"---+"done