mulmoves- multiplication of moves of a Rubik's like puzzle

Calling Sequence:

mulmoves(a1)

Parameters:

a1 - a seqence

Description:

Examples:
> restart:
> with(rubik):
> X:=[R,L,1/D];
X := [R, L, 1/D]
> mulmoves(X,D,1,L,X);
[R, L^2, R, L, 1/D]

See Also:
invmoves, simpmoves