Exercise: To continue, decompose the regular representation of S4
> combinat[character](4);
> S4:=Sn(4);
> regS4:=regmodule(S4);
> charS4:=module2char(regS4);
>