Mathematica 如何对多个多项式取模化简

Mathematica 如何对多个多项式取模化简
如何对多个多项式取模化简
例如：
s1含3个多项式：
s1={10ab+20a+30c,21a+22ab+23c,40abc}
现要分别对每个多项式取模{3,5,7}化简,令
s2={3,5,7}
输出：
s3={ab+2a,a+2ab+3c,5abc}