(set! pcs-debug-mode 1)
(define (calc-sin x n)
  (define (iter termnummer teller noemer acc)
    (if (> termnummer n)
        acc
        (iter (+ termnummer 1)
              (* teller x x)
              (- (* noemer (* termnummer 2) (+ (* termnummer 2) 1)))
              (+ acc (/ teller noemer)))))
  (trace iter)
  (iter 1 x 1 0))