Hello, Tried this code but it dosent work.

f[p0_, p1_] := 
  Module[{Subscript[p, 0] = p0, Subscript[p, 1] = p1}, 
   1/(2 bb n (Subscript[p, 0] + (-1 + n) Subscript[p, 1])) 
\!\(\*SubsuperscriptBox[\(p\), \(0\), \(-n\)]\) (-2 (-100 + d2) 
\!\(\*SubsuperscriptBox[\(p\), \(0\), \(2\)]\) + 
      2 bb (d2 + 100 (-1 + n)) 
\!\(\*SubsuperscriptBox[\(p\), \(0\), \(2 + n\)]\) - bb (-1 + n) n 
\!\(\*SubsuperscriptBox[\(p\), \(0\), \(n\)]\) Subscript[p, 
       1] (200 + (-100 + 2 d1 - d2) Subscript[p, 1]) + 2 bb n 
\!\(\*SubsuperscriptBox[\(p\), \(0\), \(1 + 
         n\)]\) (-100 + (-d1 + d2 + 100 (-1 + n)) Subscript[p, 1]))];