#| BEGIN (Write your solution here) |#
(define (make-joint acc pass joint-pass)
  (lambda (jpass m)
    (if (not (eq? jpass joint-pass))
        (error "Incorrect joint password -- MAKE-JOINT" jpass)
        (acc pass m))))
#| END |#