N body simulation packages for mathematica

Are there n body simulation packages available for Mathematica like Python, Fortran or other languages?

I want a package that will take the interparticle force and initial position, momentum as input, and give the final position, momentum of particles as output.