to zinseszins :k :n :p
  ifelse (:n > 0) [
    output zinseszins (:k*(1+:p)) (:n-1) :p
   ] [
    output :k
   ]
end