(define (make-joint acc pwd password)
  (define (dispatch p m)
    (if (not (eq? p password))
        (lambda (x) "Wrong password")
        (acc pwd m)))
  dispatch)