Test Sw and Swnu:

note: if the partition has length greater than m then there are commutation relations to contend with.
Consider the following examples

> Sw(5,s[3,2]);

> Sw(3,s[4,3,1,1]);

> Sw(2,s[4,3,1,1]);

> Swnu([3,2],s[2,1]);

> Swnu([3,3,2],s[2,1]);