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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).