# Lösung: Tail-Recursion


```$2(defn prod-recur
  "Berechnet das Produkt einer Reihe von Zahlen `zahlen` unter
  Verwendung von loop und recur."
  [zahlen]
  (loop [produkt    0
         rest-liste zahlen]
    (if (seq rest-liste)
      (recur (* produkt (first rest-liste)) (rest rest-liste))
      produkt)))

```