diff --git a/3_3.rkt b/3_3.rkt
index 65457c0..f790e72 100644
--- a/3_3.rkt
+++ b/3_3.rkt
@@ -28,3 +28,11 @@
               (error "Call the cops")
               (error "Incorrect password")))))
   dispatch)
+
+(define (make-joint linkee-account linkee-password account-password)
+  (lambda (password m)
+    (if (eq? password account-password)
+        (linkee-account linkee-password m)
+        (error "Incorrect joint password"))))
+
+