modified:   mathematica