(define (make-joint base-acc password-of-base-acc password-of-new-acc)
  (lambda (password comand)
    (if (equal? password-of-new-acc password )
          (base-acc password-of-base-acc comand)
           (error "Неправильный пароль!"))
    )
  )