https://remp3indir.net/mathematica-code-optimization-using-mod-function/