연습문제 3.7

(define (make-joint account passwd newpasswd)
  (define (dispatch pass m)
    (if (?eq pass newpasswd)
        (account passwd m)
        (else (error "Bad passwd when joint"))))
  dispatch)