Generated using this Mathematica code:
StringJoin @@ Table[If[Mod[i, 10] == 9, "[[" <> ToString[i] <> "]]\n |list=" <> ToString[Evaluate[Round[(i - 1900)/10.] + 1]], "[[" <> ToString[i] <> "]]{{*}}"], {i, 1900, 2000}]