레이블 표는 이름을 명령 위치로 바꾼다.

(begin
  (define (extract-labels controller position)
    (cond ((null? controller) '())
          ((symbol? (car controller))
           (cons (cons (car controller) position)
                 (extract-labels (cdr controller) position)))
          (else
           (extract-labels (cdr controller) (+ position 1)))))
  (define controller
    '(start
       (assign n 3)
      loop
       (test zero?)
       (branch done)
       (assign n sub1)
       (goto loop)
      done
       (halt)))
  (extract-labels controller 0))