finish proton with mathematica