각 적용은 특정 부모에 연결된 프레임 하나를 더한다.

(begin
  (define frames '())
  (define (record-frame! name parent bindings)
    (set! frames
          (append frames
                  (list (list name parent bindings)))))
  (define (modeled-square value parent)
    (record-frame! 'square parent
      (list (cons 'x value)))
    (* value value))
  (define (modeled-sum-of-squares x y)
    (record-frame! 'sum-of-squares 'global
      (list (cons 'x x) (cons 'y y)))
    (+ (modeled-square x 'sum-of-squares)
       (modeled-square y 'sum-of-squares)))
  (list (modeled-sum-of-squares 3 4)
        frames))