let rec expt x n =  
    if n = 0 then one 
    else 
      mult x (expt x (n - 1))