RosettaCodeData/Task/Modular-inverse/Mathematica/modular-inverse-2.math