simpmoves- simplification of moves of a Rubik's like puzzle

Calling Sequence:

simpmoves(a)

Parameters:

a - a list, a name or 1

Description:

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

See Also:
mulmoves, invmoves