Egy kis scheme

Jöjjön egy kis scheme feladvány. Mit ad ki a következő kifejezés:


(define (agregator state stfn steps)
  (do ((i 1 (+ i 1)) (res state (stfn res i)))
    ((>= i steps) res)))

(write (agregator 1 (lambda (x y) (* x y)) 5))
(newline)

Egy számot kérnék. Csak a poén kedvéért írtam ide.