|
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}]