Small update in mathematica code