Computing irreducible curve singularities with Mathematica