(* Package Besser.m *) PowerSum::usage = "Die Funktion berechnet die Potenzfunktion x^n ." PowerSum[x_, n_] := Module[{i}, Sum[x^i, {i, 1, n}] ]