n = new Variable 0
entrer n

f = (x) -> 
    y = new Variable x.valeur
    élever y, "à la puissance", n.valeur
    incrémenter y
    inverser y
    y

I = new Variable 0
x = new Variable 0
p = new Variable
entrer p
p = parseInt(p.valeur) # convertir la variable p en un entier
p.foisFaire ->
    pas = f(x)
    diviser pas, par, p
    augmenter I, de, pas
    augmenter x, de, 1/p

montrer I