number of variables in a multivariable polynomal ?



Hello,
 Is there a function in maxima which will extract the number of 
variables in a user defined polynomial of several variables?

E.g. let's call such a function 'num_vars'.  

    It should have the property that if
      p= -2*x[1]^3*x[5]^4 + x[1]*x[6]
  then
    num_vars(p)=6

TIA,
 -sen