to zinseszinsgewinn :k :n :p output (zinseszins :k :n :p)-:k end