Ex-3.7

(define (make-joint acc passwd another-passwd)
  ;check if passwd is correct
  (if (equal? "Incorrect Password" ((acc passwd 'deposit) 0))
      "Incorrect Password"
      (lambda (p m)
         (if (eq? p another-passwd)
             (acc passwd m) "Incorrect Password"))))