Wow ! ok ok now, here\'s the code lol.

alias rtrig.x {
  return $regsubex($1-,/(sin|cos|tan)(x+)/g,\\\\1 $+ $regsubex(s,\\\\2,/(x)/g,$+($chr(40),x,$chr(41))))
}