PowerCount is a Mathematica package performing power counting on an expression.
First, one needs to set the symbols to be included in or excluded from the power counting.
IsCnt[x1,x2,...] sets symbols
NoCnt[a1,a2,...] sets symbols
CntQ[x] returns whether a symbol NCntQ[x] returns whether a symbol
SetScl[{{x1,x2...},{x3,x4...},...},{M1,M2,...}] sets the scale of symbols
SetHrchy[M1>M2>...>1>m_1>m_2>...>0] sets the hierarchy of scales,
SclHrchy is a symbol set by SetHrchy[...], which are used as an assumption in power counting to compare different scales.
PwrCnt[x] gives the scale of symbol
ShowPwr[exp] assembles the expression
SrtByPwr[exp] assembles the expression