###
  var f := new Dictionary<bi, bi>;
  f[1] := 1;
  for var n := 2 to 2025 do
    f[n] := (n) * f[n-1];
  Print((f[2025] div 25 + f[2024]) div f[2023])