|
| ||||||||||||||||||||||||||||||||||||||||||||
Generated using this Mathematica code (here for the 18th century):
StringJoin @@
Table[If[Mod[i, 10] == 9,
"[[" <> ToString[i] <> "]]\n |list" <>
ToString[Evaluate[Round[(i - 1700)/10.] + 1]] <> "=",
"[[" <> ToString[i] <> "]]{{*}}"], {i, 1700, 1799}]