(comment "CPSA 2.2.1")
(comment "All input read")
(comment "Strand count bounded at 12")

Trees: 0 2 6 11 13 16 20 25 27.

Tree 0.

1 0 
(defprotocol bb1 basic
  (defrole init
    (vars (a b name) (s text) (k skey))
    (trace (send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))))
  (defrole resp
    (vars (a b name) (s text) (k skey))
    (trace (recv (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k)))))

Item 0, Child: 1.

init bb1 0 
(defskeleton bb1
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (deflistener k)
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig k)
  (traces
    ((send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))) ((recv k) (send k)))
  (label 0)
  (unrealized (0 1) (1 0)))

Item 1, Parent: 0.

init bb1 1 
(defskeleton bb1
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (deflistener k)
  (precedes ((0 0) (1 0)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig k)
  (traces
    ((send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))) ((recv k) (send k)))
  (label 1)
  (parent 0)
  (unrealized (0 1) (1 0))
  (comment "empty cohort"))

Tree 2.

4 5 3 2 
(defprotocol bb1 basic
  (defrole init
    (vars (a b name) (s text) (k skey))
    (trace (send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))))
  (defrole resp
    (vars (a b name) (s text) (k skey))
    (trace (recv (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k)))))

Item 2, Children: 3 4.

init bb1 2 
(defskeleton bb1
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig k)
  (traces
    ((send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))))
  (label 2)
  (unrealized (0 1))
  (comment "2 in cohort - 2 not yet seen"))

Item 3, Parent: 2, Child: 5.

resp init bb1 3 
(defskeleton bb1
  (vars (s text) (a b a-0 b-0 name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (defstrand resp 2 (s s) (a a-0) (b b-0) (k k))
  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig k)
  (operation encryption-test (added-strand resp 2) (enc s k) (0 1))
  (traces
    ((send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k)))
    ((recv (enc (enc k (privk "sign" a-0)) (pubk "encr" b-0)))
      (send (enc s k))))
  (label 3)
  (parent 2)
  (unrealized (1 0))
  (comment "1 in cohort - 1 not yet seen"))

Item 4, Parent: 2.

init bb1 4 
(defskeleton bb1
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (deflistener k)
  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig k)
  (operation encryption-test (added-listener k) (enc s k) (0 1))
  (traces
    ((send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))) ((recv k) (send k)))
  (label 4)
  (parent 2)
  (unrealized (1 0))
  (comment "empty cohort"))

Item 5, Parent: 3.

resp init bb1 5 (realized)
(defskeleton bb1
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig k)
  (operation nonce-test (contracted (a-0 a) (b-0 b)) k (1 0)
    (enc (enc k (privk "sign" a)) (pubk "encr" b)))
  (traces
    ((send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k)))
    ((recv (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k))))
  (label 5)
  (parent 3)
  (unrealized)
  (shape))

Tree 6.

8 10 9 7 6 
(defprotocol bb1 basic
  (defrole init
    (vars (a b name) (s text) (k skey))
    (trace (send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))))
  (defrole resp
    (vars (a b name) (s text) (k skey))
    (trace (recv (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k)))))

Item 6, Children: 7 8.

init bb1 6 
(defskeleton bb1
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (traces
    ((send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))) ((recv s) (send s)))
  (label 6)
  (unrealized (0 1))
  (comment "2 in cohort - 2 not yet seen"))

Item 7, Parent: 6, Child: 9.

resp init bb1 7 
(defskeleton bb1
  (vars (s text) (a b a-0 b-0 name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (defstrand resp 2 (s s) (a a-0) (b b-0) (k k))
  (precedes ((0 0) (2 0)) ((2 1) (0 1)) ((2 1) (1 0)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (operation encryption-test (added-strand resp 2) (enc s k) (0 1))
  (traces
    ((send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))) ((recv s) (send s))
    ((recv (enc (enc k (privk "sign" a-0)) (pubk "encr" b-0)))
      (send (enc s k))))
  (label 7)
  (parent 6)
  (unrealized (1 0) (2 0))
  (comment "1 in cohort - 1 not yet seen"))

Item 8, Parent: 6.

init bb1 8 
(defskeleton bb1
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (deflistener k)
  (precedes ((0 0) (2 0)) ((2 1) (0 1)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (operation encryption-test (added-listener k) (enc s k) (0 1))
  (traces
    ((send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))) ((recv s) (send s)) ((recv k) (send k)))
  (label 8)
  (parent 6)
  (unrealized (2 0))
  (comment "empty cohort"))

Item 9, Parent: 7, Child: 10.

resp init bb1 9 
(defskeleton bb1
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (precedes ((0 0) (2 0)) ((2 1) (0 1)) ((2 1) (1 0)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (operation nonce-test (contracted (a-0 a) (b-0 b)) k (2 0)
    (enc (enc k (privk "sign" a)) (pubk "encr" b)))
  (traces
    ((send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))) ((recv s) (send s))
    ((recv (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k))))
  (label 9)
  (parent 7)
  (unrealized (1 0))
  (comment "1 in cohort - 1 not yet seen"))

Item 10, Parent: 9.

resp init bb1 10 
(defskeleton bb1
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (deflistener k)
  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((2 1) (0 1)) ((2 1) (1 0))
    ((3 1) (1 0)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (operation nonce-test (added-listener k) s (1 0) (enc s k))
  (traces
    ((send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))) ((recv s) (send s))
    ((recv (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k))) ((recv k) (send k)))
  (label 10)
  (parent 9)
  (unrealized (3 0))
  (comment "empty cohort"))

Tree 11.

12 11 
(defprotocol bb1 basic
  (defrole init
    (vars (a b name) (s text) (k skey))
    (trace (send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))))
  (defrole resp
    (vars (a b name) (s text) (k skey))
    (trace (recv (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k)))))

Item 11, Child: 12.

resp bb1 11 
(defskeleton bb1
  (vars (s text) (a b name) (k skey))
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig k)
  (traces
    ((recv (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k))))
  (label 11)
  (unrealized (0 0))
  (comment "1 in cohort - 1 not yet seen"))

Item 12, Parent: 11.

init resp bb1 12 (realized)
(defskeleton bb1
  (vars (s text) (a b b-0 name) (k skey))
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (defstrand init 1 (a a) (b b-0) (k k))
  (precedes ((1 0) (0 0)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig k)
  (operation encryption-test (added-strand init 1)
    (enc k (privk "sign" a)) (0 0))
  (traces
    ((recv (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k)))
    ((send (enc (enc k (privk "sign" a)) (pubk "encr" b-0)))))
  (label 12)
  (parent 11)
  (unrealized)
  (shape))

Tree 13.

15 14 13 
(defprotocol bb1 basic
  (defrole init
    (vars (a b name) (s text) (k skey))
    (trace (send (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))))
  (defrole resp
    (vars (a b name) (s text) (k skey))
    (trace (recv (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k)))))

Item 13, Child: 14.

resp bb1 13 
(defskeleton bb1
  (vars (s text) (a b name) (k skey))
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (traces
    ((recv (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k))) ((recv s) (send s)))
  (label 13)
  (unrealized (0 0) (1 0)))

Item 14, Parent: 13, Child: 15.

resp bb1 14 
(defskeleton bb1
  (vars (s text) (a b name) (k skey))
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (precedes ((0 1) (1 0)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (traces
    ((recv (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k))) ((recv s) (send s)))
  (label 14)
  (parent 13)
  (unrealized (0 0))
  (comment "1 in cohort - 1 not yet seen"))

Item 15, Parent: 14.

init resp bb1 15 (realized)
(defskeleton bb1
  (vars (s text) (a b b-0 name) (k skey))
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (defstrand init 1 (a a) (b b-0) (k k))
  (precedes ((0 1) (1 0)) ((2 0) (0 0)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (operation encryption-test (added-strand init 1)
    (enc k (privk "sign" a)) (0 0))
  (traces
    ((recv (enc (enc k (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k))) ((recv s) (send s))
    ((send (enc (enc k (privk "sign" a)) (pubk "encr" b-0)))))
  (label 15)
  (parent 14)
  (unrealized)
  (shape))

Tree 16.

18 19 17 16 
(defprotocol bb2 basic
  (defrole init
    (vars (a b name) (s text) (k skey))
    (trace (send (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))))
  (defrole resp
    (vars (a b name) (s text) (k skey))
    (trace (recv (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k)))))

Item 16, Children: 17 18.

init bb2 16 
(defskeleton bb2
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig k)
  (traces
    ((send (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))))
  (label 16)
  (unrealized (0 1))
  (comment "2 in cohort - 2 not yet seen"))

Item 17, Parent: 16, Child: 19.

resp init bb2 17 
(defskeleton bb2
  (vars (s text) (a b a-0 b-0 name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (defstrand resp 2 (s s) (a a-0) (b b-0) (k k))
  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig k)
  (operation encryption-test (added-strand resp 2) (enc s k) (0 1))
  (traces
    ((send (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k)))
    ((recv (enc (enc k b-0 (privk "sign" a-0)) (pubk "encr" b-0)))
      (send (enc s k))))
  (label 17)
  (parent 16)
  (unrealized (1 0))
  (comment "1 in cohort - 1 not yet seen"))

Item 18, Parent: 16.

init bb2 18 
(defskeleton bb2
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (deflistener k)
  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig k)
  (operation encryption-test (added-listener k) (enc s k) (0 1))
  (traces
    ((send (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))) ((recv k) (send k)))
  (label 18)
  (parent 16)
  (unrealized (1 0))
  (comment "empty cohort"))

Item 19, Parent: 17.

resp init bb2 19 (realized)
(defskeleton bb2
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig k)
  (operation nonce-test (contracted (a-0 a) (b-0 b)) k (1 0)
    (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
  (traces
    ((send (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k)))
    ((recv (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k))))
  (label 19)
  (parent 17)
  (unrealized)
  (shape))

Tree 20.

22 24 23 21 20 
(defprotocol bb2 basic
  (defrole init
    (vars (a b name) (s text) (k skey))
    (trace (send (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))))
  (defrole resp
    (vars (a b name) (s text) (k skey))
    (trace (recv (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k)))))

Item 20, Children: 21 22.

init bb2 20 
(defskeleton bb2
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (traces
    ((send (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))) ((recv s) (send s)))
  (label 20)
  (unrealized (0 1))
  (comment "2 in cohort - 2 not yet seen"))

Item 21, Parent: 20, Child: 23.

resp init bb2 21 
(defskeleton bb2
  (vars (s text) (a b a-0 b-0 name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (defstrand resp 2 (s s) (a a-0) (b b-0) (k k))
  (precedes ((0 0) (2 0)) ((2 1) (0 1)) ((2 1) (1 0)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (operation encryption-test (added-strand resp 2) (enc s k) (0 1))
  (traces
    ((send (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))) ((recv s) (send s))
    ((recv (enc (enc k b-0 (privk "sign" a-0)) (pubk "encr" b-0)))
      (send (enc s k))))
  (label 21)
  (parent 20)
  (unrealized (1 0) (2 0))
  (comment "1 in cohort - 1 not yet seen"))

Item 22, Parent: 20.

init bb2 22 
(defskeleton bb2
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (deflistener k)
  (precedes ((0 0) (2 0)) ((2 1) (0 1)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (operation encryption-test (added-listener k) (enc s k) (0 1))
  (traces
    ((send (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))) ((recv s) (send s)) ((recv k) (send k)))
  (label 22)
  (parent 20)
  (unrealized (2 0))
  (comment "empty cohort"))

Item 23, Parent: 21, Child: 24.

resp init bb2 23 
(defskeleton bb2
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (precedes ((0 0) (2 0)) ((2 1) (0 1)) ((2 1) (1 0)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (operation nonce-test (contracted (a-0 a) (b-0 b)) k (2 0)
    (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
  (traces
    ((send (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))) ((recv s) (send s))
    ((recv (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k))))
  (label 23)
  (parent 21)
  (unrealized (1 0))
  (comment "1 in cohort - 1 not yet seen"))

Item 24, Parent: 23.

resp init bb2 24 
(defskeleton bb2
  (vars (s text) (a b name) (k skey))
  (defstrand init 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (deflistener k)
  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((2 1) (0 1)) ((2 1) (1 0))
    ((3 1) (1 0)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (operation nonce-test (added-listener k) s (1 0) (enc s k))
  (traces
    ((send (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))) ((recv s) (send s))
    ((recv (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k))) ((recv k) (send k)))
  (label 24)
  (parent 23)
  (unrealized (3 0))
  (comment "empty cohort"))

Tree 25.

26 25 
(defprotocol bb2 basic
  (defrole init
    (vars (a b name) (s text) (k skey))
    (trace (send (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))))
  (defrole resp
    (vars (a b name) (s text) (k skey))
    (trace (recv (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k)))))

Item 25, Child: 26.

resp bb2 25 
(defskeleton bb2
  (vars (s text) (a b name) (k skey))
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig k)
  (traces
    ((recv (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k))))
  (label 25)
  (unrealized (0 0))
  (comment "1 in cohort - 1 not yet seen"))

Item 26, Parent: 25.

init resp bb2 26 (realized)
(defskeleton bb2
  (vars (s text) (a b name) (k skey))
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (defstrand init 1 (a a) (b b) (k k))
  (precedes ((1 0) (0 0)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig k)
  (operation encryption-test (added-strand init 1)
    (enc k b (privk "sign" a)) (0 0))
  (traces
    ((recv (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k)))
    ((send (enc (enc k b (privk "sign" a)) (pubk "encr" b)))))
  (label 26)
  (parent 25)
  (unrealized)
  (shape))

Tree 27.

30 29 28 27 
(defprotocol bb2 basic
  (defrole init
    (vars (a b name) (s text) (k skey))
    (trace (send (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (recv (enc s k))))
  (defrole resp
    (vars (a b name) (s text) (k skey))
    (trace (recv (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k)))))

Item 27, Child: 28.

resp bb2 27 
(defskeleton bb2
  (vars (s text) (a b name) (k skey))
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (traces
    ((recv (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k))) ((recv s) (send s)))
  (label 27)
  (unrealized (0 0) (1 0)))

Item 28, Parent: 27, Child: 29.

resp bb2 28 
(defskeleton bb2
  (vars (s text) (a b name) (k skey))
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (precedes ((0 1) (1 0)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (traces
    ((recv (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k))) ((recv s) (send s)))
  (label 28)
  (parent 27)
  (unrealized (0 0))
  (comment "1 in cohort - 1 not yet seen"))

Item 29, Parent: 28, Child: 30.

init resp bb2 29 
(defskeleton bb2
  (vars (s text) (a b name) (k skey))
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (defstrand init 1 (a a) (b b) (k k))
  (precedes ((0 1) (1 0)) ((2 0) (0 0)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (operation encryption-test (added-strand init 1)
    (enc k b (privk "sign" a)) (0 0))
  (traces
    ((recv (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k))) ((recv s) (send s))
    ((send (enc (enc k b (privk "sign" a)) (pubk "encr" b)))))
  (label 29)
  (parent 28)
  (unrealized (1 0))
  (comment "1 in cohort - 1 not yet seen"))

Item 30, Parent: 29.

init resp bb2 30 
(defskeleton bb2
  (vars (s text) (a b name) (k skey))
  (defstrand resp 2 (s s) (a a) (b b) (k k))
  (deflistener s)
  (defstrand init 1 (a a) (b b) (k k))
  (deflistener k)
  (precedes ((0 1) (1 0)) ((2 0) (0 0)) ((2 0) (3 0)) ((3 1) (1 0)))
  (non-orig (privk "encr" b) (privk "sign" a))
  (uniq-orig s k)
  (operation nonce-test (added-listener k) s (1 0) (enc s k))
  (traces
    ((recv (enc (enc k b (privk "sign" a)) (pubk "encr" b)))
      (send (enc s k))) ((recv s) (send s))
    ((send (enc (enc k b (privk "sign" a)) (pubk "encr" b))))
    ((recv k) (send k)))
  (label 30)
  (parent 29)
  (unrealized (3 0))
  (comment "empty cohort"))