how to contract exponentials with common exponent

Hello,

is there a simple Maxima command to contract exponentials with a common exponent? 

I would like to have  x^n*y^n  --> (x*y)^n .

Can anyone help with a simple solution (only build-in functions or a very short hack)?

Thanks

Volker van Nek