diff --git a/ChangeLog b/ChangeLog --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,22 @@ +2018-04-17 John D. Ramsdell + + * cpsa.cabal (Version): Tagged as 3.5.0. + +2018-03-20 John D. Ramsdell + + * src/CPSA/DiffieHellman/Algebra.hs (displayVar, mkVar): Changed + sort names. expn -> rndx and expr -> expt. + +2018-02-12 John D. Ramsdell + + * src/CPSA/SAS/SAS.hs (disjoin): Changed output to (false) on an + empty disjunction instead of (or). + +2018-01-12 John D. Ramsdell + + * src/CPSA/Lib/Loader.hs (mkListenerRole): Changed do pattern to + be irrefutable. + 2017-09-15 John D. Ramsdell * src/CPSA/DiffieHellman/Algebra.hs (unifyTerms): Added calls to diff --git a/NEWS b/NEWS --- a/NEWS +++ b/NEWS @@ -1,5 +1,13 @@ CPSA NEWS + April, 2018: + +* The release of CPSA version 3.5.0 contains one user visiable change. + The names of the exponent sorts have been changed. Sort expn is now + rndx, and expr is now expt. The change was made because people + found the old sort name confusing. For compatibility, the reader + accepts the old names and translates them into the new ones. + December, 2017: * The release of CPSA version 3.4.1 includes the following changes: diff --git a/cpsa.cabal b/cpsa.cabal --- a/cpsa.cabal +++ b/cpsa.cabal @@ -1,5 +1,5 @@ Name: cpsa -Version: 3.4.1 +Version: 3.5.0 Maintainer: mliskov@mitre.org Cabal-Version: >= 1.6 License: BSD3 @@ -49,23 +49,29 @@ Category: Cryptography Build-Type: Simple Data-Files: - Make.hs cpsa.mk cpsamanual.pdf examples/blanchet.scm examples/blanchet.xhtml - examples/bltk_or.scm examples/bltk_or.xhtml examples/envelope.scm - examples/envelope.xhtml examples/ffgg.scm examples/ffgg.xhtml - examples/fnof_test.scm examples/fnof_test.xhtml - examples/fnof_yahalom.scm examples/fnof_yahalom.xhtml examples/goals.scm - examples/goals.xhtml examples/kerb.scm examples/kerb.xhtml - examples/lt_test.scm examples/lt_test.xhtml examples/neq_test.scm - examples/neq_test.xhtml examples/ns.scm examples/ns.xhtml examples/or.scm - examples/or.xhtml examples/pkinit.scm examples/pkinit.xhtml - examples/plaindh.scm examples/plaindh.xhtml examples/priority_test.scm - examples/priority_test.xhtml examples/station.scm examples/station.xhtml - examples/subsort_test.scm examples/woolam.scm examples/yahalom.scm - examples/yahalom.xhtml examples/IKE_variants.tar.gz examples/iadh_um.scm - examples/iadh_um.xhtml examples/subsort_test.xhtml examples/woolam.xhtml - examples/dh_mim.scm examples/dh_mim.xhtml examples/fluffy_draft03_fixing_gske.scm - examples/fluffy_draft03_gske.scm examples/fluffy_draft03_improving_pske.scm - examples/fluffy_draft03_pske.scm + Make.hs cpsa.mk cpsamanual.pdf examples/blanchet.scm + examples/blanchet.xhtml examples/bltk_or.scm examples/bltk_or.xhtml + examples/envelope.scm examples/envelope.xhtml examples/ffgg.scm + examples/ffgg.xhtml examples/fnof_test.scm examples/fnof_test.xhtml + examples/fnof_yahalom.scm examples/fnof_yahalom.xhtml + examples/goals.scm examples/goals.xhtml examples/kerb.scm + examples/kerb.xhtml examples/lt_test.scm examples/lt_test.xhtml + examples/neq_test.scm examples/neq_test.xhtml examples/ns.scm + examples/ns.xhtml examples/or.scm examples/or.xhtml + examples/pkinit.scm examples/pkinit.xhtml examples/plaindh.scm + examples/plaindh.xhtml examples/priority_test.scm + examples/priority_test.xhtml examples/station.scm + examples/station.xhtml examples/subsort_test.scm examples/woolam.scm + examples/yahalom.scm examples/yahalom.xhtml + examples/IKE_variants.tar.gz examples/IKE_variants_nobase.tar.gz + examples/iadh_um.scm examples/iadh_um.xhtml + examples/subsort_test.xhtml examples/woolam.xhtml + examples/dh_mim.scm examples/dh_mim.xhtml + examples/fluffy_draft03_fixing_gske.scm + examples/fluffy_draft03_gske.scm + examples/fluffy_draft03_improving_pske.scm + examples/fluffy_draft03_pske.scm examples/eq_test.scm + examples/eq_test.xhtml Data-Dir: doc Extra-Source-Files: Makefile ChangeLog README.txt NEWS ghci cpsatst setup.bat diff --git a/doc/cpsamanual.pdf b/doc/cpsamanual.pdf Binary files a/doc/cpsamanual.pdf and b/doc/cpsamanual.pdf differ diff --git a/doc/examples/IKE_variants_nobase.tar.gz b/doc/examples/IKE_variants_nobase.tar.gz new file mode 100644 Binary files /dev/null and b/doc/examples/IKE_variants_nobase.tar.gz differ diff --git a/doc/examples/blanchet.xhtml b/doc/examples/blanchet.xhtml --- a/doc/examples/blanchet.xhtml +++ b/doc/examples/blanchet.xhtml @@ -1,5 +1,5 @@ - + Blanchet's Simple Example Protocol @@ -12,7 +12,7 @@ 
(herald "Blanchet's Simple Example Protocol"
   (comment "There is a flaw in this protocol by design"))
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from blanchet.scm")

Trees: 0 4 6 11 14 18 23 25.

diff --git a/doc/examples/bltk_or.xhtml b/doc/examples/bltk_or.xhtml --- a/doc/examples/bltk_or.xhtml +++ b/doc/examples/bltk_or.xhtml @@ -1,5 +1,5 @@ - + Otway-Rees Protocol @@ -13,7 +13,7 @@ 
(herald "Otway-Rees Protocol"
   (comment "Standard version using variables of sort mesg")
   (algebra diffie-hellman))
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from bltk_or.scm")

Tree 0.

diff --git a/doc/examples/dh_mim.scm b/doc/examples/dh_mim.scm --- a/doc/examples/dh_mim.scm +++ b/doc/examples/dh_mim.scm @@ -13,14 +13,14 @@ (defprotocol dh_mim diffie-hellman (defrole init - (vars (x expn) (h base) (n text)) + (vars (x rndx) (h base) (n text)) (trace (send (exp (gen) x)) (recv h) (send (enc n (exp h x)))) (uniq-gen x)) (defrole resp - (vars (y expn) (h base) (n text)) + (vars (y rndx) (h base) (n text)) (trace (recv h) (send (exp (gen) y)) @@ -30,7 +30,7 @@ (defskeleton dh_mim - (vars (n text) (hx hy base) (x y expn)) + (vars (n text) (hx hy base) (x y rndx)) (defstrand init 3 (n n) (h hy) (x x)) (defstrand resp 3 (n n) (h hx) (y y)) (precedes ((0 2) (1 2))) diff --git a/doc/examples/dh_mim.xhtml b/doc/examples/dh_mim.xhtml # file too large to diff: doc/examples/dh_mim.xhtml diff --git a/doc/examples/envelope.xhtml b/doc/examples/envelope.xhtml --- a/doc/examples/envelope.xhtml +++ b/doc/examples/envelope.xhtml @@ -1,5 +1,5 @@ - + Envelope Protocol @@ -11,7 +11,7 @@ 
(herald "Envelope Protocol" (bound 20))
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from envelope.scm")
 (comment "Strand count bounded at 20")
diff --git a/doc/examples/eq_test.scm b/doc/examples/eq_test.scm new file mode 100644 --- /dev/null +++ b/doc/examples/eq_test.scm @@ -0,0 +1,33 @@ +(herald "Equality constraint test protocol" + (comment "First skeleton should have a shape," + "second, and hird should be dead.")) + +(defprotocol eqtest basic + (defrole init + (vars (n1 n2 text) (k skey)) + (trace + (send (cat n1 (enc n1 n2 k))) + (recv n2)) + (non-orig k) + (uniq-orig n1 n2) + ) +) + +;;; With no inequality declaration, a shape +;;; should be found where n1 = n2. +(defskeleton eqtest + (vars (n1 n2 text) (k skey)) + (defstrand init 2 (n1 n1) (n2 n2) (k k))) + +;;; With the equality declaration, n1 = n2 should +;;; be found by skeletonizing. +(defskeleton eqtest + (vars (n1 n2 text)) + (defstrand init 2 (n1 n1) (n2 n2)) + (eq (n1 n2))) + +;;; An fn-of declaration should produce a similar result. +(defskeleton eqtest + (vars (n1 n2 text)) + (defstrand init 2 (n1 n1) (n2 n2)) + (fn-of ("foo" (n1 "bar") (n2 "bar")))) diff --git a/doc/examples/eq_test.xhtml b/doc/examples/eq_test.xhtml new file mode 100644 --- /dev/null +++ b/doc/examples/eq_test.xhtml @@ -0,0 +1,344 @@ + + + + + Equality constraint test protocol + + + + + +
(herald "Equality constraint test protocol"
+  (comment "First skeleton should have a shape,"
+    "second, and hird should be dead."))
+(comment "CPSA 3.5.0")
+(comment "All input read from eq_test.scm")
+ +

Trees: 0 2 4.

+ +

Tree 0.

+ +
+ + 1 + + 0 +
+ +
(defprotocol eqtest basic
+  (defrole init
+    (vars (n1 n2 text) (k skey))
+    (trace (send (cat n1 (enc n1 n2 k))) (recv n2))
+    (non-orig k)
+    (uniq-orig n1 n2)))
+ +

Item 0, Child: 1.

+ +
+ + + + + + + n2 + + (cat n1 (enc n1 n2 k)) + + ((n1 n1) (n2 n2) (k k)) + init + + eqtest 0 +
+ +
(defskeleton eqtest
+  (vars (n1 n2 text) (k skey))
+  (defstrand init 2 (n1 n1) (n2 n2) (k k))
+  (non-orig k)
+  (uniq-orig n1 n2)
+  (label 0)
+  (unrealized (0 1))
+  (origs (n1 (0 0)) (n2 (0 0)))
+  (comment "1 in cohort - 1 not yet seen"))
+ +

Item 1, Parent: 0.

+ +
+ + + + + + + n1 + + (cat n1 (enc n1 n1 k)) + + ((n1 n1) (n2 n1) (k k)) + init + + eqtest 1 (realized)
+ +
(defskeleton eqtest
+  (vars (n1 text) (k skey))
+  (defstrand init 2 (n1 n1) (n2 n1) (k k))
+  (non-orig k)
+  (uniq-orig n1)
+  (operation nonce-test (displaced 1 0 init 1) n2 (0 1) (enc n1 n2 k))
+  (label 1)
+  (parent 0)
+  (unrealized)
+  (shape)
+  (maps ((0) ((n1 n1) (n2 n1) (k k))))
+  (origs (n1 (0 0))))
+ +

Tree 2.

+ +
+ + 3 + + 2 +
+ +
(defprotocol eqtest basic
+  (defrole init
+    (vars (n1 n2 text) (k skey))
+    (trace (send (cat n1 (enc n1 n2 k))) (recv n2))
+    (non-orig k)
+    (uniq-orig n1 n2)))
+ +

Item 2, Child: 3.

+ +
+ + + + + + + n2 + + (cat n1 (enc n1 n2 k)) + + ((n1 n1) (n2 n2) (k k)) + init + + eqtest 2 +
+ +
(defskeleton eqtest
+  (vars (n1 n2 text) (k skey))
+  (defstrand init 2 (n1 n1) (n2 n2) (k k))
+  (non-orig k)
+  (uniq-orig n1 n2)
+  (label 2)
+  (unrealized (0 1))
+  (origs (n1 (0 0)) (n2 (0 0)))
+  (comment "1 in cohort - 1 not yet seen"))
+ +

Item 3, Parent: 2.

+ +
+ + + + + + + n1 + + (cat n1 (enc n1 n1 k)) + + ((n1 n1) (n2 n1) (k k)) + init + + eqtest 3 (realized)
+ +
(defskeleton eqtest
+  (vars (n1 text) (k skey))
+  (defstrand init 2 (n1 n1) (n2 n1) (k k))
+  (non-orig k)
+  (uniq-orig n1)
+  (operation nonce-test (displaced 1 0 init 1) n2 (0 1) (enc n1 n2 k))
+  (label 3)
+  (parent 2)
+  (unrealized)
+  (shape)
+  (maps ((0) ((n1 n1) (n2 n1) (k k))))
+  (origs (n1 (0 0))))
+ +

Tree 4.

+ +
+ + 5 + + 4 +
+ +
(defprotocol eqtest basic
+  (defrole init
+    (vars (n1 n2 text) (k skey))
+    (trace (send (cat n1 (enc n1 n2 k))) (recv n2))
+    (non-orig k)
+    (uniq-orig n1 n2)))
+ +

Item 4, Child: 5.

+ +
+ + + + + + + n2 + + (cat n1 (enc n1 n2 k)) + + ((n1 n1) (n2 n2) (k k)) + init + + eqtest 4 +
+ +
(defskeleton eqtest
+  (vars (n1 n2 text) (k skey))
+  (defstrand init 2 (n1 n1) (n2 n2) (k k))
+  (fn-of ("foo" (n1 "bar") (n2 "bar")))
+  (non-orig k)
+  (uniq-orig n1 n2)
+  (label 4)
+  (unrealized (0 1))
+  (preskeleton)
+  (comment "Not a skeleton"))
+ +

Item 5, Parent: 4.

+ +
+ + + + + + + n2 + + (cat n2 (enc n2 n2 k)) + + ((n1 n2) (n2 n2) (k k)) + init + + eqtest 5 (realized)
+ +
(defskeleton eqtest
+  (vars (n2 text) (k skey))
+  (defstrand init 2 (n1 n2) (n2 n2) (k k))
+  (fn-of ("foo" (n2 "bar")))
+  (non-orig k)
+  (uniq-orig n2)
+  (label 5)
+  (parent 4)
+  (unrealized)
+  (shape)
+  (maps ((0) ((n2 n2) (k k))))
+  (origs (n2 (0 0))))
+ + + diff --git a/doc/examples/ffgg.xhtml b/doc/examples/ffgg.xhtml --- a/doc/examples/ffgg.xhtml +++ b/doc/examples/ffgg.xhtml @@ -1,5 +1,5 @@ - + The ffgg Protocol @@ -12,7 +12,7 @@ 
(herald "The ffgg Protocol"
   (comment "From A Necessarily Parallel Attack by Jon K. Millen"))
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from ffgg.scm")

Tree 0.

diff --git a/doc/examples/fnof_test.xhtml b/doc/examples/fnof_test.xhtml --- a/doc/examples/fnof_test.xhtml +++ b/doc/examples/fnof_test.xhtml @@ -1,5 +1,5 @@ - + Function constraint test protocol @@ -12,7 +12,7 @@ 
(herald "Function constraint test protocol"
   (comment "Skeletons 2, 4, and 7 should have no shapes."))
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from fnof_test.scm")

Trees: 0 2 3 5 6 8 10.

diff --git a/doc/examples/fnof_yahalom.xhtml b/doc/examples/fnof_yahalom.xhtml --- a/doc/examples/fnof_yahalom.xhtml +++ b/doc/examples/fnof_yahalom.xhtml @@ -1,5 +1,5 @@ - + Yahalom Protocol with Forwarding Removed, using fnof to emulate ltk function @@ -13,7 +13,7 @@ 
(herald
   "Yahalom Protocol with Forwarding Removed, using fnof to emulate ltk function"
   (bound 12))
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from fnof_yahalom.scm")

Trees: 0 4 10 15.

diff --git a/doc/examples/goals.xhtml b/doc/examples/goals.xhtml --- a/doc/examples/goals.xhtml +++ b/doc/examples/goals.xhtml @@ -1,5 +1,5 @@ - + goals @@ -11,7 +11,7 @@ 
(herald goals)
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from goals.scm")

Trees: 0 2 4 6 8 17 19 21 23 26 28 33 41 45 47 49 52 54 57 62 65.

diff --git a/doc/examples/iadh_um.scm b/doc/examples/iadh_um.scm --- a/doc/examples/iadh_um.scm +++ b/doc/examples/iadh_um.scm @@ -28,18 +28,18 @@ (defprotocol iadh-um diffie-hellman (defrole participant - (vars (l e expn) (hl he base) (self peer name) (key n data)) + (vars (l e rndx) (lp ep expt) (self peer name) (key n data)) (trace (recv (enc "cert" (exp (gen) l) self (privk self))) - (recv (enc "cert" hl peer (privk peer))) + (recv (enc "cert" (exp (gen) lp) peer (privk peer))) (send (exp (gen) e)) - (recv he) + (recv (exp (gen) ep)) (send key)) - (fn-of (foo ((hash (exp hl l) (exp he e)) key))) + (fn-of (foo ((hash (exp (gen) (mul l lp)) (exp (gen) (mul e ep))) key))) (uniq-gen e) - (neq (he (gen)))) + (neq (ep (one)))) (defrole ltx-gen - (vars (self name) (l expn)) + (vars (self name) (l rndx)) (trace (send (enc "cert" (exp (gen) l) self (privk self))) (send l)) @@ -51,7 +51,7 @@ ;; Implicit authentication: participants will agree on the resulting key ;; foo(key). Therefore they should agree on the names A and B. (defskeleton iadh-um - (vars (key data) (eA lA eB lB expn) (A B C D name)) + (vars (key data) (eA lA eB lB rndx) (A B C D name)) (defstrand participant 5 (key key) (e eA) (l lA) (self A) (peer C)) (defstrand participant 5 (key key) (e eB) (l lB) (self B) (peer D)) (non-orig lA lB) @@ -62,10 +62,10 @@ ;; Security: (defskeleton iadh-um - (vars (e1 e2 l expn) (hl base) (A B name)) - (defstrand participant 5 (e e1) (l l) (he (exp (gen) e2)) (hl hl) (self A) (peer B)) + (vars (e1 e2 l rndx) (lp expt) (A B name)) + (defstrand participant 5 (e e1) (l l) (ep e2) (lp lp) (self A) (peer B)) (defstrand participant 3 (e e2)) - (deflistener (hash (exp hl l) (exp (gen) (mul e1 e2)))) + (deflistener (hash (exp (gen) (mul l lp)) (exp (gen) (mul e1 e2)))) (non-orig (privk A) (privk B)) ) diff --git a/doc/examples/iadh_um.xhtml b/doc/examples/iadh_um.xhtml # file too large to diff: doc/examples/iadh_um.xhtml diff --git a/doc/examples/kerb.scm b/doc/examples/kerb.scm --- a/doc/examples/kerb.scm +++ b/doc/examples/kerb.scm @@ -1,76 +1,76 @@ -; Flawed and Fixed Kerberos - -; In this example, the initiator is trying to send a private message -; to the responder. Each are presumed to share a long-term private key -; with the key server, which will choose a fresh session key on request -; and encrypt it for both parties. - -; A flaw exists in the protocol intentionally: the initiator will need -; confirmation that the session key is shared between the initiator and -; the partner they specified. - -; This version of the protocol is not modeled properly and misses the flaw. -(defprotocol kerb-flawed basic - (defrole init - (vars (a b s name) (m n text) (k skey)) - (trace - ;; Make the request - (send (cat a b n)) - ;; Receive the encrypted key and ticket - (recv (cat (enc k n (ltk a s)) (enc k a b (ltk b s)))) - (send (cat (enc m k) (enc k a b (ltk b s))))) - (uniq-orig n)) - (defrole resp - (vars (a b s name) (m text) (k skey)) - (trace - (recv (cat (enc m k) (enc k a b (ltk b s)))))) - (defrole keyserv - (vars (a b s name) (m n text) (k skey)) - (trace - ;; Receive the request - (recv (cat a b n)) - ;; Send the encrypted key and ticket - (send (cat (enc k n (ltk a s)) (enc k a b (ltk b s))))) - (uniq-orig k)) -) - -; This skeleton should be dead, even though m can leak -(defskeleton kerb-flawed - (vars (a b s name) (m text)) - (defstrand init 3 (a a) (b b) (s s) (m m)) - (deflistener m) - (non-orig (ltk a s) (ltk b s)) - (uniq-orig m)) - -; This version of the protocol is not modeled properly, with a generic variable (ticket) -(defprotocol kerb-flawed2 basic - (defrole init - (vars (a b s name) (ticket mesg) (m n text) (k skey)) - (trace - ;; Make the request - (send (cat a b n)) - ;; Receive the encrypted key and ticket - (recv (cat (enc k n (ltk a s)) ticket)) - (send (cat (enc m k) ticket))) - (uniq-orig n)) - (defrole resp - (vars (a b s name) (m text) (k skey)) - (trace - (recv (cat (enc m k) (enc k a b (ltk b s)))))) - (defrole keyserv - (vars (a b s name) (m n text) (k skey)) - (trace - ;; Receive the request - (recv (cat a b n)) - ;; Send the encrypted key and ticket - (send (cat (enc k n (ltk a s)) (enc k a b (ltk b s))))) - (uniq-orig k)) -) - -; This skeleton should have a shape, demonstrating that m may be leaked. -(defskeleton kerb-flawed2 - (vars (a b s name) (m text)) - (defstrand init 3 (a a) (b b) (s s) (m m)) - (deflistener m) - (non-orig (ltk a s) (ltk b s)) - (uniq-orig m)) +; Flawed and Fixed Kerberos + +; In this example, the initiator is trying to send a private message +; to the responder. Each are presumed to share a long-term private key +; with the key server, which will choose a fresh session key on request +; and encrypt it for both parties. + +; A flaw exists in the protocol intentionally: the initiator will need +; confirmation that the session key is shared between the initiator and +; the partner they specified. + +; This version of the protocol is not modeled properly and misses the flaw. +(defprotocol kerb-flawed basic + (defrole init + (vars (a b s name) (m n text) (k skey)) + (trace + ;; Make the request + (send (cat a b n)) + ;; Receive the encrypted key and ticket + (recv (cat (enc k n (ltk a s)) (enc k a b (ltk b s)))) + (send (cat (enc m k) (enc k a b (ltk b s))))) + (uniq-orig n)) + (defrole resp + (vars (a b s name) (m text) (k skey)) + (trace + (recv (cat (enc m k) (enc k a b (ltk b s)))))) + (defrole keyserv + (vars (a b s name) (m n text) (k skey)) + (trace + ;; Receive the request + (recv (cat a b n)) + ;; Send the encrypted key and ticket + (send (cat (enc k n (ltk a s)) (enc k a b (ltk b s))))) + (uniq-orig k)) +) + +; This skeleton should be dead, even though m can leak +(defskeleton kerb-flawed + (vars (a b s name) (m text)) + (defstrand init 3 (a a) (b b) (s s) (m m)) + (deflistener m) + (non-orig (ltk a s) (ltk b s)) + (uniq-orig m)) + +; This version of the protocol is modeled properly, with a generic variable (ticket) +(defprotocol kerb-flawed2 basic + (defrole init + (vars (a b s name) (ticket mesg) (m n text) (k skey)) + (trace + ;; Make the request + (send (cat a b n)) + ;; Receive the encrypted key and ticket + (recv (cat (enc k n (ltk a s)) ticket)) + (send (cat (enc m k) ticket))) + (uniq-orig n)) + (defrole resp + (vars (a b s name) (m text) (k skey)) + (trace + (recv (cat (enc m k) (enc k a b (ltk b s)))))) + (defrole keyserv + (vars (a b s name) (m n text) (k skey)) + (trace + ;; Receive the request + (recv (cat a b n)) + ;; Send the encrypted key and ticket + (send (cat (enc k n (ltk a s)) (enc k a b (ltk b s))))) + (uniq-orig k)) +) + +; This skeleton should have a shape, demonstrating that m may be leaked. +(defskeleton kerb-flawed2 + (vars (a b s name) (m text)) + (defstrand init 3 (a a) (b b) (s s) (m m)) + (deflistener m) + (non-orig (ltk a s) (ltk b s)) + (uniq-orig m)) diff --git a/doc/examples/kerb.xhtml b/doc/examples/kerb.xhtml --- a/doc/examples/kerb.xhtml +++ b/doc/examples/kerb.xhtml @@ -1,5 +1,5 @@ - + kerb-flawed @@ -10,7 +10,7 @@ -
(comment "CPSA 3.4.0")
+
(comment "CPSA 3.5.0")
 (comment "All input read from kerb.scm")

 
 
Trees: 0 5.

diff --git a/doc/examples/lt_test.xhtml b/doc/examples/lt_test.xhtml
--- a/doc/examples/lt_test.xhtml
+++ b/doc/examples/lt_test.xhtml
@@ -1,5 +1,5 @@
 
-
+
 
 
  Less-than constraint test protocol
@@ -13,7 +13,7 @@
 
(herald "Less-than constraint test protocol"
   (comment "First and third skeletons should have a shape,"
     "second and fourth should be dead."))
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from lt_test.scm")

 
 
Trees: 0 2 3 5.

diff --git a/doc/examples/neq_test.xhtml b/doc/examples/neq_test.xhtml
--- a/doc/examples/neq_test.xhtml
+++ b/doc/examples/neq_test.xhtml
@@ -1,5 +1,5 @@
 
-
+
 
 
  Inequality constraint test protocol
@@ -13,7 +13,7 @@
 
(herald "Inequality constraint test protocol"
   (comment "First skeleton should have a shape,"
     "second, and hird should be dead."))
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from neq_test.scm")

 
 
Trees: 0 2 3.

diff --git a/doc/examples/ns.xhtml b/doc/examples/ns.xhtml
--- a/doc/examples/ns.xhtml
+++ b/doc/examples/ns.xhtml
@@ -1,5 +1,5 @@
 
-
+
 
 
  Needham-Schroeder Public-Key Protocol
@@ -13,7 +13,7 @@
 
(herald "Needham-Schroeder Public-Key Protocol"
   (comment "This protocol contains a man-in-the-middle"
     "attack discovered by Galvin Lowe."))
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from ns.scm")

 
 
Trees: 0 3.

diff --git a/doc/examples/or.xhtml b/doc/examples/or.xhtml
--- a/doc/examples/or.xhtml
+++ b/doc/examples/or.xhtml
@@ -1,5 +1,5 @@
 
-
+
 
 
  Otway-Rees Protocol
@@ -12,7 +12,7 @@
 
 
(herald "Otway-Rees Protocol"
   (comment "Standard version using variables of sort mesg"))
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from or.scm")

 
 
Tree 0.

diff --git a/doc/examples/pkinit.xhtml b/doc/examples/pkinit.xhtml
--- a/doc/examples/pkinit.xhtml
+++ b/doc/examples/pkinit.xhtml
@@ -1,5 +1,5 @@
 
-
+
 
 
  Kerberos PKINIT
@@ -11,7 +11,7 @@
 
 
 
(herald "Kerberos PKINIT")
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from pkinit.scm")

 
 
Trees: 0 2 8 13 16 23.

diff --git a/doc/examples/plaindh.scm b/doc/examples/plaindh.scm
--- a/doc/examples/plaindh.scm
+++ b/doc/examples/plaindh.scm
@@ -4,22 +4,21 @@
 
 (defprotocol plaindh diffie-hellman
   (defrole init
-    (vars (x expn) (h base) (n text))
-    (trace (send (exp (gen) x)) 
-           (recv h) 
-           (send (enc n (exp h x)))
+    (vars (x rndx) (y expt) (n text))
+    (trace (send (exp (gen) x))
+           (recv (exp (gen) y))
+           (send (enc n (exp (gen) (mul x y))))
            (recv n))
     (uniq-orig n)
     (uniq-gen x))
   (defrole resp
-    (vars (y expn) (h base) (n text))
-    (trace (recv h) 
-           (send (exp (gen) y)) 
-           (recv (enc n (exp h y)))
+    (vars (y rndx) (x expt) (n text))
+    (trace (recv (exp (gen) x))
+           (send (exp (gen) y))
+           (recv (enc n (exp (gen) (mul x y))))
            (send n))
     (uniq-gen y))
   (comment "Diffie-hellman key exchange followed by an encryption"))
-
 
 (defskeleton plaindh
   (vars )
diff --git a/doc/examples/plaindh.xhtml b/doc/examples/plaindh.xhtml
--- a/doc/examples/plaindh.xhtml
+++ b/doc/examples/plaindh.xhtml
@@ -1,25183 +1,91 @@
 
-
-
-
- Plain diffie-hellman protocol with challenge-response
- 
- 
-
-
-
-
(herald "Plain diffie-hellman protocol with challenge-response"
-  (algebra diffie-hellman))
-(comment "CPSA 3.4.0")
-(comment "All input read from plaindh.scm")

-
-
Tree 0.

-
-

- 
-  232
-  
-  194
-  
-  231
-  
-  193
-  
-  230
-  
-  192
-  
-  191
-  
-  124
-  
-  190
-  
-  229
-  
-  189
-  
-  228
-  
-  188
-  
-  123
-  
-  227
-  
-  187
-  
-  226
-  
-  186
-  
-  225
-  
-  185
-  
-  184
-  
-  122
-  
-  224
-  
-  183
-  
-  223
-  
-  182
-  
-  181
-  
-  121
-  
-  222
-  
-  180
-  
-  221
-  
-  179
-  
-  178
-  
-  120
-  
-  85
-  
-  84
-  
-  83
-  
-  82
-  
-  81
-  
-  80
-  
-  28
-  
-  220
-  
-  177
-  
-  219
-  
-  176
-  
-  218
-  
-  175
-  
-  174
-  
-  119
-  
-  217
-  
-  173
-  
-  216
-  
-  172
-  
-  215
-  
-  171
-  
-  170
-  
-  118
-  
-  169
-  
-  214
-  
-  168
-  
-  213
-  
-  167
-  
-  117
-  
-  212
-  
-  166
-  
-  211
-  
-  165
-  
-  164
-  
-  116
-  
-  210
-  
-  163
-  
-  209
-  
-  162
-  
-  161
-  
-  115
-  
-  79
-  
-  78
-  
-  77
-  
-  76
-  
-  75
-  
-  74
-  
-  27
-  
-  114
-  
-  73
-  
-  26
-  
-  208
-  
-  160
-  
-  207
-  
-  159
-  
-  158
-  
-  113
-  
-  206
-  
-  157
-  
-  205
-  
-  156
-  
-  155
-  
-  112
-  
-  154
-  
-  204
-  
-  153
-  
-  203
-  
-  152
-  
-  111
-  
-  151
-  
-  202
-  
-  150
-  
-  201
-  
-  149
-  
-  110
-  
-  72
-  
-  71
-  
-  70
-  
-  109
-  
-  69
-  
-  68
-  
-  25
-  
-  12
-  
-  67
-  
-  108
-  
-  66
-  
-  65
-  
-  64
-  
-  63
-  
-  24
-  
-  11
-  
-  62
-  
-  61
-  
-  107
-  
-  60
-  
-  59
-  
-  58
-  
-  23
-  
-  10
-  
-  22
-  
-  9
-  
-  57
-  
-  56
-  
-  106
-  
-  55
-  
-  105
-  
-  54
-  
-  21
-  
-  8
-  
-  2
-  
-  148
-  
-  104
-  
-  147
-  
-  103
-  
-  200
-  
-  146
-  
-  199
-  
-  145
-  
-  144
-  
-  102
-  
-  143
-  
-  101
-  
-  142
-  
-  100
-  
-  141
-  
-  99
-  
-  53
-  
-  52
-  
-  20
-  
-  140
-  
-  98
-  
-  198
-  
-  139
-  
-  197
-  
-  138
-  
-  137
-  
-  97
-  
-  136
-  
-  96
-  
-  135
-  
-  95
-  
-  134
-  
-  94
-  
-  133
-  
-  93
-  
-  51
-  
-  50
-  
-  19
-  
-  114
-  
-  132
-  
-  92
-  
-  49
-  
-  18
-  
-  131
-  
-  91
-  
-  130
-  
-  196
-  
-  129
-  
-  195
-  
-  128
-  
-  90
-  
-  127
-  
-  89
-  
-  126
-  
-  88
-  
-  125
-  
-  87
-  
-  48
-  
-  47
-  
-  17
-  
-  7
-  
-  46
-  
-  45
-  
-  44
-  
-  43
-  
-  42
-  
-  41
-  
-  16
-  
-  6
-  
-  40
-  
-  39
-  
-  38
-  
-  37
-  
-  36
-  
-  35
-  
-  15
-  
-  5
-  
-  34
-  
-  14
-  
-  4
-  
-  33
-  
-  86
-  
-  32
-  
-  31
-  
-  30
-  
-  29
-  
-  13
-  
-  3
-  
-  1
-  
-  0
-  

-
-
(defprotocol plaindh diffie-hellman
-  (defrole init
-    (vars (x expn) (h base) (n text))
-    (trace (send (exp (gen) x)) (recv h) (send (enc n (exp h x)))
-      (recv n))
-    (uniq-orig n)
-    (uniq-gen x))
-  (defrole resp
-    (vars (y expn) (h base) (n text))
-    (trace (recv h) (send (exp (gen) y)) (recv (enc n (exp h y)))
-      (send n))
-    (uniq-gen y)
-    (absent (y h)))
-  (comment "Diffie-hellman key exchange followed by an encryption"))

-
-
Item 0, Children: 1 2.

-
-

- 
-  
-   
-    
-   
-  
-  n
-   
-  (enc n (exp h x))
-   
-  h
-   
-  (exp (gen) x)
-   
-  ((n n) (h h) (x x))
-   init
-   
-  plaindh 0
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn))
-  (defstrand init 4 (n n) (h h) (x x))
-  (uniq-gen x)
-  (uniq-orig n)
-  (label 0)
-  (unrealized (0 3))
-  (origs (n (0 2)))
-  (comment "2 in cohort - 2 not yet seen"))

-
-
Item 1, Parent: 0, Children: 3 4 5 6 7.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  n
-  (enc n (exp h (mul x y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp h x)
-   
-  n
-   
-  
-  (enc n (exp h (mul x y)))
-   
-  (exp h y)
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp h x)) (y y))
-   resp
-   
-  ((n n) (h (exp h y)) (x x))
-   init
-   
-  plaindh 1
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp h y)) (x x))
-  (defstrand resp 4 (n n) (h (exp h x)) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3)))
-  (absent (y (exp h x)))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 4) n (0 3)
-    (enc n (exp h (mul x y))))
-  (label 1)
-  (parent 0)
-  (unrealized (0 1) (1 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 2, Parent: 0, Children: 8 9 10 11 12.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  (exp h x)
-   
-  (exp h x)
-   
-  n
-   
-  (enc n (exp h x))
-   
-  h
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h h) (x x))
-   init
-   
-  plaindh 2
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn))
-  (defstrand init 4 (n n) (h h) (x x))
-  (deflistener (exp h x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 3)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener (exp h x)) n (0 3)
-    (enc n (exp h x)))
-  (label 2)
-  (parent 0)
-  (unrealized (1 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 3, Parent: 1, Child: 13.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  n
-  (enc n (exp (gen) y))
-   
-  
-  (exp (gen) y)
-   
-  (gen)
-   
-  n
-   
-  
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (gen)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 3
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3)))
-  (absent (y (gen)))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (h (exp (gen) (rec x)))) (gen)
-    (1 0))
-  (label 3)
-  (parent 1)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 4, Parent: 1, Child: 14.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  n
-  (enc n (exp (gen) (mul y x)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) x)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y x)))
-   
-  (exp (gen) y)
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) x)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) y)) (x x))
-   init
-   
-  plaindh 4 (realized)

-
-
(defskeleton plaindh
-  (vars (n text) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3)))
-  (absent (y (exp (gen) x)))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 2 0 init 1) (exp (gen) x-0) (1 0))
-  (label 4)
-  (parent 1)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 5, Parent: 1, Child: 15.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  n
-  (enc n (exp (gen) (mul y x-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y x-0)))
-   
-  (exp (gen) (mul (rec x) y x-0))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) x-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-   init
-   
-  plaindh 5
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 0) (1 0)))
-  (absent (y (exp (gen) x-0)))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
-  (label 5)
-  (parent 1)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 6, Parent: 1, Child: 16.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  n
-  (enc n (exp (gen) (mul y y-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y y-0)))
-   
-  (exp (gen) (mul (rec x) y y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) y-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-   init
-   
-  plaindh 6
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (1 0))
-  (label 6)
-  (parent 1)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 7, Parent: 1, Children: 17 18 19 20.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp h (mul x (rec w))) w)
-   
-  (cat (exp h (mul x (rec w))) w)
-   
-  
-  n
-  (enc n (exp h (mul x y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp h x)
-   
-  n
-   
-  
-  (enc n (exp h (mul x y)))
-   
-  (exp h y)
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp h x)) (y y))
-   resp
-   
-  ((n n) (h (exp h y)) (x x))
-   init
-   
-  plaindh 7
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr))
-  (defstrand init 4 (n n) (h (exp h y)) (x x))
-  (defstrand resp 4 (n n) (h (exp h x)) (y y))
-  (deflistener (cat (exp h (mul x (rec w))) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)))
-  (absent (y (exp h x)))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (added-listener (cat (exp h (mul x (rec w))) w))
-    (exp h x) (1 0))
-  (label 7)
-  (parent 1)
-  (unrealized (0 1) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))

-
-
Item 8, Parent: 2, Child: 21.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  (gen)
-   
-  (gen)
-   
-  n
-   
-  (enc n (gen))
-   
-  (exp (gen) (rec x))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (rec x))) (x x))
-   init
-   
-  plaindh 8
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (precedes ((0 0) (1 0)) ((1 1) (0 3)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (h (exp (gen) (rec x)))) (gen)
-    (1 0))
-  (label 8)
-  (parent 2)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 9, Parent: 2, Child: 22.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  (exp (gen) x)
-   
-  (exp (gen) x)
-   
-  n
-   
-  (enc n (exp (gen) x))
-   
-  (gen)
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (gen)) (x x))
-   init
-   
-  plaindh 9 (realized)

-
-
(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (gen)) (x x))
-  (deflistener (exp (gen) x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 3)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 2 0 init 1) (exp (gen) x-0) (1 0))
-  (label 9)
-  (parent 2)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 10, Parent: 2, Child: 23.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (exp (gen) x-0)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  (enc n (exp (gen) x-0))
-   
-  (exp (gen) (mul (rec x) x-0))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-   init
-   
-  plaindh 10
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 3)) ((2 0) (0 1)) ((2 0) (1 0)))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
-  (label 10)
-  (parent 2)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 11, Parent: 2, Child: 24.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  n
-   
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 11
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 3)) ((2 1) (0 1)) ((2 1) (1 0)))
-  (absent (y h))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (1 0))
-  (label 11)
-  (parent 2)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 12, Parent: 2, Children: 25 26 27 28.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp h (mul x (rec w))) w)
-   
-  (cat (exp h (mul x (rec w))) w)
-   
-  
-  (exp h x)
-   
-  (exp h x)
-   
-  n
-   
-  (enc n (exp h x))
-   
-  h
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h h) (x x))
-   init
-   
-  plaindh 12
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr))
-  (defstrand init 4 (n n) (h h) (x x))
-  (deflistener (exp h x))
-  (deflistener (cat (exp h (mul x (rec w))) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (added-listener (cat (exp h (mul x (rec w))) w))
-    (exp h x) (1 0))
-  (label 12)
-  (parent 2)
-  (unrealized (2 0))
-  (comment "4 in cohort - 4 not yet seen"))

-
-
Item 13, Parent: 3, Children: 29 30 31 32 33.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp (gen) (mul (rec x) y (rec w))) w)
-   
-  (cat (exp (gen) (mul (rec x) y (rec w))) w)
-   
-  
-  n
-  (enc n (exp (gen) y))
-   
-  
-  (exp (gen) y)
-   
-  (gen)
-   
-  n
-   
-  
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (gen)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 13
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) (mul (rec x) y (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (0 1)))
-  (absent (y (gen)))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y (rec w))) w))
-    (exp (gen) (mul (rec x) y)) (0 1))
-  (label 13)
-  (parent 3)
-  (unrealized (2 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 14, Parent: 4, Child: 34.

-
-

- 
-  
-   
-    
-   
-  
-  n
-   
-  (enc n (exp (gen) (mul y x)))
-   
-  (exp (gen) y)
-   
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) y)) (x x))
-   init
-   
-  plaindh 14 (realized)

-
-
(defskeleton plaindh
-  (vars (n text) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (absent (y (exp (gen) x)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization deleted (1 0))
-  (label 14)
-  (parent 4)
-  (unrealized)
-  (origs (n (0 2)))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 15, Parent: 5, Children: 35 36 37 38 39 40.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w)
-   
-  (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w)
-   
-  
-  (exp (gen) x-0)
-   
-  
-  n
-  (enc n (exp (gen) (mul y x-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y x-0)))
-   
-  (exp (gen) (mul (rec x) y x-0))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) x-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-   init
-   
-  plaindh 15
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y x-0 expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 0) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w))
-    (exp (gen) (mul (rec x) y x-0)) (0 1))
-  (label 15)
-  (parent 5)
-  (unrealized (3 0))
-  (comment "6 in cohort - 6 not yet seen"))

-
-
Item 16, Parent: 6, Children: 41 42 43 44 45 46.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w)
-   
-  (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w)
-   
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  n
-  (enc n (exp (gen) (mul y y-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y y-0)))
-   
-  (exp (gen) (mul (rec x) y y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) y-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-   init
-   
-  plaindh 16
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w))
-    (exp (gen) (mul (rec x) y y-0)) (0 1))
-  (label 16)
-  (parent 6)
-  (unrealized (3 0))
-  (comment "6 in cohort - 6 not yet seen"))

-
-
Item 17, Parent: 7, Children: 47 48.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  n
-  (enc n (exp (gen) (mul y w)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) w)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y w)))
-   
-  (exp (gen) (mul (rec x) y w))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) w)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y w))) (x x))
-   init
-   
-  plaindh 17
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y w))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)))
-  (absent (y (exp (gen) w)))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (contracted (h (exp (gen) (mul (rec x) w))))
-    (gen) (2 0))
-  (label 17)
-  (parent 7)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))

-
-
Item 18, Parent: 7, Child: 49.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp (gen) x) w)
-   
-  (cat (exp (gen) x) w)
-   
-  
-  n
-  (enc n (exp (gen) (mul y w x)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul w x))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y w x)))
-   
-  (exp (gen) (mul y w))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul w x))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul y w))) (x x))
-   init
-   
-  plaindh 18 (realized)

-
-
(defskeleton plaindh
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y w))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (label 18)
-  (parent 7)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 19, Parent: 7, Children: 50 51.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) w)
-   
-  (cat (exp (gen) x-0) w)
-   
-  
-  n
-  (enc n (exp (gen) (mul y w x-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul w x-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y w x-0)))
-   
-  (exp (gen) (mul (rec x) y w x-0))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x-0))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y w x-0))) (x x))
-   init
-   
-  plaindh 19
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y w x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)))
-  (absent (y (exp (gen) (mul w x-0))))
-  (precur (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (label 19)
-  (parent 7)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))

-
-
Item 20, Parent: 7, Children: 52 53.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  (cat (exp (gen) y-0) w)
-   
-  (cat (exp (gen) y-0) w)
-   
-  
-  n
-  (enc n (exp (gen) (mul y w y-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul w y-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y w y-0)))
-   
-  (exp (gen) (mul (rec x) y w y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y-0))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y w y-0))) (x x))
-   init
-   
-  plaindh 20
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y w y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y-0 h) (y (exp (gen) (mul w y-0))))
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (2 0))
-  (label 20)
-  (parent 7)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))

-
-
Item 21, Parent: 8, Children: 54 55 56 57.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp (gen) (mul (rec x) (rec w))) w)
-   
-  (cat (exp (gen) (mul (rec x) (rec w))) w)
-   
-  
-  (gen)
-   
-  (gen)
-   
-  n
-   
-  (enc n (gen))
-   
-  (exp (gen) (rec x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (rec x))) (x x))
-   init
-   
-  plaindh 21
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) (mul (rec x) (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (0 1)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) (rec w))) w))
-    (exp (gen) (rec x)) (0 1))
-  (label 21)
-  (parent 8)
-  (unrealized (2 0))
-  (comment "4 in cohort - 4 not yet seen"))

-
-
Item 22, Parent: 9.

-
-

- 
-  
-   
-    
-   
-  
-  n
-   
-  (enc n (exp (gen) x))
-   
-  (gen)
-   
-  (exp (gen) x)
-   
-  ((n n) (h (gen)) (x x))
-   init
-   
-  plaindh 22 (realized)

-
-
(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (gen)) (x x))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization deleted (1 0))
-  (label 22)
-  (parent 9)
-  (unrealized)
-  (shape)
-  (maps ((0) ((x x) (h (gen)) (n n))))
-  (origs (n (0 2))))

-
-
Item 23, Parent: 10, Children: 58 59 60 61 62.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul (rec x) x-0 (rec w))) w)
-   
-  (cat (exp (gen) (mul (rec x) x-0 (rec w))) w)
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (exp (gen) x-0)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  (enc n (exp (gen) x-0))
-   
-  (exp (gen) (mul (rec x) x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-   init
-   
-  plaindh 23
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) x-0 (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 0) (1 0))
-    ((2 0) (3 0)) ((3 1) (0 1)))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) x-0 (rec w))) w))
-    (exp (gen) (mul (rec x) x-0)) (0 1))
-  (label 23)
-  (parent 10)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 24, Parent: 11, Children: 63 64 65 66 67.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul (rec x) y (rec w))) w)
-   
-  (cat (exp (gen) (mul (rec x) y (rec w))) w)
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  n
-   
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 24
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) (mul (rec x) y (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((2 1) (3 0)) ((3 1) (0 1)))
-  (absent (y h))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y (rec w))) w))
-    (exp (gen) (mul (rec x) y)) (0 1))
-  (label 24)
-  (parent 11)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 25, Parent: 12, Children: 68 69 70 71 72.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  n
-   
-  (enc n (exp (gen) w))
-   
-  (exp (gen) (mul (rec x) w))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul (rec x) w))) (x x))
-   init
-   
-  plaindh 25
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) w))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (contracted (h (exp (gen) (mul (rec x) w))))
-    (gen) (2 0))
-  (label 25)
-  (parent 12)
-  (unrealized (0 1))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 26, Parent: 12, Child: 73.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp (gen) x) w)
-   
-  (cat (exp (gen) x) w)
-   
-  
-  (exp (gen) (mul w x))
-   
-  (exp (gen) (mul w x))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x)))
-   
-  (exp (gen) w)
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 26 (realized)

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)))
-  (precur (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (label 26)
-  (parent 12)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 27, Parent: 12, Children: 74 75 76 77 78 79.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) w)
-   
-  (cat (exp (gen) x-0) w)
-   
-  
-  (exp (gen) (mul w x-0))
-   
-  (exp (gen) (mul w x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x-0)))
-   
-  (exp (gen) (mul (rec x) w x-0))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul (rec x) w x-0))) (x x))
-   init
-   
-  plaindh 27
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) w x-0))) (x x))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 0) (0 1))
-    ((3 0) (2 0)))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (label 27)
-  (parent 12)
-  (unrealized (0 1))
-  (comment "6 in cohort - 6 not yet seen"))

-
-
Item 28, Parent: 12, Children: 80 81 82 83 84 85.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) w)
-   
-  (cat (exp (gen) y) w)
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  n
-   
-  (enc n (exp (gen) (mul w y)))
-   
-  (exp (gen) (mul (rec x) w y))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) w y))) (x x))
-   init
-   
-  plaindh 28
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) w y))) (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (2 0))
-  (label 28)
-  (parent 12)
-  (unrealized (0 1))
-  (comment "6 in cohort - 6 not yet seen"))

-
-
Item 29, Parent: 13.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (gen) (mul (rec x) y))
-   
-  (cat (gen) (mul (rec x) y))
-   
-  
-  n
-  (enc n (exp (gen) y))
-   
-  
-  (exp (gen) y)
-   
-  (gen)
-   
-  n
-   
-  
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (gen)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 29
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (gen) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (0 1)))
-  (absent (y (gen)))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul (rec x) y)))
-    (gen) (2 0))
-  (label 29)
-  (parent 13)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))

-
-
Item 30, Parent: 13.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp (gen) x) (mul y (rec x) (rec x)))
-   
-  (cat (exp (gen) x) (mul y (rec x) (rec x)))
-   
-  
-  n
-  (enc n (exp (gen) y))
-   
-  
-  (exp (gen) y)
-   
-  (gen)
-   
-  n
-   
-  
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul y (rec x)))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (gen)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul y (rec x)))) (x x))
-   init
-   
-  plaindh 30
-  

-
-
(defskeleton plaindh
-  (vars (n text) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x) (rec x))))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (0 1)))
-  (absent (y (gen)))
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (label 30)
-  (parent 13)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))

-
-
Item 31, Parent: 13.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))
-   
-  
-  n
-  (enc n (exp (gen) y))
-   
-  
-  (exp (gen) y)
-   
-  (gen)
-   
-  n
-   
-  
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (gen)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 31
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (0 1)) ((3 0) (2 0)))
-  (absent (y (gen)))
-  (precur (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (label 31)
-  (parent 13)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))

-
-
Item 32, Parent: 13, Child: 86.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp (gen) y) (rec x))
-   
-  (cat (exp (gen) y) (rec x))
-   
-  
-  n
-  (enc n (exp (gen) y))
-   
-  
-  (exp (gen) y)
-   
-  (gen)
-   
-  n
-   
-  
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (gen)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 32
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (0 1)))
-  (absent (y (gen)))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-0) (2 0))
-  (label 32)
-  (parent 13)
-  (unrealized (0 1) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 33, Parent: 13.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))
-   
-  (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))
-   
-  
-  n
-  (enc n (exp (gen) y))
-   
-  
-  (exp (gen) y)
-   
-  (gen)
-   
-  n
-   
-  
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((n n) (h (gen)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 33
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (0 1)) ((3 1) (2 0)))
-  (absent (y-0 h) (y (gen)))
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (2 0))
-  (label 33)
-  (parent 13)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))

-
-
Item 34, Parent: 14.

-
-

- 
-  
-   
-    
-   
-  
-  n
-   
-  (enc n (exp (gen) (mul y x)))
-   
-  (exp (gen) y)
-   
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) y)) (x x))
-   init
-   
-  plaindh 34 (realized)

-
-
(defskeleton plaindh
-  (vars (n text) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization forgot y)
-  (label 34)
-  (parent 14)
-  (unrealized)
-  (shape)
-  (maps ((0) ((x x) (h (exp (gen) y)) (n n))))
-  (origs (n (0 2))))

-
-
Item 35, Parent: 15.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (gen) (mul (rec x) y x-0))
-   
-  (cat (gen) (mul (rec x) y x-0))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  n
-  (enc n (exp (gen) (mul y x-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y x-0)))
-   
-  (exp (gen) (mul (rec x) y x-0))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) x-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-   init
-   
-  plaindh 35
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul (rec x) y x-0)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 0) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (contracted (x-1 x) (y-0 y) (x-2 x-0) (w (mul (rec x) y x-0))) (gen)
-    (3 0))
-  (label 35)
-  (parent 15)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 36, Parent: 15.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0)))
-   
-  
-  (exp (gen) x)
-   
-  
-  n
-  (enc n (exp (gen) (mul y x)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) x)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y x)))
-   
-  (exp (gen) (mul y x (rec x-0)))
-   
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) x)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul y x (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 36
-  

-
-
(defskeleton plaindh
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (defstrand resp 4 (n n) (h (exp (gen) x)) (y y))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 0) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (precur (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-1) (3 0))
-  (label 36)
-  (parent 15)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 37, Parent: 15.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) (mul (rec x) y))
-   
-  (cat (exp (gen) x-0) (mul (rec x) y))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  n
-  (enc n (exp (gen) (mul y x-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y x-0)))
-   
-  (exp (gen) (mul (rec x) y x-0))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) x-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-   init
-   
-  plaindh 37
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 0) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (precur (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 2 init 1) (exp (gen) x-1) (3 0))
-  (label 37)
-  (parent 15)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 38, Parent: 15.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) (mul (rec x) y x-0 (rec x-1)))
-   
-  (cat (exp (gen) x-1) (mul (rec x) y x-0 (rec x-1)))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  n
-  (enc n (exp (gen) (mul y x-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y x-0)))
-   
-  (exp (gen) (mul (rec x) y x-0))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-1))
-   init
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) x-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-   init
-   
-  plaindh 38
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul (rec x) y x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 0) (1 0)) ((3 1) (0 1)) ((4 0) (3 0)))
-  (absent (y (exp (gen) x-0)))
-  (precur (3 0))
-  (uniq-gen x y x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (3 0))
-  (label 38)
-  (parent 15)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 39, Parent: 15.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) (mul (rec x) x-0))
-   
-  (cat (exp (gen) y) (mul (rec x) x-0))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  n
-  (enc n (exp (gen) (mul x-0 y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x-0 y)))
-   
-  (exp (gen) (mul (rec x) x-0 y))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) x-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) x-0 y))) (x x))
-   init
-   
-  plaindh 39
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0 y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 0) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (precur (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
-  (label 39)
-  (parent 15)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 40, Parent: 15.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  (cat (exp (gen) y-0) (mul (rec x) y x-0 (rec y-0)))
-   
-  (cat (exp (gen) y-0) (mul (rec x) y x-0 (rec y-0)))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  n
-  (enc n (exp (gen) (mul y x-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y x-0)))
-   
-  (exp (gen) (mul (rec x) y x-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) x-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-   init
-   
-  plaindh 40
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y x-0 y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y x-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 0) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y-0 h) (y (exp (gen) x-0)))
-  (precur (3 0))
-  (uniq-gen x y x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (label 40)
-  (parent 15)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 41, Parent: 16.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (gen) (mul (rec x) y y-0))
-   
-  (cat (gen) (mul (rec x) y y-0))
-   
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  n
-  (enc n (exp (gen) (mul y y-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y y-0)))
-   
-  (exp (gen) (mul (rec x) y y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) y-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-   init
-   
-  plaindh 41
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul (rec x) y y-0)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y) (y-2 y-0) (w (mul (rec x) y y-0))) (gen)
-    (3 0))
-  (label 41)
-  (parent 16)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 42, Parent: 16.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) (mul y y-0 (rec x) (rec x)))
-   
-  (cat (exp (gen) x) (mul y y-0 (rec x) (rec x)))
-   
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  n
-  (enc n (exp (gen) (mul y y-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y y-0)))
-   
-  (exp (gen) (mul y y-0 (rec x)))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) y-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul y y-0 (rec x)))) (x x))
-   init
-   
-  plaindh 42
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y y-0 x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y y-0 (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul y y-0 (rec x) (rec x))))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (precur (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (label 42)
-  (parent 16)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 43, Parent: 16.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul (rec x) y y-0 (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul (rec x) y y-0 (rec x-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  n
-  (enc n (exp (gen) (mul y y-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y y-0)))
-   
-  (exp (gen) (mul (rec x) y y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) y-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-   init
-   
-  plaindh 43
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y y-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 0) (3 0)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (precur (3 0))
-  (uniq-gen x y y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (label 43)
-  (parent 16)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 44, Parent: 16.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) y-0) (mul (rec x) y))
-   
-  (cat (exp (gen) y-0) (mul (rec x) y))
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  n
-  (enc n (exp (gen) (mul y y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) y)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y y-0)))
-   
-  (exp (gen) (mul (rec x) y y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) y)) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-   init
-   
-  plaindh 44
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y)) (y y-0))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y-0 (exp (gen) y)) (y h))
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-1) (3 0))
-  (label 44)
-  (parent 16)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 45, Parent: 16.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) y-0) (mul (rec x) y))
-   
-  (cat (exp (gen) y-0) (mul (rec x) y))
-   
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  n
-  (enc n (exp (gen) (mul y y-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y y-0)))
-   
-  (exp (gen) (mul (rec x) y y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) y-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-   init
-   
-  plaindh 45
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 2 resp 2) (exp (gen) y-1) (3 0))
-  (label 45)
-  (parent 16)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 46, Parent: 16.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) y-1)
-   
-  h-0
-   
-  
-  (cat (exp (gen) y-1) (mul (rec x) y y-0 (rec y-1)))
-   
-  (cat (exp (gen) y-1) (mul (rec x) y y-0 (rec y-1)))
-   
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  n
-  (enc n (exp (gen) (mul y y-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y y-0)))
-   
-  (exp (gen) (mul (rec x) y y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h-0) (y y-1))
-   resp
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) y-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-   init
-   
-  plaindh 46
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y y-0 y-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul (rec x) y y-0 (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y-1 h-0) (y-0 h) (y (exp (gen) y-0)))
-  (precur (3 0))
-  (uniq-gen x y y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (3 0))
-  (label 46)
-  (parent 16)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 47, Parent: 17.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (gen) x)
-   
-  (cat (gen) x)
-   
-  
-  n
-  (enc n (exp (gen) (mul x y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) x)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x y)))
-   
-  (exp (gen) y)
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) x)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) y)) (x x))
-   init
-   
-  plaindh 47
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x)) (y y))
-  (deflistener (cat (gen) x))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)))
-  (absent (y (exp (gen) x)))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-0) (0 1))
-  (label 47)
-  (parent 17)
-  (unrealized (2 0))
-  (comment "empty cohort"))

-
-
Item 48, Parent: 17, Children: 87 88 89 90 91.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0)
-   
-  (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0)
-   
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  n
-  (enc n (exp (gen) (mul y w)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) w)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y w)))
-   
-  (exp (gen) (mul (rec x) y w))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) w)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y w))) (x x))
-   init
-   
-  plaindh 48
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y expn) (w w-0 expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y w))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y w)) (0 1))
-  (label 48)
-  (parent 17)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 49, Parent: 18, Child: 92.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  (cat (exp (gen) x) w)
-   
-  (cat (exp (gen) x) w)
-   
-  n
-   
-  (enc n (exp (gen) (mul y w x)))
-   
-  (exp (gen) (mul y w))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul y w))) (x x))
-   init
-   
-  plaindh 49 (realized)

-
-
(defskeleton plaindh
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y w))) (x x))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (absent (y (exp (gen) (mul w x))))
-  (precur (1 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization deleted (1 0))
-  (label 49)
-  (parent 18)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 50, Parent: 19.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0)))
-   
-  
-  n
-  (enc n (exp (gen) (mul x y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) x)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x y)))
-   
-  (exp (gen) y)
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) x)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) y)) (x x))
-   init
-   
-  plaindh 50
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)))
-  (absent (y (exp (gen) x)))
-  (precur (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (0 1))
-  (label 50)
-  (parent 19)
-  (unrealized (2 0))
-  (comment "empty cohort"))

-
-
Item 51, Parent: 19, Children: 93 94 95 96 97 98.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0)
-   
-  
-   (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0)
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) w)
-   
-  (cat (exp (gen) x-0) w)
-   
-  
-  n
-  (enc n (exp (gen) (mul y w x-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul w x-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y w x-0)))
-   
-  (exp (gen) (mul (rec x) y w x-0))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x-0))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y w x-0))) (x x))
-   init
-   
-  plaindh 51
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y expn) (w expr) (x-0 expn) (w-0 expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y w x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul w x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener
-      (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y w x-0)) (0 1))
-  (label 51)
-  (parent 19)
-  (unrealized (4 0))
-  (comment "6 in cohort - 6 not yet seen"))

-
-
Item 52, Parent: 20.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y)))
-   
-  (cat (exp (gen) y) (mul x (rec y)))
-   
-  
-  n
-  (enc n (exp (gen) (mul x y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) x)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x y-0)))
-   
-  (exp (gen) y-0)
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) x)) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) y-0)) (x x))
-   init
-   
-  plaindh 52
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x)) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y-0 (exp (gen) x)) (y h))
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-1) (0 1))
-  (label 52)
-  (parent 20)
-  (unrealized (2 0))
-  (comment "empty cohort"))

-
-
Item 53, Parent: 20, Children: 99 100 101 102 103 104.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0)
-   
-  
-   (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0)
-   
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  (cat (exp (gen) y-0) w)
-   
-  (cat (exp (gen) y-0) w)
-   
-  
-  n
-  (enc n (exp (gen) (mul y w y-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul w y-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y w y-0)))
-   
-  (exp (gen) (mul (rec x) y w y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y-0))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y w y-0))) (x x))
-   init
-   
-  plaindh 53
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn) (w-0 expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y w y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) (mul w y-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener
-      (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y w y-0)) (0 1))
-  (label 53)
-  (parent 20)
-  (unrealized (4 0))
-  (comment "6 in cohort - 6 not yet seen"))

-
-
Item 54, Parent: 21, Child: 105.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (gen) (rec x))
-   
-  (cat (gen) (rec x))
-   
-  
-  (gen)
-   
-  (gen)
-   
-  n
-   
-  (enc n (gen))
-   
-  (exp (gen) (rec x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (rec x))) (x x))
-   init
-   
-  plaindh 54
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (rec x)))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (0 1)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (contracted (x-0 x) (w (rec x))) (gen) (2 0))
-  (label 54)
-  (parent 21)
-  (unrealized (0 1) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 55, Parent: 21, Child: 106.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp (gen) x) (mul (rec x) (rec x)))
-   
-  (cat (exp (gen) x) (mul (rec x) (rec x)))
-   
-  
-  (gen)
-   
-  (gen)
-   
-  n
-   
-  (enc n (gen))
-   
-  (exp (gen) (rec x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (rec x))) (x x))
-   init
-   
-  plaindh 55
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (0 1)))
-  (precur (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (label 55)
-  (parent 21)
-  (unrealized (0 1) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 56, Parent: 21.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul (rec x) (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul (rec x) (rec x-0)))
-   
-  
-  (gen)
-   
-  (gen)
-   
-  n
-   
-  (enc n (gen))
-   
-  (exp (gen) (rec x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (rec x))) (x x))
-   init
-   
-  plaindh 56
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (0 1))
-    ((3 0) (2 0)))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (label 56)
-  (parent 21)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))

-
-
Item 57, Parent: 21.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec x) (rec y)))
-   
-  (cat (exp (gen) y) (mul (rec x) (rec y)))
-   
-  
-  (gen)
-   
-  (gen)
-   
-  n
-   
-  (enc n (gen))
-   
-  (exp (gen) (rec x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (rec x))) (x x))
-   init
-   
-  plaindh 57
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) y) (mul (rec x) (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (2 0))
-  (label 57)
-  (parent 21)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))

-
-
Item 58, Parent: 23.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (gen) (mul (rec x) x-0))
-   
-  (cat (gen) (mul (rec x) x-0))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (exp (gen) x-0)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  (enc n (exp (gen) x-0))
-   
-  (exp (gen) (mul (rec x) x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-   init
-   
-  plaindh 58
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul (rec x) x-0)))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 0) (1 0))
-    ((2 0) (3 0)) ((3 1) (0 1)))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w (mul (rec x) x-0))) (gen) (3 0))
-  (label 58)
-  (parent 23)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 59, Parent: 23.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0)))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (exp (gen) x)
-   
-  (exp (gen) x)
-   
-  n
-   
-  (enc n (exp (gen) x))
-   
-  (exp (gen) (mul x (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 59
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) x))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 0) (1 0))
-    ((2 0) (3 0)) ((3 1) (0 1)))
-  (precur (3 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-1) (3 0))
-  (label 59)
-  (parent 23)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 60, Parent: 23, Child: 107.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) (rec x))
-   
-  (cat (exp (gen) x-0) (rec x))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (exp (gen) x-0)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  (enc n (exp (gen) x-0))
-   
-  (exp (gen) (mul (rec x) x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-   init
-   
-  plaindh 60
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (rec x)))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 0) (1 0))
-    ((2 0) (3 0)) ((3 1) (0 1)))
-  (precur (3 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 2 init 1) (exp (gen) x-1) (3 0))
-  (label 60)
-  (parent 23)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 61, Parent: 23.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1)))
-   
-  (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (exp (gen) x-0)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  (enc n (exp (gen) x-0))
-   
-  (exp (gen) (mul (rec x) x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-1))
-   init
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-   init
-   
-  plaindh 61
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 0) (1 0))
-    ((2 0) (3 0)) ((3 1) (0 1)) ((4 0) (3 0)))
-  (precur (3 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (3 0))
-  (label 61)
-  (parent 23)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 62, Parent: 23.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec x) x-0 (rec y)))
-   
-  (cat (exp (gen) y) (mul (rec x) x-0 (rec y)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (exp (gen) x-0)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  (enc n (exp (gen) x-0))
-   
-  (exp (gen) (mul (rec x) x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-   init
-   
-  plaindh 62
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 0) (1 0))
-    ((2 0) (3 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y h))
-  (precur (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (3 0))
-  (label 62)
-  (parent 23)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 63, Parent: 24.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (gen) (mul (rec x) y))
-   
-  (cat (gen) (mul (rec x) y))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  n
-   
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 63
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((2 1) (3 0)) ((3 1) (0 1)))
-  (absent (y h))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul (rec x) y)))
-    (gen) (3 0))
-  (label 63)
-  (parent 24)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 64, Parent: 24.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) (mul y (rec x) (rec x)))
-   
-  (cat (exp (gen) x) (mul y (rec x) (rec x)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  n
-   
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul y (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul y (rec x)))) (x x))
-   init
-   
-  plaindh 64
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x) (rec x))))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((2 1) (3 0)) ((3 1) (0 1)))
-  (absent (y h))
-  (precur (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (label 64)
-  (parent 24)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 65, Parent: 24.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  n
-   
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 65
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((2 1) (3 0)) ((3 1) (0 1)) ((4 0) (3 0)))
-  (absent (y h))
-  (precur (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (label 65)
-  (parent 24)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 66, Parent: 24, Child: 108.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) (rec x))
-   
-  (cat (exp (gen) y) (rec x))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  n
-   
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 66
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((2 1) (3 0)) ((3 1) (0 1)))
-  (absent (y h))
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 2 resp 2) (exp (gen) y-0) (3 0))
-  (label 66)
-  (parent 24)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 67, Parent: 24.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) y-0)
-   
-  h-0
-   
-  
-  (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))
-   
-  (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  n
-   
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h-0) (y y-0))
-   resp
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 67
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((2 1) (3 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y-0 h-0) (y h))
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (label 67)
-  (parent 24)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 68, Parent: 25.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (gen) x)
-   
-  (cat (gen) x)
-   
-  
-  (exp (gen) x)
-   
-  (exp (gen) x)
-   
-  n
-   
-  (enc n (exp (gen) x))
-   
-  (gen)
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (gen)) (x x))
-   init
-   
-  plaindh 68
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (gen)) (x x))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (gen) x))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (contracted (x-0 x) (w x)) (gen) (0 1))
-  (label 68)
-  (parent 25)
-  (unrealized (2 0))
-  (comment "empty cohort"))

-
-
Item 69, Parent: 25, Child: 109.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (gen) (mul x x))
-   
-  (cat (gen) (mul x x))
-   
-  
-  (exp (gen) (mul x x))
-   
-  (exp (gen) (mul x x))
-   
-  n
-   
-  (enc n (exp (gen) (mul x x)))
-   
-  (exp (gen) x)
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) x)) (x x))
-   init
-   
-  plaindh 69
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) x)) (x x))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (gen) (mul x x)))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)))
-  (precur (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (0 1))
-  (label 69)
-  (parent 25)
-  (unrealized (1 0) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 70, Parent: 25.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x x-0)))
-   
-  (exp (gen) x-0)
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) x-0)) (x x))
-   init
-   
-  plaindh 70
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 0) (0 1))
-    ((3 0) (2 0)))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (0 1))
-  (label 70)
-  (parent 25)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))

-
-
Item 71, Parent: 25.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (gen) (mul x y))
-   
-  (cat (gen) (mul x y))
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  n
-   
-  (enc n (exp (gen) (mul x y)))
-   
-  (exp (gen) y)
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) y)) (x x))
-   init
-   
-  plaindh 71
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (gen) (mul x y)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (0 1))
-  (label 71)
-  (parent 25)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))

-
-
Item 72, Parent: 25, Children: 110 111 112 113.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul (rec x) w (rec w-0))) w-0)
-   
-  (cat (exp (gen) (mul (rec x) w (rec w-0))) w-0)
-   
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  n
-   
-  (enc n (exp (gen) w))
-   
-  (exp (gen) (mul (rec x) w))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul (rec x) w))) (x x))
-   init
-   
-  plaindh 72
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w w-0 expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) w))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) (mul (rec x) w (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) w)) (0 1))
-  (label 72)
-  (parent 25)
-  (unrealized (3 0))
-  (comment "4 in cohort - 4 not yet seen"))

-
-
Item 73, Parent: 26, Child: 114.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  (cat (exp (gen) x) w)
-   
-  (cat (exp (gen) x) w)
-   
-  n
-   
-  (enc n (exp (gen) (mul w x)))
-   
-  (exp (gen) w)
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 73 (realized)

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (1 0)) ((1 1) (0 3)))
-  (precur (1 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization deleted (1 0))
-  (label 73)
-  (parent 26)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 74, Parent: 27.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0)))
-   
-  
-  (exp (gen) x)
-   
-  (exp (gen) x)
-   
-  n
-   
-  (enc n (exp (gen) x))
-   
-  (gen)
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (gen)) (x x))
-   init
-   
-  plaindh 74
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (gen)) (x x))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 0) (0 1))
-    ((3 0) (2 0)))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w (mul x (rec x-0))) (x-2 x-0)) (gen) (0 1))
-  (label 74)
-  (parent 27)
-  (unrealized (2 0))
-  (comment "empty cohort"))

-
-
Item 75, Parent: 27.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) x-0 x-0))
-   
-  (cat (exp (gen) x) (mul (rec x) x-0 x-0))
-   
-  
-  (exp (gen) (mul x-0 x-0))
-   
-  (exp (gen) (mul x-0 x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x-0 x-0)))
-   
-  (exp (gen) x-0)
-   
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) x-0)) (x x-0))
-   init
-   
-  plaindh 75
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) x-0)) (x x-0))
-  (deflistener (exp (gen) (mul x-0 x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) x-0 x-0)))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 0) (0 1))
-    ((3 0) (2 0)))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-1) (0 1))
-  (label 75)
-  (parent 27)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))

-
-
Item 76, Parent: 27.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x x-0)))
-   
-  (exp (gen) x-0)
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) x-0)) (x x))
-   init
-   
-  plaindh 76
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 0) (0 1))
-    ((3 0) (2 0)))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 3 init 1) (exp (gen) x-1) (0 1))
-  (label 76)
-  (parent 27)
-  (unrealized (2 0))
-  (comment "empty cohort"))

-
-
Item 77, Parent: 27.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-1)
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) x-1))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) x-1))
-   
-  
-  (exp (gen) (mul x x-1))
-   
-  (exp (gen) (mul x x-1))
-   
-  n
-   
-  (enc n (exp (gen) (mul x x-1)))
-   
-  (exp (gen) x-1)
-   
-  
-  (exp (gen) x)
-   
-  ((x x-1))
-   init
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) x-1)) (x x))
-   init
-   
-  plaindh 77
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) x-1)) (x x))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-  (defstrand init 1 (x x-0))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 0) (0 1))
-    ((3 0) (2 0)) ((4 0) (0 1)) ((4 0) (2 0)))
-  (precur (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (0 1))
-  (label 77)
-  (parent 27)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))

-
-
Item 78, Parent: 27.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) y))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) y))
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  n
-   
-  (enc n (exp (gen) (mul x y)))
-   
-  (exp (gen) y)
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) y)) (x x))
-   init
-   
-  plaindh 78
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-  (defstrand init 1 (x x-0))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 0) (0 1))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((4 1) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (0 1))
-  (label 78)
-  (parent 27)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))

-
-
Item 79, Parent: 27, Children: 115 116 117 118 119.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul (rec x) w x-0 (rec w-0))) w-0)
-   
-  (cat (exp (gen) (mul (rec x) w x-0 (rec w-0))) w-0)
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) w)
-   
-  (cat (exp (gen) x-0) w)
-   
-  
-  (exp (gen) (mul w x-0))
-   
-  (exp (gen) (mul w x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x-0)))
-   
-  (exp (gen) (mul (rec x) w x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul (rec x) w x-0))) (x x))
-   init
-   
-  plaindh 79
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn) (w-0 expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) w x-0))) (x x))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) w x-0 (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w x-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) w x-0)) (0 1))
-  (label 79)
-  (parent 27)
-  (unrealized (4 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 80, Parent: 28.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y)))
-   
-  (cat (exp (gen) y) (mul x (rec y)))
-   
-  
-  (exp (gen) x)
-   
-  (exp (gen) x)
-   
-  n
-   
-  (enc n (exp (gen) x))
-   
-  (gen)
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (gen)) (x x))
-   init
-   
-  plaindh 80
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (gen)) (x x))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w (mul x (rec y))) (y-0 y))
-    (gen) (0 1))
-  (label 80)
-  (parent 28)
-  (unrealized (2 0))
-  (comment "empty cohort"))

-
-
Item 81, Parent: 28.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) x x))
-   
-  (cat (exp (gen) y) (mul (rec y) x x))
-   
-  
-  (exp (gen) (mul x x))
-   
-  (exp (gen) (mul x x))
-   
-  n
-   
-  (enc n (exp (gen) (mul x x)))
-   
-  (exp (gen) x)
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) x)) (x x))
-   init
-   
-  plaindh 81
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) x)) (x x))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) x x)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (0 1))
-  (label 81)
-  (parent 28)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))

-
-
Item 82, Parent: 28.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) x-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x x-0)))
-   
-  (exp (gen) x-0)
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) x-0)) (x x))
-   init
-   
-  plaindh 82
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (0 1))
-    ((3 1) (2 0)) ((4 0) (0 1)) ((4 0) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (0 1))
-  (label 82)
-  (parent 28)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))

-
-
Item 83, Parent: 28.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  n
-   
-  (enc n (exp (gen) (mul x y)))
-   
-  (exp (gen) y)
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) y)) (x x))
-   init
-   
-  plaindh 83
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 3 resp 2) (exp (gen) y-0) (0 1))
-  (label 83)
-  (parent 28)
-  (unrealized (2 0))
-  (comment "empty cohort"))

-
-
Item 84, Parent: 28.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y-0)
-   
-  h-0
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) y-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) y-0))
-   
-  
-  (exp (gen) (mul x y-0))
-   
-  (exp (gen) (mul x y-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x y-0)))
-   
-  (exp (gen) y-0)
-   
-  
-  (exp (gen) x)
-   
-  ((h h-0) (y y-0))
-   resp
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) y-0)) (x x))
-   init
-   
-  plaindh 84
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) y-0)) (x x))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (0 1))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((4 1) (2 0)))
-  (absent (y-0 h-0) (y h))
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (0 1))
-  (label 84)
-  (parent 28)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))

-
-
Item 85, Parent: 28, Children: 120 121 122 123 124.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0)
-   
-  (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0)
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) w)
-   
-  (cat (exp (gen) y) w)
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  n
-   
-  (enc n (exp (gen) (mul w y)))
-   
-  (exp (gen) (mul (rec x) w y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) w y))) (x x))
-   init
-   
-  plaindh 85
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn) (w-0 expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) w y))) (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) w y)) (0 1))
-  (label 85)
-  (parent 28)
-  (unrealized (4 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 86, Parent: 32.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) y) (rec x))
-   
-  (cat (exp (gen) y) (rec x))
-   
-  
-  n
-  (enc n (exp (gen) y))
-   
-  
-  (exp (gen) y)
-   
-  (gen)
-   
-  n
-   
-  
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (gen)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 86
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 3) (0 3)) ((2 1) (0 1)) ((3 1) (2 0)))
-  (absent (y (gen)))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (2 0))
-  (label 86)
-  (parent 32)
-  (unrealized (3 0))
-  (comment "empty cohort"))

-
-
Item 87, Parent: 48, Child: 125.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (gen) (mul w y))
-   
-  (cat (gen) (mul w y))
-   
-  
-  (cat (gen) (mul x w))
-   
-  (cat (gen) (mul x w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y)))
-   
-  (exp (gen) (mul w y))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul x w))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y))) (x x))
-   init
-   
-  plaindh 87
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test
-    (contracted (x-0 x) (y-0 y) (w-0 (mul x w)) (w-1 (mul w y)) (y-1 y)
-      (w (mul w y))) (gen) (3 0))
-  (label 87)
-  (parent 48)
-  (unrealized (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 88, Parent: 48, Child: 126.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) (mul w y))
-   
-  (cat (exp (gen) x) (mul w y))
-   
-  
-  (cat (gen) (mul w x x))
-   
-  (cat (gen) (mul w x x))
-   
-  
-  n
-  (enc n (exp (gen) (mul w x x y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul w x x))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul w x x y)))
-   
-  (exp (gen) (mul w x y))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul w x x))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x y))) (x x))
-   init
-   
-  plaindh 88
-  

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x x))) (y y))
-  (deflistener (cat (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) (mul w x x))))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (label 88)
-  (parent 48)
-  (unrealized (0 1) (1 0) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 89, Parent: 48, Child: 127.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w y))
-   
-  (cat (exp (gen) x-0) (mul w y))
-   
-  
-  (cat (gen) (mul x w x-0))
-   
-  (cat (gen) (mul x w x-0))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w x-0 y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w x-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w x-0 y)))
-   
-  (exp (gen) (mul w x-0 y))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul x w x-0))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x-0 y))) (x x))
-   init
-   
-  plaindh 89
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 0) (2 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (label 89)
-  (parent 48)
-  (unrealized (0 1) (1 0) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 90, Parent: 48, Children: 128 129 130.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) w)
-   
-  (cat (exp (gen) y) w)
-   
-  
-  (cat (gen) (mul x w))
-   
-  (cat (gen) (mul x w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y)))
-   
-  (exp (gen) (mul w y))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul x w))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y))) (x x))
-   init
-   
-  plaindh 90
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
-  (label 90)
-  (parent 48)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 91, Parent: 48, Child: 131.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w y-0))
-   
-  (cat (exp (gen) y) (mul w y-0))
-   
-  
-  (cat (gen) (mul x w y))
-   
-  (cat (gen) (mul x w y))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) (mul x w y))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  (exp (gen) (mul w y y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul x w y))) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y y-0))) (x x))
-   init
-   
-  plaindh 91
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (precur (3 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (3 0))
-  (label 91)
-  (parent 48)
-  (unrealized (0 1) (1 0) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 92, Parent: 49, Child: 132.

-
-

- 
-  
-   
-    
-   
-  
-  
-  (cat (exp (gen) x) w)
-   
-  (cat (exp (gen) x) w)
-   
-  n
-   
-  (enc n (exp (gen) (mul y w x)))
-   
-  (exp (gen) (mul y w))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul y w))) (x x))
-   init
-   
-  plaindh 92 (realized)

-
-
(defskeleton plaindh
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y w))) (x x))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (1 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (precur (1 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization deleted (1 1))
-  (label 92)
-  (parent 49)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 93, Parent: 51, Child: 133.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (gen) (mul w y))
-   
-  (cat (gen) (mul w y))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y)))
-   
-  (exp (gen) (mul w y))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul x w))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y))) (x x))
-   init
-   
-  plaindh 93
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (y-0 y) (w-0 (mul x (rec x-0) w)) (x-2 x-0)
-      (w-1 (mul w y)) (y-1 y) (w (mul w y))) (gen) (4 0))
-  (label 93)
-  (parent 51)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 94, Parent: 51, Child: 134.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) (mul w y))
-   
-  (cat (exp (gen) x-0) (mul w y))
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) w x-0 x-0))
-   
-  (cat (exp (gen) x) (mul (rec x) w x-0 x-0))
-   
-  
-  n
-  (enc n (exp (gen) (mul w x-0 x-0 y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul w x-0 x-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul w x-0 x-0 y)))
-   
-  (exp (gen) (mul w x-0 y))
-   
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x-0 x-0))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x-0 y))) (x x-0))
-   init
-   
-  plaindh 94
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x-0))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x-0 x-0))) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul w x-0 x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-1) (4 0))
-  (label 94)
-  (parent 51)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 95, Parent: 51, Child: 135.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) (mul w y))
-   
-  (cat (exp (gen) x-0) (mul w y))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x w))
-   
-  (cat (exp (gen) x-0) (mul x w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w x-0 y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w x-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w x-0 y)))
-   
-  (exp (gen) (mul w x-0 y))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul x w x-0))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x-0 y))) (x x))
-   init
-   
-  plaindh 95
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 3 init 1) (exp (gen) x-1) (4 0))
-  (label 95)
-  (parent 51)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 96, Parent: 51, Child: 136.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) (mul w y))
-   
-  (cat (exp (gen) x-1) (mul w y))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) w x-1))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) w x-1))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w x-1 y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w x-1))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w x-1 y)))
-   
-  (exp (gen) (mul w x-1 y))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-1))
-   init
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul x w x-1))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x-1 y))) (x x))
-   init
-   
-  plaindh 96
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (x-1 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-1 y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-1))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w y)))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 0) (2 0)))
-  (absent (y (exp (gen) (mul x w x-1))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (4 0))
-  (label 96)
-  (parent 51)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 97, Parent: 51, Children: 137 138 139.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) w)
-   
-  (cat (exp (gen) y) w)
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y)))
-   
-  (exp (gen) (mul w y))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul x w))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y))) (x x))
-   init
-   
-  plaindh 97
-  

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-0) (4 0))
-  (label 97)
-  (parent 51)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 98, Parent: 51, Child: 140.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w y-0))
-   
-  (cat (exp (gen) y) (mul w y-0))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) w y))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) w y))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) (mul x w y))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  (exp (gen) (mul w y y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul x w y))) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y y-0))) (x x))
-   init
-   
-  plaindh 98
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (4 0))
-  (label 98)
-  (parent 51)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 99, Parent: 53, Child: 141.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (gen) (mul w y-0))
-   
-  (cat (gen) (mul w y-0))
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y-0)))
-   
-  (exp (gen) (mul w y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul x w))) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y-0))) (x x))
-   init
-   
-  plaindh 99
-  

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y h) (y-0 (exp (gen) (mul x w))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y-0) (w-0 (mul x (rec y) w)) (y-2 y)
-      (w-1 (mul w y-0)) (y-3 y-0) (w (mul w y-0))) (gen) (4 0))
-  (label 99)
-  (parent 53)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 100, Parent: 53, Child: 142.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) (mul w y-0))
-   
-  (cat (exp (gen) x) (mul w y-0))
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) w x x))
-   
-  (cat (exp (gen) y) (mul (rec y) w x x))
-   
-  
-  n
-  (enc n (exp (gen) (mul w x x y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) (mul w x x))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul w x x y-0)))
-   
-  (exp (gen) (mul w x y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x x))) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x y-0))) (x x))
-   init
-   
-  plaindh 100

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x x))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y h) (y-0 (exp (gen) (mul w x x))))
-  (precur (4 0) (2 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-0) (4 0))
-  (label 100)
-  (parent 53)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 101, Parent: 53, Child: 143.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w y-0))
-   
-  (cat (exp (gen) x-0) (mul w y-0))
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) w x-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) w x-0))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w x-0 y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) (mul x w x-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w x-0 y-0)))
-   
-  (exp (gen) (mul w x-0 y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul x w x-0))) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x-0 y-0))) (x x))
-   init
-   
-  plaindh 101

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (x-0 y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w y-0)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 0) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (4 0))
-  (label 101)
-  (parent 53)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 102, Parent: 53, Children: 144 145 146.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) y-0) w)
-   
-  (cat (exp (gen) y-0) w)
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y-0)))
-   
-  (exp (gen) (mul w y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul x w))) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y-0))) (x x))
-   init
-   
-  plaindh 102

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y-0 (exp (gen) (mul x w))) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-1) (4 0))
-  (label 102)
-  (parent 53)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 103, Parent: 53, Child: 147.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) (mul w y-0))
-   
-  (cat (exp (gen) y) (mul w y-0))
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x w))
-   
-  (cat (exp (gen) y) (mul x w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) (mul x w y))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  (exp (gen) (mul w y y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul x w y))) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y y-0))) (x x))
-   init
-   
-  plaindh 103

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 3 resp 2) (exp (gen) y-1) (4 0))
-  (label 103)
-  (parent 53)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 104, Parent: 53, Child: 148.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y-0)
-   
-  h-0
-   
-  
-  (cat (exp (gen) y-0) (mul w y-1))
-   
-  (cat (exp (gen) y-0) (mul w y-1))
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) w y-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) w y-0))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y-0 y-1)))
-   
-  
-  (exp (gen) y-1)
-   
-  (exp (gen) (mul x w y-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y-0 y-1)))
-   
-  (exp (gen) (mul w y-0 y-1))
-   
-  
-  (exp (gen) x)
-   
-  ((h h-0) (y y-0))
-   resp
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul x w y-0))) (y y-1))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y-0 y-1))) (x x))
-   init
-   
-  plaindh 104

-
-
(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y expn) (w expr) (y-0 y-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0 y-1))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y-0))) (y y-1))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w y-1)))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (absent (y-0 h-0) (y h) (y-1 (exp (gen) (mul x w y-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (4 0))
-  (label 104)
-  (parent 53)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 105, Parent: 54.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (gen) (rec x))
-   
-  (cat (gen) (rec x))
-   
-  
-  (gen)
-   
-  (gen)
-   
-  n
-   
-  (enc n (gen))
-   
-  (exp (gen) (rec x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (rec x))) (x x))
-   init
-   
-  plaindh 105

-
-
(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (0 1))
-    ((3 1) (2 0)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (added-listener x) (rec x) (2 0))
-  (label 105)
-  (parent 54)
-  (unrealized (3 0))
-  (comment "empty cohort"))

-
-
Item 106, Parent: 55.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) x) (mul (rec x) (rec x)))
-   
-  (cat (exp (gen) x) (mul (rec x) (rec x)))
-   
-  
-  (gen)
-   
-  (gen)
-   
-  n
-   
-  (enc n (gen))
-   
-  (exp (gen) (rec x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (rec x))) (x x))
-   init
-   
-  plaindh 106

-
-
(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (0 1))
-    ((3 1) (2 0)))
-  (precur (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul (rec x) (rec x)) (2 0))
-  (label 106)
-  (parent 55)
-  (unrealized (3 0))
-  (comment "empty cohort"))

-
-
Item 107, Parent: 60.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) x-0) (rec x))
-   
-  (cat (exp (gen) x-0) (rec x))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (exp (gen) x-0)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  (enc n (exp (gen) x-0))
-   
-  (exp (gen) (mul (rec x) x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-   init
-   
-  plaindh 107

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 0) (1 0))
-    ((2 0) (3 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (precur (3 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (3 0))
-  (label 107)
-  (parent 60)
-  (unrealized (4 0))
-  (comment "empty cohort"))

-
-
Item 108, Parent: 66.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) y) (rec x))
-   
-  (cat (exp (gen) y) (rec x))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  n
-   
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 108

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((2 1) (3 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y h))
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (3 0))
-  (label 108)
-  (parent 66)
-  (unrealized (4 0))
-  (comment "empty cohort"))

-
-
Item 109, Parent: 69.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (gen) (mul x x))
-   
-  (cat (gen) (mul x x))
-   
-  
-  (exp (gen) (mul x x))
-   
-  (exp (gen) (mul x x))
-   
-  n
-   
-  (enc n (exp (gen) (mul x x)))
-   
-  (exp (gen) x)
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) x)) (x x))
-   init
-   
-  plaindh 109

-
-
(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) x)) (x x))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (gen) (mul x x)))
-  (deflistener x)
-  (precedes ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (precur (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x x) (2 0))
-  (label 109)
-  (parent 69)
-  (unrealized (3 0))
-  (comment "empty cohort"))

-
-
Item 110, Parent: 72, Children: 149 150 151.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  (cat (gen) (mul x w))
-   
-  (cat (gen) (mul x w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 110

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test (contracted (x-0 x) (w-0 (mul x w)) (w-1 w))
-    (gen) (3 0))
-  (label 110)
-  (parent 72)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 111, Parent: 72, Children: 152 153 154.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) w)
-   
-  (cat (exp (gen) x) w)
-   
-  
-  (cat (gen) (mul w x x))
-   
-  (cat (gen) (mul w x x))
-   
-  
-  (exp (gen) (mul w x x))
-   
-  (exp (gen) (mul w x x))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x x)))
-   
-  (exp (gen) (mul w x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul w x))) (x x))
-   init
-   
-  plaindh 111

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x))) (x x))
-  (deflistener (exp (gen) (mul w x x)))
-  (deflistener (cat (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (precur (3 0) (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (label 111)
-  (parent 72)
-  (unrealized (1 0) (2 0))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 112, Parent: 72, Children: 155 156 157.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) w)
-   
-  (cat (exp (gen) x-0) w)
-   
-  
-  (cat (gen) (mul x w x-0))
-   
-  (cat (gen) (mul x w x-0))
-   
-  
-  (exp (gen) (mul x w x-0))
-   
-  (exp (gen) (mul x w x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w x-0)))
-   
-  (exp (gen) (mul w x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x-0))) (x x))
-   init
-   
-  plaindh 112

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)) ((4 0) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (label 112)
-  (parent 72)
-  (unrealized (1 0) (2 0))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 113, Parent: 72, Children: 158 159 160.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) w)
-   
-  (cat (exp (gen) y) w)
-   
-  
-  (cat (gen) (mul x w y))
-   
-  (cat (gen) (mul x w y))
-   
-  
-  (exp (gen) (mul x w y))
-   
-  (exp (gen) (mul x w y))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w y)))
-   
-  (exp (gen) (mul w y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y))) (x x))
-   init
-   
-  plaindh 113

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)) ((4 1) (3 0)))
-  (absent (y h))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (3 0))
-  (label 113)
-  (parent 72)
-  (unrealized (1 0) (2 0))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 114, Parent: 73.

-
-

- 
-  
-   
-    
-   
-  
-  n
-   
-  (enc n (exp (gen) (mul w x)))
-   
-  (exp (gen) w)
-   
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 114 (realized)
- 

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization deleted (1 0))
-  (label 114)
-  (parent 73)
-  (unrealized)
-  (shape)
-  (maps ((0) ((x x) (h (exp (gen) w)) (n n))))
-  (origs (n (0 2))))

-
-
Item 115, Parent: 79, Children: 161 162 163.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 115

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w-0 (mul x (rec x-0) w)) (x-2 x-0) (w-1 w))
-    (gen) (4 0))
-  (label 115)
-  (parent 79)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 116, Parent: 79, Children: 164 165 166.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) w)
-   
-  (cat (exp (gen) x-0) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) w x-0 x-0))
-   
-  (cat (exp (gen) x) (mul (rec x) w x-0 x-0))
-   
-  
-  (exp (gen) (mul w x-0 x-0))
-   
-  (exp (gen) (mul w x-0 x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x-0 x-0)))
-   
-  (exp (gen) (mul w x-0))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x-0))) (x x-0))
-   init
-   
-  plaindh 116

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0))) (x x-0))
-  (deflistener (exp (gen) (mul w x-0 x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) w))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-1) (4 0))
-  (label 116)
-  (parent 79)
-  (unrealized (1 0) (2 0))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 117, Parent: 79, Children: 167 168 169.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) w)
-   
-  (cat (exp (gen) x-0) w)
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x w))
-   
-  (cat (exp (gen) x-0) (mul x w))
-   
-  
-  (exp (gen) (mul x w x-0))
-   
-  (exp (gen) (mul x w x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w x-0)))
-   
-  (exp (gen) (mul w x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x-0))) (x x))
-   init
-   
-  plaindh 117

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) w))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 3 init 1) (exp (gen) x-1) (4 0))
-  (label 117)
-  (parent 79)
-  (unrealized (1 0) (2 0))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 118, Parent: 79, Children: 170 171 172 173.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) w)
-   
-  (cat (exp (gen) x-1) w)
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) w x-1))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) w x-1))
-   
-  
-  (exp (gen) (mul x w x-1))
-   
-  (exp (gen) (mul x w x-1))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w x-1)))
-   
-  (exp (gen) (mul w x-1))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-1))
-   init
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x-1))) (x x))
-   init
-   
-  plaindh 118

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-1))) (x x))
-  (deflistener (exp (gen) (mul x w x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) w))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (4 0))
-  (label 118)
-  (parent 79)
-  (unrealized (1 0) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))

-
-
Item 119, Parent: 79, Children: 174 175 176 177.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) w)
-   
-  (cat (exp (gen) y) w)
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) w y))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) w y))
-   
-  
-  (exp (gen) (mul x w y))
-   
-  (exp (gen) (mul x w y))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w y)))
-   
-  (exp (gen) (mul w y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul w y))) (x x))
-   init
-   
-  plaindh 119

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (4 0))
-  (label 119)
-  (parent 79)
-  (unrealized (1 0) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))

-
-
Item 120, Parent: 85, Children: 178 179 180.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 120

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-0 (mul x (rec y) w)) (y-0 y) (w-1 w)) (gen)
-    (4 0))
-  (label 120)
-  (parent 85)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 121, Parent: 85, Children: 181 182 183.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) w)
-   
-  (cat (exp (gen) x) w)
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) w x x))
-   
-  (cat (exp (gen) y) (mul (rec y) w x x))
-   
-  
-  (exp (gen) (mul w x x))
-   
-  (exp (gen) (mul w x x))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x x)))
-   
-  (exp (gen) (mul w x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x))) (x x))
-   init
-   
-  plaindh 121

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x))) (x x))
-  (deflistener (exp (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-0) (4 0))
-  (label 121)
-  (parent 85)
-  (unrealized (1 0) (2 0))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 122, Parent: 85, Children: 184 185 186 187.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) w)
-   
-  (cat (exp (gen) x-0) w)
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) w x-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) w x-0))
-   
-  
-  (exp (gen) (mul x w x-0))
-   
-  (exp (gen) (mul x w x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w x-0)))
-   
-  (exp (gen) (mul w x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x-0))) (x x))
-   init
-   
-  plaindh 122

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (4 0))
-  (label 122)
-  (parent 85)
-  (unrealized (1 0) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))

-
-
Item 123, Parent: 85, Children: 188 189 190.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) w)
-   
-  (cat (exp (gen) y) w)
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x w))
-   
-  (cat (exp (gen) y) (mul x w))
-   
-  
-  (exp (gen) (mul x w y))
-   
-  (exp (gen) (mul x w y))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w y)))
-   
-  (exp (gen) (mul w y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y))) (x x))
-   init
-   
-  plaindh 123

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 3 resp 2) (exp (gen) y-0) (4 0))
-  (label 123)
-  (parent 85)
-  (unrealized (1 0) (2 0))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 124, Parent: 85, Children: 191 192 193 194.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y-0)
-   
-  h-0
-   
-  
-  (cat (exp (gen) y-0) w)
-   
-  (cat (exp (gen) y-0) w)
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) w y-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) w y-0))
-   
-  
-  (exp (gen) (mul x w y-0))
-   
-  (exp (gen) (mul x w y-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w y-0)))
-   
-  (exp (gen) (mul w y-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h-0) (y y-0))
-   resp
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y-0))) (x x))
-   init
-   
-  plaindh 124

-
-
(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (deflistener (exp (gen) (mul x w y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (y-0 h-0) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (4 0))
-  (label 124)
-  (parent 85)
-  (unrealized (1 0) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))

-
-
Item 125, Parent: 87.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  (cat (gen) (mul w y))
-   
-  (cat (gen) (mul w y))
-   
-  
-  (cat (gen) (mul x w))
-   
-  (cat (gen) (mul x w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y)))
-   
-  (exp (gen) (mul w y))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul x w))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y))) (x x))
-   init
-   
-  plaindh 125

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (label 125)
-  (parent 87)
-  (unrealized (2 0) (4 0))
-  (comment "empty cohort"))

-
-
Item 126, Parent: 88.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  (cat (exp (gen) x) (mul w y))
-   
-  (cat (exp (gen) x) (mul w y))
-   
-  
-  (cat (gen) (mul w x x))
-   
-  (cat (gen) (mul w x x))
-   
-  
-  n
-  (enc n (exp (gen) (mul w x x y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul w x x))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul w x x y)))
-   
-  (exp (gen) (mul w x y))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul w x x))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x y))) (x x))
-   init
-   
-  plaindh 126

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x x))) (y y))
-  (deflistener (cat (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y (exp (gen) (mul w x x))))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (label 126)
-  (parent 88)
-  (unrealized (1 0) (2 0) (4 0))
-  (comment "empty cohort"))

-
-
Item 127, Parent: 89.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w y))
-   
-  (cat (exp (gen) x-0) (mul w y))
-   
-  
-  (cat (gen) (mul x w x-0))
-   
-  (cat (gen) (mul x w x-0))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w x-0 y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w x-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w x-0 y)))
-   
-  (exp (gen) (mul w x-0 y))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul x w x-0))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x-0 y))) (x x))
-   init
-   
-  plaindh 127

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 0) (2 0)) ((5 1) (3 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (label 127)
-  (parent 89)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 128, Parent: 90, Child: 195.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) (rec x))
-   
-  (cat (exp (gen) y) (rec x))
-   
-  
-  (cat (gen) (one))
-   
-  (cat (gen) (one))
-   
-  
-  n
-  (enc n (exp (gen) y))
-   
-  
-  (exp (gen) y)
-   
-  (gen)
-   
-  n
-   
-  
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul y (rec x)))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (gen)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul y (rec x)))) (x x))
-   init
-   
-  plaindh 128

-
-
(defskeleton plaindh
-  (vars (n text) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y (gen)))
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w (rec x))) (one) (2 0))
-  (label 128)
-  (parent 90)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 129, Parent: 90, Child: 196.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) (mul w (rec x)))
-   
-  (cat (exp (gen) y) (mul w (rec x)))
-   
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  n
-  (enc n (exp (gen) (mul w y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) w)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul w y)))
-   
-  (exp (gen) (mul w y (rec x)))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) w)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-   init
-   
-  plaindh 129

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (x w) (y (exp (gen) w)))
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w) w (2 0))
-  (label 129)
-  (parent 90)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 130, Parent: 90.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) y) w)
-   
-  (cat (exp (gen) y) w)
-   
-  
-  (cat (gen) (mul x w))
-   
-  (cat (gen) (mul x w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y)))
-   
-  (exp (gen) (mul w y))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul x w))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y))) (x x))
-   init
-   
-  plaindh 130

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (2 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w) (2 0))
-  (label 130)
-  (parent 90)
-  (unrealized (4 0))
-  (comment "empty cohort"))

-
-
Item 131, Parent: 91.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  y-0
-  y-0
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w y-0))
-   
-  (cat (exp (gen) y) (mul w y-0))
-   
-  
-  (cat (gen) (mul x w y))
-   
-  (cat (gen) (mul x w y))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) (mul x w y))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  (exp (gen) (mul w y y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul x w y))) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y y-0))) (x x))
-   init
-   
-  plaindh 131

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (2 0)) ((5 1) (3 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (precur (3 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (3 0))
-  (label 131)
-  (parent 91)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 132, Parent: 92, Seen Child: 114.

-
-

- 
-  
-   
-    
-   
-  
-  
-  (cat (exp (gen) x) w)
-   
-  (cat (exp (gen) x) w)
-   
-  n
-   
-  (enc n (exp (gen) (mul y w x)))
-   
-  (exp (gen) (mul y w))
-   
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul y w))) (x x))
-   init
-   
-  plaindh 132 (realized)
- 

-
-
(defskeleton plaindh
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y w))) (x x))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (1 0)))
-  (precur (1 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization forgot y)
-  (label 132)
-  (parent 92)
-  (seen 114)
-  (unrealized)
-  (comment "1 in cohort - 0 not yet seen"))

-
-
Item 133, Parent: 93.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  (cat (gen) (mul w y))
-   
-  (cat (gen) (mul w y))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y)))
-   
-  (exp (gen) (mul w y))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul x w))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y))) (x x))
-   init
-   
-  plaindh 133

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (label 133)
-  (parent 93)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 134, Parent: 94.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  (cat (exp (gen) x-0) (mul w y))
-   
-  (cat (exp (gen) x-0) (mul w y))
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) w x-0 x-0))
-   
-  (cat (exp (gen) x) (mul (rec x) w x-0 x-0))
-   
-  
-  n
-  (enc n (exp (gen) (mul w x-0 x-0 y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul w x-0 x-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul w x-0 x-0 y)))
-   
-  (exp (gen) (mul w x-0 y))
-   
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x-0 x-0))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x-0 y))) (x x-0))
-   init
-   
-  plaindh 134

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x-0))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x-0 x-0))) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul w x-0 x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (label 134)
-  (parent 94)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 135, Parent: 95.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  (cat (exp (gen) x-0) (mul w y))
-   
-  (cat (exp (gen) x-0) (mul w y))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x w))
-   
-  (cat (exp (gen) x-0) (mul x w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w x-0 y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w x-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w x-0 y)))
-   
-  (exp (gen) (mul w x-0 y))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul x w x-0))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x-0 y))) (x x))
-   init
-   
-  plaindh 135

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (label 135)
-  (parent 95)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 136, Parent: 96.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) (mul w y))
-   
-  (cat (exp (gen) x-1) (mul w y))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) w x-1))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) w x-1))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w x-1 y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w x-1))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w x-1 y)))
-   
-  (exp (gen) (mul w x-1 y))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-1))
-   init
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul x w x-1))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x-1 y))) (x x))
-   init
-   
-  plaindh 136

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (x-1 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-1 y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-1))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w y)))
-  (defstrand init 1 (x x-1))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((6 1) (4 0)))
-  (absent (y (exp (gen) (mul x w x-1))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (label 136)
-  (parent 96)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 137, Parent: 97.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) (mul (rec x) x-0))
-   
-  (cat (exp (gen) y) (mul (rec x) x-0))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (one))
-   
-  (cat (exp (gen) x-0) (one))
-   
-  
-  n
-  (enc n (exp (gen) (mul y x-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y x-0)))
-   
-  (exp (gen) (mul y (rec x) x-0))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) x-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul y (rec x) x-0))) (x x))
-   init
-   
-  plaindh 137

-
-
(defskeleton plaindh
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x) x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (precur (4 0) (2 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w (mul (rec x) x-0))) (one) (2 0))
-  (label 137)
-  (parent 97)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))

-
-
Item 138, Parent: 97, Child: 197.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) (mul w (rec x-0)))
-   
-  (cat (exp (gen) y) (mul w (rec x-0)))
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) w))
-   
-  (cat (exp (gen) x) (mul (rec x) w))
-   
-  
-  n
-  (enc n (exp (gen) (mul w y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) w)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul w y)))
-   
-  (exp (gen) (mul w y (rec x-0)))
-   
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) w)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 138

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w (rec x-0))))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (x-0 (mul (rec x) w)) (y (exp (gen) w)))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w))
-    (mul (rec x) w) (2 0))
-  (label 138)
-  (parent 97)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 139, Parent: 97, Child: 198.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) (mul w x-0))
-   
-  (cat (exp (gen) y) (mul w x-0))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x w))
-   
-  (cat (exp (gen) x-0) (mul x w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y x-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w x-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y x-0)))
-   
-  (exp (gen) (mul w y x-0))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul x w x-0))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y x-0))) (x x))
-   init
-   
-  plaindh 139

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w x-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (x-0 (mul x w)) (y (exp (gen) (mul x w x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w)) (mul x w) (2 0))
-  (label 139)
-  (parent 97)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 140, Parent: 98.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  y-0
-  y-0
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w y-0))
-   
-  (cat (exp (gen) y) (mul w y-0))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) w y))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) w y))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) (mul x w y))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  (exp (gen) (mul w y y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul x w y))) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y y-0))) (x x))
-   init
-   
-  plaindh 140

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((6 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (label 140)
-  (parent 98)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 141, Parent: 99.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  y-0
-  y-0
-   
-  
-  (cat (gen) (mul w y-0))
-   
-  (cat (gen) (mul w y-0))
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y-0)))
-   
-  (exp (gen) (mul w y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul x w))) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y-0))) (x x))
-   init
-   
-  plaindh 141

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (label 141)
-  (parent 99)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 142, Parent: 100.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  y-0
-  y-0
-   
-  
-  (cat (exp (gen) x) (mul w y-0))
-   
-  (cat (exp (gen) x) (mul w y-0))
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) w x x))
-   
-  (cat (exp (gen) y) (mul (rec y) w x x))
-   
-  
-  n
-  (enc n (exp (gen) (mul w x x y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) (mul w x x))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul w x x y-0)))
-   
-  (exp (gen) (mul w x y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x x))) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x y-0))) (x x))
-   init
-   
-  plaindh 142

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x x))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w x x))))
-  (precur (4 0) (2 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (label 142)
-  (parent 100)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 143, Parent: 101.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  y-0
-  y-0
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w y-0))
-   
-  (cat (exp (gen) x-0) (mul w y-0))
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) w x-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) w x-0))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w x-0 y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) (mul x w x-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w x-0 y-0)))
-   
-  (exp (gen) (mul w x-0 y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul x w x-0))) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x-0 y-0))) (x x))
-   init
-   
-  plaindh 143

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (x-0 y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((6 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (label 143)
-  (parent 101)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 144, Parent: 102.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) (mul (rec x) y-0))
-   
-  (cat (exp (gen) y) (mul (rec x) y-0))
-   
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  (cat (exp (gen) y-0) (one))
-   
-  (cat (exp (gen) y-0) (one))
-   
-  
-  n
-  (enc n (exp (gen) (mul y y-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y-0)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul y y-0)))
-   
-  (exp (gen) (mul y (rec x) y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) y-0)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul y (rec x) y-0))) (x x))
-   init
-   
-  plaindh 144

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y x y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x) y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) y-0)) (y-0 h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y-0) (w (mul (rec x) y-0))) (one) (2 0))
-  (label 144)
-  (parent 102)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))

-
-
Item 145, Parent: 102, Child: 199.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) y-0) (mul w (rec x)))
-   
-  (cat (exp (gen) y-0) (mul w (rec x)))
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) w))
-   
-  (cat (exp (gen) y) (mul (rec y) w))
-   
-  
-  n
-  (enc n (exp (gen) (mul w y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) w)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul w y-0)))
-   
-  (exp (gen) (mul w y-0 (rec x)))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) w)) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-   init
-   
-  plaindh 145

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (x (mul (rec y) w)) (y-0 (exp (gen) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w))
-    (mul (rec y) w) (2 0))
-  (label 145)
-  (parent 102)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 146, Parent: 102, Child: 200.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) (mul w y-0))
-   
-  (cat (exp (gen) y) (mul w y-0))
-   
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  (cat (exp (gen) y-0) (mul x w))
-   
-  (cat (exp (gen) y-0) (mul x w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w y-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  (exp (gen) (mul w y y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul x w y-0))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y y-0))) (x x))
-   init
-   
-  plaindh 146

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul x w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y-0 (mul x w)) (y (exp (gen) (mul x w y-0))) (y-0 h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w)) (mul x w) (2 0))
-  (label 146)
-  (parent 102)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 147, Parent: 103.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  y-0
-  y-0
-   
-  
-  (cat (exp (gen) y) (mul w y-0))
-   
-  (cat (exp (gen) y) (mul w y-0))
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x w))
-   
-  (cat (exp (gen) y) (mul x w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) (mul x w y))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  (exp (gen) (mul w y y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul x w y))) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y y-0))) (x x))
-   init
-   
-  plaindh 147

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (label 147)
-  (parent 103)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 148, Parent: 104.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  y-1
-  y-1
-   
-  
-  (exp (gen) y-0)
-   
-  h-0
-   
-  
-  (cat (exp (gen) y-0) (mul w y-1))
-   
-  (cat (exp (gen) y-0) (mul w y-1))
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) w y-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) w y-0))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y-0 y-1)))
-   
-  
-  (exp (gen) y-1)
-   
-  (exp (gen) (mul x w y-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y-0 y-1)))
-   
-  (exp (gen) (mul w y-0 y-1))
-   
-  
-  (exp (gen) x)
-   
-  ((h h-0) (y y-0))
-   resp
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul x w y-0))) (y y-1))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y-0 y-1))) (x x))
-   init
-   
-  plaindh 148

-
-
(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y expn) (w expr) (y-0 y-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0 y-1))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y-0))) (y y-1))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w y-1)))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (deflistener y-1)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((6 1) (4 0)))
-  (absent (y-0 h-0) (y h) (y-1 (exp (gen) (mul x w y-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-1) (mul w y-1) (4 0))
-  (label 148)
-  (parent 104)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 149, Parent: 110, Child: 201.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (gen) (rec x))
-   
-  (cat (gen) (rec x))
-   
-  
-  (cat (gen) (one))
-   
-  (cat (gen) (one))
-   
-  
-  (gen)
-   
-  (gen)
-   
-  n
-   
-  (enc n (gen))
-   
-  (exp (gen) (rec x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (rec x))) (x x))
-   init
-   
-  plaindh 149

-
-
(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (gen) (rec x)))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test (contracted (x-0 x) (w (rec x))) (one) (2 0))
-  (label 149)
-  (parent 110)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 150, Parent: 110, Child: 202.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (gen) (mul w (rec x)))
-   
-  (cat (gen) (mul w (rec x)))
-   
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  n
-   
-  (enc n (exp (gen) w))
-   
-  (exp (gen) (mul w (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul w (rec x)))) (x x))
-   init
-   
-  plaindh 150

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (gen) (mul w (rec x))))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (absent (x w))
-  (operation nonce-test (added-absence x w) w (2 0))
-  (label 150)
-  (parent 110)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 151, Parent: 110.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  (cat (gen) (mul x w))
-   
-  (cat (gen) (mul x w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 151

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (gen) w))
-  (deflistener x)
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test (added-listener x) (mul x w) (2 0))
-  (label 151)
-  (parent 110)
-  (unrealized (4 0))
-  (comment "empty cohort"))

-
-
Item 152, Parent: 111, Child: 203.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) (mul (rec x) (rec x)))
-   
-  (cat (exp (gen) x) (mul (rec x) (rec x)))
-   
-  
-  (cat (gen) (one))
-   
-  (cat (gen) (one))
-   
-  
-  (gen)
-   
-  (gen)
-   
-  n
-   
-  (enc n (gen))
-   
-  (exp (gen) (rec x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (rec x))) (x x))
-   init
-   
-  plaindh 152

-
-
(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (precur (3 0) (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (w (mul (rec x) (rec x))) (x-0 x))
-    (one) (2 0))
-  (label 152)
-  (parent 111)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 153, Parent: 111, Child: 204.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) (mul w (rec x) (rec x)))
-   
-  (cat (exp (gen) x) (mul w (rec x) (rec x)))
-   
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  n
-   
-  (enc n (exp (gen) w))
-   
-  (exp (gen) (mul w (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul w (rec x)))) (x x))
-   init
-   
-  plaindh 153

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) x) (mul w (rec x) (rec x))))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (precur (3 0) (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (absent (x w))
-  (operation nonce-test (added-absence x w) w (2 0))
-  (label 153)
-  (parent 111)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 154, Parent: 111.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) x) w)
-   
-  (cat (exp (gen) x) w)
-   
-  
-  (cat (gen) (mul w x x))
-   
-  (cat (gen) (mul w x x))
-   
-  
-  (exp (gen) (mul w x x))
-   
-  (exp (gen) (mul w x x))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x x)))
-   
-  (exp (gen) (mul w x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul w x))) (x x))
-   init
-   
-  plaindh 154

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x))) (x x))
-  (deflistener (exp (gen) (mul w x x)))
-  (deflistener (cat (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) x) w))
-  (deflistener x)
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w x x) (2 0))
-  (label 154)
-  (parent 111)
-  (unrealized (4 0))
-  (comment "empty cohort"))

-
-
Item 155, Parent: 112.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul (rec x) (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul (rec x) (rec x-0)))
-   
-  
-  (cat (gen) (one))
-   
-  (cat (gen) (one))
-   
-  
-  (gen)
-   
-  (gen)
-   
-  n
-   
-  (enc n (gen))
-   
-  (exp (gen) (rec x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (rec x))) (x x))
-   init
-   
-  plaindh 155

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)) ((4 0) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w (mul (rec x) (rec x-0))) (x-2 x-0)) (one)
-    (2 0))
-  (label 155)
-  (parent 112)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 156, Parent: 112, Child: 205.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul w (rec x-0)))
-   
-  (cat (exp (gen) x) (mul w (rec x-0)))
-   
-  
-  (cat (gen) (mul w x))
-   
-  (cat (gen) (mul w x))
-   
-  
-  (exp (gen) (mul w x))
-   
-  (exp (gen) (mul w x))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x)))
-   
-  (exp (gen) (mul w x (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 156

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)) ((4 0) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul w x)))
-  (operation nonce-test (added-absence x-0 (mul w x)) (mul w x) (2 0))
-  (label 156)
-  (parent 112)
-  (unrealized (0 1) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 157, Parent: 112, Child: 206.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul w (rec x-0)))
-   
-  
-  (cat (gen) (mul x w))
-   
-  (cat (gen) (mul x w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 157

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)) ((4 0) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul x w)))
-  (operation nonce-test (added-absence x-0 (mul x w)) (mul x w) (2 0))
-  (label 157)
-  (parent 112)
-  (unrealized (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 158, Parent: 113.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec x) (rec y)))
-   
-  (cat (exp (gen) y) (mul (rec x) (rec y)))
-   
-  
-  (cat (gen) (one))
-   
-  (cat (gen) (one))
-   
-  
-  (gen)
-   
-  (gen)
-   
-  n
-   
-  (enc n (gen))
-   
-  (exp (gen) (rec x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (rec x))) (x x))
-   init
-   
-  plaindh 158

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) y) (mul (rec x) (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)) ((4 1) (3 0)))
-  (absent (y h))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w (mul (rec x) (rec y))) (y-0 y)) (one) (2 0))
-  (label 158)
-  (parent 113)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))

-
-
Item 159, Parent: 113, Child: 207.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w (rec x)))
-   
-  (cat (exp (gen) y) (mul w (rec x)))
-   
-  
-  (cat (gen) (mul w y))
-   
-  (cat (gen) (mul w y))
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  n
-   
-  (enc n (exp (gen) (mul w y)))
-   
-  (exp (gen) (mul w y (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-   init
-   
-  plaindh 159

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (w expr) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)) ((4 1) (3 0)))
-  (absent (x (mul w y)) (y h))
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul w y)) (mul w y) (2 0))
-  (label 159)
-  (parent 113)
-  (unrealized (0 1) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 160, Parent: 113, Child: 208.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w (rec y)))
-   
-  (cat (exp (gen) y) (mul w (rec y)))
-   
-  
-  (cat (gen) (mul x w))
-   
-  (cat (gen) (mul x w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 160

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul w (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)) ((4 1) (3 0)))
-  (absent (y (mul x w)) (y h))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x w)) (mul x w) (2 0))
-  (label 160)
-  (parent 113)
-  (unrealized (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 161, Parent: 115.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (gen) (mul (rec x) x-0))
-   
-  (cat (gen) (mul (rec x) x-0))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (one))
-   
-  (cat (exp (gen) x-0) (one))
-   
-  
-  (exp (gen) x-0)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  (enc n (exp (gen) x-0))
-   
-  (exp (gen) (mul (rec x) x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-   init
-   
-  plaindh 161

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul (rec x) x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w (mul (rec x) x-0))) (one) (2 0))
-  (label 161)
-  (parent 115)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))

-
-
Item 162, Parent: 115, Child: 209.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (gen) (mul w (rec x-0)))
-   
-  (cat (gen) (mul w (rec x-0)))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) w))
-   
-  (cat (exp (gen) x) (mul (rec x) w))
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  n
-   
-  (enc n (exp (gen) w))
-   
-  (exp (gen) (mul w (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 162

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (gen) (mul w (rec x-0))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul (rec x) w)))
-  (operation nonce-test (added-absence x-0 (mul (rec x) w))
-    (mul (rec x) w) (2 0))
-  (label 162)
-  (parent 115)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 163, Parent: 115, Child: 210.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (gen) (mul w x-0))
-   
-  (cat (gen) (mul w x-0))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x w))
-   
-  (cat (exp (gen) x-0) (mul x w))
-   
-  
-  (exp (gen) (mul x w x-0))
-   
-  (exp (gen) (mul x w x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w x-0)))
-   
-  (exp (gen) (mul w x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x-0))) (x x))
-   init
-   
-  plaindh 163

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul x w)))
-  (operation nonce-test (added-absence x-0 (mul x w)) (mul x w) (2 0))
-  (label 163)
-  (parent 115)
-  (unrealized (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 164, Parent: 116.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0)))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (one))
-   
-  (cat (exp (gen) x) (one))
-   
-  
-  (exp (gen) x)
-   
-  (exp (gen) x)
-   
-  n
-   
-  (enc n (exp (gen) x))
-   
-  (exp (gen) (mul x (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 164

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w (mul x (rec x-0) (rec x-0))) (x-2 x-0)) (one)
-    (2 0))
-  (label 164)
-  (parent 116)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))

-
-
Item 165, Parent: 116, Child: 211.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) (mul w x-0))
-   
-  (cat (exp (gen) x) (mul w x-0))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w x x))
-   
-  (cat (exp (gen) x-0) (mul w x x))
-   
-  
-  (exp (gen) (mul w x x x-0))
-   
-  (exp (gen) (mul w x x x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x x x-0)))
-   
-  (exp (gen) (mul w x x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x x-0))) (x x))
-   init
-   
-  plaindh 165

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x x-0))) (x x))
-  (deflistener (exp (gen) (mul w x x x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w x x)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x) (mul w x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul w x x)))
-  (operation nonce-test (added-absence x-0 (mul w x x)) (mul w x x)
-    (2 0))
-  (label 165)
-  (parent 116)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 166, Parent: 116, Child: 212.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0)))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) w))
-   
-  (cat (exp (gen) x) (mul (rec x) w))
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  n
-   
-  (enc n (exp (gen) w))
-   
-  (exp (gen) (mul w (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 166

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul (rec x) w)))
-  (operation nonce-test (added-absence x-0 (mul (rec x) w))
-    (mul (rec x) w) (2 0))
-  (label 166)
-  (parent 116)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 167, Parent: 117, Child: 213.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) (rec x-0))
-   
-  (cat (exp (gen) x) (rec x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (one))
-   
-  (cat (exp (gen) x) (one))
-   
-  
-  (exp (gen) x)
-   
-  (exp (gen) x)
-   
-  n
-   
-  (enc n (exp (gen) x))
-   
-  (exp (gen) (mul x (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 167

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (rec x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-1 x-0) (w (rec x-0))) (one)
-    (2 0))
-  (label 167)
-  (parent 117)
-  (unrealized (0 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 168, Parent: 117, Child: 214.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) (mul w (rec x-0)))
-   
-  (cat (exp (gen) x) (mul w (rec x-0)))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) w)
-   
-  (cat (exp (gen) x) w)
-   
-  
-  (exp (gen) (mul w x))
-   
-  (exp (gen) (mul w x))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x)))
-   
-  (exp (gen) (mul w x (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 168

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) w))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 w))
-  (operation nonce-test (added-absence x-0 w) w (2 0))
-  (label 168)
-  (parent 117)
-  (unrealized (0 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 169, Parent: 117.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) x-0) w)
-   
-  (cat (exp (gen) x-0) w)
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x w))
-   
-  (cat (exp (gen) x-0) (mul x w))
-   
-  
-  (exp (gen) (mul x w x-0))
-   
-  (exp (gen) (mul x w x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w x-0)))
-   
-  (exp (gen) (mul w x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x-0))) (x x))
-   init
-   
-  plaindh 169

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) w))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w) (2 0))
-  (label 169)
-  (parent 117)
-  (unrealized (5 0))
-  (comment "empty cohort"))

-
-
Item 170, Parent: 118.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1)))
-   
-  (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (one))
-   
-  (cat (exp (gen) x-0) (one))
-   
-  
-  (exp (gen) x-0)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  (enc n (exp (gen) x-0))
-   
-  (exp (gen) (mul (rec x) x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-1))
-   init
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-   init
-   
-  plaindh 170

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-2 x) (x-3 x-0) (w (mul (rec x) x-0 (rec x-1)))
-      (x-4 x-1)) (one) (2 0))
-  (label 170)
-  (parent 118)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))

-
-
Item 171, Parent: 118, Child: 215.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w (rec x-1)))
-   
-  (cat (exp (gen) x-0) (mul w (rec x-1)))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) w x-0))
-   
-  (cat (exp (gen) x) (mul (rec x) w x-0))
-   
-  
-  (exp (gen) (mul w x-0))
-   
-  (exp (gen) (mul w x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x-0)))
-   
-  (exp (gen) (mul w x-0 (rec x-1)))
-   
-  
-  
-  (exp (gen) x-1)
-   
-  ((x x-0))
-   init
-   
-  ((x x))
-   init
-   
-  
-   ((n n) (h (exp (gen) (mul w x-0 (rec x-1)))) (x x-1))
-   init
-   
-  plaindh 171

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 (rec x-1)))) (x x-1))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-1))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (absent (x-1 (mul (rec x) w x-0)))
-  (operation nonce-test (added-absence x-1 (mul (rec x) w x-0))
-    (mul (rec x) w x-0) (2 0))
-  (label 171)
-  (parent 118)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 172, Parent: 118, Child: 216.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w x-1))
-   
-  (cat (exp (gen) x-0) (mul w x-1))
-   
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) (mul x w x-0))
-   
-  (cat (exp (gen) x-1) (mul x w x-0))
-   
-  
-  (exp (gen) (mul x w x-0 x-1))
-   
-  (exp (gen) (mul x w x-0 x-1))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w x-0 x-1)))
-   
-  (exp (gen) (mul w x-0 x-1))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((x x-1))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x-0 x-1))) (x x))
-   init
-   
-  plaindh 172

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 x-1))) (x x))
-  (deflistener (exp (gen) (mul x w x-0 x-1)))
-  (deflistener (cat (exp (gen) x-1) (mul x w x-0)))
-  (defstrand init 1 (x x-1))
-  (deflistener (cat (exp (gen) x-0) (mul w x-1)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (absent (x-1 (mul x w x-0)))
-  (operation nonce-test (added-absence x-1 (mul x w x-0)) (mul x w x-0)
-    (2 0))
-  (label 172)
-  (parent 118)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 173, Parent: 118, Child: 217.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) (mul w (rec x-1)))
-   
-  (cat (exp (gen) x-1) (mul w (rec x-1)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-1))
-   init
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 173

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (absent (x-1 (mul x (rec x-0) w)))
-  (operation nonce-test (added-absence x-1 (mul x (rec x-0) w))
-    (mul x (rec x-0) w) (2 0))
-  (label 173)
-  (parent 118)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 174, Parent: 119.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec x) x-0 (rec y)))
-   
-  (cat (exp (gen) y) (mul (rec x) x-0 (rec y)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (one))
-   
-  (cat (exp (gen) x-0) (one))
-   
-  
-  (exp (gen) x-0)
-   
-  (exp (gen) x-0)
-   
-  n
-   
-  (enc n (exp (gen) x-0))
-   
-  (exp (gen) (mul (rec x) x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-   init
-   
-  plaindh 174

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w (mul (rec x) x-0 (rec y))) (y-0 y))
-    (one) (2 0))
-  (label 174)
-  (parent 119)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))

-
-
Item 175, Parent: 119, Child: 218.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w (rec x-0)))
-   
-  (cat (exp (gen) y) (mul w (rec x-0)))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) w y))
-   
-  (cat (exp (gen) x) (mul (rec x) w y))
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  n
-   
-  (enc n (exp (gen) (mul w y)))
-   
-  (exp (gen) (mul w y (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((h h) (y y))
-   resp
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 175

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w y)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w (rec x-0))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (x-0 (mul (rec x) w y)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w y))
-    (mul (rec x) w y) (2 0))
-  (label 175)
-  (parent 119)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 176, Parent: 119, Child: 219.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w x-0))
-   
-  (cat (exp (gen) y) (mul w x-0))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x w y))
-   
-  (cat (exp (gen) x-0) (mul x w y))
-   
-  
-  (exp (gen) (mul x w y x-0))
-   
-  (exp (gen) (mul x w y x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w y x-0)))
-   
-  (exp (gen) (mul w y x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul w y x-0))) (x x))
-   init
-   
-  plaindh 176

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y x-0))) (x x))
-  (deflistener (exp (gen) (mul x w y x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (x-0 (mul x w y)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w y)) (mul x w y)
-    (2 0))
-  (label 176)
-  (parent 119)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 177, Parent: 119, Child: 220.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w (rec y)))
-   
-  (cat (exp (gen) y) (mul w (rec y)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 177

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (y (mul x (rec x-0) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x (rec x-0) w))
-    (mul x (rec x-0) w) (2 0))
-  (label 177)
-  (parent 119)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 178, Parent: 120.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (gen) (mul (rec x) y))
-   
-  (cat (gen) (mul (rec x) y))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (one))
-   
-  (cat (exp (gen) y) (one))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  n
-   
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 178

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul (rec x) y)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul (rec x) y)))
-    (one) (2 0))
-  (label 178)
-  (parent 120)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))

-
-
Item 179, Parent: 120, Child: 221.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (gen) (mul w (rec x)))
-   
-  (cat (gen) (mul w (rec x)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) w))
-   
-  (cat (exp (gen) y) (mul (rec y) w))
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  n
-   
-  (enc n (exp (gen) w))
-   
-  (exp (gen) (mul w (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w (rec x)))) (x x))
-   init
-   
-  plaindh 179

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w (rec x))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (x (mul (rec y) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w))
-    (mul (rec y) w) (2 0))
-  (label 179)
-  (parent 120)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 180, Parent: 120, Child: 222.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (gen) (mul w y))
-   
-  (cat (gen) (mul w y))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x w))
-   
-  (cat (exp (gen) y) (mul x w))
-   
-  
-  (exp (gen) (mul x w y))
-   
-  (exp (gen) (mul x w y))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w y)))
-   
-  (exp (gen) (mul w y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y))) (x x))
-   init
-   
-  plaindh 180

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y (mul x w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x w)) (mul x w) (2 0))
-  (label 180)
-  (parent 120)
-  (unrealized (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 181, Parent: 121.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) (mul y (rec x) (rec x)))
-   
-  (cat (exp (gen) x) (mul y (rec x) (rec x)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (one))
-   
-  (cat (exp (gen) y) (one))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  n
-   
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul y (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul y (rec x)))) (x x))
-   init
-   
-  plaindh 181

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x) (rec x))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (y-0 y) (w (mul y (rec x) (rec x))) (x-0 x)) (one)
-    (2 0))
-  (label 181)
-  (parent 121)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))

-
-
Item 182, Parent: 121, Child: 223.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) (mul w y))
-   
-  (cat (exp (gen) x) (mul w y))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w x x))
-   
-  (cat (exp (gen) y) (mul w x x))
-   
-  
-  (exp (gen) (mul w x x y))
-   
-  (exp (gen) (mul w x x y))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x x y)))
-   
-  (exp (gen) (mul w x y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x y))) (x x))
-   init
-   
-  plaindh 182

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (w expr) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (deflistener (exp (gen) (mul w x x y)))
-  (deflistener (cat (exp (gen) y) (mul w x x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y (mul w x x)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul w x x)) (mul w x x) (2 0))
-  (label 182)
-  (parent 121)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 183, Parent: 121, Child: 224.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) (mul w (rec x) (rec x)))
-   
-  (cat (exp (gen) x) (mul w (rec x) (rec x)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) w))
-   
-  (cat (exp (gen) y) (mul (rec y) w))
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  n
-   
-  (enc n (exp (gen) w))
-   
-  (exp (gen) (mul w (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w (rec x)))) (x x))
-   init
-   
-  plaindh 183

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w (rec x) (rec x))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (x (mul (rec y) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w))
-    (mul (rec y) w) (2 0))
-  (label 183)
-  (parent 121)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 184, Parent: 122.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (one))
-   
-  (cat (exp (gen) y) (one))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  n
-   
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 184

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (y-0 y) (w (mul (rec x) y (rec x-0))) (x-2 x-0))
-    (one) (2 0))
-  (label 184)
-  (parent 122)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))

-
-
Item 185, Parent: 122, Child: 225.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul w (rec x-0)))
-   
-  (cat (exp (gen) x) (mul w (rec x-0)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) w x))
-   
-  (cat (exp (gen) y) (mul (rec y) w x))
-   
-  
-  (exp (gen) (mul w x))
-   
-  (exp (gen) (mul w x))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x)))
-   
-  (exp (gen) (mul w x (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 185

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (absent (x-0 (mul (rec y) w x)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec y) w x))
-    (mul (rec y) w x) (2 0))
-  (label 185)
-  (parent 122)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 186, Parent: 122, Child: 226.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w y))
-   
-  (cat (exp (gen) x-0) (mul w y))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x w x-0))
-   
-  (cat (exp (gen) y) (mul x w x-0))
-   
-  
-  (exp (gen) (mul x w x-0 y))
-   
-  (exp (gen) (mul x w x-0 y))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w x-0 y)))
-   
-  (exp (gen) (mul w x-0 y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x-0 y))) (x x))
-   init
-   
-  plaindh 186

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (deflistener (exp (gen) (mul x w x-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (absent (y (mul x w x-0)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x w x-0)) (mul x w x-0)
-    (2 0))
-  (label 186)
-  (parent 122)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 187, Parent: 122, Child: 227.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul w (rec x-0)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 187

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (absent (x-0 (mul x (rec y) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x (rec y) w))
-    (mul x (rec y) w) (2 0))
-  (label 187)
-  (parent 122)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 188, Parent: 123, Child: 228.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) (rec x))
-   
-  (cat (exp (gen) y) (rec x))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (one))
-   
-  (cat (exp (gen) y) (one))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  n
-   
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul y (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul y (rec x)))) (x x))
-   init
-   
-  plaindh 188

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w (rec x))) (one) (2 0))
-  (label 188)
-  (parent 123)
-  (unrealized (0 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 189, Parent: 123, Child: 229.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) (mul w (rec x)))
-   
-  (cat (exp (gen) y) (mul w (rec x)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) w)
-   
-  (cat (exp (gen) y) w)
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  n
-   
-  (enc n (exp (gen) (mul w y)))
-   
-  (exp (gen) (mul w y (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-   init
-   
-  plaindh 189

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (w expr) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (x w) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w) w (2 0))
-  (label 189)
-  (parent 123)
-  (unrealized (0 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 190, Parent: 123.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) y) w)
-   
-  (cat (exp (gen) y) w)
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x w))
-   
-  (cat (exp (gen) y) (mul x w))
-   
-  
-  (exp (gen) (mul x w y))
-   
-  (exp (gen) (mul x w y))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w y)))
-   
-  (exp (gen) (mul w y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y))) (x x))
-   init
-   
-  plaindh 190

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w) (2 0))
-  (label 190)
-  (parent 123)
-  (unrealized (5 0))
-  (comment "empty cohort"))

-
-
Item 191, Parent: 124.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y-0)
-   
-  h-0
-   
-  
-  (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))
-   
-  (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (one))
-   
-  (cat (exp (gen) y) (one))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  n
-   
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul (rec x) y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h-0) (y y-0))
-   resp
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  plaindh 191

-
-
(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (y-0 h-0) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y) (w (mul (rec x) y (rec y-0))) (y-2 y-0))
-    (one) (2 0))
-  (label 191)
-  (parent 124)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))

-
-
Item 192, Parent: 124, Child: 230.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y-0)
-   
-  h-0
-   
-  
-  (cat (exp (gen) y-0) (mul w (rec x)))
-   
-  (cat (exp (gen) y-0) (mul w (rec x)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) w y-0))
-   
-  (cat (exp (gen) y) (mul (rec y) w y-0))
-   
-  
-  (exp (gen) (mul w y-0))
-   
-  (exp (gen) (mul w y-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul w y-0)))
-   
-  (exp (gen) (mul w y-0 (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h-0) (y y-0))
-   resp
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-   init
-   
-  plaindh 192

-
-
(defskeleton plaindh
-  (vars (n text) (h h-0 base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (x (mul (rec y) w y-0)) (y-0 h-0) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w y-0))
-    (mul (rec y) w y-0) (2 0))
-  (label 192)
-  (parent 124)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 193, Parent: 124, Child: 231.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y)
-   
-  h-0
-   
-  
-  (cat (exp (gen) y) (mul w y-0))
-   
-  (cat (exp (gen) y) (mul w y-0))
-   
-  
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  (cat (exp (gen) y-0) (mul x w y))
-   
-  (cat (exp (gen) y-0) (mul x w y))
-   
-  
-  (exp (gen) (mul x w y y-0))
-   
-  (exp (gen) (mul x w y y-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  (exp (gen) (mul w y y-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h-0) (y y))
-   resp
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y y-0))) (x x))
-   init
-   
-  plaindh 193

-
-
(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (deflistener (exp (gen) (mul x w y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w y)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h-0) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (y-0 (mul x w y)) (y h-0) (y-0 h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w y)) (mul x w y)
-    (2 0))
-  (label 193)
-  (parent 124)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 194, Parent: 124, Child: 232.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) y-0)
-   
-  h-0
-   
-  
-  (cat (exp (gen) y-0) (mul w (rec y-0)))
-   
-  (cat (exp (gen) y-0) (mul w (rec y-0)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h-0) (y y-0))
-   resp
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 194

-
-
(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec y-0))))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (y-0 (mul x (rec y) w)) (y-0 h-0) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x (rec y) w))
-    (mul x (rec y) w) (2 0))
-  (label 194)
-  (parent 124)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 195, Parent: 128.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) y) (rec x))
-   
-  (cat (exp (gen) y) (rec x))
-   
-  
-  (cat (gen) (one))
-   
-  (cat (gen) (one))
-   
-  
-  n
-  (enc n (exp (gen) y))
-   
-  
-  (exp (gen) y)
-   
-  (gen)
-   
-  n
-   
-  
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul y (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (gen)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul y (rec x)))) (x x))
-   init
-   
-  plaindh 195

-
-
(defskeleton plaindh
-  (vars (n text) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 3) (0 3)) ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y (gen)))
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (3 0))
-  (label 195)
-  (parent 128)
-  (unrealized (4 0))
-  (comment "empty cohort"))

-
-
Item 196, Parent: 129.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) y) (mul w (rec x)))
-   
-  (cat (exp (gen) y) (mul w (rec x)))
-   
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  n
-  (enc n (exp (gen) (mul w y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) w)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul w y)))
-   
-  (exp (gen) (mul w y (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) w)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-   init
-   
-  plaindh 196

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 3) (0 3)) ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (x w) (y (exp (gen) w)))
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (3 0))
-  (label 196)
-  (parent 129)
-  (unrealized (4 0))
-  (comment "empty cohort"))

-
-
Item 197, Parent: 138.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x-0
-  x-0
-   
-  
-  (cat (exp (gen) y) (mul w (rec x-0)))
-   
-  (cat (exp (gen) y) (mul w (rec x-0)))
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) w))
-   
-  (cat (exp (gen) x) (mul (rec x) w))
-   
-  
-  n
-  (enc n (exp (gen) (mul w y)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) w)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul w y)))
-   
-  (exp (gen) (mul w y (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) w)) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 197

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (4 0))
-    ((1 3) (0 3)) ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1))
-    ((5 1) (4 0)))
-  (absent (x-0 (mul (rec x) w)) (y (exp (gen) w)))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (4 0))
-  (label 197)
-  (parent 138)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 198, Parent: 139.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x-0
-  x-0
-   
-  
-  (cat (exp (gen) y) (mul w x-0))
-   
-  (cat (exp (gen) y) (mul w x-0))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x w))
-   
-  (cat (exp (gen) x-0) (mul x w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y x-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w x-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y x-0)))
-   
-  (exp (gen) (mul w y x-0))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul x w x-0))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y x-0))) (x x))
-   init
-   
-  plaindh 198

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 1))
-    ((5 1) (4 0)))
-  (absent (x-0 (mul x w)) (y (exp (gen) (mul x w x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w x-0) (4 0))
-  (label 198)
-  (parent 139)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 199, Parent: 145.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) y-0) (mul w (rec x)))
-   
-  (cat (exp (gen) y-0) (mul w (rec x)))
-   
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) w))
-   
-  (cat (exp (gen) y) (mul (rec y) w))
-   
-  
-  n
-  (enc n (exp (gen) (mul w y-0)))
-   
-  
-  (exp (gen) y-0)
-   
-  (exp (gen) w)
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul w y-0)))
-   
-  (exp (gen) (mul w y-0 (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) w)) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-   init
-   
-  plaindh 199

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (4 0))
-    ((1 3) (0 3)) ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1))
-    ((5 1) (4 0)))
-  (absent (x (mul (rec y) w)) (y-0 (exp (gen) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (4 0))
-  (label 199)
-  (parent 145)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 200, Parent: 146.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  y-0
-  y-0
-   
-  
-  (cat (exp (gen) y) (mul w y-0))
-   
-  (cat (exp (gen) y) (mul w y-0))
-   
-  
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  (cat (exp (gen) y-0) (mul x w))
-   
-  (cat (exp (gen) y-0) (mul x w))
-   
-  
-  n
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) (mul x w y-0))
-   
-  n
-   
-  
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  (exp (gen) (mul w y y-0))
-   
-  
-  (exp (gen) x)
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul x w y-0))) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y y-0))) (x x))
-   init
-   
-  plaindh 200

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul x w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((3 1) (5 0)) ((4 1) (0 1))
-    ((5 1) (4 0)))
-  (absent (y-0 (mul x w)) (y (exp (gen) (mul x w y-0))) (y-0 h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (label 200)
-  (parent 146)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 201, Parent: 149.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (gen) (rec x))
-   
-  (cat (gen) (rec x))
-   
-  
-  (cat (gen) (one))
-   
-  (cat (gen) (one))
-   
-  
-  (gen)
-   
-  (gen)
-   
-  n
-   
-  (enc n (gen))
-   
-  (exp (gen) (rec x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (rec x))) (x x))
-   init
-   
-  plaindh 201

-
-
(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (gen) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test (added-listener x) (rec x) (3 0))
-  (label 201)
-  (parent 149)
-  (unrealized (4 0))
-  (comment "empty cohort"))

-
-
Item 202, Parent: 150.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (gen) (mul w (rec x)))
-   
-  (cat (gen) (mul w (rec x)))
-   
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  n
-   
-  (enc n (exp (gen) w))
-   
-  (exp (gen) (mul w (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul w (rec x)))) (x x))
-   init
-   
-  plaindh 202

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (gen) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (absent (x w))
-  (operation nonce-test (added-listener x) (mul w (rec x)) (3 0))
-  (label 202)
-  (parent 150)
-  (unrealized (4 0))
-  (comment "empty cohort"))

-
-
Item 203, Parent: 152.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) x) (mul (rec x) (rec x)))
-   
-  (cat (exp (gen) x) (mul (rec x) (rec x)))
-   
-  
-  (cat (gen) (one))
-   
-  (cat (gen) (one))
-   
-  
-  (gen)
-   
-  (gen)
-   
-  n
-   
-  (enc n (gen))
-   
-  (exp (gen) (rec x))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (rec x))) (x x))
-   init
-   
-  plaindh 203

-
-
(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul (rec x) (rec x)) (3 0))
-  (label 203)
-  (parent 152)
-  (unrealized (4 0))
-  (comment "empty cohort"))

-
-
Item 204, Parent: 153.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) x) (mul w (rec x) (rec x)))
-   
-  (cat (exp (gen) x) (mul w (rec x) (rec x)))
-   
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  n
-   
-  (enc n (exp (gen) w))
-   
-  (exp (gen) (mul w (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((n n) (h (exp (gen) (mul w (rec x)))) (x x))
-   init
-   
-  plaindh 204

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) x) (mul w (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (absent (x w))
-  (operation nonce-test (added-listener x) (mul w (rec x) (rec x))
-    (3 0))
-  (label 204)
-  (parent 153)
-  (unrealized (4 0))
-  (comment "empty cohort"))

-
-
Item 205, Parent: 156.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x-0
-  x-0
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul w (rec x-0)))
-   
-  (cat (exp (gen) x) (mul w (rec x-0)))
-   
-  
-  (cat (gen) (mul w x))
-   
-  (cat (gen) (mul w x))
-   
-  
-  (exp (gen) (mul w x))
-   
-  (exp (gen) (mul w x))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x)))
-   
-  (exp (gen) (mul w x (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 205

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (defstrand init 1 (x x))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)) ((4 0) (3 0)) ((5 1) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul w x)))
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (3 0))
-  (label 205)
-  (parent 156)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 206, Parent: 157.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x-0
-  x-0
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul w (rec x-0)))
-   
-  
-  (cat (gen) (mul x w))
-   
-  (cat (gen) (mul x w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 206

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)) ((4 0) (5 0)) ((5 1) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul x w)))
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (3 0))
-  (label 206)
-  (parent 157)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 207, Parent: 159.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w (rec x)))
-   
-  (cat (exp (gen) y) (mul w (rec x)))
-   
-  
-  (cat (gen) (mul w y))
-   
-  (cat (gen) (mul w y))
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  n
-   
-  (enc n (exp (gen) (mul w y)))
-   
-  (exp (gen) (mul w y (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-   init
-   
-  plaindh 207

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (w expr) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)) ((4 1) (3 0)) ((5 1) (3 0)))
-  (absent (x (mul w y)) (y h))
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (3 0))
-  (label 207)
-  (parent 159)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 208, Parent: 160.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w (rec y)))
-   
-  (cat (exp (gen) y) (mul w (rec y)))
-   
-  
-  (cat (gen) (mul x w))
-   
-  (cat (gen) (mul x w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 208

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul w (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)) ((4 1) (5 0)) ((5 1) (3 0)))
-  (absent (y (mul x w)) (y h))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w (rec y)) (3 0))
-  (label 208)
-  (parent 160)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 209, Parent: 162.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x-0
-  x-0
-   
-  
-  (cat (gen) (mul w (rec x-0)))
-   
-  (cat (gen) (mul w (rec x-0)))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) w))
-   
-  (cat (exp (gen) x) (mul (rec x) w))
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  n
-   
-  (enc n (exp (gen) w))
-   
-  (exp (gen) (mul w (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 209

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (gen) (mul w (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul (rec x) w)))
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (4 0))
-  (label 209)
-  (parent 162)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 210, Parent: 163.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x-0
-  x-0
-   
-  
-  (cat (gen) (mul w x-0))
-   
-  (cat (gen) (mul w x-0))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x w))
-   
-  (cat (exp (gen) x-0) (mul x w))
-   
-  
-  (exp (gen) (mul x w x-0))
-   
-  (exp (gen) (mul x w x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w x-0)))
-   
-  (exp (gen) (mul w x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x-0))) (x x))
-   init
-   
-  plaindh 210

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul x w)))
-  (operation nonce-test (added-listener x-0) (mul w x-0) (4 0))
-  (label 210)
-  (parent 163)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 211, Parent: 165.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x-0
-  x-0
-   
-  
-  (cat (exp (gen) x) (mul w x-0))
-   
-  (cat (exp (gen) x) (mul w x-0))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w x x))
-   
-  (cat (exp (gen) x-0) (mul w x x))
-   
-  
-  (exp (gen) (mul w x x x-0))
-   
-  (exp (gen) (mul w x x x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x x x-0)))
-   
-  (exp (gen) (mul w x x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x x-0))) (x x))
-   init
-   
-  plaindh 211

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x x-0))) (x x))
-  (deflistener (exp (gen) (mul w x x x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w x x)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x) (mul w x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul w x x)))
-  (operation nonce-test (added-listener x-0) (mul w x-0) (4 0))
-  (label 211)
-  (parent 165)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 212, Parent: 166.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x-0
-  x-0
-   
-  
-  (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0)))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) w))
-   
-  (cat (exp (gen) x) (mul (rec x) w))
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  n
-   
-  (enc n (exp (gen) w))
-   
-  (exp (gen) (mul w (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 212

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul (rec x) w)))
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0) (rec x-0))
-    (4 0))
-  (label 212)
-  (parent 166)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 213, Parent: 167.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x-0
-  x-0
-   
-  
-  (cat (exp (gen) x) (rec x-0))
-   
-  (cat (exp (gen) x) (rec x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (one))
-   
-  (cat (exp (gen) x) (one))
-   
-  
-  (exp (gen) x)
-   
-  (exp (gen) x)
-   
-  n
-   
-  (enc n (exp (gen) x))
-   
-  (exp (gen) (mul x (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 213

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (rec x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (rec x-0) (4 0))
-  (label 213)
-  (parent 167)
-  (unrealized (5 0))
-  (comment "empty cohort"))

-
-
Item 214, Parent: 168.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x-0
-  x-0
-   
-  
-  (cat (exp (gen) x) (mul w (rec x-0)))
-   
-  (cat (exp (gen) x) (mul w (rec x-0)))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) w)
-   
-  (cat (exp (gen) x) w)
-   
-  
-  (exp (gen) (mul w x))
-   
-  (exp (gen) (mul w x))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x)))
-   
-  (exp (gen) (mul w x (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 214

-
-
(defskeleton plaindh
-  (vars (n text) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) w))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 w))
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (4 0))
-  (label 214)
-  (parent 168)
-  (unrealized (5 0))
-  (comment "empty cohort"))

-
-
Item 215, Parent: 171.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  x-1
-  x-1
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w (rec x-1)))
-   
-  (cat (exp (gen) x-0) (mul w (rec x-1)))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) w x-0))
-   
-  (cat (exp (gen) x) (mul (rec x) w x-0))
-   
-  
-  (exp (gen) (mul w x-0))
-   
-  (exp (gen) (mul w x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x-0)))
-   
-  (exp (gen) (mul w x-0 (rec x-1)))
-   
-  
-  
-  (exp (gen) x-1)
-   
-  ((x x-0))
-   init
-   
-  ((x x))
-   init
-   
-  
-   ((n n) (h (exp (gen) (mul w x-0 (rec x-1)))) (x x-1))
-   init
-   
-  plaindh 215

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 (rec x-1)))) (x x-1))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-1))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-1)
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)) ((6 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (absent (x-1 (mul (rec x) w x-0)))
-  (operation nonce-test (added-listener x-1) (mul w (rec x-1)) (4 0))
-  (label 215)
-  (parent 171)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 216, Parent: 172.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  x-1
-  x-1
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w x-1))
-   
-  (cat (exp (gen) x-0) (mul w x-1))
-   
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) (mul x w x-0))
-   
-  (cat (exp (gen) x-1) (mul x w x-0))
-   
-  
-  (exp (gen) (mul x w x-0 x-1))
-   
-  (exp (gen) (mul x w x-0 x-1))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w x-0 x-1)))
-   
-  (exp (gen) (mul w x-0 x-1))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((x x-1))
-   init
-   
-  ((n n) (h (exp (gen) (mul w x-0 x-1))) (x x))
-   init
-   
-  plaindh 216

-
-
(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 x-1))) (x x))
-  (deflistener (exp (gen) (mul x w x-0 x-1)))
-  (deflistener (cat (exp (gen) x-1) (mul x w x-0)))
-  (defstrand init 1 (x x-1))
-  (deflistener (cat (exp (gen) x-0) (mul w x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener x-1)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (6 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)) ((6 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (absent (x-1 (mul x w x-0)))
-  (operation nonce-test (added-listener x-1) (mul w x-1) (4 0))
-  (label 216)
-  (parent 172)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 217, Parent: 173.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  x-1
-  x-1
-   
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) (mul w (rec x-1)))
-   
-  (cat (exp (gen) x-1) (mul w (rec x-1)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-1))
-   init
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 217

-
-
(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (deflistener x-1)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (6 0)) ((6 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (absent (x-1 (mul x (rec x-0) w)))
-  (operation nonce-test (added-listener x-1) (mul w (rec x-1)) (4 0))
-  (label 217)
-  (parent 173)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 218, Parent: 175.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  x-0
-  x-0
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w (rec x-0)))
-   
-  (cat (exp (gen) y) (mul w (rec x-0)))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) w y))
-   
-  (cat (exp (gen) x) (mul (rec x) w y))
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  n
-   
-  (enc n (exp (gen) (mul w y)))
-   
-  (exp (gen) (mul w y (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((h h) (y y))
-   resp
-   
-  ((x x))
-   init
-   
-  ((n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 218

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w y)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w (rec x-0))))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)) ((6 1) (4 0)))
-  (absent (x-0 (mul (rec x) w y)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (4 0))
-  (label 218)
-  (parent 175)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 219, Parent: 176.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  x-0
-  x-0
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w x-0))
-   
-  (cat (exp (gen) y) (mul w x-0))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x w y))
-   
-  (cat (exp (gen) x-0) (mul x w y))
-   
-  
-  (exp (gen) (mul x w y x-0))
-   
-  (exp (gen) (mul x w y x-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w y x-0)))
-   
-  (exp (gen) (mul w y x-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) (mul w y x-0))) (x x))
-   init
-   
-  plaindh 219

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y x-0))) (x x))
-  (deflistener (exp (gen) (mul x w y x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (6 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)) ((6 1) (4 0)))
-  (absent (x-0 (mul x w y)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w x-0) (4 0))
-  (label 219)
-  (parent 176)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 220, Parent: 177.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w (rec y)))
-   
-  (cat (exp (gen) y) (mul w (rec y)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((x x-0))
-   init
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 220

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (6 0)) ((6 1) (4 0)))
-  (absent (y (mul x (rec x-0) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w (rec y)) (4 0))
-  (label 220)
-  (parent 177)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 221, Parent: 179.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (gen) (mul w (rec x)))
-   
-  (cat (gen) (mul w (rec x)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) w))
-   
-  (cat (exp (gen) y) (mul (rec y) w))
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  n
-   
-  (enc n (exp (gen) w))
-   
-  (exp (gen) (mul w (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w (rec x)))) (x x))
-   init
-   
-  plaindh 221

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (x (mul (rec y) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (4 0))
-  (label 221)
-  (parent 179)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 222, Parent: 180.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  (cat (gen) (mul w y))
-   
-  (cat (gen) (mul w y))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x w))
-   
-  (cat (exp (gen) y) (mul x w))
-   
-  
-  (exp (gen) (mul x w y))
-   
-  (exp (gen) (mul x w y))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w y)))
-   
-  (exp (gen) (mul w y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y))) (x x))
-   init
-   
-  plaindh 222

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (5 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (mul x w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (label 222)
-  (parent 180)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 223, Parent: 182.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  (cat (exp (gen) x) (mul w y))
-   
-  (cat (exp (gen) x) (mul w y))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w x x))
-   
-  (cat (exp (gen) y) (mul w x x))
-   
-  
-  (exp (gen) (mul w x x y))
-   
-  (exp (gen) (mul w x x y))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x x y)))
-   
-  (exp (gen) (mul w x y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x y))) (x x))
-   init
-   
-  plaindh 223

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (w expr) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (deflistener (exp (gen) (mul w x x y)))
-  (deflistener (cat (exp (gen) y) (mul w x x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (5 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (mul w x x)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (label 223)
-  (parent 182)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 224, Parent: 183.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) x) (mul w (rec x) (rec x)))
-   
-  (cat (exp (gen) x) (mul w (rec x) (rec x)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) w))
-   
-  (cat (exp (gen) y) (mul (rec y) w))
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  n
-   
-  (enc n (exp (gen) w))
-   
-  (exp (gen) (mul w (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w (rec x)))) (x x))
-   init
-   
-  plaindh 224

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (x (mul (rec y) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x) (rec x))
-    (4 0))
-  (label 224)
-  (parent 183)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 225, Parent: 185.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  x-0
-  x-0
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul w (rec x-0)))
-   
-  (cat (exp (gen) x) (mul w (rec x-0)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) w x))
-   
-  (cat (exp (gen) y) (mul (rec y) w x))
-   
-  
-  (exp (gen) (mul w x))
-   
-  (exp (gen) (mul w x))
-   
-  n
-   
-  (enc n (exp (gen) (mul w x)))
-   
-  (exp (gen) (mul w x (rec x-0)))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x))
-   init
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-   init
-   
-  plaindh 225

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (defstrand init 1 (x x))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)) ((6 1) (4 0)))
-  (absent (x-0 (mul (rec y) w x)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (4 0))
-  (label 225)
-  (parent 185)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 226, Parent: 186.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w y))
-   
-  (cat (exp (gen) x-0) (mul w y))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x w x-0))
-   
-  (cat (exp (gen) y) (mul x w x-0))
-   
-  
-  (exp (gen) (mul x w x-0 y))
-   
-  (exp (gen) (mul x w x-0 y))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w x-0 y)))
-   
-  (exp (gen) (mul w x-0 y))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w x-0 y))) (x x))
-   init
-   
-  plaindh 226

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (deflistener (exp (gen) (mul x w x-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (6 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)) ((6 1) (4 0)))
-  (absent (y (mul x w x-0)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (label 226)
-  (parent 186)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 227, Parent: 187.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  x-0
-  x-0
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul w (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul w (rec x-0)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 227

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (6 0)) ((6 1) (4 0)))
-  (absent (x-0 (mul x (rec y) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (4 0))
-  (label 227)
-  (parent 187)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 228, Parent: 188.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) y) (rec x))
-   
-  (cat (exp (gen) y) (rec x))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (one))
-   
-  (cat (exp (gen) y) (one))
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  n
-   
-  (enc n (exp (gen) y))
-   
-  (exp (gen) (mul y (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul y (rec x)))) (x x))
-   init
-   
-  plaindh 228

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (4 0))
-  (label 228)
-  (parent 188)
-  (unrealized (5 0))
-  (comment "empty cohort"))

-
-
Item 229, Parent: 189.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  (cat (exp (gen) y) (mul w (rec x)))
-   
-  (cat (exp (gen) y) (mul w (rec x)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) w)
-   
-  (cat (exp (gen) y) w)
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  n
-   
-  (enc n (exp (gen) (mul w y)))
-   
-  (exp (gen) (mul w y (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-   init
-   
-  plaindh 229

-
-
(defskeleton plaindh
-  (vars (n text) (h base) (w expr) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (x w) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (4 0))
-  (label 229)
-  (parent 189)
-  (unrealized (5 0))
-  (comment "empty cohort"))

-
-
Item 230, Parent: 192.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  
-  (exp (gen) y-0)
-   
-  h-0
-   
-  
-  (cat (exp (gen) y-0) (mul w (rec x)))
-   
-  (cat (exp (gen) y-0) (mul w (rec x)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) w y-0))
-   
-  (cat (exp (gen) y) (mul (rec y) w y-0))
-   
-  
-  (exp (gen) (mul w y-0))
-   
-  (exp (gen) (mul w y-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul w y-0)))
-   
-  (exp (gen) (mul w y-0 (rec x)))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h-0) (y y-0))
-   resp
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-   init
-   
-  plaindh 230

-
-
(defskeleton plaindh
-  (vars (n text) (h h-0 base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)) ((6 1) (4 0)))
-  (absent (x (mul (rec y) w y-0)) (y-0 h-0) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (4 0))
-  (label 230)
-  (parent 192)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 231, Parent: 193.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  y-0
-  y-0
-   
-  
-  
-  (exp (gen) y)
-   
-  h-0
-   
-  
-  (cat (exp (gen) y) (mul w y-0))
-   
-  (cat (exp (gen) y) (mul w y-0))
-   
-  
-  
-  (exp (gen) y-0)
-   
-  h
-   
-  
-  (cat (exp (gen) y-0) (mul x w y))
-   
-  (cat (exp (gen) y-0) (mul x w y))
-   
-  
-  (exp (gen) (mul x w y y-0))
-   
-  (exp (gen) (mul x w y y-0))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w y y-0)))
-   
-  (exp (gen) (mul w y y-0))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h-0) (y y))
-   resp
-   
-  ((h h) (y y-0))
-   resp
-   
-  ((n n) (h (exp (gen) (mul w y y-0))) (x x))
-   init
-   
-  plaindh 231

-
-
(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (deflistener (exp (gen) (mul x w y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w y)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h-0) (y y))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (6 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)) ((6 1) (4 0)))
-  (absent (y-0 (mul x w y)) (y h-0) (y-0 h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (label 231)
-  (parent 193)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 232, Parent: 194.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  y-0
-  y-0
-   
-  
-  
-  (exp (gen) y-0)
-   
-  h-0
-   
-  
-  (cat (exp (gen) y-0) (mul w (rec y-0)))
-   
-  (cat (exp (gen) y-0) (mul w (rec y-0)))
-   
-  
-  
-  (exp (gen) y)
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  (cat (exp (gen) y) (mul x (rec y) w))
-   
-  
-  (exp (gen) (mul x w))
-   
-  (exp (gen) (mul x w))
-   
-  n
-   
-  (enc n (exp (gen) (mul x w)))
-   
-  (exp (gen) w)
-   
-  
-  
-  (exp (gen) x)
-   
-  ((h h-0) (y y-0))
-   resp
-   
-  ((h h) (y y))
-   resp
-   
-  ((n n) (h (exp (gen) w)) (x x))
-   init
-   
-  plaindh 232

-
-
(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec y-0))))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (6 0)) ((6 1) (4 0)))
-  (absent (y-0 (mul x (rec y) w)) (y-0 h-0) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w (rec y-0)) (4 0))
-  (label 232)
-  (parent 194)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))

+
+
+
+ Plain diffie-hellman protocol with challenge-response
+ 
+ 
+
+
+
+
(herald "Plain diffie-hellman protocol with challenge-response"
+  (algebra diffie-hellman))
+(comment "CPSA 3.5.0")
+(comment "All input read from plaindh.scm")

+
+
Tree 0.

+
+

+ 
+  0
+  

+
+
(defprotocol plaindh diffie-hellman
+  (defrole init
+    (vars (x rndx) (y expt) (n text))
+    (trace (send (exp (gen) x)) (recv (exp (gen) y))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    (uniq-orig n)
+    (uniq-gen x))
+  (defrole resp
+    (vars (y rndx) (x expt) (n text))
+    (trace (recv (exp (gen) x)) (send (exp (gen) y))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    (uniq-gen y)
+    (absent (y (exp (gen) x))))
+  (comment "Diffie-hellman key exchange followed by an encryption"))

+
+
Item 0.

+
+

+ 
+  
+   
+    
+   
+  
+  n
+   
+  (enc n (exp (gen) (mul x y)))
+   
+  (exp (gen) y)
+   
+  (exp (gen) x)
+   
+  ((n n) (x x) (y y))
+   init
+   
+  plaindh 0 (realized)

+
+
(defskeleton plaindh
+  (vars (n text) (x rndx) (y expt))
+  (defstrand init 4 (n n) (x x) (y y))
+  (uniq-gen x)
+  (uniq-orig n)
+  (label 0)
+  (unrealized)
+  (shape)
+  (maps ((0) ((x x) (y y) (n n))))
+  (origs (n (0 2))))

 
 
 
diff --git a/doc/examples/priority_test.xhtml b/doc/examples/priority_test.xhtml
--- a/doc/examples/priority_test.xhtml
+++ b/doc/examples/priority_test.xhtml
@@ -1,5 +1,5 @@
 
-
+
 
 
  Receive priority test protocol
@@ -11,7 +11,7 @@
 
 
 
(herald "Receive priority test protocol")
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from priority_test.scm")

 
 
Trees: 0 3.

diff --git a/doc/examples/station.scm b/doc/examples/station.scm
--- a/doc/examples/station.scm
+++ b/doc/examples/station.scm
@@ -14,18 +14,20 @@
 
 (defprotocol station-to-station diffie-hellman
   (defrole init
-    (vars (x expn) (h base) (a b name))
+    (vars (x rndx) (y expt) (a b name))
     (trace
      (send (exp (gen) x))
-     (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-     (send (enc (enc (exp (gen) x) h (privk a)) (exp h x))))
+     (recv (cat (exp (gen) y)
+		(enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x)))))
+     (send (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))))
     (uniq-gen x))
   (defrole resp
-    (vars (y expn) (h base) (a b name))
+    (vars (y rndx) (x expt) (a b name))
     (trace
-     (recv h)
-     (send (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-     (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
+     (recv (exp (gen) x))
+     (send (cat (exp (gen) y)
+		(enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y)))))
+     (recv (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))))
     (uniq-gen y))
 )
 
@@ -43,31 +45,35 @@
 
 (defprotocol station-weak diffie-hellman
   (defrole weak-init
-    (vars (x expn) (h base) (a b name))
+    (vars (x rndx) (y expt) (a b name))
     (trace
      (send (exp (gen) x))
-     (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-     (send (enc (enc (exp (gen) x) h (privk a)) (exp h x))))
-  )
+     (recv (cat (exp (gen) y)
+		(enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x)))))
+     (send (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))))
+					;(uniq-gen x)
+    )
   (defrole weak-resp
-    (vars (y expn) (h base) (a b name))
+    (vars (y rndx) (x expt) (a b name))
     (trace
-     (recv h)
-     (send (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-     (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
-    (absent (y h))
+     (recv (exp (gen) x))
+     (send (cat (exp (gen) y)
+		(enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y)))))
+     (recv (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))))
+					;    (uniq-gen y)
+     (absent (y (exp (gen) x)))
     )
 )
 
 (defskeleton station-weak
-  (vars (a b name) (x expn))
+  (vars (a b name) (x rndx))
   (defstrand weak-init 3 (a a) (b b) (x x))
   (uniq-gen x)
   (non-orig (privk b) (privk a))
 )
 
 (defskeleton station-weak
-  (vars (a b name) (y expn))
+  (vars (a b name) (y rndx))
   (defstrand weak-resp 3 (a a) (b b) (y y))
   (uniq-gen y)
   (non-orig (privk a) (privk b))
diff --git a/doc/examples/station.xhtml b/doc/examples/station.xhtml
--- a/doc/examples/station.xhtml
+++ b/doc/examples/station.xhtml
@@ -1,15235 +1,2392 @@
 
-
-
-
- Station-to-station protocol
- 
- 
-
-
-
-
(herald "Station-to-station protocol" (algebra diffie-hellman))
-(comment "CPSA 3.4.0")
-(comment "All input read from station.scm")

-
-
Trees: 0 67 96 127.

-
-
Tree 0.

-
-

- 
-  29
-  
-  28
-  
-  66
-  
-  65
-  
-  64
-  
-  63
-  
-  62
-  
-  61
-  
-  39
-  
-  34
-  
-  27
-  
-  14
-  
-  26
-  
-  60
-  
-  59
-  
-  58
-  
-  57
-  
-  56
-  
-  55
-  
-  38
-  
-  33
-  
-  25
-  
-  54
-  
-  53
-  
-  52
-  
-  51
-  
-  50
-  
-  37
-  
-  32
-  
-  24
-  
-  13
-  
-  23
-  
-  49
-  
-  48
-  
-  47
-  
-  46
-  
-  45
-  
-  36
-  
-  31
-  
-  22
-  
-  12
-  
-  21
-  
-  44
-  
-  43
-  
-  42
-  
-  41
-  
-  40
-  
-  35
-  
-  30
-  
-  20
-  
-  11
-  
-  9
-  
-  8
-  
-  7
-  
-  6
-  
-  5
-  
-  3
-  
-  2
-  
-  19
-  
-  18
-  
-  17
-  
-  16
-  
-  15
-  
-  10
-  
-  4
-  
-  1
-  
-  0
-  

-
-
(defprotocol station-to-station diffie-hellman
-  (defrole init
-    (vars (x expn) (h base) (a b name))
-    (trace (send (exp (gen) x))
-      (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-      (send (enc (enc (exp (gen) x) h (privk a)) (exp h x))))
-    (uniq-gen x))
-  (defrole resp
-    (vars (y expn) (h base) (a b name))
-    (trace (recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-      (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
-    (uniq-gen y)
-    (absent (y h))))

-
-
Item 0, Children: 1 2 3.

-
-

- 
-  
-   
-    
-   
-  
-  (enc (enc (exp (gen) x) h (privk a)) (exp h x))
-   
-  
-   (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x)))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b) (h h) (x x))
-   init
-   
-  station-to-station 0

-
-
(defskeleton station-to-station
-  (vars (a b name) (h base) (x expn))
-  (defstrand init 3 (a a) (b b) (h h) (x x))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (label 0)
-  (unrealized (0 1))
-  (origs)
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 1, Parent: 0, Child: 4.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  (exp (gen) x-0)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 1

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (1 1)) ((1 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x x-0)
-  (operation encryption-test (added-strand init 3)
-    (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-      (exp (gen) (mul x x-0))) (0 1))
-  (label 1)
-  (parent 0)
-  (unrealized (1 1))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 2, Parent: 0.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) y)) (x x))
-   init
-   
-  station-to-station 2 (realized)
-  

-
-
(defskeleton station-to-station
-  (vars (a b name) (x y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (operation encryption-test (added-strand resp 2)
-    (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-      (exp (gen) (mul x y))) (0 1))
-  (label 2)
-  (parent 0)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (x x) (h (exp (gen) y)))))
-  (origs))

-
-
Item 3, Parent: 0, Children: 5 6 7 8 9.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  (exp h x)
-   
-  (exp h x)
-   
-  (enc (enc (exp (gen) x) h (privk a)) (exp h x))
-   
-  
-   (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x)))
-   
-  
-  (exp (gen) x)
-   
-  ((a a) (b b) (h h) (x x))
-   init
-   
-  station-to-station 3

-
-
(defskeleton station-to-station
-  (vars (a b name) (h base) (x expn))
-  (defstrand init 3 (a a) (b b) (h h) (x x))
-  (deflistener (exp h x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation encryption-test (added-listener (exp h x))
-    (enc (enc h (exp (gen) x) (privk b)) (exp h x)) (0 1))
-  (label 3)
-  (parent 0)
-  (unrealized (0 1) (1 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 4, Parent: 1, Child: 10.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x-0)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 4

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((1 0) (2 0)) ((1 2) (0 1)) ((2 1) (1 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x x-0)
-  (operation encryption-test (added-listener (exp (gen) (mul x x-0)))
-    (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-      (exp (gen) (mul x x-0))) (1 1))
-  (label 4)
-  (parent 1)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 5, Parent: 3.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  (gen)
-   
-  (gen)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) (rec x)) (privk a)) (gen))
-   
-  
-   (cat (exp (gen) (rec x)) (enc (enc (exp (gen) (rec x)) (exp (gen) x) (privk b)) (gen)))
-   
-  
-  (exp (gen) x)
-   
-  ((a a) (b b) (h (exp (gen) (rec x))) (x x))
-   init
-   
-  station-to-station 5

-
-
(defskeleton station-to-station
-  (vars (a b name) (x expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation nonce-test (contracted (h (exp (gen) (rec x)))) (gen)
-    (1 0))
-  (label 5)
-  (parent 3)
-  (unrealized (0 1))
-  (comment "empty cohort"))

-
-
Item 6, Parent: 3.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  (exp (gen) x)
-   
-  (exp (gen) x)
-   
-  
-   (enc (enc (exp (gen) x) (gen) (privk a)) (exp (gen) x))
-   
-  
-   (cat (gen) (enc (enc (gen) (exp (gen) x) (privk b)) (exp (gen) x)))
-   
-  
-  (exp (gen) x)
-   
-  ((a a) (b b) (h (gen)) (x x))
-   init
-   
-  station-to-station 6

-
-
(defskeleton station-to-station
-  (vars (a b name) (x expn))
-  (defstrand init 3 (a a) (b b) (h (gen)) (x x))
-  (deflistener (exp (gen) x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation nonce-test (displaced 2 0 init 1) (exp (gen) x-0) (1 0))
-  (label 6)
-  (parent 3)
-  (unrealized (0 1))
-  (comment "empty cohort"))

-
-
Item 7, Parent: 3.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (exp (gen) x-0)
-   
-  (exp (gen) x-0)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) x-0)) (privk a)) (exp (gen) x-0))
-   
-  
-   (cat (exp (gen) (mul (rec x) x-0)) (enc (enc (exp (gen) (mul (rec x) x-0)) (exp (gen) x) (privk b)) (exp (gen) x-0)))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  
-   ((a a) (b b) (h (exp (gen) (mul (rec x) x-0))) (x x))
-   init
-   
-  station-to-station 7

-
-
(defskeleton station-to-station
-  (vars (a b name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 0) (1 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x x-0)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
-  (label 7)
-  (parent 3)
-  (unrealized (0 1))
-  (comment "empty cohort"))

-
-
Item 8, Parent: 3.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) y)) (privk a)) (exp (gen) y))
-   
-  
-   (cat (exp (gen) (mul (rec x) y)) (enc (enc (exp (gen) (mul (rec x) y)) (exp (gen) x) (privk b)) (exp (gen) y)))
-   
-  
-  (exp (gen) x)
-   
-  ((b b-0) (h h) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) (mul (rec x) y))) (x x))
-   init
-   
-  station-to-station 8

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (h base) (x y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (1 0))
-  (label 8)
-  (parent 3)
-  (unrealized (0 1))
-  (comment "empty cohort"))

-
-
Item 9, Parent: 3, Children: 11 12 13 14.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp h (mul x (rec w))) w)
-   
-  (cat (exp h (mul x (rec w))) w)
-   
-  
-  (exp h x)
-   
-  (exp h x)
-   
-  (enc (enc (exp (gen) x) h (privk a)) (exp h x))
-   
-  
-   (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x)))
-   
-  
-  (exp (gen) x)
-   
-  ((a a) (b b) (h h) (x x))
-   init
-   
-  station-to-station 9

-
-
(defskeleton station-to-station
-  (vars (a b name) (h base) (x expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h h) (x x))
-  (deflistener (exp h x))
-  (deflistener (cat (exp h (mul x (rec w))) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (precur (2 0))
-  (operation nonce-test (added-listener (cat (exp h (mul x (rec w))) w))
-    (exp h x) (1 0))
-  (label 9)
-  (parent 3)
-  (unrealized (0 1) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))

-
-
Item 10, Parent: 4, Children: 15 16 17 18 19.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul x x-0 (rec w))) w)
-   
-  (cat (exp (gen) (mul x x-0 (rec w))) w)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x-0)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 10

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) (mul x x-0 (rec w))) w))
-  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x x-0)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x x-0 (rec w))) w))
-    (exp (gen) (mul x x-0)) (2 0))
-  (label 10)
-  (parent 4)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 11, Parent: 9, Children: 20 21.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) w)) (privk a)) (exp (gen) w))
-   
-  
-   (cat (exp (gen) (mul (rec x) w)) (enc (enc (exp (gen) (mul (rec x) w)) (exp (gen) x) (privk b)) (exp (gen) w)))
-   
-  
-  (exp (gen) x)
-   
-  ((a a) (b b) (h (exp (gen) (mul (rec x) w))) (x x))
-   init
-   
-  station-to-station 11

-
-
(defskeleton station-to-station
-  (vars (a b name) (x expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) (mul (rec x) w))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (precur (2 0))
-  (operation nonce-test (contracted (h (exp (gen) (mul (rec x) w))))
-    (gen) (2 0))
-  (label 11)
-  (parent 9)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))

-
-
Item 12, Parent: 9, Children: 22 23.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp (gen) x) w)
-   
-  (cat (exp (gen) x) w)
-   
-  
-  (exp (gen) (mul w x))
-   
-  (exp (gen) (mul w x))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) w) (privk a)) (exp (gen) (mul w x)))
-   
-  
-   (cat (exp (gen) w) (enc (enc (exp (gen) w) (exp (gen) x) (privk b)) (exp (gen) (mul w x))))
-   
-  
-  (exp (gen) x)
-   
-  ((a a) (b b) (h (exp (gen) w)) (x x))
-   init
-   
-  station-to-station 12

-
-
(defskeleton station-to-station
-  (vars (a b name) (w expr) (x expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (label 12)
-  (parent 9)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))

-
-
Item 13, Parent: 9, Children: 24 25 26.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) w)
-   
-  (cat (exp (gen) x-0) w)
-   
-  
-  (exp (gen) (mul w x-0))
-   
-  (exp (gen) (mul w x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) w x-0)) (privk a)) (exp (gen) (mul w x-0)))
-   
-  
-   (cat (exp (gen) (mul (rec x) w x-0)) (enc (enc (exp (gen) (mul (rec x) w x-0)) (exp (gen) x) (privk b)) (exp (gen) (mul w x-0))))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  
-   ((a a) (b b) (h (exp (gen) (mul (rec x) w x-0))) (x x))
-   init
-   
-  station-to-station 13

-
-
(defskeleton station-to-station
-  (vars (a b name) (x expn) (w expr) (x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) (mul (rec x) w x-0)))
-    (x x))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 0) (2 0)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (label 13)
-  (parent 9)
-  (unrealized (0 1))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 14, Parent: 9, Children: 27 28 29.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) w)
-   
-  (cat (exp (gen) y) w)
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) w y)) (privk a)) (exp (gen) (mul w y)))
-   
-  
-   (cat (exp (gen) (mul (rec x) w y)) (enc (enc (exp (gen) (mul (rec x) w y)) (exp (gen) x) (privk b)) (exp (gen) (mul w y))))
-   
-  
-  (exp (gen) x)
-   
-  ((b b-0) (h h) (y y))
-   resp
-   
-  
-   ((a a) (b b) (h (exp (gen) (mul (rec x) w y))) (x x))
-   init
-   
-  station-to-station 14

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) (mul (rec x) w y))) (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (2 0))
-  (label 14)
-  (parent 9)
-  (unrealized (0 1))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 15, Parent: 10.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x-0)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 15

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x x-0)
-  (precur (3 0))
-  (operation nonce-test (contracted (x-1 x) (x-2 x-0) (w (mul x x-0)))
-    (gen) (3 0))
-  (label 15)
-  (parent 10)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))

-
-
Item 16, Parent: 10.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x)
-   
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x-0)
-   
-  ((a b) (b b-0) (h (exp (gen) x-0)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (x x-0))
-   init
-   
-  station-to-station 16

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x)) (x x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-1) (3 0))
-  (label 16)
-  (parent 10)
-  (unrealized (3 0))
-  (comment "empty cohort"))

-
-
Item 17, Parent: 10.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x-0)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 17

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-1) (3 0))
-  (label 17)
-  (parent 10)
-  (unrealized (3 0))
-  (comment "empty cohort"))

-
-
Item 18, Parent: 10.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
-   
-  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x-0)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-1))
-   init
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 18

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
-    ((3 1) (2 0)) ((4 0) (3 0)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (3 0))
-  (label 18)
-  (parent 10)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))

-
-
Item 19, Parent: 10.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-1)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x x-0 (rec y)))
-   
-  (cat (exp (gen) y) (mul x x-0 (rec y)))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x-0)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x)
-   
-  ((b b-1) (h h) (y y))
-   resp
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 19

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x x-0 y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x x-0 (rec y))))
-  (defstrand resp 2 (b b-1) (h h) (y y))
-  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
-    ((3 1) (2 0)) ((4 1) (3 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x x-0 y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (3 0))
-  (label 19)
-  (parent 10)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))

-
-
Item 20, Parent: 11, Child: 30.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 20

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (operation encryption-test (added-strand init 3)
-    (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (0 1))
-  (label 20)
-  (parent 11)
-  (unrealized (1 0) (2 0) (3 1))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 21, Parent: 11.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  
-  (cat (gen) (mul x y))
-   
-  (cat (gen) (mul x y))
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) y)) (x x))
-   init
-   
-  station-to-station 21

-
-
(defskeleton station-to-station
-  (vars (a b name) (x y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (gen) (mul x y)))
-  (defstrand resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation encryption-test (added-strand resp 2)
-    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
-  (label 21)
-  (parent 11)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))

-
-
Item 22, Parent: 12, Child: 31.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x) x-0)
-   
-  (cat (exp (gen) x) x-0)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 22

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (operation encryption-test (added-strand init 3)
-    (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (0 1))
-  (label 22)
-  (parent 12)
-  (unrealized (2 0) (3 1))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 23, Parent: 12.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) y)
-   
-  (cat (exp (gen) x) y)
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) y)) (x x))
-   init
-   
-  station-to-station 23

-
-
(defskeleton station-to-station
-  (vars (a b name) (x y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x) y))
-  (defstrand resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation encryption-test (added-strand resp 2)
-    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
-  (label 23)
-  (parent 12)
-  (unrealized (2 0))
-  (comment "empty cohort"))

-
-
Item 24, Parent: 13, Child: 32.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 24

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (operation encryption-test (displaced 3 4 init 3)
-    (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (0 1))
-  (label 24)
-  (parent 13)
-  (unrealized (2 0) (3 1))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 25, Parent: 13, Child: 33.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-   (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (exp (gen) (mul x x-1)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-1) (privk b-0)) (exp (gen) (mul x x-1))))
-   
-  
-  (exp (gen) x-1)
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) x-1))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) x-1))
-   
-  
-  (exp (gen) (mul x x-1))
-   
-  (exp (gen) (mul x x-1))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-1) (privk a)) (exp (gen) (mul x x-1)))
-   
-  
-   (cat (exp (gen) x-1) (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (exp (gen) (mul x x-1))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-1))
-   init
-   
-  ((x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-1)) (x x))
-   init
-   
-  station-to-station 25

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-1)) (x x))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-  (defstrand init 1 (x x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (4 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation encryption-test (added-strand init 3)
-    (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (0 1))
-  (label 25)
-  (parent 13)
-  (unrealized (1 0) (2 0) (4 1))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 26, Parent: 13.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) y))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) y))
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  ((x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) y)) (x x))
-   init
-   
-  station-to-station 26

-
-
(defskeleton station-to-station
-  (vars (a b name) (x x-0 y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-  (defstrand init 1 (x x-0))
-  (defstrand resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 0) (2 0))
-    ((4 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0 y)
-  (operation encryption-test (added-strand resp 2)
-    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
-  (label 26)
-  (parent 13)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))

-
-
Item 27, Parent: 14, Child: 34.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) x-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-1) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((b b-0) (h h) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 27

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x y x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 2) (0 1)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y x-0)
-  (operation encryption-test (added-strand init 3)
-    (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (0 1))
-  (label 27)
-  (parent 14)
-  (unrealized (1 0) (2 0) (4 1))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 28, Parent: 14.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) y)) (x x))
-   init
-   
-  station-to-station 28

-
-
(defskeleton station-to-station
-  (vars (a b name) (x y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation encryption-test (displaced 4 3 resp 2)
-    (enc (exp (gen) y-0) (exp (gen) x) (privk b-0)) (0 1))
-  (label 28)
-  (parent 14)
-  (unrealized (2 0))
-  (comment "empty cohort"))

-
-
Item 29, Parent: 14.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) (exp (gen) x) (privk b)) (exp (gen) (mul x y-0))))
-   
-  (exp (gen) x)
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) y-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) y-0))
-   
-  
-  (exp (gen) (mul x y-0))
-   
-  (exp (gen) (mul x y-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y-0) (privk a)) (exp (gen) (mul x y-0)))
-   
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) (exp (gen) x) (privk b)) (exp (gen) (mul x y-0))))
-   
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y-0))
-   resp
-   
-  ((b b-0) (h h) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) y-0)) (x x))
-   init
-   
-  station-to-station 29

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (h base) (x y y-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y-0)) (x x))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) y-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand resp 2 (b b) (h (exp (gen) x)) (y y-0))
-  (precedes ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0))
-    ((4 1) (2 0)))
-  (absent (y-0 (exp (gen) x)) (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (operation encryption-test (added-strand resp 2)
-    (enc (exp (gen) y-0) (exp (gen) x) (privk b)) (0 1))
-  (label 29)
-  (parent 14)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))

-
-
Item 30, Parent: 20, Child: 35.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 30

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((3 2) (0 1)) ((4 1) (3 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (operation encryption-test (added-listener (exp (gen) (mul x x-0)))
-    (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-      (exp (gen) (mul x x-0))) (3 1))
-  (label 30)
-  (parent 20)
-  (unrealized (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 31, Parent: 22, Child: 36.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x) x-0)
-   
-  (cat (exp (gen) x) x-0)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 31

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((3 2) (0 1)) ((4 1) (3 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (operation encryption-test (added-listener (exp (gen) (mul x x-0)))
-    (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-      (exp (gen) (mul x x-0))) (3 1))
-  (label 31)
-  (parent 22)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 32, Parent: 24, Child: 37.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 32

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((3 2) (0 1)) ((4 1) (3 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (operation encryption-test (added-listener (exp (gen) (mul x x-0)))
-    (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-      (exp (gen) (mul x x-0))) (3 1))
-  (label 32)
-  (parent 24)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 33, Parent: 25, Child: 38.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) (mul x x-1))
-   
-  (exp (gen) (mul x x-1))
-   
-  
-  
-   (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (exp (gen) (mul x x-1)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-1) (privk b-0)) (exp (gen) (mul x x-1))))
-   
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) x-1))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) x-1))
-   
-  
-  (exp (gen) (mul x x-1))
-   
-  (exp (gen) (mul x x-1))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-1) (privk a)) (exp (gen) (mul x x-1)))
-   
-  
-   (cat (exp (gen) x-1) (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (exp (gen) (mul x x-1))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-1))
-   init
-   
-  ((x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-1)) (x x))
-   init
-   
-  station-to-station 33

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-1)) (x x))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-  (defstrand init 1 (x x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-1))
-  (deflistener (exp (gen) (mul x x-1)))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 0) (5 0)) ((4 2) (0 1))
-    ((5 1) (4 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation encryption-test (added-listener (exp (gen) (mul x x-1)))
-    (enc (enc (exp (gen) x) (exp (gen) x-1) (privk b-0))
-      (exp (gen) (mul x x-1))) (4 1))
-  (label 33)
-  (parent 25)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 34, Parent: 27, Child: 39.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) x-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-1) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((b b-0) (h h) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 34

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x y x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 0) (5 0)) ((4 2) (0 1))
-    ((5 1) (4 1)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y x-0)
-  (operation encryption-test (added-listener (exp (gen) (mul x x-0)))
-    (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1))
-      (exp (gen) (mul x x-0))) (4 1))
-  (label 34)
-  (parent 27)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 35, Parent: 30, Children: 40 41 42 43 44.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul x x-0 (rec w))) w)
-   
-  (cat (exp (gen) (mul x x-0 (rec w))) w)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 35

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) (mul x x-0 (rec w))) w))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x x-0 (rec w))) w))
-    (exp (gen) (mul x x-0)) (4 0))
-  (label 35)
-  (parent 30)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 36, Parent: 31, Children: 45 46 47 48 49.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul x x-0 (rec w))) w)
-   
-  (cat (exp (gen) (mul x x-0 (rec w))) w)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x) x-0)
-   
-  (cat (exp (gen) x) x-0)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 36

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) (mul x x-0 (rec w))) w))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x x-0 (rec w))) w))
-    (exp (gen) (mul x x-0)) (4 0))
-  (label 36)
-  (parent 31)
-  (unrealized (2 0) (5 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 37, Parent: 32, Children: 50 51 52 53 54.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul x x-0 (rec w))) w)
-   
-  (cat (exp (gen) (mul x x-0 (rec w))) w)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 37

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) (mul x x-0 (rec w))) w))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x x-0 (rec w))) w))
-    (exp (gen) (mul x x-0)) (4 0))
-  (label 37)
-  (parent 32)
-  (unrealized (2 0) (5 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 38, Parent: 33, Children: 55 56 57 58 59 60.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul x x-1 (rec w))) w)
-   
-  (cat (exp (gen) (mul x x-1 (rec w))) w)
-   
-  
-  (exp (gen) (mul x x-1))
-   
-  (exp (gen) (mul x x-1))
-   
-  
-  
-   (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (exp (gen) (mul x x-1)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-1) (privk b-0)) (exp (gen) (mul x x-1))))
-   
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) x-1))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) x-1))
-   
-  
-  (exp (gen) (mul x x-1))
-   
-  (exp (gen) (mul x x-1))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-1) (privk a)) (exp (gen) (mul x x-1)))
-   
-  
-   (cat (exp (gen) x-1) (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (exp (gen) (mul x x-1))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-1))
-   init
-   
-  ((x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-1)) (x x))
-   init
-   
-  station-to-station 38

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-1)) (x x))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-  (defstrand init 1 (x x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-1))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) (mul x x-1 (rec w))) w))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x x-1 (rec w))) w))
-    (exp (gen) (mul x x-1)) (5 0))
-  (label 38)
-  (parent 33)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "6 in cohort - 6 not yet seen"))

-
-
Item 39, Parent: 34, Children: 61 62 63 64 65 66.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul x x-0 (rec w))) w)
-   
-  (cat (exp (gen) (mul x x-0 (rec w))) w)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) x-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-1) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((b b-0) (h h) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 39

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x y x-0 expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) (mul x x-0 (rec w))) w))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x y x-0)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x x-0 (rec w))) w))
-    (exp (gen) (mul x x-0)) (5 0))
-  (label 39)
-  (parent 34)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "6 in cohort - 6 not yet seen"))

-
-
Item 40, Parent: 35.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 40

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (contracted (x-1 x) (x-2 x-0) (w (mul x x-0)))
-    (gen) (5 0))
-  (label 40)
-  (parent 35)
-  (unrealized (1 0) (2 0) (4 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 41, Parent: 35.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((a b) (b b-0) (h (exp (gen) x-0)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (x x-0))
-   init
-   
-  station-to-station 41

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-1) (5 0))
-  (label 41)
-  (parent 35)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 42, Parent: 35.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 42

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 6 3 init 1) (exp (gen) x-1) (5 0))
-  (label 42)
-  (parent 35)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 43, Parent: 35.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
-   
-  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-1))
-   init
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 43

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)) ((6 0) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (5 0))
-  (label 43)
-  (parent 35)
-  (unrealized (1 0) (2 0) (4 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 44, Parent: 35.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-1)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x x-0 (rec y)))
-   
-  (cat (exp (gen) y) (mul x x-0 (rec y)))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((b b-1) (h h) (y y))
-   resp
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 44

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x x-0 y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x x-0 (rec y))))
-  (defstrand resp 2 (b b-1) (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0 y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (5 0))
-  (label 44)
-  (parent 35)
-  (unrealized (1 0) (2 0) (4 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 45, Parent: 36.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x) x-0)
-   
-  (cat (exp (gen) x) x-0)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 45

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (contracted (x-1 x) (x-2 x-0) (w (mul x x-0)))
-    (gen) (5 0))
-  (label 45)
-  (parent 36)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 46, Parent: 36.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((a b) (b b-0) (h (exp (gen) x-0)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (x x-0))
-   init
-   
-  station-to-station 46

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-1) (5 0))
-  (label 46)
-  (parent 36)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 47, Parent: 36.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x) x-0)
-   
-  (cat (exp (gen) x) x-0)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 47

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 6 3 init 1) (exp (gen) x-1) (5 0))
-  (label 47)
-  (parent 36)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 48, Parent: 36.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
-   
-  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x) x-0)
-   
-  (cat (exp (gen) x) x-0)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-1))
-   init
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 48

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)) ((6 0) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (5 0))
-  (label 48)
-  (parent 36)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 49, Parent: 36.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-1)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x x-0 (rec y)))
-   
-  (cat (exp (gen) y) (mul x x-0 (rec y)))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x) x-0)
-   
-  (cat (exp (gen) x) x-0)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((b b-1) (h h) (y y))
-   resp
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 49

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x x-0 y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x x-0 (rec y))))
-  (defstrand resp 2 (b b-1) (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0 y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (5 0))
-  (label 49)
-  (parent 36)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 50, Parent: 37.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 50

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (contracted (x-1 x) (x-2 x-0) (w (mul x x-0)))
-    (gen) (5 0))
-  (label 50)
-  (parent 37)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 51, Parent: 37.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) x-0)
-   
-  (cat (exp (gen) x) x-0)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((a b) (b b-0) (h (exp (gen) x-0)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (x x-0))
-   init
-   
-  station-to-station 51

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-1) (5 0))
-  (label 51)
-  (parent 37)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 52, Parent: 37.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 52

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 6 3 init 1) (exp (gen) x-1) (5 0))
-  (label 52)
-  (parent 37)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 53, Parent: 37.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
-   
-  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-1))
-   init
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 53

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)) ((6 0) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (5 0))
-  (label 53)
-  (parent 37)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 54, Parent: 37.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-1)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x x-0 (rec y)))
-   
-  (cat (exp (gen) y) (mul x x-0 (rec y)))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((b b-1) (h h) (y y))
-   resp
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 54

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x x-0 y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x x-0 (rec y))))
-  (defstrand resp 2 (b b-1) (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0 y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (5 0))
-  (label 54)
-  (parent 37)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 55, Parent: 38.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (cat (gen) (mul x-0 x-1))
-   
-  (cat (gen) (mul x-0 x-1))
-   
-  
-  (exp (gen) (mul x-0 x-1))
-   
-  (exp (gen) (mul x-0 x-1))
-   
-  
-  
-   (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b)) (exp (gen) (mul x-0 x-1)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b-0)) (exp (gen) (mul x-0 x-1))))
-   
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) x-0 x-1))
-   
-  (cat (exp (gen) x) (mul (rec x) x-0 x-1))
-   
-  
-  (exp (gen) (mul x-0 x-1))
-   
-  (exp (gen) (mul x-0 x-1))
-   
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk a)) (exp (gen) (mul x-0 x-1)))
-   
-  
-   (cat (exp (gen) x-1) (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b)) (exp (gen) (mul x-0 x-1))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((a b) (b b-0) (h (exp (gen) x-0)) (x x-1))
-   init
-   
-  ((x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-1)) (x x-0))
-   init
-   
-  station-to-station 55

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-1)) (x x-0))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) x-0 x-1)))
-  (defstrand init 1 (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x-1))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (gen) (mul x-0 x-1)))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test
-    (contracted (x-2 x-0) (x-3 x-1) (w (mul x-0 x-1))) (gen) (6 0))
-  (label 55)
-  (parent 38)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 56, Parent: 38.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-1) x-0)
-   
-  (cat (exp (gen) x-1) x-0)
-   
-  
-  (exp (gen) (mul x-0 x-1))
-   
-  (exp (gen) (mul x-0 x-1))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b)) (exp (gen) (mul x-0 x-1)))
-   
-  
-   (cat (exp (gen) x-1) (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x-0 x-1))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) x-0 x-1))
-   
-  (cat (exp (gen) x) (mul (rec x) x-0 x-1))
-   
-  
-  (exp (gen) (mul x-0 x-1))
-   
-  (exp (gen) (mul x-0 x-1))
-   
-  
-   (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk a)) (exp (gen) (mul x-0 x-1)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b)) (exp (gen) (mul x-0 x-1))))
-   
-  
-  
-  (exp (gen) x-1)
-   
-  ((a b) (b b-0) (h (exp (gen) x-1)) (x x-0))
-   init
-   
-  ((x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x-1))
-   init
-   
-  station-to-station 56

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x-1))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) x-0 x-1)))
-  (defstrand init 1 (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-1)) (x x-0))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x-1) x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-2) (6 0))
-  (label 56)
-  (parent 38)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 57, Parent: 38.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
-   
-  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
-   
-  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((x x-1))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 57

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (6 0)) ((4 0) (2 0)) ((4 0) (6 0))
-    ((4 2) (0 1)) ((5 1) (4 1)) ((6 1) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test (displaced 7 3 init 1) (exp (gen) x-2) (6 0))
-  (label 57)
-  (parent 38)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 58, Parent: 38.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-1) x-0)
-   
-  (cat (exp (gen) x-1) x-0)
-   
-  
-  (exp (gen) (mul x-0 x-1))
-   
-  (exp (gen) (mul x-0 x-1))
-   
-  
-  
-   (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b)) (exp (gen) (mul x-0 x-1)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b-0)) (exp (gen) (mul x-0 x-1))))
-   
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) x-0 x-1))
-   
-  (cat (exp (gen) x) (mul (rec x) x-0 x-1))
-   
-  
-  (exp (gen) (mul x-0 x-1))
-   
-  (exp (gen) (mul x-0 x-1))
-   
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk a)) (exp (gen) (mul x-0 x-1)))
-   
-  
-   (cat (exp (gen) x-1) (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b)) (exp (gen) (mul x-0 x-1))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((a b) (b b-0) (h (exp (gen) x-0)) (x x-1))
-   init
-   
-  ((x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-1)) (x x-0))
-   init
-   
-  station-to-station 58

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-1)) (x x-0))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) x-0 x-1)))
-  (defstrand init 1 (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x-1))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x-1) x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test (displaced 7 4 init 1) (exp (gen) x-2) (6 0))
-  (label 58)
-  (parent 38)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 59, Parent: 38.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-2)
-   
-  
-  (cat (exp (gen) x-2) (mul x-0 x-1 (rec x-2)))
-   
-  (cat (exp (gen) x-2) (mul x-0 x-1 (rec x-2)))
-   
-  
-  (exp (gen) (mul x-0 x-1))
-   
-  (exp (gen) (mul x-0 x-1))
-   
-  
-  
-   (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b)) (exp (gen) (mul x-0 x-1)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b-0)) (exp (gen) (mul x-0 x-1))))
-   
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) x-0 x-1))
-   
-  (cat (exp (gen) x) (mul (rec x) x-0 x-1))
-   
-  
-  (exp (gen) (mul x-0 x-1))
-   
-  (exp (gen) (mul x-0 x-1))
-   
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk a)) (exp (gen) (mul x-0 x-1)))
-   
-  
-   (cat (exp (gen) x-1) (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b)) (exp (gen) (mul x-0 x-1))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((x x-2))
-   init
-   
-  ((a b) (b b-0) (h (exp (gen) x-0)) (x x-1))
-   init
-   
-  ((x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-1)) (x x-0))
-   init
-   
-  station-to-station 59

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 x-2 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-1)) (x x-0))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) x-0 x-1)))
-  (defstrand init 1 (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x-1))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x-2) (mul x-0 x-1 (rec x-2))))
-  (defstrand init 1 (x x-2))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)) ((7 0) (6 0)))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 x-1 x-2)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-2) (6 0))
-  (label 59)
-  (parent 38)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 60, Parent: 38.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-1)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x-0 x-1 (rec y)))
-   
-  (cat (exp (gen) y) (mul x-0 x-1 (rec y)))
-   
-  
-  (exp (gen) (mul x-0 x-1))
-   
-  (exp (gen) (mul x-0 x-1))
-   
-  
-  
-   (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b)) (exp (gen) (mul x-0 x-1)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b-0)) (exp (gen) (mul x-0 x-1))))
-   
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul (rec x) x-0 x-1))
-   
-  (cat (exp (gen) x) (mul (rec x) x-0 x-1))
-   
-  
-  (exp (gen) (mul x-0 x-1))
-   
-  (exp (gen) (mul x-0 x-1))
-   
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk a)) (exp (gen) (mul x-0 x-1)))
-   
-  
-   (cat (exp (gen) x-1) (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b)) (exp (gen) (mul x-0 x-1))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((b b-1) (h h) (y y))
-   resp
-   
-  ((a b) (b b-0) (h (exp (gen) x-0)) (x x-1))
-   init
-   
-  ((x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x-1)) (x x-0))
-   init
-   
-  station-to-station 60

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x x-0 x-1 y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-1)) (x x-0))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) x-0 x-1)))
-  (defstrand init 1 (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x-1))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) y) (mul x-0 x-1 (rec y))))
-  (defstrand resp 2 (b b-1) (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)) ((7 1) (6 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 x-1 y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (6 0))
-  (label 60)
-  (parent 38)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 61, Parent: 39.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) x x-0))
-   
-  (cat (exp (gen) y) (mul (rec y) x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-1) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((b b-0) (h h) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 61

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (y x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) x x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen y x x-0)
-  (operation nonce-test (contracted (x-1 x) (x-2 x-0) (w (mul x x-0)))
-    (gen) (6 0))
-  (label 61)
-  (parent 39)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 62, Parent: 39.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-1)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) x x-0))
-   
-  (cat (exp (gen) y) (mul (rec y) x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  ((a b) (b b-1) (h (exp (gen) x-0)) (x x))
-   init
-   
-  ((b b-0) (h h) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) x)) (x x-0))
-   init
-   
-  station-to-station 62

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (y x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) x x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen y x x-0)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-1) (6 0))
-  (label 62)
-  (parent 39)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 63, Parent: 39.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) x x-0))
-   
-  (cat (exp (gen) y) (mul (rec y) x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-1) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((b b-0) (h h) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 63

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (y x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) x x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen y x x-0)
-  (operation nonce-test (displaced 7 4 init 1) (exp (gen) x-1) (6 0))
-  (label 63)
-  (parent 39)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 64, Parent: 39.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-1)
-   
-  
-  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
-   
-  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) x x-0))
-   
-  (cat (exp (gen) y) (mul (rec y) x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((x x-1))
-   init
-   
-  ((a b) (b b-1) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((b b-0) (h h) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 64

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (y x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) x x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)) ((7 0) (6 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen y x x-0 x-1)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (6 0))
-  (label 64)
-  (parent 39)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 65, Parent: 39.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) (mul x x-0 (rec y)))
-   
-  (cat (exp (gen) y) (mul x x-0 (rec y)))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x x-0 (rec y)))
-   
-  (cat (exp (gen) y) (mul x x-0 (rec y)))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-1) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((b b-0) (h h) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 65

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x x-0 y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x x-0 (rec y))))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x x-0 (rec y))))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (6 0)) ((4 0) (2 0)) ((4 0) (6 0))
-    ((4 2) (0 1)) ((5 1) (4 1)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 y)
-  (operation nonce-test (displaced 7 3 resp 2) (exp (gen) y-0) (6 0))
-  (label 65)
-  (parent 39)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))

-
-
Item 66, Parent: 39.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) h-0 (privk b-2)) (exp h-0 y-0)))
-   
-  h-0
-   
-  
-  (cat (exp (gen) y-0) (mul x x-0 (rec y-0)))
-   
-  (cat (exp (gen) y-0) (mul x x-0 (rec y-0)))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x-0)
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul (rec y) x x-0))
-   
-  (cat (exp (gen) y) (mul (rec y) x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((b b-2) (h h-0) (y y-0))
-   resp
-   
-  ((a b) (b b-1) (h (exp (gen) x)) (x x-0))
-   init
-   
-  ((b b-0) (h h) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   init
-   
-  station-to-station 66

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 b-2 name) (h h-0 base) (y x x-0 y-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) x x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x x-0 (rec y-0))))
-  (defstrand resp 2 (b b-2) (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)) ((7 1) (6 0)))
-  (absent (y-0 h-0) (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen y x x-0 y-0)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (6 0))
-  (label 66)
-  (parent 39)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))

-
-
Tree 67.

-
-

- 
-  87
-  
-  78
-  
-  95
-  
-  94
-  
-  93
-  
-  92
-  
-  91
-  
-  90
-  
-  89
-  
-  88
-  
-  86
-  
-  77
-  
-  85
-  
-  76
-  
-  84
-  
-  75
-  
-  73
-  
-  72
-  
-  69
-  
-  83
-  
-  82
-  
-  81
-  
-  80
-  
-  79
-  
-  74
-  
-  71
-  
-  70
-  
-  68
-  
-  67
-  

-
-
(defprotocol station-to-station diffie-hellman
-  (defrole init
-    (vars (x expn) (h base) (a b name))
-    (trace (send (exp (gen) x))
-      (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-      (send (enc (enc (exp (gen) x) h (privk a)) (exp h x))))
-    (uniq-gen x))
-  (defrole resp
-    (vars (y expn) (h base) (a b name))
-    (trace (recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-      (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
-    (uniq-gen y)
-    (absent (y h))))

-
-
Item 67, Children: 68 69.

-
-

- 
-  
-   
-    
-   
-  
-  (enc (enc h (exp (gen) y) (privk a)) (exp h y))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b)) (exp h y)))
-   
-  h
-   
-  ((a a) (b b) (h h) (y y))
-   resp
-   
-  station-to-station 67

-
-
(defskeleton station-to-station
-  (vars (a b name) (h base) (y expn))
-  (defstrand resp 3 (a a) (b b) (h h) (y y))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (label 67)
-  (unrealized (0 2))
-  (origs)
-  (comment "2 in cohort - 2 not yet seen"))

-
-
Item 68, Parent: 67, Children: 70 71.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  
-  (exp (gen) x)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 68

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (operation encryption-test (added-strand init 3)
-    (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-      (exp (gen) (mul y x))) (0 2))
-  (label 68)
-  (parent 67)
-  (unrealized (1 1))
-  (comment "2 in cohort - 2 not yet seen"))

-
-
Item 69, Parent: 67, Children: 72 73.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  (exp h y)
-   
-  (exp h y)
-   
-  (enc (enc h (exp (gen) y) (privk a)) (exp h y))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b)) (exp h y)))
-   
-  h
-   
-  ((a a) (b b) (h h) (y y))
-   resp
-   
-  station-to-station 69

-
-
(defskeleton station-to-station
-  (vars (a b name) (h base) (y expn))
-  (defstrand resp 3 (a a) (b b) (h h) (y y))
-  (deflistener (exp h y))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (operation encryption-test (added-listener (exp h y))
-    (enc (enc h (exp (gen) y) (privk a)) (exp h y)) (0 2))
-  (label 69)
-  (parent 67)
-  (unrealized (0 2) (1 0))
-  (comment "2 in cohort - 2 not yet seen"))

-
-
Item 70, Parent: 68.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  
-  (exp (gen) x)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 70 (realized)
-  

-
-
(defskeleton station-to-station
-  (vars (a b name) (x y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (operation encryption-test (displaced 2 0 resp 2)
-    (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-      (exp (gen) (mul x y))) (1 1))
-  (label 70)
-  (parent 68)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (y y) (h (exp (gen) x)))))
-  (origs))

-
-
Item 71, Parent: 68, Child: 74.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  
-  (exp (gen) x)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 71

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (precedes ((0 1) (2 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (operation encryption-test (added-listener (exp (gen) (mul y x)))
-    (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-      (exp (gen) (mul y x))) (1 1))
-  (label 71)
-  (parent 68)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 72, Parent: 69.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  
-   (enc (enc (gen) (exp (gen) y) (privk a)) (exp (gen) y))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (gen) (privk b)) (exp (gen) y)))
-   
-  (gen)
-   
-  ((a a) (b b) (h (gen)) (y y))
-   resp
-   
-  station-to-station 72

-
-
(defskeleton station-to-station
-  (vars (a b name) (y expn))
-  (defstrand resp 3 (a a) (b b) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y (gen)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (operation nonce-test (displaced 2 0 resp 2) (exp (gen) y-0) (1 0))
-  (label 72)
-  (parent 69)
-  (unrealized (0 2))
-  (comment "empty cohort"))

-
-
Item 73, Parent: 69, Children: 75 76 77 78.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp h (mul y (rec w))) w)
-   
-  (cat (exp h (mul y (rec w))) w)
-   
-  
-  (exp h y)
-   
-  (exp h y)
-   
-  (enc (enc h (exp (gen) y) (privk a)) (exp h y))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b)) (exp h y)))
-   
-  h
-   
-  ((a a) (b b) (h h) (y y))
-   resp
-   
-  station-to-station 73

-
-
(defskeleton station-to-station
-  (vars (a b name) (h base) (y expn) (w expr))
-  (defstrand resp 3 (a a) (b b) (h h) (y y))
-  (deflistener (exp h y))
-  (deflistener (cat (exp h (mul y (rec w))) w))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (precur (2 0))
-  (operation nonce-test (added-listener (cat (exp h (mul y (rec w))) w))
-    (exp h y) (1 0))
-  (label 73)
-  (parent 69)
-  (unrealized (0 2) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))

-
-
Item 74, Parent: 71, Children: 79 80 81 82 83.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul y x (rec w))) w)
-   
-  (cat (exp (gen) (mul y x (rec w))) w)
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  
-  (exp (gen) x)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 74

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn) (w expr))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) (mul y x (rec w))) w))
-  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y x (rec w))) w))
-    (exp (gen) (mul y x)) (2 0))
-  (label 74)
-  (parent 71)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 75, Parent: 73, Child: 84.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (gen) (mul w y))
-   
-  (cat (gen) (mul w y))
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  
-   (enc (enc (exp (gen) w) (exp (gen) y) (privk a)) (exp (gen) (mul w y)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) w) (privk b)) (exp (gen) (mul w y))))
-   
-  (exp (gen) w)
-   
-  ((a a) (b b) (h (exp (gen) w)) (y y))
-   resp
-   
-  station-to-station 75

-
-
(defskeleton station-to-station
-  (vars (a b name) (w expr) (y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))
-  (absent (y (exp (gen) w)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (precur (2 0))
-  (operation nonce-test
-    (contracted (y-0 y) (h (exp (gen) w)) (w (mul w y))) (gen) (2 0))
-  (label 75)
-  (parent 73)
-  (unrealized (0 2) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 76, Parent: 73, Child: 85.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul w y))
-   
-  (cat (exp (gen) x) (mul w y))
-   
-  
-  (exp (gen) (mul w x y))
-   
-  (exp (gen) (mul w x y))
-   
-  
-   (enc (enc (exp (gen) (mul w x)) (exp (gen) y) (privk a)) (exp (gen) (mul w x y)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) (mul w x)) (privk b)) (exp (gen) (mul w x y))))
-   
-  (exp (gen) (mul w x))
-   
-  ((x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) (mul w x))) (y y))
-   resp
-   
-  station-to-station 76

-
-
(defskeleton station-to-station
-  (vars (a b name) (w expr) (x y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (exp (gen) (mul w x y)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (defstrand init 1 (x x))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (0 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation nonce-test (added-strand init 1) (exp (gen) x) (2 0))
-  (label 76)
-  (parent 73)
-  (unrealized (0 2) (1 0) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 77, Parent: 73, Child: 86.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp (gen) y) w)
-   
-  (cat (exp (gen) y) w)
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  
-   (enc (enc (exp (gen) w) (exp (gen) y) (privk a)) (exp (gen) (mul w y)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) w) (privk b)) (exp (gen) (mul w y))))
-   
-  (exp (gen) w)
-   
-  ((a a) (b b) (h (exp (gen) w)) (y y))
-   resp
-   
-  station-to-station 77

-
-
(defskeleton station-to-station
-  (vars (a b name) (w expr) (y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))
-  (absent (y (exp (gen) w)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y)
-  (operation nonce-test (displaced 3 0 resp 2) (exp (gen) y-0) (2 0))
-  (label 77)
-  (parent 73)
-  (unrealized (0 2))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 78, Parent: 73, Child: 87.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w y-0))
-   
-  (cat (exp (gen) y) (mul w y-0))
-   
-  
-  (exp (gen) (mul w y y-0))
-   
-  (exp (gen) (mul w y y-0))
-   
-  
-   (enc (enc (exp (gen) (mul w y)) (exp (gen) y-0) (privk a)) (exp (gen) (mul w y y-0)))
-   
-  
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) (exp (gen) (mul w y)) (privk b)) (exp (gen) (mul w y y-0))))
-   
-  (exp (gen) (mul w y))
-   
-  ((b b-0) (h h) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) (mul w y))) (y y-0))
-   resp
-   
-  station-to-station 78

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (h base) (w expr) (y y-0 expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) (mul w y))) (y y-0))
-  (deflistener (exp (gen) (mul w y y-0)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (0 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w y))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y y-0)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (2 0))
-  (label 78)
-  (parent 73)
-  (unrealized (0 2) (1 0) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 79, Parent: 74.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (gen) (mul y x))
-   
-  (cat (gen) (mul y x))
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  
-  (exp (gen) x)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 79

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (gen) (mul y x)))
-  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (precur (3 0))
-  (operation nonce-test (contracted (y-0 y) (x-0 x) (w (mul y x))) (gen)
-    (3 0))
-  (label 79)
-  (parent 74)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))

-
-
Item 80, Parent: 74.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) y)
-   
-  (cat (exp (gen) x) y)
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  
-  (exp (gen) x)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 80

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x) y))
-  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x)
-  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-0) (3 0))
-  (label 80)
-  (parent 74)
-  (unrealized (3 0))
-  (comment "empty cohort"))

-
-
Item 81, Parent: 74.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul y x (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul y x (rec x-0)))
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  
-  (exp (gen) x)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 81

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (y x x-0 expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
-    ((3 1) (2 0)) ((4 0) (3 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x x-0)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (label 81)
-  (parent 74)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))

-
-
Item 82, Parent: 74.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul x y))))
-   
-  
-  (exp (gen) x)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 82

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x y)
-  (operation nonce-test (displaced 4 0 resp 2) (exp (gen) y-0) (3 0))
-  (label 82)
-  (parent 74)
-  (unrealized (3 0))
-  (comment "empty cohort"))

-
-
Item 83, Parent: 74.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) h (privk b-1)) (exp h y-0)))
-   
-  h
-   
-  
-  (cat (exp (gen) y-0) (mul y x (rec y-0)))
-   
-  (cat (exp (gen) y-0) (mul y x (rec y-0)))
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  
-  (exp (gen) x)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((b b-1) (h h) (y y-0))
-   resp
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 83

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (y x y-0 expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y-0) (mul y x (rec y-0))))
-  (defstrand resp 2 (b b-1) (h h) (y y-0))
-  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
-    ((3 1) (2 0)) ((4 1) (3 0)))
-  (absent (y-0 h) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x y-0)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (label 83)
-  (parent 74)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))

-
-
Item 84, Parent: 75.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  (cat (gen) (mul w y))
-   
-  (cat (gen) (mul w y))
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  
-   (enc (enc (exp (gen) w) (exp (gen) y) (privk a)) (exp (gen) (mul w y)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) w) (privk b)) (exp (gen) (mul w y))))
-   
-  (exp (gen) w)
-   
-  ((a a) (b b) (h (exp (gen) w)) (y y))
-   resp
-   
-  station-to-station 84

-
-
(defskeleton station-to-station
-  (vars (a b name) (w expr) (y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y (exp (gen) w)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (precur (2 0))
-  (operation nonce-test (added-listener y) (mul w y) (2 0))
-  (label 84)
-  (parent 75)
-  (unrealized (0 2) (3 0))
-  (comment "empty cohort"))

-
-
Item 85, Parent: 76.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul w y))
-   
-  (cat (exp (gen) x) (mul w y))
-   
-  
-  (exp (gen) (mul w x y))
-   
-  (exp (gen) (mul w x y))
-   
-  
-   (enc (enc (exp (gen) (mul w x)) (exp (gen) y) (privk a)) (exp (gen) (mul w x y)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) (mul w x)) (privk b)) (exp (gen) (mul w x y))))
-   
-  (exp (gen) (mul w x))
-   
-  ((x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) (mul w x))) (y y))
-   resp
-   
-  station-to-station 85

-
-
(defskeleton station-to-station
-  (vars (a b name) (w expr) (x y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (exp (gen) (mul w x y)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (defstrand init 1 (x x))
-  (deflistener y)
-  (precedes ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (0 0))
-    ((4 1) (2 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation nonce-test (added-listener y) (mul w y) (2 0))
-  (label 85)
-  (parent 76)
-  (unrealized (0 2) (4 0))
-  (comment "empty cohort"))

-
-
Item 86, Parent: 77, Children: 88 89.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 86

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (precedes ((0 1) (2 0)) ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y x)
-  (operation encryption-test (added-strand init 3)
-    (enc (exp (gen) x) (exp (gen) y) (privk a)) (0 2))
-  (label 86)
-  (parent 77)
-  (unrealized (2 0) (3 1))
-  (comment "2 in cohort - 2 not yet seen"))

-
-
Item 87, Parent: 78.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  y-0
-  y-0
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w y-0))
-   
-  (cat (exp (gen) y) (mul w y-0))
-   
-  
-  (exp (gen) (mul w y y-0))
-   
-  (exp (gen) (mul w y y-0))
-   
-  
-   (enc (enc (exp (gen) (mul w y)) (exp (gen) y-0) (privk a)) (exp (gen) (mul w y y-0)))
-   
-  
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) (exp (gen) (mul w y)) (privk b)) (exp (gen) (mul w y y-0))))
-   
-  (exp (gen) (mul w y))
-   
-  ((b b-0) (h h) (y y))
-   resp
-   
-  ((a a) (b b) (h (exp (gen) (mul w y))) (y y-0))
-   resp
-   
-  station-to-station 87

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (h base) (w expr) (y y-0 expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) (mul w y))) (y y-0))
-  (deflistener (exp (gen) (mul w y y-0)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (0 0))
-    ((4 1) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w y))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y y-0)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (2 0))
-  (label 87)
-  (parent 78)
-  (unrealized (0 2) (4 0))
-  (comment "empty cohort"))

-
-
Item 88, Parent: 86.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 88

-
-
(defskeleton station-to-station
-  (vars (a b name) (x y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (precedes ((0 1) (2 0)) ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation encryption-test (displaced 4 0 resp 2)
-    (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-      (exp (gen) (mul x y))) (3 1))
-  (label 88)
-  (parent 86)
-  (unrealized (2 0))
-  (comment "empty cohort"))

-
-
Item 89, Parent: 86, Child: 90.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 89

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (precedes ((0 1) (2 0)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)) ((4 1) (3 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y x)
-  (operation encryption-test (added-listener (exp (gen) (mul y x)))
-    (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-      (exp (gen) (mul y x))) (3 1))
-  (label 89)
-  (parent 86)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 90, Parent: 89, Children: 91 92 93 94 95.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) (mul y x (rec w))) w)
-   
-  (cat (exp (gen) (mul y x (rec w))) w)
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 90

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn) (w expr))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) (mul y x (rec w))) w))
-  (precedes ((0 1) (2 0)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)) ((4 1) (3 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen y x)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y x (rec w))) w))
-    (exp (gen) (mul y x)) (4 0))
-  (label 90)
-  (parent 89)
-  (unrealized (2 0) (5 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 91, Parent: 90.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (gen) (mul y x))
-   
-  (cat (gen) (mul y x))
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 91

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (gen) (mul y x)))
-  (precedes ((0 1) (2 0)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)) ((4 1) (3 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen y x)
-  (operation nonce-test (contracted (y-0 y) (x-0 x) (w (mul y x))) (gen)
-    (5 0))
-  (label 91)
-  (parent 90)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 92, Parent: 90.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) x) y)
-   
-  (cat (exp (gen) x) y)
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 92

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x) y))
-  (precedes ((0 1) (2 0)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)) ((4 1) (3 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen y x)
-  (operation nonce-test (displaced 6 3 init 1) (exp (gen) x-0) (5 0))
-  (label 92)
-  (parent 90)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 93, Parent: 90.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul y x (rec x-0)))
-   
-  (cat (exp (gen) x-0) (mul y x (rec x-0)))
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((x x-0))
-   init
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 93

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (y x x-0 expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 1) (2 0)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)) ((4 1) (3 1)) ((5 1) (4 0))
-    ((6 0) (5 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen y x x-0)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (5 0))
-  (label 93)
-  (parent 90)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 94, Parent: 90.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul x y))))
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 94

-
-
(defskeleton station-to-station
-  (vars (a b b-0 name) (x y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 1) (2 0)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)) ((4 1) (3 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x y)
-  (operation nonce-test (displaced 6 0 resp 2) (exp (gen) y-0) (5 0))
-  (label 94)
-  (parent 90)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))

-
-
Item 95, Parent: 90.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) h (privk b-1)) (exp h y-0)))
-   
-  h
-   
-  
-  (cat (exp (gen) y-0) (mul y x (rec y-0)))
-   
-  (cat (exp (gen) y-0) (mul y x (rec y-0)))
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((b b-1) (h h) (y y-0))
-   resp
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   resp
-   
-  station-to-station 95

-
-
(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (y x y-0 expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y-0) (mul y x (rec y-0))))
-  (defstrand resp 2 (b b-1) (h h) (y y-0))
-  (precedes ((0 1) (2 0)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)) ((4 1) (3 1)) ((5 1) (4 0))
-    ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen y x y-0)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (5 0))
-  (label 95)
-  (parent 90)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))

-
-
Tree 96.

-
-

- 
-  126
-  
-  118
-  
-  117
-  
-  125
-  
-  116
-  
-  108
-  
-  124
-  
-  115
-  
-  123
-  
-  114
-  
-  113
-  
-  107
-  
-  98
-  
-  122
-  
-  112
-  
-  97
-  
-  121
-  
-  111
-  
-  106
-  
-  120
-  
-  110
-  
-  119
-  
-  109
-  
-  105
-  
-  104
-  
-  103
-  
-  102
-  
-  101
-  
-  100
-  
-  99
-  
-  98
-  
-  97
-  
-  96
-  

-
-
(defprotocol station-weak diffie-hellman
-  (defrole weak-init
-    (vars (x expn) (h base) (a b name))
-    (trace (send (exp (gen) x))
-      (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-      (send (enc (enc (exp (gen) x) h (privk a)) (exp h x)))))
-  (defrole weak-resp
-    (vars (y expn) (h base) (a b name))
-    (trace (recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-      (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
-    (absent (y h))))

-
-
Item 96, Children: 97 98 99.

-
-

- 
-  
-   
-    
-   
-  
-  (enc (enc (exp (gen) x) h (privk a)) (exp h x))
-   
-  
-   (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x)))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b) (h h) (x x))
-   weak-init
-   
-  station-weak 96

-
-
(defskeleton station-weak
-  (vars (a b name) (h base) (x expn))
-  (defstrand weak-init 3 (a a) (b b) (h h) (x x))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (label 96)
-  (unrealized (0 1))
-  (origs)
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 97, Parent: 96.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  (exp (gen) x-0)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   weak-init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   weak-init
-   
-  station-weak 97 (realized)
- 

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (1 1)) ((1 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-init 3)
-    (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-      (exp (gen) (mul x x-0))) (0 1))
-  (label 97)
-  (parent 96)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (x x) (h (exp (gen) x-0)))))
-  (origs))

-
-
Item 98, Parent: 96.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) y)) (x x))
-   weak-init
-   
-  station-weak 98 (realized)
- 

-
-
(defskeleton station-weak
-  (vars (a b name) (x y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-resp 2)
-    (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-      (exp (gen) (mul x y))) (0 1))
-  (label 98)
-  (parent 96)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (x x) (h (exp (gen) y)))))
-  (origs))

-
-
Item 99, Parent: 96, Children: 100 101 102 103 104.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  (exp h x)
-   
-  (exp h x)
-   
-  (enc (enc (exp (gen) x) h (privk a)) (exp h x))
-   
-  
-   (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x)))
-   
-  
-  (exp (gen) x)
-   
-  ((a a) (b b) (h h) (x x))
-   weak-init
-   
-  station-weak 99

-
-
(defskeleton station-weak
-  (vars (a b name) (h base) (x expn))
-  (defstrand weak-init 3 (a a) (b b) (h h) (x x))
-  (deflistener (exp h x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation encryption-test (added-listener (exp h x))
-    (enc (enc h (exp (gen) x) (privk b)) (exp h x)) (0 1))
-  (label 99)
-  (parent 96)
-  (unrealized (0 1) (1 0))
-  (comment "5 in cohort - 5 not yet seen"))

-
-
Item 100, Parent: 99.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  (gen)
-   
-  (gen)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) (rec x)) (privk a)) (gen))
-   
-  
-   (cat (exp (gen) (rec x)) (enc (enc (exp (gen) (rec x)) (exp (gen) x) (privk b)) (gen)))
-   
-  
-  (exp (gen) x)
-   
-  ((a a) (b b) (h (exp (gen) (rec x))) (x x))
-   weak-init
-   
-  station-weak 100

-
-
(defskeleton station-weak
-  (vars (a b name) (x expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation nonce-test (contracted (h (exp (gen) (rec x)))) (gen)
-    (1 0))
-  (label 100)
-  (parent 99)
-  (unrealized (0 1))
-  (comment "empty cohort"))

-
-
Item 101, Parent: 99.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  (exp (gen) x)
-   
-  (exp (gen) x)
-   
-  
-   (enc (enc (exp (gen) x) (gen) (privk a)) (exp (gen) x))
-   
-  
-   (cat (gen) (enc (enc (gen) (exp (gen) x) (privk b)) (exp (gen) x)))
-   
-  
-  (exp (gen) x)
-   
-  ((a a) (b b) (h (gen)) (x x))
-   weak-init
-   
-  station-weak 101

-
-
(defskeleton station-weak
-  (vars (a b name) (x expn))
-  (defstrand weak-init 3 (a a) (b b) (h (gen)) (x x))
-  (deflistener (exp (gen) x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation nonce-test (displaced 2 0 weak-init 1) (exp (gen) x-0)
-    (1 0))
-  (label 101)
-  (parent 99)
-  (unrealized (0 1))
-  (comment "empty cohort"))

-
-
Item 102, Parent: 99.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (exp (gen) x-0)
-   
-  (exp (gen) x-0)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) x-0)) (privk a)) (exp (gen) x-0))
-   
-  
-   (cat (exp (gen) (mul (rec x) x-0)) (enc (enc (exp (gen) (mul (rec x) x-0)) (exp (gen) x) (privk b)) (exp (gen) x-0)))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   weak-init
-   
-  
-   ((a a) (b b) (h (exp (gen) (mul (rec x) x-0))) (x x))
-   weak-init
-   
-  station-weak 102

-
-
(defskeleton station-weak
-  (vars (a b name) (x x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) (mul (rec x) x-0)))
-    (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand weak-init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 0) (1 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation nonce-test (added-strand weak-init 1) (exp (gen) x-0)
-    (1 0))
-  (label 102)
-  (parent 99)
-  (unrealized (0 1))
-  (comment "empty cohort"))

-
-
Item 103, Parent: 99.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) y)) (privk a)) (exp (gen) y))
-   
-  
-   (cat (exp (gen) (mul (rec x) y)) (enc (enc (exp (gen) (mul (rec x) y)) (exp (gen) x) (privk b)) (exp (gen) y)))
-   
-  
-  (exp (gen) x)
-   
-  ((b b-0) (h h) (y y))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) (mul (rec x) y))) (x x))
-   weak-init
-   
-  station-weak 103

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (h base) (x y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) (mul (rec x) y)))
-    (x x))
-  (deflistener (exp (gen) y))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation nonce-test (added-strand weak-resp 2) (exp (gen) y) (1 0))
-  (label 103)
-  (parent 99)
-  (unrealized (0 1))
-  (comment "empty cohort"))

-
-
Item 104, Parent: 99, Children: 105 106 107 108.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp h (mul x (rec w))) w)
-   
-  (cat (exp h (mul x (rec w))) w)
-   
-  
-  (exp h x)
-   
-  (exp h x)
-   
-  (enc (enc (exp (gen) x) h (privk a)) (exp h x))
-   
-  
-   (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x)))
-   
-  
-  (exp (gen) x)
-   
-  ((a a) (b b) (h h) (x x))
-   weak-init
-   
-  station-weak 104

-
-
(defskeleton station-weak
-  (vars (a b name) (h base) (x expn) (w expr))
-  (defstrand weak-init 3 (a a) (b b) (h h) (x x))
-  (deflistener (exp h x))
-  (deflistener (cat (exp h (mul x (rec w))) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (precur (2 0))
-  (operation nonce-test (added-listener (cat (exp h (mul x (rec w))) w))
-    (exp h x) (1 0))
-  (label 104)
-  (parent 99)
-  (unrealized (0 1) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))

-
-
Item 105, Parent: 104, Children: 109 110.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (gen) w)
-   
-  (cat (gen) w)
-   
-  
-  (exp (gen) w)
-   
-  (exp (gen) w)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) w)) (privk a)) (exp (gen) w))
-   
-  
-   (cat (exp (gen) (mul (rec x) w)) (enc (enc (exp (gen) (mul (rec x) w)) (exp (gen) x) (privk b)) (exp (gen) w)))
-   
-  
-  (exp (gen) x)
-   
-  ((a a) (b b) (h (exp (gen) (mul (rec x) w))) (x x))
-   weak-init
-   
-  station-weak 105

-
-
(defskeleton station-weak
-  (vars (a b name) (x expn) (w expr))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) (mul (rec x) w)))
-    (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (precur (2 0))
-  (operation nonce-test (contracted (h (exp (gen) (mul (rec x) w))))
-    (gen) (2 0))
-  (label 105)
-  (parent 104)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))

-
-
Item 106, Parent: 104, Children: 111 112.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp (gen) x) w)
-   
-  (cat (exp (gen) x) w)
-   
-  
-  (exp (gen) (mul w x))
-   
-  (exp (gen) (mul w x))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) w) (privk a)) (exp (gen) (mul w x)))
-   
-  
-   (cat (exp (gen) w) (enc (enc (exp (gen) w) (exp (gen) x) (privk b)) (exp (gen) (mul w x))))
-   
-  
-  (exp (gen) x)
-   
-  ((a a) (b b) (h (exp (gen) w)) (x x))
-   weak-init
-   
-  station-weak 106

-
-
(defskeleton station-weak
-  (vars (a b name) (w expr) (x expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (displaced 3 0 weak-init 1) (exp (gen) x-0)
-    (2 0))
-  (label 106)
-  (parent 104)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))

-
-
Item 107, Parent: 104, Children: 113 114 115.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) w)
-   
-  (cat (exp (gen) x-0) w)
-   
-  
-  (exp (gen) (mul w x-0))
-   
-  (exp (gen) (mul w x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) w x-0)) (privk a)) (exp (gen) (mul w x-0)))
-   
-  
-   (cat (exp (gen) (mul (rec x) w x-0)) (enc (enc (exp (gen) (mul (rec x) w x-0)) (exp (gen) x) (privk b)) (exp (gen) (mul w x-0))))
-   
-  
-  (exp (gen) x)
-   
-  ((x x-0))
-   weak-init
-   
-  
-   ((a a) (b b) (h (exp (gen) (mul (rec x) w x-0))) (x x))
-   weak-init
-   
-  station-weak 107

-
-
(defskeleton station-weak
-  (vars (a b name) (x expn) (w expr) (x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) (mul (rec x) w x-0)))
-    (x x))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand weak-init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 0) (2 0)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-strand weak-init 1) (exp (gen) x-0)
-    (2 0))
-  (label 107)
-  (parent 104)
-  (unrealized (0 1))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 108, Parent: 104, Children: 116 117 118.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) w)
-   
-  (cat (exp (gen) y) w)
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) w y)) (privk a)) (exp (gen) (mul w y)))
-   
-  
-   (cat (exp (gen) (mul (rec x) w y)) (enc (enc (exp (gen) (mul (rec x) w y)) (exp (gen) x) (privk b)) (exp (gen) (mul w y))))
-   
-  
-  (exp (gen) x)
-   
-  ((b b-0) (h h) (y y))
-   weak-resp
-   
-  
-   ((a a) (b b) (h (exp (gen) (mul (rec x) w y))) (x x))
-   weak-init
-   
-  station-weak 108

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (h base) (x expn) (w expr) (y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) (mul (rec x) w y)))
-    (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-strand weak-resp 2) (exp (gen) y) (2 0))
-  (label 108)
-  (parent 104)
-  (unrealized (0 1))
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 109, Parent: 105, Child: 119.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  (exp (gen) x-0)
-   
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   weak-init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   weak-init
-   
-  station-weak 109

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-init 3)
-    (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (0 1))
-  (label 109)
-  (parent 105)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 110, Parent: 105, Child: 120.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  
-  (cat (gen) (mul x y))
-   
-  (cat (gen) (mul x y))
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) y)) (x x))
-   weak-init
-   
-  station-weak 110

-
-
(defskeleton station-weak
-  (vars (a b name) (x y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (gen) (mul x y)))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-resp 2)
-    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
-  (label 110)
-  (parent 105)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 111, Parent: 106, Child: 121.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x) x-0)
-   
-  (cat (exp (gen) x) x-0)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   weak-init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   weak-init
-   
-  station-weak 111 (realized)
- 

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-init 3)
-    (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (0 1))
-  (label 111)
-  (parent 106)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 112, Parent: 106, Child: 122.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) y)
-   
-  (cat (exp (gen) x) y)
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) y)) (x x))
-   weak-init
-   
-  station-weak 112 (realized)
- 

-
-
(defskeleton station-weak
-  (vars (a b name) (x y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x) y))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-resp 2)
-    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
-  (label 112)
-  (parent 106)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 113, Parent: 107.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) x)
-   
-  (cat (exp (gen) x-0) x)
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   weak-init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   weak-init
-   
-  station-weak 113

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (displaced 3 4 weak-init 3)
-    (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (0 1))
-  (label 113)
-  (parent 107)
-  (unrealized (2 0))
-  (comment "empty cohort"))

-
-
Item 114, Parent: 107, Child: 123.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-   (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (exp (gen) (mul x x-1)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-1) (privk b-0)) (exp (gen) (mul x x-1))))
-   
-  (exp (gen) x-1)
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) x-1))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) x-1))
-   
-  
-  (exp (gen) (mul x x-1))
-   
-  (exp (gen) (mul x x-1))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-1) (privk a)) (exp (gen) (mul x x-1)))
-   
-  
-   (cat (exp (gen) x-1) (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (exp (gen) (mul x x-1))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-1))
-   weak-init
-   
-  ((x x-0))
-   weak-init
-   
-  ((a a) (b b) (h (exp (gen) x-1)) (x x))
-   weak-init
-   
-  station-weak 114

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-1)) (x x))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-  (defstrand weak-init 1 (x x-0))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (4 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-init 3)
-    (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (0 1))
-  (label 114)
-  (parent 107)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 115, Parent: 107, Child: 124.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) y))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) y))
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y))
-   weak-resp
-   
-  ((x x-0))
-   weak-init
-   
-  ((a a) (b b) (h (exp (gen) y)) (x x))
-   weak-init
-   
-  station-weak 115

-
-
(defskeleton station-weak
-  (vars (a b name) (x x-0 y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-  (defstrand weak-init 1 (x x-0))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-resp 2)
-    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
-  (label 115)
-  (parent 107)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 116, Parent: 108, Child: 125.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1)) (exp (gen) (mul x x-0))))
-   
-  (exp (gen) x-0)
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) x-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-1) (h (exp (gen) x)) (x x-0))
-   weak-init
-   
-  ((b b-0) (h h) (y y))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   weak-init
-   
-  station-weak 116

-
-
(defskeleton station-weak
-  (vars (a b b-0 b-1 name) (h base) (x y x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) x-0)))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (defstrand weak-init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 2) (0 1)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-init 3)
-    (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (0 1))
-  (label 116)
-  (parent 108)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 117, Parent: 108.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) y)) (x x))
-   weak-init
-   
-  station-weak 117

-
-
(defskeleton station-weak
-  (vars (a b name) (x y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (displaced 4 3 weak-resp 2)
-    (enc (exp (gen) y-0) (exp (gen) x) (privk b-0)) (0 1))
-  (label 117)
-  (parent 108)
-  (unrealized (2 0))
-  (comment "empty cohort"))

-
-
Item 118, Parent: 108, Child: 126.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) (exp (gen) x) (privk b)) (exp (gen) (mul x y-0))))
-   
-  (exp (gen) x)
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) y-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) y-0))
-   
-  
-  (exp (gen) (mul x y-0))
-   
-  (exp (gen) (mul x y-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y-0) (privk a)) (exp (gen) (mul x y-0)))
-   
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) (exp (gen) x) (privk b)) (exp (gen) (mul x y-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y-0))
-   weak-resp
-   
-  ((b b-0) (h h) (y y))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) y-0)) (x x))
-   weak-init
-   
-  station-weak 118

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (h base) (x y y-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y-0)) (x x))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) y-0)))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y-0 (exp (gen) x)) (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-resp 2)
-    (enc (exp (gen) y-0) (exp (gen) x) (privk b)) (0 1))
-  (label 118)
-  (parent 108)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 119, Parent: 109.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  (exp (gen) x-0)
-   
-  
-  (cat (gen) (mul x x-0))
-   
-  (cat (gen) (mul x x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   weak-init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   weak-init
-   
-  station-weak 119

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener x)
-  (precedes ((0 0) (3 1)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 2) (0 1)) ((4 1) (2 0)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-listener x) (mul x x-0) (2 0))
-  (label 119)
-  (parent 109)
-  (unrealized (4 0))
-  (comment "empty cohort"))

-
-
Item 120, Parent: 110.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  
-  (cat (gen) (mul x y))
-   
-  (cat (gen) (mul x y))
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) y)) (x x))
-   weak-init
-   
-  station-weak 120

-
-
(defskeleton station-weak
-  (vars (a b name) (x y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (gen) (mul x y)))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (deflistener x)
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-listener x) (mul x y) (2 0))
-  (label 120)
-  (parent 110)
-  (unrealized (4 0))
-  (comment "empty cohort"))

-
-
Item 121, Parent: 111, Seen Child: 97.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
-   
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x) x-0)
-   
-  (cat (exp (gen) x) x-0)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-0))
-   weak-init
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   weak-init
-   
-  station-weak 121 (realized)
- 

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (1 0)) ((0 0) (2 1)) ((1 1) (0 1)) ((2 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen x)
-  (operation generalization deleted (1 0))
-  (label 121)
-  (parent 111)
-  (seen 97)
-  (unrealized)
-  (comment "1 in cohort - 0 not yet seen"))

-
-
Item 122, Parent: 112, Seen Child: 98.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) y)
-   
-  (cat (exp (gen) x) y)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) y)) (x x))
-   weak-init
-   
-  station-weak 122 (realized)
- 

-
-
(defskeleton station-weak
-  (vars (a b name) (x y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (cat (exp (gen) x) y))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen x)
-  (operation generalization deleted (1 0))
-  (label 122)
-  (parent 112)
-  (seen 98)
-  (unrealized)
-  (comment "1 in cohort - 0 not yet seen"))

-
-
Item 123, Parent: 114.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  
-   (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (exp (gen) (mul x x-1)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-1) (privk b-0)) (exp (gen) (mul x x-1))))
-   
-  (exp (gen) x-1)
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) x-1))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) x-1))
-   
-  
-  (exp (gen) (mul x x-1))
-   
-  (exp (gen) (mul x x-1))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-1) (privk a)) (exp (gen) (mul x x-1)))
-   
-  
-   (cat (exp (gen) x-1) (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (exp (gen) (mul x x-1))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-0) (h (exp (gen) x)) (x x-1))
-   weak-init
-   
-  ((x x-0))
-   weak-init
-   
-  ((a a) (b b) (h (exp (gen) x-1)) (x x))
-   weak-init
-   
-  station-weak 123

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-1)) (x x))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-  (defstrand weak-init 1 (x x-0))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-1))
-  (deflistener x)
-  (precedes ((0 0) (4 1)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 2) (0 1)) ((5 1) (2 0)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-listener x) (mul x (rec x-0) x-1) (2 0))
-  (label 123)
-  (parent 114)
-  (unrealized (5 0))
-  (comment "empty cohort"))

-
-
Item 124, Parent: 115.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  (exp (gen) x)
-   
-  
-  (exp (gen) x-0)
-   
-  
-  (cat (exp (gen) x-0) (mul x (rec x-0) y))
-   
-  (cat (exp (gen) x-0) (mul x (rec x-0) y))
-   
-  
-  (exp (gen) (mul x y))
-   
-  (exp (gen) (mul x y))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y))
-   weak-resp
-   
-  ((x x-0))
-   weak-init
-   
-  ((a a) (b b) (h (exp (gen) y)) (x x))
-   weak-init
-   
-  station-weak 124

-
-
(defskeleton station-weak
-  (vars (a b name) (x x-0 y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-  (defstrand weak-init 1 (x x-0))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-listener x) (mul x (rec x-0) y) (2 0))
-  (label 124)
-  (parent 115)
-  (unrealized (5 0))
-  (comment "empty cohort"))

-
-
Item 125, Parent: 116.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  
-   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1)) (exp (gen) (mul x x-0))))
-   
-  (exp (gen) x-0)
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) x-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) x-0))
-   
-  
-  (exp (gen) (mul x x-0))
-   
-  (exp (gen) (mul x x-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
-   
-  
-   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((a b) (b b-1) (h (exp (gen) x)) (x x-0))
-   weak-init
-   
-  ((b b-0) (h h) (y y))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) x-0)) (x x))
-   weak-init
-   
-  station-weak 125

-
-
(defskeleton station-weak
-  (vars (a b b-0 b-1 name) (h base) (x y x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) x-0)))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (defstrand weak-init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener x)
-  (precedes ((0 0) (4 1)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 2) (0 1)) ((5 1) (2 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-listener x) (mul x (rec y) x-0) (2 0))
-  (label 125)
-  (parent 116)
-  (unrealized (5 0))
-  (comment "empty cohort"))

-
-
Item 126, Parent: 118.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  
-  x
-  x
-   
-  
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) (exp (gen) x) (privk b)) (exp (gen) (mul x y-0))))
-   
-  (exp (gen) x)
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul x (rec y) y-0))
-   
-  (cat (exp (gen) y) (mul x (rec y) y-0))
-   
-  
-  (exp (gen) (mul x y-0))
-   
-  (exp (gen) (mul x y-0))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y-0) (privk a)) (exp (gen) (mul x y-0)))
-   
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) (exp (gen) x) (privk b)) (exp (gen) (mul x y-0))))
-   
-  
-  
-  (exp (gen) x)
-   
-  ((b b) (h (exp (gen) x)) (y y-0))
-   weak-resp
-   
-  ((b b-0) (h h) (y y))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) y-0)) (x x))
-   weak-init
-   
-  station-weak 126

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (h base) (x y y-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y-0)) (x x))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) y-0)))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y-0))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (absent (y-0 (exp (gen) x)) (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-listener x) (mul x (rec y) y-0) (2 0))
-  (label 126)
-  (parent 118)
-  (unrealized (5 0))
-  (comment "empty cohort"))

-
-
Tree 127.

-
-

- 
-  141
-  
-  136
-  
-  129
-  
-  143
-  
-  140
-  
-  128
-  
-  142
-  
-  139
-  
-  135
-  
-  138
-  
-  134
-  
-  137
-  
-  133
-  
-  132
-  
-  131
-  
-  130
-  
-  129
-  
-  128
-  
-  127
-  

-
-
(defprotocol station-weak diffie-hellman
-  (defrole weak-init
-    (vars (x expn) (h base) (a b name))
-    (trace (send (exp (gen) x))
-      (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-      (send (enc (enc (exp (gen) x) h (privk a)) (exp h x)))))
-  (defrole weak-resp
-    (vars (y expn) (h base) (a b name))
-    (trace (recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-      (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
-    (absent (y h))))

-
-
Item 127, Children: 128 129 130.

-
-

- 
-  
-   
-    
-   
-  
-  (enc (enc h (exp (gen) y) (privk a)) (exp h y))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b)) (exp h y)))
-   
-  h
-   
-  ((a a) (b b) (h h) (y y))
-   weak-resp
-   
-  station-weak 127

-
-
(defskeleton station-weak
-  (vars (a b name) (h base) (y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h h) (y y))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (label 127)
-  (unrealized (0 2))
-  (origs)
-  (comment "3 in cohort - 3 not yet seen"))

-
-
Item 128, Parent: 127.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   weak-init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   weak-resp
-   
-  station-weak 128 (realized)
- 

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (y x expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand weak-init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (precedes ((0 1) (1 1)) ((1 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (operation encryption-test (added-strand weak-init 3)
-    (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-      (exp (gen) (mul y x))) (0 2))
-  (label 128)
-  (parent 127)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (y y) (h (exp (gen) x)))))
-  (origs))

-
-
Item 129, Parent: 127.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) (exp (gen) y) (privk a)) (exp (gen) (mul y y-0))))
-   
-  (exp (gen) y)
-   
-  
-   (enc (enc (exp (gen) y-0) (exp (gen) y) (privk a)) (exp (gen) (mul y y-0)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) y-0) (privk b)) (exp (gen) (mul y y-0))))
-   
-  (exp (gen) y-0)
-   
-  ((b a) (h (exp (gen) y)) (y y-0))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) y-0)) (y y))
-   weak-resp
-   
-  station-weak 129 (realized)
- 

-
-
(defskeleton station-weak
-  (vars (a b name) (y y-0 expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) y-0)) (y y))
-  (defstrand weak-resp 2 (b a) (h (exp (gen) y)) (y y-0))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y-0 (exp (gen) y)) (y (exp (gen) y-0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (operation encryption-test (added-strand weak-resp 2)
-    (enc (enc (exp (gen) y-0) (exp (gen) y) (privk a))
-      (exp (gen) (mul y y-0))) (0 2))
-  (label 129)
-  (parent 127)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (y y) (h (exp (gen) y-0)))))
-  (origs))

-
-
Item 130, Parent: 127, Children: 131 132.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  (exp h y)
-   
-  (exp h y)
-   
-  (enc (enc h (exp (gen) y) (privk a)) (exp h y))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b)) (exp h y)))
-   
-  h
-   
-  ((a a) (b b) (h h) (y y))
-   weak-resp
-   
-  station-weak 130

-
-
(defskeleton station-weak
-  (vars (a b name) (h base) (y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h h) (y y))
-  (deflistener (exp h y))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (operation encryption-test (added-listener (exp h y))
-    (enc (enc h (exp (gen) y) (privk a)) (exp h y)) (0 2))
-  (label 130)
-  (parent 127)
-  (unrealized (0 2) (1 0))
-  (comment "2 in cohort - 2 not yet seen"))

-
-
Item 131, Parent: 130.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  (exp (gen) y)
-   
-  (exp (gen) y)
-   
-  
-   (enc (enc (gen) (exp (gen) y) (privk a)) (exp (gen) y))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (gen) (privk b)) (exp (gen) y)))
-   
-  (gen)
-   
-  ((a a) (b b) (h (gen)) (y y))
-   weak-resp
-   
-  station-weak 131

-
-
(defskeleton station-weak
-  (vars (a b name) (y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y (gen)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (operation nonce-test (displaced 2 0 weak-resp 2) (exp (gen) y-0)
-    (1 0))
-  (label 131)
-  (parent 130)
-  (unrealized (0 2))
-  (comment "empty cohort"))

-
-
Item 132, Parent: 130, Children: 133 134 135 136.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp h (mul y (rec w))) w)
-   
-  (cat (exp h (mul y (rec w))) w)
-   
-  
-  (exp h y)
-   
-  (exp h y)
-   
-  (enc (enc h (exp (gen) y) (privk a)) (exp h y))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b)) (exp h y)))
-   
-  h
-   
-  ((a a) (b b) (h h) (y y))
-   weak-resp
-   
-  station-weak 132

-
-
(defskeleton station-weak
-  (vars (a b name) (h base) (y expn) (w expr))
-  (defstrand weak-resp 3 (a a) (b b) (h h) (y y))
-  (deflistener (exp h y))
-  (deflistener (cat (exp h (mul y (rec w))) w))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (precur (2 0))
-  (operation nonce-test (added-listener (cat (exp h (mul y (rec w))) w))
-    (exp h y) (1 0))
-  (label 132)
-  (parent 130)
-  (unrealized (0 2) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))

-
-
Item 133, Parent: 132, Child: 137.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (gen) (mul w y))
-   
-  (cat (gen) (mul w y))
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  
-   (enc (enc (exp (gen) w) (exp (gen) y) (privk a)) (exp (gen) (mul w y)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) w) (privk b)) (exp (gen) (mul w y))))
-   
-  (exp (gen) w)
-   
-  ((a a) (b b) (h (exp (gen) w)) (y y))
-   weak-resp
-   
-  station-weak 133

-
-
(defskeleton station-weak
-  (vars (a b name) (w expr) (y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))
-  (absent (y (exp (gen) w)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (precur (2 0))
-  (operation nonce-test
-    (contracted (y-0 y) (h (exp (gen) w)) (w (mul w y))) (gen) (2 0))
-  (label 133)
-  (parent 132)
-  (unrealized (0 2) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 134, Parent: 132, Child: 138.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul w y))
-   
-  (cat (exp (gen) x) (mul w y))
-   
-  
-  (exp (gen) (mul w x y))
-   
-  (exp (gen) (mul w x y))
-   
-  
-   (enc (enc (exp (gen) (mul w x)) (exp (gen) y) (privk a)) (exp (gen) (mul w x y)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) (mul w x)) (privk b)) (exp (gen) (mul w x y))))
-   
-  (exp (gen) (mul w x))
-   
-  ((x x))
-   weak-init
-   
-  ((a a) (b b) (h (exp (gen) (mul w x))) (y y))
-   weak-resp
-   
-  station-weak 134

-
-
(defskeleton station-weak
-  (vars (a b name) (w expr) (x y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (exp (gen) (mul w x y)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (defstrand weak-init 1 (x x))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (2 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y)
-  (operation nonce-test (added-strand weak-init 1) (exp (gen) x) (2 0))
-  (label 134)
-  (parent 132)
-  (unrealized (0 2) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 135, Parent: 132, Children: 139 140.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  (cat (exp (gen) y) w)
-   
-  (cat (exp (gen) y) w)
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  
-   (enc (enc (exp (gen) w) (exp (gen) y) (privk a)) (exp (gen) (mul w y)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) w) (privk b)) (exp (gen) (mul w y))))
-   
-  (exp (gen) w)
-   
-  ((a a) (b b) (h (exp (gen) w)) (y y))
-   weak-resp
-   
-  station-weak 135

-
-
(defskeleton station-weak
-  (vars (a b name) (w expr) (y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))
-  (absent (y (exp (gen) w)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y)
-  (operation nonce-test (displaced 3 0 weak-resp 2) (exp (gen) y-0)
-    (2 0))
-  (label 135)
-  (parent 132)
-  (unrealized (0 2))
-  (comment "2 in cohort - 2 not yet seen"))

-
-
Item 136, Parent: 132, Child: 141.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w y-0))
-   
-  (cat (exp (gen) y) (mul w y-0))
-   
-  
-  (exp (gen) (mul w y y-0))
-   
-  (exp (gen) (mul w y y-0))
-   
-  
-   (enc (enc (exp (gen) (mul w y)) (exp (gen) y-0) (privk a)) (exp (gen) (mul w y y-0)))
-   
-  
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) (exp (gen) (mul w y)) (privk b)) (exp (gen) (mul w y y-0))))
-   
-  (exp (gen) (mul w y))
-   
-  ((b b-0) (h h) (y y))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) (mul w y))) (y y-0))
-   weak-resp
-   
-  station-weak 136

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (h base) (w expr) (y y-0 expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) (mul w y))) (y y-0))
-  (deflistener (exp (gen) (mul w y y-0)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w y))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y-0)
-  (operation nonce-test (added-strand weak-resp 2) (exp (gen) y) (2 0))
-  (label 136)
-  (parent 132)
-  (unrealized (0 2) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 137, Parent: 133.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  (cat (gen) (mul w y))
-   
-  (cat (gen) (mul w y))
-   
-  
-  (exp (gen) (mul w y))
-   
-  (exp (gen) (mul w y))
-   
-  
-   (enc (enc (exp (gen) w) (exp (gen) y) (privk a)) (exp (gen) (mul w y)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) w) (privk b)) (exp (gen) (mul w y))))
-   
-  (exp (gen) w)
-   
-  ((a a) (b b) (h (exp (gen) w)) (y y))
-   weak-resp
-   
-  station-weak 137

-
-
(defskeleton station-weak
-  (vars (a b name) (w expr) (y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y (exp (gen) w)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (precur (2 0))
-  (operation nonce-test (added-listener y) (mul w y) (2 0))
-  (label 137)
-  (parent 133)
-  (unrealized (0 2) (3 0))
-  (comment "empty cohort"))

-
-
Item 138, Parent: 134.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  y
-  y
-   
-  
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) x) (mul w y))
-   
-  (cat (exp (gen) x) (mul w y))
-   
-  
-  (exp (gen) (mul w x y))
-   
-  (exp (gen) (mul w x y))
-   
-  
-   (enc (enc (exp (gen) (mul w x)) (exp (gen) y) (privk a)) (exp (gen) (mul w x y)))
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) (mul w x)) (privk b)) (exp (gen) (mul w x y))))
-   
-  (exp (gen) (mul w x))
-   
-  ((x x))
-   weak-init
-   
-  ((a a) (b b) (h (exp (gen) (mul w x))) (y y))
-   weak-resp
-   
-  station-weak 138

-
-
(defskeleton station-weak
-  (vars (a b name) (w expr) (x y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (exp (gen) (mul w x y)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (defstrand weak-init 1 (x x))
-  (deflistener y)
-  (precedes ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (2 0))
-    ((4 1) (2 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y)
-  (operation nonce-test (added-listener y) (mul w y) (2 0))
-  (label 138)
-  (parent 134)
-  (unrealized (0 2) (4 0))
-  (comment "empty cohort"))

-
-
Item 139, Parent: 135, Child: 142.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-  (exp (gen) (mul y x))
-   
-  (exp (gen) (mul y x))
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   weak-init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   weak-resp
-   
-  station-weak 139 (realized)
- 

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (y x expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand weak-init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (precedes ((0 1) (2 0)) ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y)
-  (operation encryption-test (added-strand weak-init 3)
-    (enc (exp (gen) x) (exp (gen) y) (privk a)) (0 2))
-  (label 139)
-  (parent 135)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 140, Parent: 135, Child: 143.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) (exp (gen) y) (privk a)) (exp (gen) (mul y y-0))))
-   
-  (exp (gen) y)
-   
-  
-  (cat (exp (gen) y) y-0)
-   
-  (cat (exp (gen) y) y-0)
-   
-  
-  (exp (gen) (mul y y-0))
-   
-  (exp (gen) (mul y y-0))
-   
-  
-   (enc (enc (exp (gen) y-0) (exp (gen) y) (privk a)) (exp (gen) (mul y y-0)))
-   
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) y-0) (privk b)) (exp (gen) (mul y y-0))))
-   
-  (exp (gen) y-0)
-   
-  ((b a) (h (exp (gen) y)) (y y-0))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) y-0)) (y y))
-   weak-resp
-   
-  station-weak 140 (realized)
- 

-
-
(defskeleton station-weak
-  (vars (a b name) (y y-0 expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) y-0)) (y y))
-  (deflistener (exp (gen) (mul y y-0)))
-  (deflistener (cat (exp (gen) y) y-0))
-  (defstrand weak-resp 2 (b a) (h (exp (gen) y)) (y y-0))
-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 1) (0 2)))
-  (absent (y-0 (exp (gen) y)) (y (exp (gen) y-0)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y)
-  (operation encryption-test (added-strand weak-resp 2)
-    (enc (exp (gen) y-0) (exp (gen) y) (privk a)) (0 2))
-  (label 140)
-  (parent 135)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))

-
-
Item 141, Parent: 136.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-  
-  y-0
-  y-0
-   
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))
-   
-  h
-   
-  
-  (cat (exp (gen) y) (mul w y-0))
-   
-  (cat (exp (gen) y) (mul w y-0))
-   
-  
-  (exp (gen) (mul w y y-0))
-   
-  (exp (gen) (mul w y y-0))
-   
-  
-   (enc (enc (exp (gen) (mul w y)) (exp (gen) y-0) (privk a)) (exp (gen) (mul w y y-0)))
-   
-  
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) (exp (gen) (mul w y)) (privk b)) (exp (gen) (mul w y y-0))))
-   
-  (exp (gen) (mul w y))
-   
-  ((b b-0) (h h) (y y))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) (mul w y))) (y y-0))
-   weak-resp
-   
-  station-weak 141

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (h base) (w expr) (y y-0 expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) (mul w y))) (y y-0))
-  (deflistener (exp (gen) (mul w y y-0)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (2 0))
-    ((4 1) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w y))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y-0)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (2 0))
-  (label 141)
-  (parent 136)
-  (unrealized (0 2) (4 0))
-  (comment "empty cohort"))

-
-
Item 142, Parent: 139, Seen Child: 128.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  
-  (cat (exp (gen) y) x)
-   
-  (cat (exp (gen) y) x)
-   
-  
-   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
-   
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
-   
-  (exp (gen) x)
-   
-  ((a a) (b b-0) (h (exp (gen) y)) (x x))
-   weak-init
-   
-  ((a a) (b b) (h (exp (gen) x)) (y y))
-   weak-resp
-   
-  station-weak 142 (realized)
- 

-
-
(defskeleton station-weak
-  (vars (a b b-0 name) (y x expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand weak-init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (precedes ((0 1) (1 0)) ((0 1) (2 1)) ((1 1) (0 2)) ((2 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen y)
-  (operation generalization deleted (1 0))
-  (label 142)
-  (parent 139)
-  (seen 128)
-  (unrealized)
-  (comment "1 in cohort - 0 not yet seen"))

-
-
Item 143, Parent: 140, Seen Child: 129.

-
-

- 
-  
-   
-    
-   
-  
-  
-  
-  
-  
-   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) (exp (gen) y) (privk a)) (exp (gen) (mul y y-0))))
-   
-  (exp (gen) y)
-   
-  
-  (cat (exp (gen) y) y-0)
-   
-  (cat (exp (gen) y) y-0)
-   
-  
-   (enc (enc (exp (gen) y-0) (exp (gen) y) (privk a)) (exp (gen) (mul y y-0)))
-   
-  
-  
-  
-   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) y-0) (privk b)) (exp (gen) (mul y y-0))))
-   
-  (exp (gen) y-0)
-   
-  ((b a) (h (exp (gen) y)) (y y-0))
-   weak-resp
-   
-  ((a a) (b b) (h (exp (gen) y-0)) (y y))
-   weak-resp
-   
-  station-weak 143 (realized)
- 

-
-
(defskeleton station-weak
-  (vars (a b name) (y y-0 expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) y-0)) (y y))
-  (deflistener (cat (exp (gen) y) y-0))
-  (defstrand weak-resp 2 (b a) (h (exp (gen) y)) (y y-0))
-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))
-  (absent (y-0 (exp (gen) y)) (y (exp (gen) y-0)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen y)
-  (operation generalization deleted (1 0))
-  (label 143)
-  (parent 140)
-  (seen 129)
-  (unrealized)
-  (comment "1 in cohort - 0 not yet seen"))

+
+
+
+ Station-to-station protocol
+ 
+ 
+
+
+
+
(herald "Station-to-station protocol" (algebra diffie-hellman))
+(comment "CPSA 3.5.0")
+(comment "All input read from station.scm")

+
+
Trees: 0 10 20 23.

+
+
Tree 0.

+
+

+ 
+  2
+  
+  9
+  
+  8
+  
+  7
+  
+  6
+  
+  5
+  
+  4
+  
+  3
+  
+  1
+  
+  0
+  

+
+
(defprotocol station-to-station diffie-hellman
+  (defrole init
+    (vars (x rndx) (y expt) (a b name))
+    (trace (send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    (uniq-gen x))
+  (defrole resp
+    (vars (y rndx) (x expt) (a b name))
+    (trace (recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x)))))
+    (uniq-gen y)
+    (absent (y (exp (gen) x)))))

+
+
Item 0, Children: 1 2.

+
+

+ 
+  
+   
+    
+   
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
+   
+  (exp (gen) x)
+   
+  ((a a) (b b) (x x) (y y))
+   init
+   
+  station-to-station 0

+
+
(defskeleton station-to-station
+  (vars (a b name) (x rndx) (y expt))
+  (defstrand init 3 (a a) (b b) (x x) (y y))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x)
+  (label 0)
+  (unrealized (0 1))
+  (origs)
+  (comment "2 in cohort - 2 not yet seen"))

+
+
Item 1, Parent: 0, Child: 3.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0)) (exp (gen) (mul x x-0))))
+   
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0))))
+   
+  
+  (exp (gen) x-0)
+   
+  ((a b) (b b-0) (x x) (y x-0))
+   init
+   
+  ((a a) (b b) (x x-0) (y x))
+   init
+   
+  station-to-station 1

+
+
(defskeleton station-to-station
+  (vars (a b b-0 name) (x x-0 rndx))
+  (defstrand init 3 (a a) (b b) (x x-0) (y x))
+  (defstrand init 3 (a b) (b b-0) (x x) (y x-0))
+  (precedes ((0 0) (1 1)) ((1 2) (0 1)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x x-0)
+  (operation encryption-test (added-strand init 3)
+    (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (0 1))
+  (label 1)
+  (parent 0)
+  (unrealized (1 1))
+  (comment "1 in cohort - 1 not yet seen"))

+
+
Item 2, Parent: 0.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
+   
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
+   
+  
+  (exp (gen) x)
+   
+  ((b b) (y y) (x x))
+   resp
+   
+  ((a a) (b b) (x x) (y y))
+   init
+   
+  station-to-station 2 (realized)
+  

+
+
(defskeleton station-to-station
+  (vars (a b name) (y x rndx))
+  (defstrand init 3 (a a) (b b) (x x) (y y))
+  (defstrand resp 2 (b b) (y y) (x x))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x)
+  (operation encryption-test (added-strand resp 2)
+    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
+  (label 2)
+  (parent 0)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (x x) (y y))))
+  (origs))

+
+
Item 3, Parent: 1, Child: 4.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+  (exp (gen) (mul x x-0))
+   
+  (exp (gen) (mul x x-0))
+   
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0)) (exp (gen) (mul x x-0))))
+   
+  
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0))))
+   
+  
+  (exp (gen) x-0)
+   
+  ((a b) (b b-0) (x x) (y x-0))
+   init
+   
+  ((a a) (b b) (x x-0) (y x))
+   init
+   
+  station-to-station 3

+
+
(defskeleton station-to-station
+  (vars (a b b-0 name) (x x-0 rndx))
+  (defstrand init 3 (a a) (b b) (x x-0) (y x))
+  (defstrand init 3 (a b) (b b-0) (x x) (y x-0))
+  (deflistener (exp (gen) (mul x x-0)))
+  (precedes ((0 0) (2 0)) ((1 0) (2 0)) ((1 2) (0 1)) ((2 1) (1 1)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x x-0)
+  (operation encryption-test (added-listener (exp (gen) (mul x x-0)))
+    (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0))
+      (exp (gen) (mul x x-0))) (1 1))
+  (label 3)
+  (parent 1)
+  (unrealized (2 0))
+  (comment "1 in cohort - 1 not yet seen"))

+
+
Item 4, Parent: 3, Children: 5 6 7 8 9.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+  
+  (cat (exp (gen) (mul x x-0 (rec w))) w)
+   
+  (cat (exp (gen) (mul x x-0 (rec w))) w)
+   
+  
+  (exp (gen) (mul x x-0))
+   
+  (exp (gen) (mul x x-0))
+   
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0)) (exp (gen) (mul x x-0))))
+   
+  
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0))))
+   
+  
+  (exp (gen) x-0)
+   
+  ((a b) (b b-0) (x x) (y x-0))
+   init
+   
+  ((a a) (b b) (x x-0) (y x))
+   init
+   
+  station-to-station 4

+
+
(defskeleton station-to-station
+  (vars (a b b-0 name) (x x-0 rndx) (w expt))
+  (defstrand init 3 (a a) (b b) (x x-0) (y x))
+  (defstrand init 3 (a b) (b b-0) (x x) (y x-0))
+  (deflistener (exp (gen) (mul x x-0)))
+  (deflistener (cat (exp (gen) (mul x x-0 (rec w))) w))
+  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x x-0)
+  (precur (3 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul x x-0 (rec w))) w))
+    (exp (gen) (mul x x-0)) (2 0))
+  (label 4)
+  (parent 3)
+  (unrealized (3 0))
+  (comment "5 in cohort - 5 not yet seen"))

+
+
Item 5, Parent: 4.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+  
+  (cat (gen) (mul x x-0))
+   
+  (cat (gen) (mul x x-0))
+   
+  
+  (exp (gen) (mul x x-0))
+   
+  (exp (gen) (mul x x-0))
+   
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0)) (exp (gen) (mul x x-0))))
+   
+  
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0))))
+   
+  
+  (exp (gen) x-0)
+   
+  ((a b) (b b-0) (x x) (y x-0))
+   init
+   
+  ((a a) (b b) (x x-0) (y x))
+   init
+   
+  station-to-station 5

+
+
(defskeleton station-to-station
+  (vars (a b b-0 name) (x x-0 rndx))
+  (defstrand init 3 (a a) (b b) (x x-0) (y x))
+  (defstrand init 3 (a b) (b b-0) (x x) (y x-0))
+  (deflistener (exp (gen) (mul x x-0)))
+  (deflistener (cat (gen) (mul x x-0)))
+  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x x-0)
+  (precur (3 0))
+  (operation nonce-test (contracted (x-1 x) (x-2 x-0) (w (mul x x-0)))
+    (gen) (3 0))
+  (label 5)
+  (parent 4)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))

+
+
Item 6, Parent: 4.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+  
+  (cat (exp (gen) x-0) x)
+   
+  (cat (exp (gen) x-0) x)
+   
+  
+  (exp (gen) (mul x x-0))
+   
+  (exp (gen) (mul x x-0))
+   
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0)) (exp (gen) (mul x x-0))))
+   
+  
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0))))
+   
+  
+  (exp (gen) x-0)
+   
+  ((a b) (b b-0) (x x) (y x-0))
+   init
+   
+  ((a a) (b b) (x x-0) (y x))
+   init
+   
+  station-to-station 6

+
+
(defskeleton station-to-station
+  (vars (a b b-0 name) (x x-0 rndx))
+  (defstrand init 3 (a a) (b b) (x x-0) (y x))
+  (defstrand init 3 (a b) (b b-0) (x x) (y x-0))
+  (deflistener (exp (gen) (mul x x-0)))
+  (deflistener (cat (exp (gen) x-0) x))
+  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x x-0)
+  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-1) (3 0))
+  (label 6)
+  (parent 4)
+  (unrealized (3 0))
+  (comment "empty cohort"))

+
+
Item 7, Parent: 4.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+  
+  (cat (exp (gen) x-0) x)
+   
+  (cat (exp (gen) x-0) x)
+   
+  
+  (exp (gen) (mul x x-0))
+   
+  (exp (gen) (mul x x-0))
+   
+  
+  
+   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x x-0))))
+   
+  
+  (exp (gen) x-0)
+   
+  
+   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (exp (gen) (mul x x-0))))
+   
+  
+  (exp (gen) x)
+   
+  ((a b) (b b-0) (x x-0) (y x))
+   init
+   
+  ((a a) (b b) (x x) (y x-0))
+   init
+   
+  station-to-station 7

+
+
(defskeleton station-to-station
+  (vars (a b b-0 name) (x x-0 rndx))
+  (defstrand init 3 (a a) (b b) (x x) (y x-0))
+  (defstrand init 3 (a b) (b b-0) (x x-0) (y x))
+  (deflistener (exp (gen) (mul x x-0)))
+  (deflistener (cat (exp (gen) x-0) x))
+  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x x-0)
+  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-1) (3 0))
+  (label 7)
+  (parent 4)
+  (unrealized (3 0))
+  (comment "empty cohort"))

+
+
Item 8, Parent: 4.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+  
+  
+  (exp (gen) x-1)
+   
+  
+  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
+   
+  (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))
+   
+  
+  (exp (gen) (mul x x-0))
+   
+  (exp (gen) (mul x x-0))
+   
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0)) (exp (gen) (mul x x-0))))
+   
+  
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0))))
+   
+  
+  (exp (gen) x-0)
+   
+  ((x x-1))
+   init
+   
+  ((a b) (b b-0) (x x) (y x-0))
+   init
+   
+  ((a a) (b b) (x x-0) (y x))
+   init
+   
+  station-to-station 8

+
+
(defskeleton station-to-station
+  (vars (a b b-0 name) (x x-0 x-1 rndx))
+  (defstrand init 3 (a a) (b b) (x x-0) (y x))
+  (defstrand init 3 (a b) (b b-0) (x x) (y x-0))
+  (deflistener (exp (gen) (mul x x-0)))
+  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
+  (defstrand init 1 (x x-1))
+  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
+    ((3 1) (2 0)) ((4 0) (3 0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x x-0 x-1)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (3 0))
+  (label 8)
+  (parent 4)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))

+
+
Item 9, Parent: 4.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+  
+  
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-1)) (exp (gen) (mul x y))))
+   
+  (exp (gen) x)
+   
+  
+  (cat (exp (gen) y) (mul x-0 x-1 (rec y)))
+   
+  (cat (exp (gen) y) (mul x-0 x-1 (rec y)))
+   
+  
+  (exp (gen) (mul x-0 x-1))
+   
+  (exp (gen) (mul x-0 x-1))
+   
+  
+  
+   (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b)) (exp (gen) (mul x-0 x-1)))
+   
+  
+   (cat (exp (gen) x-1) (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x-0 x-1))))
+   
+  
+  (exp (gen) x-0)
+   
+  
+   (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk a)) (exp (gen) (mul x-0 x-1)))
+   
+  
+   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b)) (exp (gen) (mul x-0 x-1))))
+   
+  
+  (exp (gen) x-1)
+   
+  ((b b-1) (y y) (x x))
+   resp
+   
+  ((a b) (b b-0) (x x-0) (y x-1))
+   init
+   
+  ((a a) (b b) (x x-1) (y x-0))
+   init
+   
+  station-to-station 9

+
+
(defskeleton station-to-station
+  (vars (a b b-0 b-1 name) (x expt) (x-0 x-1 y rndx))
+  (defstrand init 3 (a a) (b b) (x x-1) (y x-0))
+  (defstrand init 3 (a b) (b b-0) (x x-0) (y x-1))
+  (deflistener (exp (gen) (mul x-0 x-1)))
+  (deflistener (cat (exp (gen) y) (mul x-0 x-1 (rec y))))
+  (defstrand resp 2 (b b-1) (y y) (x x))
+  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
+    ((3 1) (2 0)) ((4 1) (3 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x-0 x-1 y)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y) (3 0))
+  (label 9)
+  (parent 4)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))

+
+
Tree 10.

+
+

+ 
+  19
+  
+  18
+  
+  17
+  
+  16
+  
+  15
+  
+  14
+  
+  13
+  
+  12
+  
+  11
+  
+  10
+  

+
+
(defprotocol station-to-station diffie-hellman
+  (defrole init
+    (vars (x rndx) (y expt) (a b name))
+    (trace (send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    (uniq-gen x))
+  (defrole resp
+    (vars (y rndx) (x expt) (a b name))
+    (trace (recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x)))))
+    (uniq-gen y)
+    (absent (y (exp (gen) x)))))

+
+
Item 10, Child: 11.

+
+

+ 
+  
+   
+    
+   
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
+   
+  (exp (gen) x)
+   
+  ((a a) (b b) (y y) (x x))
+   resp
+   
+  station-to-station 10

+
+
(defskeleton station-to-station
+  (vars (a b name) (y rndx) (x expt))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y)
+  (label 10)
+  (unrealized (0 2))
+  (origs)
+  (comment "1 in cohort - 1 not yet seen"))

+
+
Item 11, Parent: 10, Children: 12 13.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul x y))))
+   
+  
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
+   
+  (exp (gen) x)
+   
+  ((a a) (b b-0) (x x) (y y))
+   init
+   
+  ((a a) (b b) (y y) (x x))
+   resp
+   
+  station-to-station 11

+
+
(defskeleton station-to-station
+  (vars (a b b-0 name) (x y rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
+  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (operation encryption-test (added-strand init 3)
+    (enc (exp (gen) x) (exp (gen) y) (privk a)) (0 2))
+  (label 11)
+  (parent 10)
+  (unrealized (1 1))
+  (comment "2 in cohort - 2 not yet seen"))

+
+
Item 12, Parent: 11.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
+   
+  
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
+   
+  
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
+   
+  (exp (gen) x)
+   
+  ((a a) (b b) (x x) (y y))
+   init
+   
+  ((a a) (b b) (y y) (x x))
+   resp
+   
+  station-to-station 12 (realized)
+  

+
+
(defskeleton station-to-station
+  (vars (a b name) (y x rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b) (x x) (y y))
+  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x)
+  (operation encryption-test (displaced 2 0 resp 2)
+    (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
+      (exp (gen) (mul y x))) (1 1))
+  (label 12)
+  (parent 11)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (y y) (x x))))
+  (origs))

+
+
Item 13, Parent: 11, Child: 14.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+  (exp (gen) (mul x y))
+   
+  (exp (gen) (mul x y))
+   
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul x y))))
+   
+  
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
+   
+  (exp (gen) x)
+   
+  ((a a) (b b-0) (x x) (y y))
+   init
+   
+  ((a a) (b b) (y y) (x x))
+   resp
+   
+  station-to-station 13

+
+
(defskeleton station-to-station
+  (vars (a b b-0 name) (x y rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (precedes ((0 1) (2 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (operation encryption-test (added-listener (exp (gen) (mul x y)))
+    (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
+      (exp (gen) (mul x y))) (1 1))
+  (label 13)
+  (parent 11)
+  (unrealized (2 0))
+  (comment "1 in cohort - 1 not yet seen"))

+
+
Item 14, Parent: 13, Children: 15 16 17 18 19.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+  
+  (cat (exp (gen) (mul x y (rec w))) w)
+   
+  (cat (exp (gen) (mul x y (rec w))) w)
+   
+  
+  (exp (gen) (mul x y))
+   
+  (exp (gen) (mul x y))
+   
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul x y))))
+   
+  
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
+   
+  (exp (gen) x)
+   
+  ((a a) (b b-0) (x x) (y y))
+   init
+   
+  ((a a) (b b) (y y) (x x))
+   resp
+   
+  station-to-station 14

+
+
(defskeleton station-to-station
+  (vars (a b b-0 name) (x y rndx) (w expt))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) (mul x y (rec w))) w))
+  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (precur (3 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul x y (rec w))) w))
+    (exp (gen) (mul x y)) (2 0))
+  (label 14)
+  (parent 13)
+  (unrealized (3 0))
+  (comment "5 in cohort - 5 not yet seen"))

+
+
Item 15, Parent: 14.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+  
+  (cat (gen) (mul x y))
+   
+  (cat (gen) (mul x y))
+   
+  
+  (exp (gen) (mul x y))
+   
+  (exp (gen) (mul x y))
+   
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul x y))))
+   
+  
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
+   
+  (exp (gen) x)
+   
+  ((a a) (b b-0) (x x) (y y))
+   init
+   
+  ((a a) (b b) (y y) (x x))
+   resp
+   
+  station-to-station 15

+
+
(defskeleton station-to-station
+  (vars (a b b-0 name) (x y rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (gen) (mul x y)))
+  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (precur (3 0))
+  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul x y))) (gen)
+    (3 0))
+  (label 15)
+  (parent 14)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))

+
+
Item 16, Parent: 14.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+  
+  (cat (exp (gen) x) y)
+   
+  (cat (exp (gen) x) y)
+   
+  
+  (exp (gen) (mul y x))
+   
+  (exp (gen) (mul y x))
+   
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul y x))))
+   
+  
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
+   
+  
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
+   
+  (exp (gen) x)
+   
+  ((a a) (b b-0) (x x) (y y))
+   init
+   
+  ((a a) (b b) (y y) (x x))
+   resp
+   
+  station-to-station 16

+
+
(defskeleton station-to-station
+  (vars (a b b-0 name) (y x rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (exp (gen) x) y))
+  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x)
+  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-0) (3 0))
+  (label 16)
+  (parent 14)
+  (unrealized (3 0))
+  (comment "empty cohort"))

+
+
Item 17, Parent: 14.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+  
+  
+  (exp (gen) x-0)
+   
+  
+  (cat (exp (gen) x-0) (mul x y (rec x-0)))
+   
+  (cat (exp (gen) x-0) (mul x y (rec x-0)))
+   
+  
+  (exp (gen) (mul x y))
+   
+  (exp (gen) (mul x y))
+   
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul x y))))
+   
+  
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
+   
+  (exp (gen) x)
+   
+  ((x x-0))
+   init
+   
+  ((a a) (b b-0) (x x) (y y))
+   init
+   
+  ((a a) (b b) (y y) (x x))
+   resp
+   
+  station-to-station 17

+
+
(defskeleton station-to-station
+  (vars (a b b-0 name) (x y x-0 rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) x-0) (mul x y (rec x-0))))
+  (defstrand init 1 (x x-0))
+  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
+    ((3 1) (2 0)) ((4 0) (3 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x y x-0)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
+  (label 17)
+  (parent 14)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))

+
+
Item 18, Parent: 14.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+  
+  (cat (exp (gen) y) x)
+   
+  (cat (exp (gen) y) x)
+   
+  
+  (exp (gen) (mul x y))
+   
+  (exp (gen) (mul x y))
+   
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul x y))))
+   
+  
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
+   
+  (exp (gen) x)
+   
+  ((a a) (b b-0) (x x) (y y))
+   init
+   
+  ((a a) (b b) (y y) (x x))
+   resp
+   
+  station-to-station 18

+
+
(defskeleton station-to-station
+  (vars (a b b-0 name) (x y rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) y) x))
+  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x y)
+  (operation nonce-test (displaced 4 0 resp 2) (exp (gen) y-0) (3 0))
+  (label 18)
+  (parent 14)
+  (unrealized (3 0))
+  (comment "empty cohort"))

+
+
Item 19, Parent: 14.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+  
+  
+  
+   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) (exp (gen) x) (privk b-1)) (exp (gen) (mul x y-0))))
+   
+  (exp (gen) x)
+   
+  
+  (cat (exp (gen) y-0) (mul x-0 y (rec y-0)))
+   
+  (cat (exp (gen) y-0) (mul x-0 y (rec y-0)))
+   
+  
+  (exp (gen) (mul x-0 y))
+   
+  (exp (gen) (mul x-0 y))
+   
+  
+  
+   (enc (enc (exp (gen) x-0) (exp (gen) y) (privk a)) (exp (gen) (mul x-0 y)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x-0) (privk b-0)) (exp (gen) (mul x-0 y))))
+   
+  
+  (exp (gen) x-0)
+   
+  
+   (enc (enc (exp (gen) x-0) (exp (gen) y) (privk a)) (exp (gen) (mul x-0 y)))
+   
+  
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x-0) (privk b)) (exp (gen) (mul x-0 y))))
+   
+  (exp (gen) x-0)
+   
+  ((b b-1) (y y-0) (x x))
+   resp
+   
+  ((a a) (b b-0) (x x-0) (y y))
+   init
+   
+  ((a a) (b b) (y y) (x x-0))
+   resp
+   
+  station-to-station 19

+
+
(defskeleton station-to-station
+  (vars (a b b-0 b-1 name) (x expt) (x-0 y y-0 rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x-0))
+  (defstrand init 3 (a a) (b b-0) (x x-0) (y y))
+  (deflistener (exp (gen) (mul x-0 y)))
+  (deflistener (cat (exp (gen) y-0) (mul x-0 y (rec y-0))))
+  (defstrand resp 2 (b b-1) (y y-0) (x x))
+  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
+    ((3 1) (2 0)) ((4 1) (3 0)))
+  (absent (y-0 (exp (gen) x)) (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x-0 y y-0)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
+  (label 19)
+  (parent 14)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))

+
+
Tree 20.

+
+

+ 
+  22
+  
+  21
+  
+  20
+  

+
+
(defprotocol station-weak diffie-hellman
+  (defrole weak-init
+    (vars (x rndx) (y expt) (a b name))
+    (trace (send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y))))))
+  (defrole weak-resp
+    (vars (y rndx) (x expt) (a b name))
+    (trace (recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x)))))
+    (absent (y (exp (gen) x)))))

+
+
Item 20, Children: 21 22.

+
+

+ 
+  
+   
+    
+   
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
+   
+  (exp (gen) x)
+   
+  ((a a) (b b) (x x) (y y))
+   weak-init
+   
+  station-weak 20

+
+
(defskeleton station-weak
+  (vars (a b name) (x rndx) (y expt))
+  (defstrand weak-init 3 (a a) (b b) (x x) (y y))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x)
+  (label 20)
+  (unrealized (0 1))
+  (origs)
+  (comment "2 in cohort - 2 not yet seen"))

+
+
Item 21, Parent: 20.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x-0) (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0)) (exp (gen) (mul x x-0))))
+   
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a)) (exp (gen) (mul x x-0)))
+   
+  
+   (cat (exp (gen) x) (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (exp (gen) (mul x x-0))))
+   
+  
+  (exp (gen) x-0)
+   
+  ((a b) (b b-0) (x x) (y x-0))
+   weak-init
+   
+  ((a a) (b b) (x x-0) (y x))
+   weak-init
+   
+  station-weak 21 (realized)
+ 

+
+
(defskeleton station-weak
+  (vars (a b b-0 name) (x x-0 rndx))
+  (defstrand weak-init 3 (a a) (b b) (x x-0) (y x))
+  (defstrand weak-init 3 (a b) (b b-0) (x x) (y x-0))
+  (precedes ((0 0) (1 1)) ((1 2) (0 1)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x-0)
+  (operation encryption-test (added-strand weak-init 3)
+    (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (0 1))
+  (label 21)
+  (parent 20)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (x x-0) (y x))))
+  (origs))

+
+
Item 22, Parent: 20.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
+   
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
+   
+  
+  (exp (gen) x)
+   
+  ((b b) (y y) (x x))
+   weak-resp
+   
+  ((a a) (b b) (x x) (y y))
+   weak-init
+   
+  station-weak 22 (realized)
+ 

+
+
(defskeleton station-weak
+  (vars (a b name) (y x rndx))
+  (defstrand weak-init 3 (a a) (b b) (x x) (y y))
+  (defstrand weak-resp 2 (b b) (y y) (x x))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x)
+  (operation encryption-test (added-strand weak-resp 2)
+    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
+  (label 22)
+  (parent 20)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (x x) (y y))))
+  (origs))

+
+
Tree 23.

+
+

+ 
+  25
+  
+  24
+  
+  23
+  

+
+
(defprotocol station-weak diffie-hellman
+  (defrole weak-init
+    (vars (x rndx) (y expt) (a b name))
+    (trace (send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y))))))
+  (defrole weak-resp
+    (vars (y rndx) (x expt) (a b name))
+    (trace (recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x)))))
+    (absent (y (exp (gen) x)))))

+
+
Item 23, Children: 24 25.

+
+

+ 
+  
+   
+    
+   
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x))))
+   
+  (exp (gen) x)
+   
+  ((a a) (b b) (y y) (x x))
+   weak-resp
+   
+  station-weak 23

+
+
(defskeleton station-weak
+  (vars (a b name) (y rndx) (x expt))
+  (defstrand weak-resp 3 (a a) (b b) (y y) (x x))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y)
+  (label 23)
+  (unrealized (0 2))
+  (origs)
+  (comment "2 in cohort - 2 not yet seen"))

+
+
Item 24, Parent: 23.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0)) (exp (gen) (mul x y))))
+   
+  (exp (gen) x)
+   
+  
+   (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))
+   
+  
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y))))
+   
+  (exp (gen) x)
+   
+  ((a a) (b b-0) (x x) (y y))
+   weak-init
+   
+  ((a a) (b b) (y y) (x x))
+   weak-resp
+   
+  station-weak 24 (realized)
+ 

+
+
(defskeleton station-weak
+  (vars (a b b-0 name) (x y rndx))
+  (defstrand weak-resp 3 (a a) (b b) (y y) (x x))
+  (defstrand weak-init 3 (a a) (b b-0) (x x) (y y))
+  (precedes ((0 1) (1 1)) ((1 2) (0 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y)
+  (operation encryption-test (added-strand weak-init 3)
+    (enc (exp (gen) x) (exp (gen) y) (privk a)) (0 2))
+  (label 24)
+  (parent 23)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (y y) (x x))))
+  (origs))

+
+
Item 25, Parent: 23.

+
+

+ 
+  
+   
+    
+   
+  
+  
+  
+  
+   (cat (exp (gen) y) (enc (enc (exp (gen) y) (exp (gen) y-0) (privk a)) (exp (gen) (mul y y-0))))
+   
+  (exp (gen) y-0)
+   
+  
+   (enc (enc (exp (gen) y) (exp (gen) y-0) (privk a)) (exp (gen) (mul y y-0)))
+   
+  
+  
+   (cat (exp (gen) y-0) (enc (enc (exp (gen) y-0) (exp (gen) y) (privk b)) (exp (gen) (mul y y-0))))
+   
+  (exp (gen) y)
+   
+  ((b a) (y y) (x y-0))
+   weak-resp
+   
+  ((a a) (b b) (y y-0) (x y))
+   weak-resp
+   
+  station-weak 25 (realized)
+ 

+
+
(defskeleton station-weak
+  (vars (a b name) (y y-0 rndx))
+  (defstrand weak-resp 3 (a a) (b b) (y y-0) (x y))
+  (defstrand weak-resp 2 (b a) (y y) (x y-0))
+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
+  (absent (y (exp (gen) y-0)) (y-0 (exp (gen) y)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y-0)
+  (operation encryption-test (added-strand weak-resp 2)
+    (enc (exp (gen) y) (exp (gen) y-0) (privk a)) (0 2))
+  (label 25)
+  (parent 23)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (y y-0) (x y))))
+  (origs))

 
 
 
diff --git a/doc/examples/subsort_test.xhtml b/doc/examples/subsort_test.xhtml
--- a/doc/examples/subsort_test.xhtml
+++ b/doc/examples/subsort_test.xhtml
@@ -1,5 +1,5 @@
 
-
+
 
 
  Subsort constraint test protocol
@@ -13,7 +13,7 @@
 
(herald "Subsort constraint test protocol"
   (comment "First, third, and fourth skeletons should have a shape,"
     "second should be dead."))
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from subsort_test.scm")

 
 
Trees: 0 2 3 5.

diff --git a/doc/examples/woolam.xhtml b/doc/examples/woolam.xhtml
--- a/doc/examples/woolam.xhtml
+++ b/doc/examples/woolam.xhtml
@@ -1,5 +1,5 @@
 
-
+
 
 
  Woo-Lam Protocol
@@ -11,7 +11,7 @@
 
 
 
(herald "Woo-Lam Protocol")
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from woolam.scm")

 
 
Tree 0.

diff --git a/doc/examples/yahalom.xhtml b/doc/examples/yahalom.xhtml
--- a/doc/examples/yahalom.xhtml
+++ b/doc/examples/yahalom.xhtml
@@ -1,5 +1,5 @@
 
-
+
 
 
  Yahalom Protocol with Forwarding Removed
@@ -12,7 +12,7 @@
 
 
(herald "Yahalom Protocol with Forwarding Removed"
   (algebra diffie-hellman) (bound 12))
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from yahalom.scm")

 
 
Trees: 0 52.

diff --git a/src/CPSA/Basic/Algebra.hs b/src/CPSA/Basic/Algebra.hs
--- a/src/CPSA/Basic/Algebra.hs
+++ b/src/CPSA/Basic/Algebra.hs
@@ -327,14 +327,15 @@
 foldVars f acc (F Akey [F Pubk [C _, I x]]) = f acc (F Name [I x])
 foldVars f acc (F Akey [F Invk [F Pubk [I x]]]) = f acc (F Name [I x])
 foldVars f acc (F Akey [F Invk [F Pubk [C _, I x]]]) = f acc (F Name [I x])
-foldVars _ acc (F Tag [(C _)]) = acc        -- Tags
-foldVars f acc (F Cat [t0, t1]) = -- Concatenation
+foldVars _ acc (F Tag [(C _)]) = acc      -- Tags
+foldVars f acc (F Cat [t0, t1]) =         -- Concatenation
     foldVars f (foldVars f acc t0) t1
-foldVars f acc (F Enc [t0, t1]) = -- Encryption
+foldVars f acc (F Enc [t0, t1]) =         -- Encryption
     foldVars f (foldVars f acc t0) t1
-foldVars f acc (F Hash [t])     = -- Hashing
+foldVars f acc (F Hash [t]) =             -- Hashing
     foldVars f acc t
 foldVars f acc t@(D _) = f acc t          -- Node variable
+foldVars _ acc (P _) = acc                -- Node constant
 foldVars _ _ t = C.assertError $ "Algebra.foldVars: Bad term " ++ show t
 
 -- Fold f through a term applying it to each term that is carried by the term.
@@ -416,8 +417,11 @@
 inv :: Term -> Term
 inv (F Akey [F Invk [t]]) = F Akey [t]
 inv (F Akey [t]) = F Akey [F Invk [t]]
+inv t@(F _ _) = t
 inv (I _) = error "Algebra.inv: Cannot invert a variable of sort mesg"
-inv t = t
+inv (C _) = error "Algebra.inv: Cannot invert a tag constant"
+inv (D _) = error "Algebra.inv: Cannot invert a variable of sort node"
+inv (P _) = error "Algebra.inv: Cannot invert a node constant"
 
 -- Extracts every encryption that is carried by a term along with its
 -- encryption key.  Note that a hash is treated as a kind of
diff --git a/src/CPSA/Debase/Main.hs b/src/CPSA/Debase/Main.hs
--- a/src/CPSA/Debase/Main.hs
+++ b/src/CPSA/Debase/Main.hs
@@ -97,7 +97,7 @@
 vars (L () x : xs)
   | symStr (last x) == "base" =
       let (xs', ss) = vars xs in
-        (lst (butLast x ++ [sym "expr"]) : xs',
+        (lst (butLast x ++ [sym "expt"]) : xs',
          map symStr (butLast x) ++ ss)
   | otherwise =
       let (xs', ss) = vars xs in
diff --git a/src/CPSA/DiffieHellman/Algebra.hs b/src/CPSA/DiffieHellman/Algebra.hs
--- a/src/CPSA/DiffieHellman/Algebra.hs
+++ b/src/CPSA/DiffieHellman/Algebra.hs
@@ -2423,6 +2423,9 @@
   | sort == "akey" = return $ F Akey [I x]
   | sort == "base" = return $ F Base [I x]
   | sort == "tag" = return $ F Tag [I x]
+  | sort == "expt" = return $ groupVar False x
+  | sort == "rndx" = return $ groupVar True x
+  -- Legecy names
   | sort == "expr" = return $ groupVar False x
   | sort == "expn" = return $ groupVar True x
   | sort == "node" = return $ D x
@@ -2655,8 +2658,8 @@
 displayVar ctx (F Base [I x]) = displaySortId "base" ctx x
 displayVar ctx (F Tag [I x]) = displaySortId "tag" ctx x
 displayVar ctx t@(G x)
-    | isBasisVar x = displaySortId "expn" ctx (varId t)
-    | isGroupVar x = displaySortId "expr" ctx (varId t)
+    | isBasisVar x = displaySortId "rndx" ctx (varId t)
+    | isGroupVar x = displaySortId "expt" ctx (varId t)
 displayVar ctx (D x) = displaySortId "node" ctx x
 displayVar _ _ =
     C.assertError "Algebra.displayVar: term not a variable with its sort"
diff --git a/src/CPSA/Lib/Loader.hs b/src/CPSA/Lib/Loader.hs
--- a/src/CPSA/Lib/Loader.hs
+++ b/src/CPSA/Lib/Loader.hs
@@ -341,8 +341,10 @@
 mkListenerRole :: (Algebra t p g s e c, Monad m) => Pos -> g -> m (g, Role t)
 mkListenerRole pos g =
   do
-    (g, [x]) <- loadVars g [L pos [S pos "x", S pos "mesg"]]
-    return (g, mkRole "" [x] [In x, Out x] [] [] [] False)
+    (g, xs) <- loadVars g [L pos [S pos "x", S pos "mesg"]]
+    case xs of
+      [x] -> return (g, mkRole "" [x] [In x, Out x] [] [] [] False)
+      _ -> fail "Loader.mkListenerRole: Expection one variable"
 
 -- Association lists
 
@@ -951,7 +953,9 @@
   do
     t <- loadTerm kvars False x
     t' <- loadTerm kvars False y
-    return (pos, Equals t t')
+    case isNodeVar t == isNodeVar t' of
+      True -> return (pos, Equals t t')
+      False -> fail (shows pos "Sort mismatch in equality")
 loadPrimary _ _ kvars (L pos [S _ "non", x]) =
   do
     t <- loadAlgTerm kvars x
diff --git a/src/CPSA/Lib/Utilities.hs b/src/CPSA/Lib/Utilities.hs
--- a/src/CPSA/Lib/Utilities.hs
+++ b/src/CPSA/Lib/Utilities.hs
@@ -18,20 +18,19 @@
     = Return a
     | Fail String
 
-instance Functor (ReturnFail) where
-    fmap _ (Fail x) = Fail x
+instance Functor ReturnFail where
+    fmap _ (Fail x)   = Fail x
     fmap f (Return y) = Return (f y)
 
-instance Applicative (ReturnFail) where
-    pure          = Return
-    Fail e <*> _ = Fail e
+instance Applicative ReturnFail where
+    pure           = Return
+    Fail e <*> _   = Fail e
     Return f <*> r = fmap f r
 
 instance Monad ReturnFail where
-    return = Return
-    Fail l >>= _ = Fail l
+    Fail l >>= _   = Fail l
     Return r >>= k = k r
-    fail s = Fail s
+    fail s = Fail s             -- This must be moved to MonadFail
 
 adjoin :: Eq a => a -> [a] -> [a]
 adjoin x xs
diff --git a/src/CPSA/SAS/SAS.hs b/src/CPSA/SAS/SAS.hs
--- a/src/CPSA/SAS/SAS.hs
+++ b/src/CPSA/SAS/SAS.hs
@@ -745,6 +745,7 @@
 disjoin :: [SExpr ()] -> SExpr ()
 disjoin conjuncts =
     case concatMap f conjuncts of
+      [] -> L () [S () "false"]
       [x] -> x
       xs -> L () (S () "or" : xs)
     where
diff --git a/tst/aik.tst b/tst/aik.tst
--- a/tst/aik.tst
+++ b/tst/aik.tst
@@ -1,6 +1,6 @@
 (herald "Anonymous identity protocol from TCG")
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from aik.scm")
 
 (defprotocol aikprot basic
diff --git a/tst/axiom2.tst b/tst/axiom2.tst
--- a/tst/axiom2.tst
+++ b/tst/axiom2.tst
@@ -1,6 +1,6 @@
 (herald "Axiom 2 Protocol" (bound 20))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from axiom2.scm")
 (comment "Strand count bounded at 20")
 
diff --git a/tst/blanchet.tst b/tst/blanchet.tst
--- a/tst/blanchet.tst
+++ b/tst/blanchet.tst
@@ -1,7 +1,7 @@
 (herald "Blanchet's Simple Example Protocol"
   (comment "There is a flaw in this protocol by design"))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from blanchet.scm")
 
 (defprotocol blanchet basic
diff --git a/tst/bltk_test.tst b/tst/bltk_test.tst
--- a/tst/bltk_test.tst
+++ b/tst/bltk_test.tst
@@ -1,6 +1,6 @@
 (herald "bltk Test File" (algebra diffie-hellman) (bound 12))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from bltk_test.scm")
 
 (defprotocol test diffie-hellman
diff --git a/tst/dh-ca.scm b/tst/dh-ca.scm
--- a/tst/dh-ca.scm
+++ b/tst/dh-ca.scm
@@ -2,30 +2,30 @@
 
 (defprotocol dhca diffie-hellman
   (defrole init
-    (vars (x expn) (a b ca name) (h base) (n text))
+    (vars (x rndx) (a b ca name) (y expt) (n text))
     (trace
      (send (enc "reg" (exp (gen) x) a (privk a)))
      (recv (enc (exp (gen) x) a (privk ca)))
      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-     (recv (cat h (enc h b (privk ca)) (enc n (exp h x))))
-     (send (enc "check" n (exp h x))))
+     (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca)) (enc n (exp (gen) (mul y x)))))
+     (send (enc "check" n (exp (gen) (mul y x)))))
     (uniq-gen x)
     (non-orig (privk ca)))
   (defrole resp
-    (vars (y expn) (a b ca name) (h base) (n text))
+    (vars (y rndx) (a b ca name) (x expt) (n text))
     (trace
      (send (enc "reg" (exp (gen) y) b (privk b)))
      (recv (enc (exp (gen) y) b (privk ca)))
-     (recv (cat h (enc h a (privk ca))))
+     (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
      (send (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-		(enc n (exp h y))))
-     (recv (enc "check" n (exp h y))))
+		(enc n (exp (gen) (mul x y)))))
+     (recv (enc "check" n (exp (gen) (mul x y)))))
     (uniq-gen y)
     (non-orig (privk ca)))
-  (defrole ca (vars (subject ca name) (h base))
+  (defrole ca (vars (subject ca name) (x expt))
     (trace
-     (recv (enc "reg" h subject (privk subject)))
-     (send (enc h subject (privk ca))))
+     (recv (enc "reg" (exp (gen) x) subject (privk subject)))
+     (send (enc (exp (gen) x) subject (privk ca))))
     (non-orig (privk subject))
     )
   (comment A diffie-hellman exchange which uses a certificate
@@ -45,9 +45,9 @@
 )
 
 (defskeleton dhca
-  (vars (a b ca name) (x y expn) (n text))
-  (defstrand init 5 (x x) (h (exp (gen) y)) (ca ca) (a a) (b b) (n n))
-  (defstrand resp 5 (y y) (h (exp (gen) x)) (ca ca) (a a) (b b) (n n))
+  (vars (a b ca name) (x y rndx) (n text))
+  (defstrand init 5 (x x) (y y) (ca ca) (a a) (b b) (n n))
+  (defstrand resp 5 (y y) (x x) (ca ca) (a a) (b b) (n n))
 (uniq-orig n)
 (comment point of view in which init and resp each complete and
     they agree on the relevant parameters)
diff --git a/tst/dh-ca.tst b/tst/dh-ca.tst
--- a/tst/dh-ca.tst
+++ b/tst/dh-ca.tst
@@ -1,3715 +1,3721 @@
 (herald dhca (algebra diffie-hellman))
 
-(comment "CPSA 3.4.0")
-(comment "All input read from dh-ca.scm")
-
-(defprotocol dhca diffie-hellman
-  (defrole init
-    (vars (x expn) (a b ca name) (h base) (n text))
-    (trace (send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv (cat h (enc h b (privk ca)) (enc n (exp h x))))
-      (send (enc "check" n (exp h x))))
-    (non-orig (privk ca))
-    (uniq-gen x))
-  (defrole resp
-    (vars (y expn) (a b ca name) (h base) (n text))
-    (trace (send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat h (enc h a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp h y)))) (recv (enc "check" n (exp h y))))
-    (non-orig (privk ca))
-    (uniq-gen y))
-  (defrole ca
-    (vars (subject ca name) (h base))
-    (trace (recv (enc "reg" h subject (privk subject)))
-      (send (enc h subject (privk ca))))
-    (non-orig (privk subject)))
-  (comment A diffie-hellman exchange which uses a certificate authority
-    to certify long-term DH values))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (h base) (x expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h h) (x x))
-  (non-orig (privk ca))
-  (uniq-gen x)
-  (comment Full initiator POV No need to make extra assumptions)
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv (cat h (enc h b (privk ca)) (enc n (exp h x))))
-      (send (enc "check" n (exp h x)))))
-  (label 0)
-  (unrealized (0 1) (0 3))
-  (origs)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (h base) (x expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h h) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk ca))
-  (uniq-gen x)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) x) a (privk ca)) (0 1))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv (cat h (enc h b (privk ca)) (enc n (exp h x))))
-      (send (enc "check" n (exp h x))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca)))))
-  (label 1)
-  (parent 0)
-  (unrealized (0 3))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca name) (x expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) x)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk ca))
-  (uniq-gen x)
-  (operation encryption-test (displaced 2 1 ca 2) (enc h b (privk ca))
-    (0 3))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
-          (enc n (exp (gen) (mul x x)))))
-      (send (enc "check" n (exp (gen) (mul x x)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca)))))
-  (label 2)
-  (parent 1)
-  (unrealized (0 3))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (h base) (x expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h h) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h h))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (0 3)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen x)
-  (operation encryption-test (added-strand ca 2) (enc h b (privk ca))
-    (0 3))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv (cat h (enc h b (privk ca)) (enc n (exp h x))))
-      (send (enc "check" n (exp h x))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" h b (privk b))) (send (enc h b (privk ca)))))
-  (label 3)
-  (parent 1)
-  (unrealized (0 3) (2 0))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca a-0 b ca-0 name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) x)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0)
-    (h (exp (gen) (mul x x (rec y)))) (y y))
-  (precedes ((0 0) (1 0)) ((0 0) (2 2)) ((1 1) (0 1)) ((2 3) (0 3)))
-  (non-orig (privk a) (privk ca) (privk ca-0))
-  (uniq-gen x y)
-  (operation encryption-test (added-strand resp 4)
-    (enc n (exp (gen) (mul x x))) (0 3))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
-          (enc n (exp (gen) (mul x x)))))
-      (send (enc "check" n (exp (gen) (mul x x)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca-0)))
-      (recv
-        (cat (exp (gen) (mul x x (rec y)))
-          (enc (exp (gen) (mul x x (rec y))) a-0 (privk ca-0))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
-          (enc n (exp (gen) (mul x x)))))))
-  (label 4)
-  (parent 2)
-  (unrealized (2 1) (2 2))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca name) (x expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) x)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (deflistener (exp (gen) (mul x x)))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 3)))
-  (non-orig (privk a) (privk ca))
-  (uniq-gen x)
-  (operation encryption-test (added-listener (exp (gen) (mul x x)))
-    (enc n (exp (gen) (mul x x))) (0 3))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
-          (enc n (exp (gen) (mul x x)))))
-      (send (enc "check" n (exp (gen) (mul x x)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x)))))
-  (label 5)
-  (parent 2)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca name) (y expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) y)) (x y))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 3)))
-  (non-orig (privk a) (privk ca))
-  (uniq-gen y)
-  (operation encryption-test (displaced 3 0 resp 1)
-    (enc "reg" (exp (gen) y-0) b (privk b)) (2 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) a (privk a)))
-      (recv (enc (exp (gen) y) a (privk ca)))
-      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca)))))
-  (label 6)
-  (parent 3)
-  (unrealized (0 3))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 1 (b b) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (0 3)) ((3 0) (2 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen x y)
-  (operation encryption-test (added-strand resp 1)
-    (enc "reg" (exp (gen) y) b (privk b)) (2 0))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))))
-  (label 7)
-  (parent 3)
-  (unrealized (0 3))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca a-0 b ca-0 name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) x)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0)
-    (h (exp (gen) (mul x x (rec y)))) (y y))
-  (defstrand ca 2 (subject b) (ca ca-0) (h (exp (gen) y)))
-  (precedes ((0 0) (1 0)) ((0 0) (2 2)) ((1 1) (0 1)) ((2 0) (3 0))
-    ((2 3) (0 3)) ((3 1) (2 1)))
-  (non-orig (privk a) (privk ca) (privk b) (privk ca-0))
-  (uniq-gen x y)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) y) b (privk ca-0)) (2 1))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
-          (enc n (exp (gen) (mul x x)))))
-      (send (enc "check" n (exp (gen) (mul x x)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca-0)))
-      (recv
-        (cat (exp (gen) (mul x x (rec y)))
-          (enc (exp (gen) (mul x x (rec y))) a-0 (privk ca-0))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
-          (enc n (exp (gen) (mul x x))))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca-0)))))
-  (label 8)
-  (parent 4)
-  (unrealized (2 2))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca name) (x expn) (w expr))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) x)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (exp (gen) (mul x x (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 1) (2 0)))
-  (non-orig (privk a) (privk ca))
-  (uniq-gen x)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x x (rec w))) w))
-    (exp (gen) (mul x x)) (2 0))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
-          (enc n (exp (gen) (mul x x)))))
-      (send (enc "check" n (exp (gen) (mul x x)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (exp (gen) (mul x x (rec w))) w))
-      (send (cat (exp (gen) (mul x x (rec w))) w))))
-  (label 9)
-  (parent 5)
-  (unrealized (3 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca a-0 b ca-0 name) (y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) y)) (x y))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0)
-    (h (exp (gen) (mul y y (rec y-0)))) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 2)) ((1 1) (0 1))
-    ((2 1) (0 3)) ((3 3) (0 3)))
-  (non-orig (privk a) (privk ca) (privk ca-0))
-  (uniq-gen y y-0)
-  (operation encryption-test (added-strand resp 4)
-    (enc n (exp (gen) (mul y y))) (0 3))
-  (traces
-    ((send (enc "reg" (exp (gen) y) a (privk a)))
-      (recv (enc (exp (gen) y) a (privk ca)))
-      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y-0) b (privk b)))
-      (recv (enc (exp (gen) y-0) b (privk ca-0)))
-      (recv
-        (cat (exp (gen) (mul y y (rec y-0)))
-          (enc (exp (gen) (mul y y (rec y-0))) a-0 (privk ca-0))))
-      (send
-        (cat (exp (gen) y-0) (enc (exp (gen) y-0) b (privk ca-0))
-          (enc n (exp (gen) (mul y y)))))))
-  (label 10)
-  (parent 6)
-  (unrealized (3 1) (3 2))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca name) (y expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) y)) (x y))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))
-    ((2 1) (0 3)) ((3 1) (0 3)))
-  (non-orig (privk a) (privk ca))
-  (uniq-gen y)
-  (operation encryption-test (added-listener (exp (gen) (mul y y)))
-    (enc n (exp (gen) (mul y y))) (0 3))
-  (traces
-    ((send (enc "reg" (exp (gen) y) a (privk a)))
-      (recv (enc (exp (gen) y) a (privk ca)))
-      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y)))))
-  (label 11)
-  (parent 6)
-  (unrealized (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca a-0 b ca-0 name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0) (h (exp (gen) x))
-    (y y))
-  (precedes ((0 0) (1 0)) ((0 0) (3 2)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 0) (2 0)) ((3 3) (0 3)))
-  (non-orig (privk a) (privk ca) (privk b) (privk ca-0))
-  (uniq-gen x y)
-  (operation encryption-test (displaced 3 4 resp 4)
-    (enc n (exp (gen) (mul x y-0))) (0 3))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca-0)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca-0))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
-          (enc n (exp (gen) (mul x y)))))))
-  (label 12)
-  (parent 7)
-  (unrealized (3 1) (3 2))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca a-0 b-0 ca-0 name) (x y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 1 (b b) (y y))
-  (defstrand resp 4 (n n) (a a-0) (b b-0) (ca ca-0)
-    (h (exp (gen) (mul x y (rec y-0)))) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 0) (4 2)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 0) (2 0)) ((3 0) (4 2)) ((4 3) (0 3)))
-  (non-orig (privk a) (privk b) (privk ca) (privk ca-0))
-  (uniq-gen x y y-0)
-  (operation encryption-test (added-strand resp 4)
-    (enc n (exp (gen) (mul x y))) (0 3))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b))))
-    ((send (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))
-      (recv (enc (exp (gen) y-0) b-0 (privk ca-0)))
-      (recv
-        (cat (exp (gen) (mul x y (rec y-0)))
-          (enc (exp (gen) (mul x y (rec y-0))) a-0 (privk ca-0))))
-      (send
-        (cat (exp (gen) y-0) (enc (exp (gen) y-0) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul x y)))))))
-  (label 13)
-  (parent 7)
-  (unrealized (4 1) (4 2))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 1 (b b) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 3)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen x y)
-  (operation encryption-test (added-listener (exp (gen) (mul x y)))
-    (enc n (exp (gen) (mul x y))) (0 3))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y)))))
-  (label 14)
-  (parent 7)
-  (unrealized (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca a-0 b ca-0 name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) x)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0)
-    (h (exp (gen) (mul x x (rec y)))) (y y))
-  (defstrand ca 2 (subject b) (ca ca-0) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a-0) (ca ca-0)
-    (h (exp (gen) (mul x x (rec y)))))
-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 0) (3 0))
-    ((2 0) (4 0)) ((2 3) (0 3)) ((3 1) (2 1)) ((4 1) (2 2)))
-  (non-orig (privk a) (privk ca) (privk a-0) (privk b) (privk ca-0))
-  (uniq-gen x y)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) (mul x x (rec y))) a-0 (privk ca-0)) (2 2))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
-          (enc n (exp (gen) (mul x x)))))
-      (send (enc "check" n (exp (gen) (mul x x)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca-0)))
-      (recv
-        (cat (exp (gen) (mul x x (rec y)))
-          (enc (exp (gen) (mul x x (rec y))) a-0 (privk ca-0))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
-          (enc n (exp (gen) (mul x x))))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca-0))))
-    ((recv (enc "reg" (exp (gen) (mul x x (rec y))) a-0 (privk a-0)))
-      (send (enc (exp (gen) (mul x x (rec y))) a-0 (privk ca-0)))))
-  (label 15)
-  (parent 8)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a ca name) (x expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) x)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (gen) (mul x x)))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 1) (2 0)))
-  (non-orig (privk a) (privk ca))
-  (uniq-gen x)
-  (precur (3 0))
-  (operation nonce-test (contracted (x-0 x) (w (mul x x))) (gen) (3 0))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
-          (enc n (exp (gen) (mul x x)))))
-      (send (enc "check" n (exp (gen) (mul x x)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (gen) (mul x x))) (send (cat (gen) (mul x x)))))
-  (label 16)
-  (parent 9)
-  (unrealized (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca name) (y expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) y)) (x y))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (exp (gen) y) y))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 1) (2 0)))
-  (non-orig (privk a) (privk ca))
-  (precur (3 0))
-  (uniq-gen y)
-  (operation nonce-test (displaced 4 0 resp 1) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) a (privk a)))
-      (recv (enc (exp (gen) y) a (privk ca)))
-      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (exp (gen) y) y)) (send (cat (exp (gen) y) y))))
-  (label 17)
-  (parent 9)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a ca b name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) x)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (exp (gen) y) (mul x x (rec y))))
-  (defstrand resp 1 (b b) (y y))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 1) (2 0)) ((4 0) (3 0)))
-  (non-orig (privk a) (privk ca))
-  (precur (3 0))
-  (uniq-gen x y)
-  (operation nonce-test (added-strand resp 1) (exp (gen) y) (3 0))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
-          (enc n (exp (gen) (mul x x)))))
-      (send (enc "check" n (exp (gen) (mul x x)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (exp (gen) y) (mul x x (rec y))))
-      (send (cat (exp (gen) y) (mul x x (rec y)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))))
-  (label 18)
-  (parent 9)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a ca a-0 b ca-0 name) (y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) y)) (x y))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0)
-    (h (exp (gen) (mul y y (rec y-0)))) (y y-0))
-  (defstrand ca 2 (subject b) (ca ca-0) (h (exp (gen) y-0)))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 2)) ((1 1) (0 1))
-    ((2 1) (0 3)) ((3 0) (4 0)) ((3 3) (0 3)) ((4 1) (3 1)))
-  (non-orig (privk a) (privk ca) (privk b) (privk ca-0))
-  (uniq-gen y y-0)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) y-0) b (privk ca-0)) (3 1))
-  (traces
-    ((send (enc "reg" (exp (gen) y) a (privk a)))
-      (recv (enc (exp (gen) y) a (privk ca)))
-      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y-0) b (privk b)))
-      (recv (enc (exp (gen) y-0) b (privk ca-0)))
-      (recv
-        (cat (exp (gen) (mul y y (rec y-0)))
-          (enc (exp (gen) (mul y y (rec y-0))) a-0 (privk ca-0))))
-      (send
-        (cat (exp (gen) y-0) (enc (exp (gen) y-0) b (privk ca-0))
-          (enc n (exp (gen) (mul y y))))))
-    ((recv (enc "reg" (exp (gen) y-0) b (privk b)))
-      (send (enc (exp (gen) y-0) b (privk ca-0)))))
-  (label 19)
-  (parent 10)
-  (unrealized (3 2))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca name) (y expn) (w expr))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) y)) (x y))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (exp (gen) (mul y y (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
-    ((2 1) (0 3)) ((3 1) (0 3)) ((4 1) (3 0)))
-  (non-orig (privk a) (privk ca))
-  (uniq-gen y)
-  (precur (4 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y y (rec w))) w))
-    (exp (gen) (mul y y)) (3 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) a (privk a)))
-      (recv (enc (exp (gen) y) a (privk ca)))
-      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (exp (gen) (mul y y (rec w))) w))
-      (send (cat (exp (gen) (mul y y (rec w))) w))))
-  (label 20)
-  (parent 11)
-  (unrealized (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca a-0 b name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((0 0) (3 2)) ((1 1) (0 1)) ((2 1) (3 1))
-    ((3 0) (2 0)) ((3 3) (0 3)))
-  (non-orig (privk a) (privk ca) (privk b))
-  (uniq-gen x y)
-  (operation encryption-test (displaced 4 2 ca 2)
-    (enc (exp (gen) y) b (privk ca-0)) (3 1))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))))
-  (label 21)
-  (parent 12)
-  (unrealized (3 2))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca a-0 b ca-0 name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0) (h (exp (gen) x))
-    (y y))
-  (defstrand ca 2 (subject b) (ca ca-0) (h (exp (gen) y)))
-  (precedes ((0 0) (1 0)) ((0 0) (3 2)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((3 3) (0 3)) ((4 1) (3 1)))
-  (non-orig (privk a) (privk ca) (privk b) (privk ca-0))
-  (uniq-gen x y)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) y) b (privk ca-0)) (3 1))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca-0)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca-0))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
-          (enc n (exp (gen) (mul x y))))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca-0)))))
-  (label 22)
-  (parent 12)
-  (unrealized (3 2))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca a-0 b-0 ca-0 name) (x y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 1 (b b) (y y))
-  (defstrand resp 4 (n n) (a a-0) (b b-0) (ca ca-0)
-    (h (exp (gen) (mul x y (rec y-0)))) (y y-0))
-  (defstrand ca 2 (subject b-0) (ca ca-0) (h (exp (gen) y-0)))
-  (precedes ((0 0) (1 0)) ((0 0) (4 2)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 0) (2 0)) ((3 0) (4 2)) ((4 0) (5 0)) ((4 3) (0 3))
-    ((5 1) (4 1)))
-  (non-orig (privk a) (privk b) (privk ca) (privk b-0) (privk ca-0))
-  (uniq-gen x y y-0)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) y-0) b-0 (privk ca-0)) (4 1))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b))))
-    ((send (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))
-      (recv (enc (exp (gen) y-0) b-0 (privk ca-0)))
-      (recv
-        (cat (exp (gen) (mul x y (rec y-0)))
-          (enc (exp (gen) (mul x y (rec y-0))) a-0 (privk ca-0))))
-      (send
-        (cat (exp (gen) y-0) (enc (exp (gen) y-0) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul x y))))))
-    ((recv (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))
-      (send (enc (exp (gen) y-0) b-0 (privk ca-0)))))
-  (label 23)
-  (parent 13)
-  (unrealized (4 2))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (x y expn) (w expr))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 1 (b b) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) (mul x y (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 3)) ((5 1) (4 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen x y)
-  (precur (5 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x y (rec w))) w))
-    (exp (gen) (mul x y)) (4 0))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) (mul x y (rec w))) w))
-      (send (cat (exp (gen) (mul x y (rec w))) w))))
-  (label 24)
-  (parent 14)
-  (unrealized (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca name) (x expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) x)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (gen) (mul x x)))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 1) (2 0)) ((4 1) (3 0)))
-  (non-orig (privk a) (privk ca))
-  (uniq-gen x)
-  (precur (3 0))
-  (operation nonce-test (added-listener x) (mul x x) (3 0))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
-          (enc n (exp (gen) (mul x x)))))
-      (send (enc "check" n (exp (gen) (mul x x)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (gen) (mul x x))) (send (cat (gen) (mul x x))))
-    ((recv x) (send x)))
-  (label 25)
-  (parent 16)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a ca a-0 b ca-0 name) (y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) y)) (x y))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0)
-    (h (exp (gen) (mul y y (rec y-0)))) (y y-0))
-  (defstrand ca 2 (subject b) (ca ca-0) (h (exp (gen) y-0)))
-  (defstrand ca 2 (subject a-0) (ca ca-0)
-    (h (exp (gen) (mul y y (rec y-0)))))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1))
-    ((2 1) (0 3)) ((3 0) (4 0)) ((3 0) (5 0)) ((3 3) (0 3))
-    ((4 1) (3 1)) ((5 1) (3 2)))
-  (non-orig (privk a) (privk ca) (privk a-0) (privk b) (privk ca-0))
-  (uniq-gen y y-0)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) (mul y y (rec y-0))) a-0 (privk ca-0)) (3 2))
-  (traces
-    ((send (enc "reg" (exp (gen) y) a (privk a)))
-      (recv (enc (exp (gen) y) a (privk ca)))
-      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y-0) b (privk b)))
-      (recv (enc (exp (gen) y-0) b (privk ca-0)))
-      (recv
-        (cat (exp (gen) (mul y y (rec y-0)))
-          (enc (exp (gen) (mul y y (rec y-0))) a-0 (privk ca-0))))
-      (send
-        (cat (exp (gen) y-0) (enc (exp (gen) y-0) b (privk ca-0))
-          (enc n (exp (gen) (mul y y))))))
-    ((recv (enc "reg" (exp (gen) y-0) b (privk b)))
-      (send (enc (exp (gen) y-0) b (privk ca-0))))
-    ((recv (enc "reg" (exp (gen) (mul y y (rec y-0))) a-0 (privk a-0)))
-      (send (enc (exp (gen) (mul y y (rec y-0))) a-0 (privk ca-0)))))
-  (label 26)
-  (parent 19)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a ca name) (y expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) y)) (x y))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (gen) (mul y y)))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
-    ((2 1) (0 3)) ((3 1) (0 3)) ((4 1) (3 0)))
-  (non-orig (privk a) (privk ca))
-  (uniq-gen y)
-  (precur (4 0))
-  (operation nonce-test (contracted (y-0 y) (w (mul y y))) (gen) (4 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) a (privk a)))
-      (recv (enc (exp (gen) y) a (privk ca)))
-      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (gen) (mul y y))) (send (cat (gen) (mul y y)))))
-  (label 27)
-  (parent 20)
-  (unrealized (3 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca name) (y expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) y)) (x y))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (exp (gen) y) y))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
-    ((2 1) (0 3)) ((3 1) (0 3)) ((4 1) (3 0)))
-  (non-orig (privk a) (privk ca))
-  (precur (4 0))
-  (uniq-gen y)
-  (operation nonce-test (displaced 5 0 resp 1) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) a (privk a)))
-      (recv (enc (exp (gen) y) a (privk ca)))
-      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (exp (gen) y) y)) (send (cat (exp (gen) y) y))))
-  (label 28)
-  (parent 20)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a ca b name) (y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) y)) (x y))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (exp (gen) y-0) (mul y y (rec y-0))))
-  (defstrand resp 1 (b b) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
-    ((2 1) (0 3)) ((3 1) (0 3)) ((4 1) (3 0)) ((5 0) (4 0)))
-  (non-orig (privk a) (privk ca))
-  (precur (4 0))
-  (uniq-gen y y-0)
-  (operation nonce-test (added-strand resp 1) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) a (privk a)))
-      (recv (enc (exp (gen) y) a (privk ca)))
-      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (exp (gen) y-0) (mul y y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul y y (rec y-0)))))
-    ((send (enc "reg" (exp (gen) y-0) b (privk b)))))
-  (label 29)
-  (parent 20)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a ca b name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 2)) ((2 1) (3 1))
-    ((3 0) (2 0)) ((3 3) (0 3)))
-  (non-orig (privk a) (privk ca) (privk b))
-  (uniq-gen x y)
-  (operation encryption-test (displaced 4 1 ca 2)
-    (enc (exp (gen) x) a-0 (privk ca)) (3 2))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))))
-  (label 30)
-  (parent 21)
-  (unrealized)
-  (shape)
-  (maps ((0) ((x x) (a a) (b b) (ca ca) (h (exp (gen) y)) (n n))))
-  (origs))
-
-(defskeleton dhca
-  (vars (n text) (a ca a-0 b name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject a-0) (ca ca) (h (exp (gen) x)))
-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (3 1))
-    ((3 0) (2 0)) ((3 3) (0 3)) ((4 1) (3 2)))
-  (non-orig (privk a) (privk ca) (privk a-0) (privk b))
-  (uniq-gen x y)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) x) a-0 (privk ca)) (3 2))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y))))))
-    ((recv (enc "reg" (exp (gen) x) a-0 (privk a-0)))
-      (send (enc (exp (gen) x) a-0 (privk ca)))))
-  (label 31)
-  (parent 21)
-  (unrealized (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca b name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 2)) ((2 1) (0 3))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((3 3) (0 3)) ((4 1) (3 1)))
-  (non-orig (privk a) (privk ca) (privk b))
-  (uniq-gen x y)
-  (operation encryption-test (displaced 5 1 ca 2)
-    (enc (exp (gen) x) a-0 (privk ca-0)) (3 2))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y))))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca)))))
-  (label 32)
-  (parent 22)
-  (seen 30)
-  (unrealized)
-  (comment "1 in cohort - 0 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a ca a-0 b ca-0 name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0) (h (exp (gen) x))
-    (y y))
-  (defstrand ca 2 (subject b) (ca ca-0) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a-0) (ca ca-0) (h (exp (gen) x)))
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((3 3) (0 3)) ((4 1) (3 1))
-    ((5 1) (3 2)))
-  (non-orig (privk a) (privk ca) (privk a-0) (privk b) (privk ca-0))
-  (uniq-gen x y)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) x) a-0 (privk ca-0)) (3 2))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca-0)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca-0))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
-          (enc n (exp (gen) (mul x y))))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca-0))))
-    ((recv (enc "reg" (exp (gen) x) a-0 (privk a-0)))
-      (send (enc (exp (gen) x) a-0 (privk ca-0)))))
-  (label 33)
-  (parent 22)
-  (unrealized (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca a-0 b-0 ca-0 name) (x y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 1 (b b) (y y))
-  (defstrand resp 4 (n n) (a a-0) (b b-0) (ca ca-0)
-    (h (exp (gen) (mul x y (rec y-0)))) (y y-0))
-  (defstrand ca 2 (subject b-0) (ca ca-0) (h (exp (gen) y-0)))
-  (defstrand ca 2 (subject a-0) (ca ca-0)
-    (h (exp (gen) (mul x y (rec y-0)))))
-  (precedes ((0 0) (1 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 0) (2 0)) ((3 0) (6 0)) ((4 0) (5 0)) ((4 0) (6 0))
-    ((4 3) (0 3)) ((5 1) (4 1)) ((6 1) (4 2)))
-  (non-orig (privk a) (privk b) (privk ca) (privk a-0) (privk b-0)
-    (privk ca-0))
-  (uniq-gen x y y-0)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) (mul x y (rec y-0))) a-0 (privk ca-0)) (4 2))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b))))
-    ((send (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))
-      (recv (enc (exp (gen) y-0) b-0 (privk ca-0)))
-      (recv
-        (cat (exp (gen) (mul x y (rec y-0)))
-          (enc (exp (gen) (mul x y (rec y-0))) a-0 (privk ca-0))))
-      (send
-        (cat (exp (gen) y-0) (enc (exp (gen) y-0) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul x y))))))
-    ((recv (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))
-      (send (enc (exp (gen) y-0) b-0 (privk ca-0))))
-    ((recv (enc "reg" (exp (gen) (mul x y (rec y-0))) a-0 (privk a-0)))
-      (send (enc (exp (gen) (mul x y (rec y-0))) a-0 (privk ca-0)))))
-  (label 34)
-  (parent 23)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 1 (b b) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (gen) (mul x y)))
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 3)) ((5 1) (4 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen x y)
-  (precur (5 0))
-  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul x y))) (gen)
-    (5 0))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (gen) (mul x y))) (send (cat (gen) (mul x y)))))
-  (label 35)
-  (parent 24)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x y-0))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y-0)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 1 (b b) (y y))
-  (deflistener (exp (gen) (mul y y-0)))
-  (deflistener (cat (exp (gen) y-0) y))
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 3)) ((5 1) (4 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (precur (5 0))
-  (uniq-gen y y-0)
-  (operation nonce-test (displaced 6 0 resp 1) (exp (gen) y-1) (5 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y-0) a (privk a)))
-      (recv (enc (exp (gen) y-0) a (privk ca)))
-      (send (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y-0)))))
-      (send (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
-      (send (enc (exp (gen) y-0) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b))))
-    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0))))
-    ((recv (cat (exp (gen) y-0) y)) (send (cat (exp (gen) y-0) y))))
-  (label 36)
-  (parent 24)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 1 (b b) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 3)) ((5 1) (4 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (precur (5 0))
-  (uniq-gen x y)
-  (operation nonce-test (displaced 6 3 resp 1) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
-  (label 37)
-  (parent 24)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca b-0 name) (x y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 1 (b b) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y-0) (mul x y (rec y-0))))
-  (defstrand resp 1 (b b-0) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 3)) ((5 1) (4 0))
-    ((6 0) (5 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (precur (5 0))
-  (uniq-gen x y y-0)
-  (operation nonce-test (added-strand resp 1) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y-0) (mul x y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul x y (rec y-0)))))
-    ((send (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))))
-  (label 38)
-  (parent 24)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a ca name) (y expn))
-  (defstrand init 5 (n n) (a a) (b a) (ca ca) (h (exp (gen) y)) (x y))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (gen) (mul y y)))
-  (deflistener y)
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1))
-    ((2 1) (0 3)) ((3 1) (0 3)) ((4 1) (3 0)) ((5 1) (4 0)))
-  (non-orig (privk a) (privk ca))
-  (uniq-gen y)
-  (precur (4 0))
-  (operation nonce-test (added-listener y) (mul y y) (4 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) a (privk a)))
-      (recv (enc (exp (gen) y) a (privk ca)))
-      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (gen) (mul y y))) (send (cat (gen) (mul y y))))
-    ((recv y) (send y)))
-  (label 39)
-  (parent 27)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a ca b name) (y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x y-0))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y-0)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) y-0)) (y y))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y-0)))
-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (3 1))
-    ((3 0) (2 0)) ((3 3) (0 3)) ((4 1) (3 2)))
-  (non-orig (privk a) (privk ca) (privk b))
-  (uniq-gen y y-0)
-  (operation encryption-test (displaced 5 0 resp 1)
-    (enc "reg" (exp (gen) y-0) a-0 (privk a-0)) (4 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y-0) a (privk a)))
-      (recv (enc (exp (gen) y-0) a (privk ca)))
-      (send (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y-0)))))
-      (send (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
-      (send (enc (exp (gen) y-0) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y-0))))))
-    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
-      (send (enc (exp (gen) y-0) a (privk ca)))))
-  (label 40)
-  (parent 31)
-  (unrealized)
-  (shape)
-  (maps ((0) ((x y-0) (a a) (b b) (ca ca) (h (exp (gen) y)) (n n))))
-  (origs))
-
-(defskeleton dhca
-  (vars (n text) (a ca b ca-0 name) (y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x y-0))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y-0)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 4 (n n) (a a) (b b) (ca ca-0) (h (exp (gen) y-0))
-    (y y))
-  (defstrand ca 2 (subject b) (ca ca-0) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca-0) (h (exp (gen) y-0)))
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 3))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((3 3) (0 3)) ((4 1) (3 1))
-    ((5 1) (3 2)))
-  (non-orig (privk a) (privk ca) (privk b) (privk ca-0))
-  (uniq-gen y y-0)
-  (operation encryption-test (displaced 6 0 resp 1)
-    (enc "reg" (exp (gen) y-0) a-0 (privk a-0)) (5 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y-0) a (privk a)))
-      (recv (enc (exp (gen) y-0) a (privk ca)))
-      (send (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y-0)))))
-      (send (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
-      (send (enc (exp (gen) y-0) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca-0)))
-      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca-0))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
-          (enc n (exp (gen) (mul y y-0))))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca-0))))
-    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
-      (send (enc (exp (gen) y-0) a (privk ca-0)))))
-  (label 41)
-  (parent 33)
-  (unrealized)
-  (shape)
-  (maps ((0) ((x y-0) (a a) (b b) (ca ca) (h (exp (gen) y)) (n n))))
-  (origs))
-
-(comment "Nothing left to do")
-
-(defprotocol dhca diffie-hellman
-  (defrole init
-    (vars (x expn) (a b ca name) (h base) (n text))
-    (trace (send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv (cat h (enc h b (privk ca)) (enc n (exp h x))))
-      (send (enc "check" n (exp h x))))
-    (non-orig (privk ca))
-    (uniq-gen x))
-  (defrole resp
-    (vars (y expn) (a b ca name) (h base) (n text))
-    (trace (send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat h (enc h a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp h y)))) (recv (enc "check" n (exp h y))))
-    (non-orig (privk ca))
-    (uniq-gen y))
-  (defrole ca
-    (vars (subject ca name) (h base))
-    (trace (recv (enc "reg" h subject (privk subject)))
-      (send (enc h subject (privk ca))))
-    (non-orig (privk subject)))
-  (comment A diffie-hellman exchange which uses a certificate authority
-    to certify long-term DH values))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (h base) (y expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h h) (y y))
-  (non-orig (privk ca))
-  (uniq-gen y)
-  (uniq-orig n)
-  (comment Full responder point of view with freshly chosen n)
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat h (enc h a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp h y)))) (recv (enc "check" n (exp h y)))))
-  (label 42)
-  (unrealized (0 1) (0 2) (0 4))
-  (origs (n (0 3)))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (h base) (y expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h h) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk b) (privk ca))
-  (uniq-gen y)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) y) b (privk ca)) (0 1))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat h (enc h a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp h y)))) (recv (enc "check" n (exp h y))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca)))))
-  (label 43)
-  (parent 42)
-  (unrealized (0 2) (0 4))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca name) (y expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk b) (privk ca))
-  (uniq-gen y)
-  (uniq-orig n)
-  (operation encryption-test (displaced 2 1 ca 2) (enc h a (privk ca))
-    (0 2))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca)))))
-  (label 44)
-  (parent 43)
-  (unrealized (0 4))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (h base) (y expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h h) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h h))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (0 2)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen y)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2) (enc h a (privk ca))
-    (0 2))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat h (enc h a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp h y)))) (recv (enc "check" n (exp h y))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" h a (privk a))) (send (enc h a (privk ca)))))
-  (label 45)
-  (parent 43)
-  (unrealized (0 4) (2 0))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca a b-0 ca-0 name) (y x expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0)
-    (h (exp (gen) (mul y y (rec x)))) (x x))
-  (precedes ((0 0) (1 0)) ((0 3) (2 3)) ((1 1) (0 1)) ((2 4) (0 4)))
-  (non-orig (privk b) (privk ca) (privk ca-0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (added-strand init 5)
-    (enc "check" n (exp (gen) (mul y y))) (0 4))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca-0)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
-      (recv
-        (cat (exp (gen) (mul y y (rec x)))
-          (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y))))))
-  (label 46)
-  (parent 44)
-  (unrealized (2 1) (2 3))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca name) (y expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 4)))
-  (non-orig (privk b) (privk ca))
-  (uniq-gen y)
-  (uniq-orig n)
-  (operation encryption-test (added-listener (exp (gen) (mul y y)))
-    (enc "check" n (exp (gen) (mul y y))) (0 4))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y)))))
-  (label 47)
-  (parent 44)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca name) (y expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 2)))
-  (non-orig (privk b) (privk ca))
-  (uniq-gen y)
-  (uniq-orig n)
-  (operation encryption-test (displaced 3 0 resp 1)
-    (enc "reg" (exp (gen) y-0) a (privk a)) (2 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca)))))
-  (label 48)
-  (parent 45)
-  (unrealized (0 4))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (y y-0 expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y-0)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y-0)))
-  (defstrand resp 1 (b a) (y y-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (0 2)) ((3 0) (2 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen y y-0)
-  (uniq-orig n)
-  (operation encryption-test (added-strand resp 1)
-    (enc "reg" (exp (gen) y-0) a (privk a)) (2 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y-0)))))
-      (recv (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
-      (send (enc (exp (gen) y-0) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y-0) a (privk a)))))
-  (label 49)
-  (parent 45)
-  (unrealized (0 4))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca a b-0 ca-0 name) (y x expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0)
-    (h (exp (gen) (mul y y (rec x)))) (x x))
-  (defstrand ca 2 (subject a) (ca ca-0) (h (exp (gen) x)))
-  (precedes ((0 0) (1 0)) ((0 3) (2 3)) ((1 1) (0 1)) ((2 0) (3 0))
-    ((2 4) (0 4)) ((3 1) (2 1)))
-  (non-orig (privk b) (privk ca) (privk a) (privk ca-0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) x) a (privk ca-0)) (2 1))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca-0)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
-      (recv
-        (cat (exp (gen) (mul y y (rec x)))
-          (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca-0)))))
-  (label 50)
-  (parent 46)
-  (unrealized (2 3))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca name) (y expn) (w expr))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (exp (gen) (mul y y (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 4))
-    ((3 1) (2 0)))
-  (non-orig (privk b) (privk ca))
-  (uniq-gen y)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y y (rec w))) w))
-    (exp (gen) (mul y y)) (2 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (exp (gen) (mul y y (rec w))) w))
-      (send (cat (exp (gen) (mul y y (rec w))) w))))
-  (label 51)
-  (parent 47)
-  (unrealized (3 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca a b-0 ca-0 name) (y x expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0)
-    (h (exp (gen) (mul y y (rec x)))) (x x))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 3) (3 3)) ((1 1) (0 1))
-    ((2 1) (0 2)) ((3 4) (0 4)))
-  (non-orig (privk b) (privk ca) (privk ca-0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (added-strand init 5)
-    (enc "check" n (exp (gen) (mul y y))) (0 4))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca-0)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
-      (recv
-        (cat (exp (gen) (mul y y (rec x)))
-          (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y))))))
-  (label 52)
-  (parent 48)
-  (unrealized (3 1) (3 3))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca name) (y expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))
-    ((2 1) (0 2)) ((3 1) (0 4)))
-  (non-orig (privk b) (privk ca))
-  (uniq-gen y)
-  (uniq-orig n)
-  (operation encryption-test (added-listener (exp (gen) (mul y y)))
-    (enc "check" n (exp (gen) (mul y y))) (0 4))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y)))))
-  (label 53)
-  (parent 48)
-  (unrealized (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca a b-0 ca-0 name) (y x expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0) (h (exp (gen) y))
-    (x x))
-  (precedes ((0 0) (1 0)) ((0 3) (3 3)) ((1 1) (0 1)) ((2 1) (0 2))
-    ((3 0) (2 0)) ((3 4) (0 4)))
-  (non-orig (privk b) (privk ca) (privk a) (privk ca-0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (displaced 3 4 init 5)
-    (enc "check" n (exp (gen) (mul y y-0))) (0 4))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (recv (enc "check" n (exp (gen) (mul y x)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca-0)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul y x)))))
-      (send (enc "check" n (exp (gen) (mul y x))))))
-  (label 54)
-  (parent 49)
-  (unrealized (3 1) (3 3))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca a-0 b-0 ca-0 name) (y y-0 x expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y-0)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y-0)))
-  (defstrand resp 1 (b a) (y y-0))
-  (defstrand init 5 (n n) (a a-0) (b b-0) (ca ca-0)
-    (h (exp (gen) (mul y y-0 (rec x)))) (x x))
-  (precedes ((0 0) (1 0)) ((0 3) (4 3)) ((1 1) (0 1)) ((2 1) (0 2))
-    ((3 0) (2 0)) ((4 4) (0 4)))
-  (non-orig (privk a) (privk b) (privk ca) (privk ca-0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation encryption-test (added-strand init 5)
-    (enc "check" n (exp (gen) (mul y y-0))) (0 4))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y-0)))))
-      (recv (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
-      (send (enc (exp (gen) y-0) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
-    ((send (enc "reg" (exp (gen) x) a-0 (privk a-0)))
-      (recv (enc (exp (gen) x) a-0 (privk ca-0)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca-0))))
-      (recv
-        (cat (exp (gen) (mul y y-0 (rec x)))
-          (enc (exp (gen) (mul y y-0 (rec x))) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul y y-0)))))
-      (send (enc "check" n (exp (gen) (mul y y-0))))))
-  (label 55)
-  (parent 49)
-  (unrealized (4 1) (4 3))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (y y-0 expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y-0)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y-0)))
-  (defstrand resp 1 (b a) (y y-0))
-  (deflistener (exp (gen) (mul y y-0)))
-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 2))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 4)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen y y-0)
-  (uniq-orig n)
-  (operation encryption-test (added-listener (exp (gen) (mul y y-0)))
-    (enc "check" n (exp (gen) (mul y y-0))) (0 4))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y-0)))))
-      (recv (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
-      (send (enc (exp (gen) y-0) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
-    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0)))))
-  (label 56)
-  (parent 49)
-  (unrealized (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca a b-0 ca-0 name) (y x expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0)
-    (h (exp (gen) (mul y y (rec x)))) (x x))
-  (defstrand ca 2 (subject a) (ca ca-0) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b-0) (ca ca-0)
-    (h (exp (gen) (mul y y (rec x)))))
-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((0 3) (2 3)) ((1 1) (0 1))
-    ((2 0) (3 0)) ((2 0) (4 0)) ((2 4) (0 4)) ((3 1) (2 1))
-    ((4 1) (2 3)))
-  (non-orig (privk b) (privk ca) (privk a) (privk b-0) (privk ca-0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0)) (2 3))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca-0)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
-      (recv
-        (cat (exp (gen) (mul y y (rec x)))
-          (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca-0))))
-    ((recv (enc "reg" (exp (gen) (mul y y (rec x))) b-0 (privk b-0)))
-      (send (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0)))))
-  (label 57)
-  (parent 50)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (b ca name) (y expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (gen) (mul y y)))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 4))
-    ((3 1) (2 0)))
-  (non-orig (privk b) (privk ca))
-  (uniq-gen y)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test (contracted (y-0 y) (w (mul y y))) (gen) (3 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (gen) (mul y y))) (send (cat (gen) (mul y y)))))
-  (label 58)
-  (parent 51)
-  (unrealized (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca name) (y expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (exp (gen) y) y))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 4))
-    ((3 1) (2 0)))
-  (non-orig (privk b) (privk ca))
-  (precur (3 0))
-  (uniq-gen y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 resp 1) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (exp (gen) y) y)) (send (cat (exp (gen) y) y))))
-  (label 59)
-  (parent 51)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (b ca b-0 name) (y y-0 expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (exp (gen) y-0) (mul y y (rec y-0))))
-  (defstrand resp 1 (b b-0) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 4))
-    ((3 1) (2 0)) ((4 0) (3 0)))
-  (non-orig (privk b) (privk ca))
-  (precur (3 0))
-  (uniq-gen y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 1) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (exp (gen) y-0) (mul y y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul y y (rec y-0)))))
-    ((send (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))))
-  (label 60)
-  (parent 51)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (b ca a b-0 ca-0 name) (y x expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0)
-    (h (exp (gen) (mul y y (rec x)))) (x x))
-  (defstrand ca 2 (subject a) (ca ca-0) (h (exp (gen) x)))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 3) (3 3)) ((1 1) (0 1))
-    ((2 1) (0 2)) ((3 0) (4 0)) ((3 4) (0 4)) ((4 1) (3 1)))
-  (non-orig (privk b) (privk ca) (privk a) (privk ca-0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) x) a (privk ca-0)) (3 1))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca-0)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
-      (recv
-        (cat (exp (gen) (mul y y (rec x)))
-          (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca-0)))))
-  (label 61)
-  (parent 52)
-  (unrealized (3 3))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca name) (y expn) (w expr))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (exp (gen) (mul y y (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
-    ((2 1) (0 2)) ((3 1) (0 4)) ((4 1) (3 0)))
-  (non-orig (privk b) (privk ca))
-  (uniq-gen y)
-  (uniq-orig n)
-  (precur (4 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y y (rec w))) w))
-    (exp (gen) (mul y y)) (3 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (exp (gen) (mul y y (rec w))) w))
-      (send (cat (exp (gen) (mul y y (rec w))) w))))
-  (label 62)
-  (parent 53)
-  (unrealized (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca a b-0 name) (y x expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand init 5 (n n) (a a) (b b-0) (ca ca) (h (exp (gen) y)) (x x))
-  (precedes ((0 0) (1 0)) ((0 3) (3 3)) ((1 1) (0 1)) ((2 1) (0 2))
-    ((2 1) (3 1)) ((3 0) (2 0)) ((3 4) (0 4)))
-  (non-orig (privk b) (privk ca) (privk a))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (displaced 4 2 ca 2)
-    (enc (exp (gen) x) a (privk ca-0)) (3 1))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (recv (enc "check" n (exp (gen) (mul y x)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b-0 (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (send (enc "check" n (exp (gen) (mul y x))))))
-  (label 63)
-  (parent 54)
-  (unrealized (3 3))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca a b-0 ca-0 name) (y x expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0) (h (exp (gen) y))
-    (x x))
-  (defstrand ca 2 (subject a) (ca ca-0) (h (exp (gen) x)))
-  (precedes ((0 0) (1 0)) ((0 3) (3 3)) ((1 1) (0 1)) ((2 1) (0 2))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((3 4) (0 4)) ((4 1) (3 1)))
-  (non-orig (privk b) (privk ca) (privk a) (privk ca-0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) x) a (privk ca-0)) (3 1))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (recv (enc "check" n (exp (gen) (mul y x)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca-0)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul y x)))))
-      (send (enc "check" n (exp (gen) (mul y x)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca-0)))))
-  (label 64)
-  (parent 54)
-  (unrealized (3 3))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca a-0 b-0 ca-0 name) (y y-0 x expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y-0)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y-0)))
-  (defstrand resp 1 (b a) (y y-0))
-  (defstrand init 5 (n n) (a a-0) (b b-0) (ca ca-0)
-    (h (exp (gen) (mul y y-0 (rec x)))) (x x))
-  (defstrand ca 2 (subject a-0) (ca ca-0) (h (exp (gen) x)))
-  (precedes ((0 0) (1 0)) ((0 3) (4 3)) ((1 1) (0 1)) ((2 1) (0 2))
-    ((3 0) (2 0)) ((4 0) (5 0)) ((4 4) (0 4)) ((5 1) (4 1)))
-  (non-orig (privk a) (privk b) (privk ca) (privk a-0) (privk ca-0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) x) a-0 (privk ca-0)) (4 1))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y-0)))))
-      (recv (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
-      (send (enc (exp (gen) y-0) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
-    ((send (enc "reg" (exp (gen) x) a-0 (privk a-0)))
-      (recv (enc (exp (gen) x) a-0 (privk ca-0)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca-0))))
-      (recv
-        (cat (exp (gen) (mul y y-0 (rec x)))
-          (enc (exp (gen) (mul y y-0 (rec x))) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul y y-0)))))
-      (send (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) x) a-0 (privk a-0)))
-      (send (enc (exp (gen) x) a-0 (privk ca-0)))))
-  (label 65)
-  (parent 55)
-  (unrealized (4 3))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (y y-0 expn) (w expr))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y-0)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y-0)))
-  (defstrand resp 1 (b a) (y y-0))
-  (deflistener (exp (gen) (mul y y-0)))
-  (deflistener (cat (exp (gen) (mul y y-0 (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 2))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 4)) ((5 1) (4 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen y y-0)
-  (uniq-orig n)
-  (precur (5 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y y-0 (rec w))) w))
-    (exp (gen) (mul y y-0)) (4 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y-0)))))
-      (recv (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
-      (send (enc (exp (gen) y-0) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
-    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0))))
-    ((recv (cat (exp (gen) (mul y y-0 (rec w))) w))
-      (send (cat (exp (gen) (mul y y-0 (rec w))) w))))
-  (label 66)
-  (parent 56)
-  (unrealized (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca name) (y expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (gen) (mul y y)))
-  (deflistener y)
-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 4))
-    ((3 1) (2 0)) ((4 1) (3 0)))
-  (non-orig (privk b) (privk ca))
-  (uniq-gen y)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test (added-listener y) (mul y y) (3 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (gen) (mul y y))) (send (cat (gen) (mul y y))))
-    ((recv y) (send y)))
-  (label 67)
-  (parent 58)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (b ca a b-0 ca-0 name) (y x expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0)
-    (h (exp (gen) (mul y y (rec x)))) (x x))
-  (defstrand ca 2 (subject a) (ca ca-0) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b-0) (ca ca-0)
-    (h (exp (gen) (mul y y (rec x)))))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (5 0)) ((0 3) (3 3))
-    ((1 1) (0 1)) ((2 1) (0 2)) ((3 0) (4 0)) ((3 0) (5 0))
-    ((3 4) (0 4)) ((4 1) (3 1)) ((5 1) (3 3)))
-  (non-orig (privk b) (privk ca) (privk a) (privk b-0) (privk ca-0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0)) (3 3))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca-0)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
-      (recv
-        (cat (exp (gen) (mul y y (rec x)))
-          (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul y y)))))
-      (send (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca-0))))
-    ((recv (enc "reg" (exp (gen) (mul y y (rec x))) b-0 (privk b-0)))
-      (send (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0)))))
-  (label 68)
-  (parent 61)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (b ca name) (y expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (gen) (mul y y)))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
-    ((2 1) (0 2)) ((3 1) (0 4)) ((4 1) (3 0)))
-  (non-orig (privk b) (privk ca))
-  (uniq-gen y)
-  (uniq-orig n)
-  (precur (4 0))
-  (operation nonce-test (contracted (y-0 y) (w (mul y y))) (gen) (4 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (gen) (mul y y))) (send (cat (gen) (mul y y)))))
-  (label 69)
-  (parent 62)
-  (unrealized (3 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca name) (y expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (exp (gen) y) y))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
-    ((2 1) (0 2)) ((3 1) (0 4)) ((4 1) (3 0)))
-  (non-orig (privk b) (privk ca))
-  (precur (4 0))
-  (uniq-gen y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 resp 1) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (exp (gen) y) y)) (send (cat (exp (gen) y) y))))
-  (label 70)
-  (parent 62)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (b ca b-0 name) (y y-0 expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (exp (gen) y-0) (mul y y (rec y-0))))
-  (defstrand resp 1 (b b-0) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
-    ((2 1) (0 2)) ((3 1) (0 4)) ((4 1) (3 0)) ((5 0) (4 0)))
-  (non-orig (privk b) (privk ca))
-  (precur (4 0))
-  (uniq-gen y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 1) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (exp (gen) y-0) (mul y y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul y y (rec y-0)))))
-    ((send (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))))
-  (label 71)
-  (parent 62)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (b ca a name) (y x expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (precedes ((0 0) (1 0)) ((0 3) (3 3)) ((1 1) (0 1)) ((2 1) (0 2))
-    ((2 1) (3 1)) ((3 0) (2 0)) ((3 4) (0 4)))
-  (non-orig (privk b) (privk ca) (privk a))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (displaced 4 1 ca 2)
-    (enc (exp (gen) y) b-0 (privk ca)) (3 3))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (recv (enc "check" n (exp (gen) (mul y x)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (send (enc "check" n (exp (gen) (mul y x))))))
-  (label 72)
-  (parent 63)
-  (unrealized)
-  (shape)
-  (maps ((0) ((n n) (y y) (a a) (b b) (ca ca) (h (exp (gen) x)))))
-  (origs (n (0 3))))
-
-(defskeleton dhca
-  (vars (n text) (b ca a b-0 name) (y x expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand init 5 (n n) (a a) (b b-0) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject b-0) (ca ca) (h (exp (gen) y)))
-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((0 3) (3 3)) ((1 1) (0 1))
-    ((2 1) (0 2)) ((2 1) (3 1)) ((3 0) (2 0)) ((3 4) (0 4))
-    ((4 1) (3 3)))
-  (non-orig (privk b) (privk ca) (privk a) (privk b-0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) y) b-0 (privk ca)) (3 3))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (recv (enc "check" n (exp (gen) (mul y x)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b-0 (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (send (enc "check" n (exp (gen) (mul y x)))))
-    ((recv (enc "reg" (exp (gen) y) b-0 (privk b-0)))
-      (send (enc (exp (gen) y) b-0 (privk ca)))))
-  (label 73)
-  (parent 63)
-  (unrealized (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca a name) (y x expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (precedes ((0 0) (1 0)) ((0 3) (3 3)) ((1 1) (0 1)) ((2 1) (0 2))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((3 4) (0 4)) ((4 1) (3 1)))
-  (non-orig (privk b) (privk ca) (privk a))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (displaced 5 1 ca 2)
-    (enc (exp (gen) y) b-0 (privk ca-0)) (3 3))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (recv (enc "check" n (exp (gen) (mul y x)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (send (enc "check" n (exp (gen) (mul y x)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca)))))
-  (label 74)
-  (parent 64)
-  (unrealized)
-  (shape)
-  (maps ((0) ((n n) (y y) (a a) (b b) (ca ca) (h (exp (gen) x)))))
-  (origs (n (0 3))))
-
-(defskeleton dhca
-  (vars (n text) (b ca a b-0 ca-0 name) (y x expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0) (h (exp (gen) y))
-    (x x))
-  (defstrand ca 2 (subject a) (ca ca-0) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b-0) (ca ca-0) (h (exp (gen) y)))
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((0 3) (3 3)) ((1 1) (0 1))
-    ((2 1) (0 2)) ((3 0) (2 0)) ((3 0) (4 0)) ((3 4) (0 4))
-    ((4 1) (3 1)) ((5 1) (3 3)))
-  (non-orig (privk b) (privk ca) (privk a) (privk b-0) (privk ca-0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) y) b-0 (privk ca-0)) (3 3))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (recv (enc "check" n (exp (gen) (mul y x)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca-0)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul y x)))))
-      (send (enc "check" n (exp (gen) (mul y x)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca-0))))
-    ((recv (enc "reg" (exp (gen) y) b-0 (privk b-0)))
-      (send (enc (exp (gen) y) b-0 (privk ca-0)))))
-  (label 75)
-  (parent 64)
-  (unrealized (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca a-0 b-0 ca-0 name) (y y-0 x expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y-0)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y-0)))
-  (defstrand resp 1 (b a) (y y-0))
-  (defstrand init 5 (n n) (a a-0) (b b-0) (ca ca-0)
-    (h (exp (gen) (mul y y-0 (rec x)))) (x x))
-  (defstrand ca 2 (subject a-0) (ca ca-0) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b-0) (ca ca-0)
-    (h (exp (gen) (mul y y-0 (rec x)))))
-  (precedes ((0 0) (1 0)) ((0 0) (6 0)) ((0 3) (4 3)) ((1 1) (0 1))
-    ((2 1) (0 2)) ((3 0) (2 0)) ((3 0) (6 0)) ((4 0) (5 0))
-    ((4 0) (6 0)) ((4 4) (0 4)) ((5 1) (4 1)) ((6 1) (4 3)))
-  (non-orig (privk a) (privk b) (privk ca) (privk a-0) (privk b-0)
-    (privk ca-0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) (mul y y-0 (rec x))) b-0 (privk ca-0)) (4 3))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y-0)))))
-      (recv (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
-      (send (enc (exp (gen) y-0) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
-    ((send (enc "reg" (exp (gen) x) a-0 (privk a-0)))
-      (recv (enc (exp (gen) x) a-0 (privk ca-0)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca-0))))
-      (recv
-        (cat (exp (gen) (mul y y-0 (rec x)))
-          (enc (exp (gen) (mul y y-0 (rec x))) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul y y-0)))))
-      (send (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) x) a-0 (privk a-0)))
-      (send (enc (exp (gen) x) a-0 (privk ca-0))))
-    ((recv (enc "reg" (exp (gen) (mul y y-0 (rec x))) b-0 (privk b-0)))
-      (send (enc (exp (gen) (mul y y-0 (rec x))) b-0 (privk ca-0)))))
-  (label 76)
-  (parent 65)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (y y-0 expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y-0)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y-0)))
-  (defstrand resp 1 (b a) (y y-0))
-  (deflistener (exp (gen) (mul y y-0)))
-  (deflistener (cat (gen) (mul y y-0)))
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 2))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 4)) ((5 1) (4 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen y y-0)
-  (uniq-orig n)
-  (precur (5 0))
-  (operation nonce-test (contracted (y-1 y) (y-2 y-0) (w (mul y y-0)))
-    (gen) (5 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y-0)))))
-      (recv (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
-      (send (enc (exp (gen) y-0) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
-    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0))))
-    ((recv (cat (gen) (mul y y-0))) (send (cat (gen) (mul y y-0)))))
-  (label 77)
-  (parent 66)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (y y-0 expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (y y-0))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y-0)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y)))
-  (defstrand resp 1 (b a) (y y))
-  (deflistener (exp (gen) (mul y y-0)))
-  (deflistener (cat (exp (gen) y-0) y))
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 2))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 4)) ((5 1) (4 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (precur (5 0))
-  (uniq-gen y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 resp 1) (exp (gen) y-1) (5 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y-0) b (privk b)))
-      (recv (enc (exp (gen) y-0) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
-      (send
-        (cat (exp (gen) y-0) (enc (exp (gen) y-0) b (privk ca))
-          (enc n (exp (gen) (mul y y-0)))))
-      (recv (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) y-0) b (privk b)))
-      (send (enc (exp (gen) y-0) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) a (privk a)))
-      (send (enc (exp (gen) y) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y) a (privk a))))
-    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0))))
-    ((recv (cat (exp (gen) y-0) y)) (send (cat (exp (gen) y-0) y))))
-  (label 78)
-  (parent 66)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (y y-0 expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y-0)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y-0)))
-  (defstrand resp 1 (b a) (y y-0))
-  (deflistener (exp (gen) (mul y y-0)))
-  (deflistener (cat (exp (gen) y-0) y))
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 2))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 4)) ((5 1) (4 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (precur (5 0))
-  (uniq-gen y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 3 resp 1) (exp (gen) y-1) (5 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y-0)))))
-      (recv (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
-      (send (enc (exp (gen) y-0) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
-    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0))))
-    ((recv (cat (exp (gen) y-0) y)) (send (cat (exp (gen) y-0) y))))
-  (label 79)
-  (parent 66)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca b-0 name) (y y-0 y-1 expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y-0)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y-0)))
-  (defstrand resp 1 (b a) (y y-0))
-  (deflistener (exp (gen) (mul y y-0)))
-  (deflistener (cat (exp (gen) y-1) (mul y y-0 (rec y-1))))
-  (defstrand resp 1 (b b-0) (y y-1))
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 2))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 4)) ((5 1) (4 0))
-    ((6 0) (5 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (precur (5 0))
-  (uniq-gen y y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 1) (exp (gen) y-1) (5 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y-0)))))
-      (recv (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
-      (send (enc (exp (gen) y-0) a (privk ca))))
-    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
-    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0))))
-    ((recv (cat (exp (gen) y-1) (mul y y-0 (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul y y-0 (rec y-1)))))
-    ((send (enc "reg" (exp (gen) y-1) b-0 (privk b-0)))))
-  (label 80)
-  (parent 66)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (b ca name) (y expn))
-  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (h (exp (gen) y)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (deflistener (exp (gen) (mul y y)))
-  (deflistener (cat (gen) (mul y y)))
-  (deflistener y)
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1))
-    ((2 1) (0 2)) ((3 1) (0 4)) ((4 1) (3 0)) ((5 1) (4 0)))
-  (non-orig (privk b) (privk ca))
-  (uniq-gen y)
-  (uniq-orig n)
-  (precur (4 0))
-  (operation nonce-test (added-listener y) (mul y y) (4 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y)))))
-      (recv (enc "check" n (exp (gen) (mul y y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
-    ((recv (cat (gen) (mul y y))) (send (cat (gen) (mul y y))))
-    ((recv y) (send y)))
-  (label 81)
-  (parent 69)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (b ca a name) (x y expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((0 3) (3 3)) ((1 1) (0 1))
-    ((2 1) (0 2)) ((2 1) (3 1)) ((3 0) (2 0)) ((3 4) (0 4))
-    ((4 1) (3 3)))
-  (non-orig (privk b) (privk ca) (privk a))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation encryption-test (displaced 5 0 resp 1)
-    (enc "reg" (exp (gen) y) b-0 (privk b-0)) (4 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (recv (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca)))))
-  (label 82)
-  (parent 73)
-  (seen 72)
-  (unrealized)
-  (comment "1 in cohort - 0 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (b ca a ca-0 name) (x y expn))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca-0) (h (exp (gen) y)) (x x))
-  (defstrand ca 2 (subject a) (ca ca-0) (h (exp (gen) x)))
-  (defstrand ca 2 (subject b) (ca ca-0) (h (exp (gen) y)))
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((0 3) (3 3)) ((1 1) (0 1))
-    ((2 1) (0 2)) ((3 0) (2 0)) ((3 0) (4 0)) ((3 4) (0 4))
-    ((4 1) (3 1)) ((5 1) (3 3)))
-  (non-orig (privk b) (privk ca) (privk a) (privk ca-0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation encryption-test (displaced 6 0 resp 1)
-    (enc "reg" (exp (gen) y) b-0 (privk b-0)) (5 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (recv (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca-0)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca-0))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca-0)))))
-  (label 83)
-  (parent 75)
-  (unrealized)
-  (shape)
-  (maps ((0) ((n n) (y y) (a a) (b b) (ca ca) (h (exp (gen) x)))))
-  (origs (n (0 3))))
-
-(comment "Nothing left to do")
-
-(defprotocol dhca diffie-hellman
-  (defrole init
-    (vars (x expn) (a b ca name) (h base) (n text))
-    (trace (send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv (cat h (enc h b (privk ca)) (enc n (exp h x))))
-      (send (enc "check" n (exp h x))))
-    (non-orig (privk ca))
-    (uniq-gen x))
-  (defrole resp
-    (vars (y expn) (a b ca name) (h base) (n text))
-    (trace (send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat h (enc h a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp h y)))) (recv (enc "check" n (exp h y))))
-    (non-orig (privk ca))
-    (uniq-gen y))
-  (defrole ca
-    (vars (subject ca name) (h base))
-    (trace (recv (enc "reg" h subject (privk subject)))
-      (send (enc h subject (privk ca))))
-    (non-orig (privk subject)))
-  (comment A diffie-hellman exchange which uses a certificate authority
-    to certify long-term DH values))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (non-orig (privk ca))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (comment point of view in which init and resp each complete and they
-    agree on the relevant parameters)
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (recv (enc "check" n (exp (gen) (mul x y))))))
-  (label 84)
-  (unrealized (0 1) (0 3) (1 1) (1 2) (1 4))
-  (preskeleton)
-  (comment "Not a skeleton"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 2)) ((1 3) (0 3)))
-  (non-orig (privk ca))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (comment point of view in which init and resp each complete and they
-    agree on the relevant parameters)
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (recv (enc "check" n (exp (gen) (mul x y))))))
-  (label 85)
-  (parent 84)
-  (unrealized (0 1) (1 1) (1 2) (1 4))
-  (origs (n (1 3)))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (precedes ((0 0) (1 2)) ((1 0) (2 0)) ((1 3) (0 3)) ((2 1) (1 1)))
-  (non-orig (privk b) (privk ca))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) y) b (privk ca)) (1 1))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (recv (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca)))))
-  (label 86)
-  (parent 85)
-  (unrealized (0 1) (1 2) (1 4))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (precedes ((0 0) (3 0)) ((1 0) (2 0)) ((1 3) (0 3)) ((2 1) (1 1))
-    ((3 1) (1 2)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) x) a (privk ca)) (1 2))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (recv (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca)))))
-  (label 87)
-  (parent 86)
-  (unrealized (0 1) (1 4))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (y x expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (precedes ((0 0) (3 0)) ((0 4) (1 4)) ((1 0) (2 0)) ((1 3) (0 3))
-    ((2 1) (1 1)) ((3 1) (1 2)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (displaced 4 0 init 5)
-    (enc "check" n (exp (gen) (mul x-0 y))) (1 4))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (send (enc "check" n (exp (gen) (mul y x)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (recv (enc "check" n (exp (gen) (mul y x)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca)))))
-  (label 88)
-  (parent 87)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca a-0 b-0 ca-0 name) (x y x-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand init 5 (n n) (a a-0) (b b-0) (ca ca-0)
-    (h (exp (gen) (mul x y (rec x-0)))) (x x-0))
-  (precedes ((0 0) (3 0)) ((1 0) (2 0)) ((1 3) (0 3)) ((1 3) (4 3))
-    ((2 1) (1 1)) ((3 1) (1 2)) ((4 4) (1 4)))
-  (non-orig (privk a) (privk b) (privk ca) (privk ca-0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation encryption-test (added-strand init 5)
-    (enc "check" n (exp (gen) (mul x y))) (1 4))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (recv (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((send (enc "reg" (exp (gen) x-0) a-0 (privk a-0)))
-      (recv (enc (exp (gen) x-0) a-0 (privk ca-0)))
-      (send
-        (cat (exp (gen) x-0) (enc (exp (gen) x-0) a-0 (privk ca-0))))
-      (recv
-        (cat (exp (gen) (mul x y (rec x-0)))
-          (enc (exp (gen) (mul x y (rec x-0))) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y))))))
-  (label 89)
-  (parent 87)
-  (unrealized (0 1) (4 1) (4 3))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (deflistener (exp (gen) (mul x y)))
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((1 0) (2 0)) ((1 0) (4 0))
-    ((1 3) (0 3)) ((2 1) (1 1)) ((3 1) (1 2)) ((4 1) (1 4)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation encryption-test (added-listener (exp (gen) (mul x y)))
-    (enc "check" n (exp (gen) (mul x y))) (1 4))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (recv (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y)))))
-  (label 90)
-  (parent 87)
-  (unrealized (0 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (y x expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (precedes ((0 0) (3 0)) ((0 4) (1 4)) ((1 0) (2 0)) ((1 3) (0 3))
-    ((2 1) (1 1)) ((3 1) (0 1)) ((3 1) (1 2)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (displaced 4 3 ca 2)
-    (enc (exp (gen) x) a (privk ca)) (0 1))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (send (enc "check" n (exp (gen) (mul y x)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (recv (enc "check" n (exp (gen) (mul y x)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca)))))
-  (label 91)
-  (parent 88)
-  (unrealized)
-  (shape)
-  (maps ((0 1) ((a a) (b b) (ca ca) (x x) (y y) (n n))))
-  (origs (n (1 3))))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (y x expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((0 4) (1 4)) ((1 0) (2 0))
-    ((1 3) (0 3)) ((2 1) (1 1)) ((3 1) (1 2)) ((4 1) (0 1)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) x) a (privk ca)) (0 1))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (send (enc "check" n (exp (gen) (mul y x)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y x)))))
-      (recv (enc "check" n (exp (gen) (mul y x)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca)))))
-  (label 92)
-  (parent 88)
-  (unrealized)
-  (shape)
-  (maps ((0 1) ((a a) (b b) (ca ca) (x x) (y y) (n n))))
-  (origs (n (1 3))))
-
-(defskeleton dhca
-  (vars (n text) (a b ca a-0 b-0 ca-0 name) (x y x-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand init 5 (n n) (a a-0) (b b-0) (ca ca-0)
-    (h (exp (gen) (mul x y (rec x-0)))) (x x-0))
-  (defstrand ca 2 (subject a-0) (ca ca-0) (h (exp (gen) x-0)))
-  (precedes ((0 0) (3 0)) ((1 0) (2 0)) ((1 3) (0 3)) ((1 3) (4 3))
-    ((2 1) (1 1)) ((3 1) (1 2)) ((4 0) (5 0)) ((4 4) (1 4))
-    ((5 1) (4 1)))
-  (non-orig (privk a) (privk b) (privk ca) (privk a-0) (privk ca-0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) x-0) a-0 (privk ca-0)) (4 1))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (recv (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((send (enc "reg" (exp (gen) x-0) a-0 (privk a-0)))
-      (recv (enc (exp (gen) x-0) a-0 (privk ca-0)))
-      (send
-        (cat (exp (gen) x-0) (enc (exp (gen) x-0) a-0 (privk ca-0))))
-      (recv
-        (cat (exp (gen) (mul x y (rec x-0)))
-          (enc (exp (gen) (mul x y (rec x-0))) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x-0) a-0 (privk a-0)))
-      (send (enc (exp (gen) x-0) a-0 (privk ca-0)))))
-  (label 93)
-  (parent 89)
-  (unrealized (0 1) (4 3))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (x y expn) (w expr))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) (mul x y (rec w))) w))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 0) (2 0)) ((1 0) (5 0))
-    ((1 3) (0 3)) ((2 1) (1 1)) ((3 1) (1 2)) ((4 1) (1 4))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (5 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x y (rec w))) w))
-    (exp (gen) (mul x y)) (4 0))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (recv (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) (mul x y (rec w))) w))
-      (send (cat (exp (gen) (mul x y (rec w))) w))))
-  (label 94)
-  (parent 90)
-  (unrealized (0 1) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca a-0 b-0 ca-0 name) (x y x-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (defstrand init 5 (n n) (a a-0) (b b-0) (ca ca-0)
-    (h (exp (gen) (mul x y (rec x-0)))) (x x-0))
-  (defstrand ca 2 (subject a-0) (ca ca-0) (h (exp (gen) x-0)))
-  (defstrand ca 2 (subject b-0) (ca ca-0)
-    (h (exp (gen) (mul x y (rec x-0)))))
-  (precedes ((0 0) (3 0)) ((0 0) (6 0)) ((1 0) (2 0)) ((1 0) (6 0))
-    ((1 3) (0 3)) ((1 3) (4 3)) ((2 1) (1 1)) ((3 1) (1 2))
-    ((4 0) (5 0)) ((4 0) (6 0)) ((4 4) (1 4)) ((5 1) (4 1))
-    ((6 1) (4 3)))
-  (non-orig (privk a) (privk b) (privk ca) (privk a-0) (privk b-0)
-    (privk ca-0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation encryption-test (added-strand ca 2)
-    (enc (exp (gen) (mul x y (rec x-0))) b-0 (privk ca-0)) (4 3))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (recv (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((send (enc "reg" (exp (gen) x-0) a-0 (privk a-0)))
-      (recv (enc (exp (gen) x-0) a-0 (privk ca-0)))
-      (send
-        (cat (exp (gen) x-0) (enc (exp (gen) x-0) a-0 (privk ca-0))))
-      (recv
-        (cat (exp (gen) (mul x y (rec x-0)))
-          (enc (exp (gen) (mul x y (rec x-0))) b-0 (privk ca-0))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) x-0) a-0 (privk a-0)))
-      (send (enc (exp (gen) x-0) a-0 (privk ca-0))))
-    ((recv (enc "reg" (exp (gen) (mul x y (rec x-0))) b-0 (privk b-0)))
-      (send (enc (exp (gen) (mul x y (rec x-0))) b-0 (privk ca-0)))))
-  (label 95)
-  (parent 93)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (gen) (mul x y)))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 0) (2 0)) ((1 0) (5 0))
-    ((1 3) (0 3)) ((2 1) (1 1)) ((3 1) (1 2)) ((4 1) (1 4))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (5 0))
-  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul x y))) (gen)
-    (5 0))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (recv (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (gen) (mul x y))) (send (cat (gen) (mul x y)))))
-  (label 96)
-  (parent 94)
-  (unrealized (0 1) (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x y-0))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y-0)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) y-0)))
-  (deflistener (exp (gen) (mul y y-0)))
-  (deflistener (cat (exp (gen) y-0) y))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 0) (2 0)) ((1 0) (5 0))
-    ((1 3) (0 3)) ((2 1) (1 1)) ((3 1) (1 2)) ((4 1) (1 4))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (precur (5 0))
-  (uniq-gen y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 resp 1) (exp (gen) y-1) (5 0))
-  (traces
-    ((send (enc "reg" (exp (gen) y-0) a (privk a)))
-      (recv (enc (exp (gen) y-0) a (privk ca)))
-      (send (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y-0)))))
-      (send (enc "check" n (exp (gen) (mul y y-0)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul y y-0)))))
-      (recv (enc "check" n (exp (gen) (mul y y-0)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
-      (send (enc (exp (gen) y-0) a (privk ca))))
-    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0))))
-    ((recv (cat (exp (gen) y-0) y)) (send (cat (exp (gen) y-0) y))))
-  (label 97)
-  (parent 94)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 0) (2 0)) ((1 0) (5 0))
-    ((1 3) (0 3)) ((2 1) (1 1)) ((3 1) (1 2)) ((4 1) (1 4))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (precur (5 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 1) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (recv (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
-  (label 98)
-  (parent 94)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dhca
-  (vars (n text) (a b ca b-0 name) (x y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
-  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (y y))
-  (defstrand ca 2 (subject b) (ca ca) (h (exp (gen) y)))
-  (defstrand ca 2 (subject a) (ca ca) (h (exp (gen) x)))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y-0) (mul x y (rec y-0))))
-  (defstrand resp 1 (b b-0) (y y-0))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 0) (2 0)) ((1 0) (5 0))
-    ((1 3) (0 3)) ((2 1) (1 1)) ((3 1) (1 2)) ((4 1) (1 4))
-    ((5 1) (4 0)) ((6 0) (5 0)))
-  (non-orig (privk a) (privk b) (privk ca))
-  (precur (5 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 1) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (enc "reg" (exp (gen) x) a (privk a)))
-      (recv (enc (exp (gen) x) a (privk ca)))
-      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (recv
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (send (enc "check" n (exp (gen) (mul x y)))))
-    ((send (enc "reg" (exp (gen) y) b (privk b)))
-      (recv (enc (exp (gen) y) b (privk ca)))
-      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
-      (send
-        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
-          (enc n (exp (gen) (mul x y)))))
-      (recv (enc "check" n (exp (gen) (mul x y)))))
-    ((recv (enc "reg" (exp (gen) y) b (privk b)))
-      (send (enc (exp (gen) y) b (privk ca))))
-    ((recv (enc "reg" (exp (gen) x) a (privk a)))
-      (send (enc (exp (gen) x) a (privk ca))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y-0) (mul x y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul x y (rec y-0)))))
+(comment "CPSA 3.5.0")
+(comment "All input read from dh-ca.scm")
+
+(defprotocol dhca diffie-hellman
+  (defrole init
+    (vars (x rndx) (a b ca name) (y expt) (n text))
+    (trace (send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    (non-orig (privk ca))
+    (uniq-gen x))
+  (defrole resp
+    (vars (y rndx) (a b ca name) (x expt) (n text))
+    (trace (send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    (non-orig (privk ca))
+    (uniq-gen y))
+  (defrole ca
+    (vars (subject ca name) (x expt))
+    (trace (recv (enc "reg" (exp (gen) x) subject (privk subject)))
+      (send (enc (exp (gen) x) subject (privk ca))))
+    (non-orig (privk subject)))
+  (comment A diffie-hellman exchange which uses a certificate authority
+    to certify long-term DH values))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (x rndx) (y expt))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (non-orig (privk ca))
+  (uniq-gen x)
+  (comment Full initiator POV No need to make extra assumptions)
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y))))))
+  (label 0)
+  (unrealized (0 1) (0 3))
+  (origs)
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y expt) (x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (non-orig (privk a) (privk ca))
+  (uniq-gen x)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) x) a (privk ca)) (0 1))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca)))))
+  (label 1)
+  (parent 0)
+  (unrealized (0 3))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca name) (x rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x x) (y x))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (non-orig (privk a) (privk ca))
+  (uniq-gen x)
+  (operation encryption-test (displaced 2 1 ca 2)
+    (enc (exp (gen) x-0) b (privk ca)) (0 3))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
+          (enc n (exp (gen) (mul x x)))))
+      (send (enc "check" n (exp (gen) (mul x x)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca)))))
+  (label 2)
+  (parent 1)
+  (unrealized (0 3))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (x rndx) (x-0 expt))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y x-0))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x x-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (0 3)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen x)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) x-0) b (privk ca)) (0 3))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) x-0) (enc (exp (gen) x-0) b (privk ca))
+          (enc n (exp (gen) (mul x x-0)))))
+      (send (enc "check" n (exp (gen) (mul x x-0)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) x-0) b (privk b)))
+      (send (enc (exp (gen) x-0) b (privk ca)))))
+  (label 3)
+  (parent 1)
+  (unrealized (2 0))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca a-0 b ca-0 name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x x) (y x))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0) (y y)
+    (x (mul x x (rec y))))
+  (precedes ((0 0) (1 0)) ((0 0) (2 2)) ((1 1) (0 1)) ((2 3) (0 3)))
+  (non-orig (privk a) (privk ca) (privk ca-0))
+  (uniq-gen x y)
+  (operation encryption-test (added-strand resp 4)
+    (enc n (exp (gen) (mul x x))) (0 3))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
+          (enc n (exp (gen) (mul x x)))))
+      (send (enc "check" n (exp (gen) (mul x x)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca-0)))
+      (recv
+        (cat (exp (gen) (mul x x (rec y)))
+          (enc (exp (gen) (mul x x (rec y))) a-0 (privk ca-0))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
+          (enc n (exp (gen) (mul x x)))))))
+  (label 4)
+  (parent 2)
+  (unrealized (2 1) (2 2))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca name) (x rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x x) (y x))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (deflistener (exp (gen) (mul x x)))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 3)))
+  (non-orig (privk a) (privk ca))
+  (uniq-gen x)
+  (operation encryption-test (added-listener (exp (gen) (mul x x)))
+    (enc n (exp (gen) (mul x x))) (0 3))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
+          (enc n (exp (gen) (mul x x)))))
+      (send (enc "check" n (exp (gen) (mul x x)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x)))))
+  (label 5)
+  (parent 2)
+  (unrealized (2 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca name) (y rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x y) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 3)))
+  (non-orig (privk a) (privk ca))
+  (uniq-gen y)
+  (operation encryption-test (displaced 3 0 resp 1)
+    (enc "reg" (exp (gen) y-0) b (privk b)) (2 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) a (privk a)))
+      (recv (enc (exp (gen) y) a (privk ca)))
+      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca)))))
+  (label 6)
+  (parent 3)
+  (unrealized (0 3))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 1 (b b) (y y))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (0 3)) ((3 0) (2 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen x y)
+  (operation encryption-test (added-strand resp 1)
+    (enc "reg" (exp (gen) y) b (privk b)) (2 0))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))))
+  (label 7)
+  (parent 3)
+  (unrealized (0 3))
+  (comment "3 in cohort - 3 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca a-0 b ca-0 name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x x) (y x))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0) (y y)
+    (x (mul x x (rec y))))
+  (defstrand ca 2 (subject b) (ca ca-0) (x y))
+  (precedes ((0 0) (1 0)) ((0 0) (2 2)) ((1 1) (0 1)) ((2 0) (3 0))
+    ((2 3) (0 3)) ((3 1) (2 1)))
+  (non-orig (privk a) (privk ca) (privk b) (privk ca-0))
+  (uniq-gen x y)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) y) b (privk ca-0)) (2 1))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
+          (enc n (exp (gen) (mul x x)))))
+      (send (enc "check" n (exp (gen) (mul x x)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca-0)))
+      (recv
+        (cat (exp (gen) (mul x x (rec y)))
+          (enc (exp (gen) (mul x x (rec y))) a-0 (privk ca-0))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
+          (enc n (exp (gen) (mul x x))))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca-0)))))
+  (label 8)
+  (parent 4)
+  (unrealized (2 2))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca name) (x rndx) (w expt))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x x) (y x))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (deflistener (exp (gen) (mul x x)))
+  (deflistener (cat (exp (gen) (mul x x (rec w))) w))
+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 1) (2 0)))
+  (non-orig (privk a) (privk ca))
+  (uniq-gen x)
+  (precur (3 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul x x (rec w))) w))
+    (exp (gen) (mul x x)) (2 0))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
+          (enc n (exp (gen) (mul x x)))))
+      (send (enc "check" n (exp (gen) (mul x x)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
+    ((recv (cat (exp (gen) (mul x x (rec w))) w))
+      (send (cat (exp (gen) (mul x x (rec w))) w))))
+  (label 9)
+  (parent 5)
+  (unrealized (3 0))
+  (comment "3 in cohort - 3 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca a-0 b ca-0 name) (y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x y) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0) (y y-0)
+    (x (mul y y (rec y-0))))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 2)) ((1 1) (0 1))
+    ((2 1) (0 3)) ((3 3) (0 3)))
+  (non-orig (privk a) (privk ca) (privk ca-0))
+  (uniq-gen y y-0)
+  (operation encryption-test (added-strand resp 4)
+    (enc n (exp (gen) (mul y y))) (0 3))
+  (traces
+    ((send (enc "reg" (exp (gen) y) a (privk a)))
+      (recv (enc (exp (gen) y) a (privk ca)))
+      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y-0) b (privk b)))
+      (recv (enc (exp (gen) y-0) b (privk ca-0)))
+      (recv
+        (cat (exp (gen) (mul y y (rec y-0)))
+          (enc (exp (gen) (mul y y (rec y-0))) a-0 (privk ca-0))))
+      (send
+        (cat (exp (gen) y-0) (enc (exp (gen) y-0) b (privk ca-0))
+          (enc n (exp (gen) (mul y y)))))))
+  (label 10)
+  (parent 6)
+  (unrealized (3 1) (3 2))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca name) (y rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x y) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))
+    ((2 1) (0 3)) ((3 1) (0 3)))
+  (non-orig (privk a) (privk ca))
+  (uniq-gen y)
+  (operation encryption-test (added-listener (exp (gen) (mul y y)))
+    (enc n (exp (gen) (mul y y))) (0 3))
+  (traces
+    ((send (enc "reg" (exp (gen) y) a (privk a)))
+      (recv (enc (exp (gen) y) a (privk ca)))
+      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y)))))
+  (label 11)
+  (parent 6)
+  (unrealized (3 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca a-0 b ca-0 name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0) (y y) (x x))
+  (precedes ((0 0) (1 0)) ((0 0) (3 2)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 0) (2 0)) ((3 3) (0 3)))
+  (non-orig (privk a) (privk ca) (privk b) (privk ca-0))
+  (uniq-gen x y)
+  (operation encryption-test (displaced 3 4 resp 4)
+    (enc n (exp (gen) (mul x y-0))) (0 3))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca-0)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca-0))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
+          (enc n (exp (gen) (mul x y)))))))
+  (label 12)
+  (parent 7)
+  (unrealized (3 1) (3 2))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca a-0 b-0 ca-0 name) (x y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 1 (b b) (y y))
+  (defstrand resp 4 (n n) (a a-0) (b b-0) (ca ca-0) (y y-0)
+    (x (mul x y (rec y-0))))
+  (precedes ((0 0) (1 0)) ((0 0) (4 2)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 0) (2 0)) ((3 0) (4 2)) ((4 3) (0 3)))
+  (non-orig (privk a) (privk b) (privk ca) (privk ca-0))
+  (uniq-gen x y y-0)
+  (operation encryption-test (added-strand resp 4)
+    (enc n (exp (gen) (mul x y))) (0 3))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b))))
+    ((send (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))
+      (recv (enc (exp (gen) y-0) b-0 (privk ca-0)))
+      (recv
+        (cat (exp (gen) (mul x y (rec y-0)))
+          (enc (exp (gen) (mul x y (rec y-0))) a-0 (privk ca-0))))
+      (send
+        (cat (exp (gen) y-0) (enc (exp (gen) y-0) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul x y)))))))
+  (label 13)
+  (parent 7)
+  (unrealized (4 1) (4 2))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 1 (b b) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 3)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen x y)
+  (operation encryption-test (added-listener (exp (gen) (mul x y)))
+    (enc n (exp (gen) (mul x y))) (0 3))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y)))))
+  (label 14)
+  (parent 7)
+  (unrealized (4 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca a-0 b ca-0 name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x x) (y x))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0) (y y)
+    (x (mul x x (rec y))))
+  (defstrand ca 2 (subject b) (ca ca-0) (x y))
+  (defstrand ca 2 (subject a-0) (ca ca-0) (x (mul x x (rec y))))
+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 0) (3 0))
+    ((2 0) (4 0)) ((2 3) (0 3)) ((3 1) (2 1)) ((4 1) (2 2)))
+  (non-orig (privk a) (privk ca) (privk a-0) (privk b) (privk ca-0))
+  (uniq-gen x y)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) (mul x x (rec y))) a-0 (privk ca-0)) (2 2))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
+          (enc n (exp (gen) (mul x x)))))
+      (send (enc "check" n (exp (gen) (mul x x)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca-0)))
+      (recv
+        (cat (exp (gen) (mul x x (rec y)))
+          (enc (exp (gen) (mul x x (rec y))) a-0 (privk ca-0))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
+          (enc n (exp (gen) (mul x x))))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca-0))))
+    ((recv (enc "reg" (exp (gen) (mul x x (rec y))) a-0 (privk a-0)))
+      (send (enc (exp (gen) (mul x x (rec y))) a-0 (privk ca-0)))))
+  (label 15)
+  (parent 8)
+  (unrealized (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a ca name) (x rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x x) (y x))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (deflistener (exp (gen) (mul x x)))
+  (deflistener (cat (gen) (mul x x)))
+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 1) (2 0)))
+  (non-orig (privk a) (privk ca))
+  (uniq-gen x)
+  (precur (3 0))
+  (operation nonce-test (contracted (x-0 x) (w (mul x x))) (gen) (3 0))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
+          (enc n (exp (gen) (mul x x)))))
+      (send (enc "check" n (exp (gen) (mul x x)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
+    ((recv (cat (gen) (mul x x))) (send (cat (gen) (mul x x)))))
+  (label 16)
+  (parent 9)
+  (unrealized (2 0) (3 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca name) (y rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x y) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (exp (gen) y) y))
+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 1) (2 0)))
+  (non-orig (privk a) (privk ca))
+  (precur (3 0))
+  (uniq-gen y)
+  (operation nonce-test (displaced 4 0 resp 1) (exp (gen) y-0) (3 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) a (privk a)))
+      (recv (enc (exp (gen) y) a (privk ca)))
+      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (exp (gen) y) y)) (send (cat (exp (gen) y) y))))
+  (label 17)
+  (parent 9)
+  (unrealized (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a ca b name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x x) (y x))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (deflistener (exp (gen) (mul x x)))
+  (deflistener (cat (exp (gen) y) (mul x x (rec y))))
+  (defstrand resp 1 (b b) (y y))
+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 1) (2 0)) ((4 0) (3 0)))
+  (non-orig (privk a) (privk ca))
+  (precur (3 0))
+  (uniq-gen x y)
+  (operation nonce-test (added-strand resp 1) (exp (gen) y) (3 0))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
+          (enc n (exp (gen) (mul x x)))))
+      (send (enc "check" n (exp (gen) (mul x x)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
+    ((recv (cat (exp (gen) y) (mul x x (rec y))))
+      (send (cat (exp (gen) y) (mul x x (rec y)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))))
+  (label 18)
+  (parent 9)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a ca a-0 b ca-0 name) (y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x y) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0) (y y-0)
+    (x (mul y y (rec y-0))))
+  (defstrand ca 2 (subject b) (ca ca-0) (x y-0))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 2)) ((1 1) (0 1))
+    ((2 1) (0 3)) ((3 0) (4 0)) ((3 3) (0 3)) ((4 1) (3 1)))
+  (non-orig (privk a) (privk ca) (privk b) (privk ca-0))
+  (uniq-gen y y-0)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) y-0) b (privk ca-0)) (3 1))
+  (traces
+    ((send (enc "reg" (exp (gen) y) a (privk a)))
+      (recv (enc (exp (gen) y) a (privk ca)))
+      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y-0) b (privk b)))
+      (recv (enc (exp (gen) y-0) b (privk ca-0)))
+      (recv
+        (cat (exp (gen) (mul y y (rec y-0)))
+          (enc (exp (gen) (mul y y (rec y-0))) a-0 (privk ca-0))))
+      (send
+        (cat (exp (gen) y-0) (enc (exp (gen) y-0) b (privk ca-0))
+          (enc n (exp (gen) (mul y y))))))
+    ((recv (enc "reg" (exp (gen) y-0) b (privk b)))
+      (send (enc (exp (gen) y-0) b (privk ca-0)))))
+  (label 19)
+  (parent 10)
+  (unrealized (3 2))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca name) (y rndx) (w expt))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x y) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (exp (gen) (mul y y (rec w))) w))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
+    ((2 1) (0 3)) ((3 1) (0 3)) ((4 1) (3 0)))
+  (non-orig (privk a) (privk ca))
+  (uniq-gen y)
+  (precur (4 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul y y (rec w))) w))
+    (exp (gen) (mul y y)) (3 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) a (privk a)))
+      (recv (enc (exp (gen) y) a (privk ca)))
+      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (exp (gen) (mul y y (rec w))) w))
+      (send (cat (exp (gen) (mul y y (rec w))) w))))
+  (label 20)
+  (parent 11)
+  (unrealized (4 0))
+  (comment "3 in cohort - 3 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca a-0 b name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca) (y y) (x x))
+  (precedes ((0 0) (1 0)) ((0 0) (3 2)) ((1 1) (0 1)) ((2 1) (3 1))
+    ((3 0) (2 0)) ((3 3) (0 3)))
+  (non-orig (privk a) (privk ca) (privk b))
+  (uniq-gen x y)
+  (operation encryption-test (displaced 4 2 ca 2)
+    (enc (exp (gen) y) b (privk ca-0)) (3 1))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))))
+  (label 21)
+  (parent 12)
+  (unrealized (3 2))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca a-0 b ca-0 name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca-0) (x y))
+  (precedes ((0 0) (1 0)) ((0 0) (3 2)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 0) (2 0)) ((3 0) (4 0)) ((3 3) (0 3)) ((4 1) (3 1)))
+  (non-orig (privk a) (privk ca) (privk b) (privk ca-0))
+  (uniq-gen x y)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) y) b (privk ca-0)) (3 1))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca-0)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca-0))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
+          (enc n (exp (gen) (mul x y))))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca-0)))))
+  (label 22)
+  (parent 12)
+  (unrealized (3 2))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca a-0 b-0 ca-0 name) (x y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 1 (b b) (y y))
+  (defstrand resp 4 (n n) (a a-0) (b b-0) (ca ca-0) (y y-0)
+    (x (mul x y (rec y-0))))
+  (defstrand ca 2 (subject b-0) (ca ca-0) (x y-0))
+  (precedes ((0 0) (1 0)) ((0 0) (4 2)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 0) (2 0)) ((3 0) (4 2)) ((4 0) (5 0)) ((4 3) (0 3))
+    ((5 1) (4 1)))
+  (non-orig (privk a) (privk b) (privk ca) (privk b-0) (privk ca-0))
+  (uniq-gen x y y-0)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) y-0) b-0 (privk ca-0)) (4 1))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b))))
+    ((send (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))
+      (recv (enc (exp (gen) y-0) b-0 (privk ca-0)))
+      (recv
+        (cat (exp (gen) (mul x y (rec y-0)))
+          (enc (exp (gen) (mul x y (rec y-0))) a-0 (privk ca-0))))
+      (send
+        (cat (exp (gen) y-0) (enc (exp (gen) y-0) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul x y))))))
+    ((recv (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))
+      (send (enc (exp (gen) y-0) b-0 (privk ca-0)))))
+  (label 23)
+  (parent 13)
+  (unrealized (4 2))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (x y rndx) (w expt))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 1 (b b) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) (mul x y (rec w))) w))
+  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 3)) ((5 1) (4 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen x y)
+  (precur (5 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul x y (rec w))) w))
+    (exp (gen) (mul x y)) (4 0))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) (mul x y (rec w))) w))
+      (send (cat (exp (gen) (mul x y (rec w))) w))))
+  (label 24)
+  (parent 14)
+  (unrealized (5 0))
+  (comment "4 in cohort - 4 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca name) (x rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x x) (y x))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (deflistener (exp (gen) (mul x x)))
+  (deflistener (cat (gen) (mul x x)))
+  (deflistener x)
+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 1) (2 0)) ((4 1) (3 0)))
+  (non-orig (privk a) (privk ca))
+  (uniq-gen x)
+  (precur (3 0))
+  (operation nonce-test (added-listener x) (mul x x) (3 0))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))
+          (enc n (exp (gen) (mul x x)))))
+      (send (enc "check" n (exp (gen) (mul x x)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
+    ((recv (cat (gen) (mul x x))) (send (cat (gen) (mul x x))))
+    ((recv x) (send x)))
+  (label 25)
+  (parent 16)
+  (unrealized (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a ca a-0 b ca-0 name) (y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x y) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0) (y y-0)
+    (x (mul y y (rec y-0))))
+  (defstrand ca 2 (subject b) (ca ca-0) (x y-0))
+  (defstrand ca 2 (subject a-0) (ca ca-0) (x (mul y y (rec y-0))))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1))
+    ((2 1) (0 3)) ((3 0) (4 0)) ((3 0) (5 0)) ((3 3) (0 3))
+    ((4 1) (3 1)) ((5 1) (3 2)))
+  (non-orig (privk a) (privk ca) (privk a-0) (privk b) (privk ca-0))
+  (uniq-gen y y-0)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) (mul y y (rec y-0))) a-0 (privk ca-0)) (3 2))
+  (traces
+    ((send (enc "reg" (exp (gen) y) a (privk a)))
+      (recv (enc (exp (gen) y) a (privk ca)))
+      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y-0) b (privk b)))
+      (recv (enc (exp (gen) y-0) b (privk ca-0)))
+      (recv
+        (cat (exp (gen) (mul y y (rec y-0)))
+          (enc (exp (gen) (mul y y (rec y-0))) a-0 (privk ca-0))))
+      (send
+        (cat (exp (gen) y-0) (enc (exp (gen) y-0) b (privk ca-0))
+          (enc n (exp (gen) (mul y y))))))
+    ((recv (enc "reg" (exp (gen) y-0) b (privk b)))
+      (send (enc (exp (gen) y-0) b (privk ca-0))))
+    ((recv (enc "reg" (exp (gen) (mul y y (rec y-0))) a-0 (privk a-0)))
+      (send (enc (exp (gen) (mul y y (rec y-0))) a-0 (privk ca-0)))))
+  (label 26)
+  (parent 19)
+  (unrealized (5 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a ca name) (y rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x y) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (gen) (mul y y)))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
+    ((2 1) (0 3)) ((3 1) (0 3)) ((4 1) (3 0)))
+  (non-orig (privk a) (privk ca))
+  (uniq-gen y)
+  (precur (4 0))
+  (operation nonce-test (contracted (y-0 y) (w (mul y y))) (gen) (4 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) a (privk a)))
+      (recv (enc (exp (gen) y) a (privk ca)))
+      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (gen) (mul y y))) (send (cat (gen) (mul y y)))))
+  (label 27)
+  (parent 20)
+  (unrealized (3 0) (4 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca name) (y rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x y) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (exp (gen) y) y))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
+    ((2 1) (0 3)) ((3 1) (0 3)) ((4 1) (3 0)))
+  (non-orig (privk a) (privk ca))
+  (precur (4 0))
+  (uniq-gen y)
+  (operation nonce-test (displaced 5 0 resp 1) (exp (gen) y-0) (4 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) a (privk a)))
+      (recv (enc (exp (gen) y) a (privk ca)))
+      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (exp (gen) y) y)) (send (cat (exp (gen) y) y))))
+  (label 28)
+  (parent 20)
+  (unrealized (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a ca b name) (y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x y) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (exp (gen) y-0) (mul y y (rec y-0))))
+  (defstrand resp 1 (b b) (y y-0))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
+    ((2 1) (0 3)) ((3 1) (0 3)) ((4 1) (3 0)) ((5 0) (4 0)))
+  (non-orig (privk a) (privk ca))
+  (precur (4 0))
+  (uniq-gen y y-0)
+  (operation nonce-test (added-strand resp 1) (exp (gen) y-0) (4 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) a (privk a)))
+      (recv (enc (exp (gen) y) a (privk ca)))
+      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (exp (gen) y-0) (mul y y (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul y y (rec y-0)))))
+    ((send (enc "reg" (exp (gen) y-0) b (privk b)))))
+  (label 29)
+  (parent 20)
+  (unrealized (3 0) (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a ca b name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 4 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 2)) ((2 1) (3 1))
+    ((3 0) (2 0)) ((3 3) (0 3)))
+  (non-orig (privk a) (privk ca) (privk b))
+  (uniq-gen y x)
+  (operation encryption-test (displaced 4 1 ca 2)
+    (enc (exp (gen) x) a-0 (privk ca)) (3 2))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))))
+  (label 30)
+  (parent 21)
+  (unrealized)
+  (shape)
+  (maps ((0) ((x x) (a a) (b b) (ca ca) (y y) (n n))))
+  (origs))
+
+(defskeleton dhca
+  (vars (n text) (a ca a-0 b name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject a-0) (ca ca) (x x))
+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (3 1))
+    ((3 0) (2 0)) ((3 3) (0 3)) ((4 1) (3 2)))
+  (non-orig (privk a) (privk ca) (privk a-0) (privk b))
+  (uniq-gen y x)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) x) a-0 (privk ca)) (3 2))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x))))))
+    ((recv (enc "reg" (exp (gen) x) a-0 (privk a-0)))
+      (send (enc (exp (gen) x) a-0 (privk ca)))))
+  (label 31)
+  (parent 21)
+  (unrealized (4 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca b name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 4 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 2)) ((2 1) (0 3))
+    ((3 0) (2 0)) ((3 0) (4 0)) ((3 3) (0 3)) ((4 1) (3 1)))
+  (non-orig (privk a) (privk ca) (privk b))
+  (uniq-gen y x)
+  (operation encryption-test (displaced 5 1 ca 2)
+    (enc (exp (gen) x) a-0 (privk ca-0)) (3 2))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x))))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca)))))
+  (label 32)
+  (parent 22)
+  (seen 30)
+  (unrealized)
+  (comment "1 in cohort - 0 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a ca a-0 b ca-0 name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 4 (n n) (a a-0) (b b) (ca ca-0) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca-0) (x y))
+  (defstrand ca 2 (subject a-0) (ca ca-0) (x x))
+  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 0) (2 0)) ((3 0) (4 0)) ((3 3) (0 3)) ((4 1) (3 1))
+    ((5 1) (3 2)))
+  (non-orig (privk a) (privk ca) (privk a-0) (privk b) (privk ca-0))
+  (uniq-gen y x)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) x) a-0 (privk ca-0)) (3 2))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca-0)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca-0))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
+          (enc n (exp (gen) (mul y x))))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca-0))))
+    ((recv (enc "reg" (exp (gen) x) a-0 (privk a-0)))
+      (send (enc (exp (gen) x) a-0 (privk ca-0)))))
+  (label 33)
+  (parent 22)
+  (unrealized (5 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca a-0 b-0 ca-0 name) (x y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 1 (b b) (y y))
+  (defstrand resp 4 (n n) (a a-0) (b b-0) (ca ca-0) (y y-0)
+    (x (mul x y (rec y-0))))
+  (defstrand ca 2 (subject b-0) (ca ca-0) (x y-0))
+  (defstrand ca 2 (subject a-0) (ca ca-0) (x (mul x y (rec y-0))))
+  (precedes ((0 0) (1 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 0) (2 0)) ((3 0) (6 0)) ((4 0) (5 0)) ((4 0) (6 0))
+    ((4 3) (0 3)) ((5 1) (4 1)) ((6 1) (4 2)))
+  (non-orig (privk a) (privk b) (privk ca) (privk a-0) (privk b-0)
+    (privk ca-0))
+  (uniq-gen x y y-0)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) (mul x y (rec y-0))) a-0 (privk ca-0)) (4 2))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b))))
+    ((send (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))
+      (recv (enc (exp (gen) y-0) b-0 (privk ca-0)))
+      (recv
+        (cat (exp (gen) (mul x y (rec y-0)))
+          (enc (exp (gen) (mul x y (rec y-0))) a-0 (privk ca-0))))
+      (send
+        (cat (exp (gen) y-0) (enc (exp (gen) y-0) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul x y))))))
+    ((recv (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))
+      (send (enc (exp (gen) y-0) b-0 (privk ca-0))))
+    ((recv (enc "reg" (exp (gen) (mul x y (rec y-0))) a-0 (privk a-0)))
+      (send (enc (exp (gen) (mul x y (rec y-0))) a-0 (privk ca-0)))))
+  (label 34)
+  (parent 23)
+  (unrealized (6 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 1 (b b) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (gen) (mul x y)))
+  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 3)) ((5 1) (4 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen x y)
+  (precur (5 0))
+  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul x y))) (gen)
+    (5 0))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (gen) (mul x y))) (send (cat (gen) (mul x y)))))
+  (label 35)
+  (parent 24)
+  (unrealized (4 0) (5 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x y-0) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x y-0))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 1 (b b) (y y))
+  (deflistener (exp (gen) (mul y y-0)))
+  (deflistener (cat (exp (gen) y-0) y))
+  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 3)) ((5 1) (4 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (precur (5 0))
+  (uniq-gen y y-0)
+  (operation nonce-test (displaced 6 0 resp 1) (exp (gen) y-1) (5 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y-0) a (privk a)))
+      (recv (enc (exp (gen) y-0) a (privk ca)))
+      (send (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y-0)))))
+      (send (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
+      (send (enc (exp (gen) y-0) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b))))
+    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0))))
+    ((recv (cat (exp (gen) y-0) y)) (send (cat (exp (gen) y-0) y))))
+  (label 36)
+  (parent 24)
+  (unrealized (5 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 1 (b b) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) y) x))
+  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 3)) ((5 1) (4 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (precur (5 0))
+  (uniq-gen x y)
+  (operation nonce-test (displaced 6 3 resp 1) (exp (gen) y-0) (5 0))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
+  (label 37)
+  (parent 24)
+  (unrealized (5 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca b-0 name) (x y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 1 (b b) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) y-0) (mul x y (rec y-0))))
+  (defstrand resp 1 (b b-0) (y y-0))
+  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 3)) ((5 1) (4 0))
+    ((6 0) (5 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (precur (5 0))
+  (uniq-gen x y y-0)
+  (operation nonce-test (added-strand resp 1) (exp (gen) y-0) (5 0))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) y-0) (mul x y (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul x y (rec y-0)))))
+    ((send (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))))
+  (label 38)
+  (parent 24)
+  (unrealized (4 0) (5 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a ca name) (y rndx))
+  (defstrand init 5 (n n) (a a) (b a) (ca ca) (x y) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (gen) (mul y y)))
+  (deflistener y)
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1))
+    ((2 1) (0 3)) ((3 1) (0 3)) ((4 1) (3 0)) ((5 1) (4 0)))
+  (non-orig (privk a) (privk ca))
+  (uniq-gen y)
+  (precur (4 0))
+  (operation nonce-test (added-listener y) (mul y y) (4 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) a (privk a)))
+      (recv (enc (exp (gen) y) a (privk ca)))
+      (send (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (gen) (mul y y))) (send (cat (gen) (mul y y))))
+    ((recv y) (send y)))
+  (label 39)
+  (parent 27)
+  (unrealized (5 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a ca b name) (y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x y-0) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x y-0))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 4 (n n) (a a) (b b) (ca ca) (y y) (x y-0))
+  (defstrand ca 2 (subject a) (ca ca) (x y-0))
+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (3 1))
+    ((3 0) (2 0)) ((3 3) (0 3)) ((4 1) (3 2)))
+  (non-orig (privk a) (privk ca) (privk b))
+  (uniq-gen y y-0)
+  (operation encryption-test (displaced 5 0 resp 1)
+    (enc "reg" (exp (gen) y-0) a-0 (privk a-0)) (4 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y-0) a (privk a)))
+      (recv (enc (exp (gen) y-0) a (privk ca)))
+      (send (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y-0)))))
+      (send (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
+      (send (enc (exp (gen) y-0) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y-0))))))
+    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
+      (send (enc (exp (gen) y-0) a (privk ca)))))
+  (label 40)
+  (parent 31)
+  (unrealized)
+  (shape)
+  (maps ((0) ((x y-0) (a a) (b b) (ca ca) (y y) (n n))))
+  (origs))
+
+(defskeleton dhca
+  (vars (n text) (a ca b ca-0 name) (y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x y-0) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x y-0))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand resp 4 (n n) (a a) (b b) (ca ca-0) (y y) (x y-0))
+  (defstrand ca 2 (subject b) (ca ca-0) (x y))
+  (defstrand ca 2 (subject a) (ca ca-0) (x y-0))
+  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 3))
+    ((3 0) (2 0)) ((3 0) (4 0)) ((3 3) (0 3)) ((4 1) (3 1))
+    ((5 1) (3 2)))
+  (non-orig (privk a) (privk ca) (privk b) (privk ca-0))
+  (uniq-gen y y-0)
+  (operation encryption-test (displaced 6 0 resp 1)
+    (enc "reg" (exp (gen) y-0) a-0 (privk a-0)) (5 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y-0) a (privk a)))
+      (recv (enc (exp (gen) y-0) a (privk ca)))
+      (send (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y-0)))))
+      (send (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
+      (send (enc (exp (gen) y-0) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca-0)))
+      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca-0))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
+          (enc n (exp (gen) (mul y y-0))))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca-0))))
+    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
+      (send (enc (exp (gen) y-0) a (privk ca-0)))))
+  (label 41)
+  (parent 33)
+  (unrealized)
+  (shape)
+  (maps ((0) ((x y-0) (a a) (b b) (ca ca) (y y) (n n))))
+  (origs))
+
+(comment "Nothing left to do")
+
+(defprotocol dhca diffie-hellman
+  (defrole init
+    (vars (x rndx) (a b ca name) (y expt) (n text))
+    (trace (send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    (non-orig (privk ca))
+    (uniq-gen x))
+  (defrole resp
+    (vars (y rndx) (a b ca name) (x expt) (n text))
+    (trace (send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    (non-orig (privk ca))
+    (uniq-gen y))
+  (defrole ca
+    (vars (subject ca name) (x expt))
+    (trace (recv (enc "reg" (exp (gen) x) subject (privk subject)))
+      (send (enc (exp (gen) x) subject (privk ca))))
+    (non-orig (privk subject)))
+  (comment A diffie-hellman exchange which uses a certificate authority
+    to certify long-term DH values))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y rndx) (x expt))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (non-orig (privk ca))
+  (uniq-gen y)
+  (uniq-orig n)
+  (comment Full responder point of view with freshly chosen n)
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x))))))
+  (label 42)
+  (unrealized (0 1) (0 2))
+  (origs (n (0 3)))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (x expt) (y rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (non-orig (privk b) (privk ca))
+  (uniq-gen y)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) y) b (privk ca)) (0 1))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (recv (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca)))))
+  (label 43)
+  (parent 42)
+  (unrealized (0 2))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca name) (y rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (non-orig (privk b) (privk ca))
+  (uniq-gen y)
+  (uniq-orig n)
+  (operation encryption-test (displaced 2 1 ca 2)
+    (enc (exp (gen) x) a (privk ca)) (0 2))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca)))))
+  (label 44)
+  (parent 43)
+  (unrealized (0 4))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y rndx) (x expt))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (0 2)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen y)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) x) a (privk ca)) (0 2))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca)))))
+  (label 45)
+  (parent 43)
+  (unrealized (2 0))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca a b-0 ca-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0) (x x)
+    (y (mul y y (rec x))))
+  (precedes ((0 0) (1 0)) ((0 3) (2 3)) ((1 1) (0 1)) ((2 4) (0 4)))
+  (non-orig (privk b) (privk ca) (privk ca-0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation encryption-test (added-strand init 5)
+    (enc "check" n (exp (gen) (mul y y))) (0 4))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca-0)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
+      (recv
+        (cat (exp (gen) (mul y y (rec x)))
+          (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y))))))
+  (label 46)
+  (parent 44)
+  (unrealized (2 1) (2 3))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca name) (y rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 4)))
+  (non-orig (privk b) (privk ca))
+  (uniq-gen y)
+  (uniq-orig n)
+  (operation encryption-test (added-listener (exp (gen) (mul y y)))
+    (enc "check" n (exp (gen) (mul y y))) (0 4))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y)))))
+  (label 47)
+  (parent 44)
+  (unrealized (2 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca name) (y rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 2)))
+  (non-orig (privk b) (privk ca))
+  (uniq-gen y)
+  (uniq-orig n)
+  (operation encryption-test (displaced 3 0 resp 1)
+    (enc "reg" (exp (gen) y-0) a (privk a)) (2 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca)))))
+  (label 48)
+  (parent 45)
+  (unrealized (0 4))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y y-0 rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x y-0))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y-0))
+  (defstrand resp 1 (b a) (y y-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (0 2)) ((3 0) (2 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen y y-0)
+  (uniq-orig n)
+  (operation encryption-test (added-strand resp 1)
+    (enc "reg" (exp (gen) y-0) a (privk a)) (2 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y-0)))))
+      (recv (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
+      (send (enc (exp (gen) y-0) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y-0) a (privk a)))))
+  (label 49)
+  (parent 45)
+  (unrealized (0 4))
+  (comment "3 in cohort - 3 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca a b-0 ca-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0) (x x)
+    (y (mul y y (rec x))))
+  (defstrand ca 2 (subject a) (ca ca-0) (x x))
+  (precedes ((0 0) (1 0)) ((0 3) (2 3)) ((1 1) (0 1)) ((2 0) (3 0))
+    ((2 4) (0 4)) ((3 1) (2 1)))
+  (non-orig (privk b) (privk ca) (privk a) (privk ca-0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) x) a (privk ca-0)) (2 1))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca-0)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
+      (recv
+        (cat (exp (gen) (mul y y (rec x)))
+          (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca-0)))))
+  (label 50)
+  (parent 46)
+  (unrealized (2 3))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca name) (y rndx) (w expt))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (exp (gen) (mul y y (rec w))) w))
+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 4))
+    ((3 1) (2 0)))
+  (non-orig (privk b) (privk ca))
+  (uniq-gen y)
+  (uniq-orig n)
+  (precur (3 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul y y (rec w))) w))
+    (exp (gen) (mul y y)) (2 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (exp (gen) (mul y y (rec w))) w))
+      (send (cat (exp (gen) (mul y y (rec w))) w))))
+  (label 51)
+  (parent 47)
+  (unrealized (3 0))
+  (comment "3 in cohort - 3 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca a b-0 ca-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0) (x x)
+    (y (mul y y (rec x))))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 3) (3 3)) ((1 1) (0 1))
+    ((2 1) (0 2)) ((3 4) (0 4)))
+  (non-orig (privk b) (privk ca) (privk ca-0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation encryption-test (added-strand init 5)
+    (enc "check" n (exp (gen) (mul y y))) (0 4))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca-0)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
+      (recv
+        (cat (exp (gen) (mul y y (rec x)))
+          (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y))))))
+  (label 52)
+  (parent 48)
+  (unrealized (3 1) (3 3))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca name) (y rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))
+    ((2 1) (0 2)) ((3 1) (0 4)))
+  (non-orig (privk b) (privk ca))
+  (uniq-gen y)
+  (uniq-orig n)
+  (operation encryption-test (added-listener (exp (gen) (mul y y)))
+    (enc "check" n (exp (gen) (mul y y))) (0 4))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y)))))
+  (label 53)
+  (parent 48)
+  (unrealized (3 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca a b-0 ca-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0) (x x) (y y))
+  (precedes ((0 0) (1 0)) ((0 3) (3 3)) ((1 1) (0 1)) ((2 1) (0 2))
+    ((3 0) (2 0)) ((3 4) (0 4)))
+  (non-orig (privk b) (privk ca) (privk a) (privk ca-0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation encryption-test (displaced 3 4 init 5)
+    (enc "check" n (exp (gen) (mul y y-0))) (0 4))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca-0)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x))))))
+  (label 54)
+  (parent 49)
+  (unrealized (3 1) (3 3))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca a-0 b-0 ca-0 name) (y y-0 x rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x y-0))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y-0))
+  (defstrand resp 1 (b a) (y y-0))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (ca ca-0) (x x)
+    (y (mul y y-0 (rec x))))
+  (precedes ((0 0) (1 0)) ((0 3) (4 3)) ((1 1) (0 1)) ((2 1) (0 2))
+    ((3 0) (2 0)) ((4 4) (0 4)))
+  (non-orig (privk a) (privk b) (privk ca) (privk ca-0))
+  (uniq-gen y y-0 x)
+  (uniq-orig n)
+  (operation encryption-test (added-strand init 5)
+    (enc "check" n (exp (gen) (mul y y-0))) (0 4))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y-0)))))
+      (recv (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
+      (send (enc (exp (gen) y-0) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
+    ((send (enc "reg" (exp (gen) x) a-0 (privk a-0)))
+      (recv (enc (exp (gen) x) a-0 (privk ca-0)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca-0))))
+      (recv
+        (cat (exp (gen) (mul y y-0 (rec x)))
+          (enc (exp (gen) (mul y y-0 (rec x))) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul y y-0)))))
+      (send (enc "check" n (exp (gen) (mul y y-0))))))
+  (label 55)
+  (parent 49)
+  (unrealized (4 1) (4 3))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y y-0 rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x y-0))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y-0))
+  (defstrand resp 1 (b a) (y y-0))
+  (deflistener (exp (gen) (mul y y-0)))
+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 2))
+    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 4)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen y y-0)
+  (uniq-orig n)
+  (operation encryption-test (added-listener (exp (gen) (mul y y-0)))
+    (enc "check" n (exp (gen) (mul y y-0))) (0 4))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y-0)))))
+      (recv (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
+      (send (enc (exp (gen) y-0) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
+    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0)))))
+  (label 56)
+  (parent 49)
+  (unrealized (4 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca a b-0 ca-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0) (x x)
+    (y (mul y y (rec x))))
+  (defstrand ca 2 (subject a) (ca ca-0) (x x))
+  (defstrand ca 2 (subject b-0) (ca ca-0) (x (mul y y (rec x))))
+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((0 3) (2 3)) ((1 1) (0 1))
+    ((2 0) (3 0)) ((2 0) (4 0)) ((2 4) (0 4)) ((3 1) (2 1))
+    ((4 1) (2 3)))
+  (non-orig (privk b) (privk ca) (privk a) (privk b-0) (privk ca-0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0)) (2 3))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca-0)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
+      (recv
+        (cat (exp (gen) (mul y y (rec x)))
+          (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca-0))))
+    ((recv (enc "reg" (exp (gen) (mul y y (rec x))) b-0 (privk b-0)))
+      (send (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0)))))
+  (label 57)
+  (parent 50)
+  (unrealized (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (b ca name) (y rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (gen) (mul y y)))
+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 4))
+    ((3 1) (2 0)))
+  (non-orig (privk b) (privk ca))
+  (uniq-gen y)
+  (uniq-orig n)
+  (precur (3 0))
+  (operation nonce-test (contracted (y-0 y) (w (mul y y))) (gen) (3 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (gen) (mul y y))) (send (cat (gen) (mul y y)))))
+  (label 58)
+  (parent 51)
+  (unrealized (2 0) (3 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca name) (y rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (exp (gen) y) y))
+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 4))
+    ((3 1) (2 0)))
+  (non-orig (privk b) (privk ca))
+  (precur (3 0))
+  (uniq-gen y)
+  (uniq-orig n)
+  (operation nonce-test (displaced 4 0 resp 1) (exp (gen) y-0) (3 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (exp (gen) y) y)) (send (cat (exp (gen) y) y))))
+  (label 59)
+  (parent 51)
+  (unrealized (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (b ca b-0 name) (y y-0 rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (exp (gen) y-0) (mul y y (rec y-0))))
+  (defstrand resp 1 (b b-0) (y y-0))
+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 4))
+    ((3 1) (2 0)) ((4 0) (3 0)))
+  (non-orig (privk b) (privk ca))
+  (precur (3 0))
+  (uniq-gen y y-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 1) (exp (gen) y-0) (3 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (exp (gen) y-0) (mul y y (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul y y (rec y-0)))))
+    ((send (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))))
+  (label 60)
+  (parent 51)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (b ca a b-0 ca-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0) (x x)
+    (y (mul y y (rec x))))
+  (defstrand ca 2 (subject a) (ca ca-0) (x x))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 3) (3 3)) ((1 1) (0 1))
+    ((2 1) (0 2)) ((3 0) (4 0)) ((3 4) (0 4)) ((4 1) (3 1)))
+  (non-orig (privk b) (privk ca) (privk a) (privk ca-0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) x) a (privk ca-0)) (3 1))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca-0)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
+      (recv
+        (cat (exp (gen) (mul y y (rec x)))
+          (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca-0)))))
+  (label 61)
+  (parent 52)
+  (unrealized (3 3))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca name) (y rndx) (w expt))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (exp (gen) (mul y y (rec w))) w))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
+    ((2 1) (0 2)) ((3 1) (0 4)) ((4 1) (3 0)))
+  (non-orig (privk b) (privk ca))
+  (uniq-gen y)
+  (uniq-orig n)
+  (precur (4 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul y y (rec w))) w))
+    (exp (gen) (mul y y)) (3 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (exp (gen) (mul y y (rec w))) w))
+      (send (cat (exp (gen) (mul y y (rec w))) w))))
+  (label 62)
+  (parent 53)
+  (unrealized (4 0))
+  (comment "3 in cohort - 3 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca a b-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand init 5 (n n) (a a) (b b-0) (ca ca) (x x) (y y))
+  (precedes ((0 0) (1 0)) ((0 3) (3 3)) ((1 1) (0 1)) ((2 1) (0 2))
+    ((2 1) (3 1)) ((3 0) (2 0)) ((3 4) (0 4)))
+  (non-orig (privk b) (privk ca) (privk a))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation encryption-test (displaced 4 2 ca 2)
+    (enc (exp (gen) x) a (privk ca-0)) (3 1))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b-0 (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x))))))
+  (label 63)
+  (parent 54)
+  (unrealized (3 3))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca a b-0 ca-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca-0) (x x))
+  (precedes ((0 0) (1 0)) ((0 3) (3 3)) ((1 1) (0 1)) ((2 1) (0 2))
+    ((3 0) (2 0)) ((3 0) (4 0)) ((3 4) (0 4)) ((4 1) (3 1)))
+  (non-orig (privk b) (privk ca) (privk a) (privk ca-0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) x) a (privk ca-0)) (3 1))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca-0)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca-0)))))
+  (label 64)
+  (parent 54)
+  (unrealized (3 3))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca a-0 b-0 ca-0 name) (y y-0 x rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x y-0))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y-0))
+  (defstrand resp 1 (b a) (y y-0))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (ca ca-0) (x x)
+    (y (mul y y-0 (rec x))))
+  (defstrand ca 2 (subject a-0) (ca ca-0) (x x))
+  (precedes ((0 0) (1 0)) ((0 3) (4 3)) ((1 1) (0 1)) ((2 1) (0 2))
+    ((3 0) (2 0)) ((4 0) (5 0)) ((4 4) (0 4)) ((5 1) (4 1)))
+  (non-orig (privk a) (privk b) (privk ca) (privk a-0) (privk ca-0))
+  (uniq-gen y y-0 x)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) x) a-0 (privk ca-0)) (4 1))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y-0)))))
+      (recv (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
+      (send (enc (exp (gen) y-0) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
+    ((send (enc "reg" (exp (gen) x) a-0 (privk a-0)))
+      (recv (enc (exp (gen) x) a-0 (privk ca-0)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca-0))))
+      (recv
+        (cat (exp (gen) (mul y y-0 (rec x)))
+          (enc (exp (gen) (mul y y-0 (rec x))) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul y y-0)))))
+      (send (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) x) a-0 (privk a-0)))
+      (send (enc (exp (gen) x) a-0 (privk ca-0)))))
+  (label 65)
+  (parent 55)
+  (unrealized (4 3))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y y-0 rndx) (w expt))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x y-0))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y-0))
+  (defstrand resp 1 (b a) (y y-0))
+  (deflistener (exp (gen) (mul y y-0)))
+  (deflistener (cat (exp (gen) (mul y y-0 (rec w))) w))
+  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 2))
+    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 4)) ((5 1) (4 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen y y-0)
+  (uniq-orig n)
+  (precur (5 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul y y-0 (rec w))) w))
+    (exp (gen) (mul y y-0)) (4 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y-0)))))
+      (recv (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
+      (send (enc (exp (gen) y-0) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
+    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0))))
+    ((recv (cat (exp (gen) (mul y y-0 (rec w))) w))
+      (send (cat (exp (gen) (mul y y-0 (rec w))) w))))
+  (label 66)
+  (parent 56)
+  (unrealized (5 0))
+  (comment "4 in cohort - 4 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca name) (y rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (gen) (mul y y)))
+  (deflistener y)
+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 4))
+    ((3 1) (2 0)) ((4 1) (3 0)))
+  (non-orig (privk b) (privk ca))
+  (uniq-gen y)
+  (uniq-orig n)
+  (precur (3 0))
+  (operation nonce-test (added-listener y) (mul y y) (3 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (gen) (mul y y))) (send (cat (gen) (mul y y))))
+    ((recv y) (send y)))
+  (label 67)
+  (parent 58)
+  (unrealized (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (b ca a b-0 ca-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0) (x x)
+    (y (mul y y (rec x))))
+  (defstrand ca 2 (subject a) (ca ca-0) (x x))
+  (defstrand ca 2 (subject b-0) (ca ca-0) (x (mul y y (rec x))))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (5 0)) ((0 3) (3 3))
+    ((1 1) (0 1)) ((2 1) (0 2)) ((3 0) (4 0)) ((3 0) (5 0))
+    ((3 4) (0 4)) ((4 1) (3 1)) ((5 1) (3 3)))
+  (non-orig (privk b) (privk ca) (privk a) (privk b-0) (privk ca-0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0)) (3 3))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca-0)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
+      (recv
+        (cat (exp (gen) (mul y y (rec x)))
+          (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul y y)))))
+      (send (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca-0))))
+    ((recv (enc "reg" (exp (gen) (mul y y (rec x))) b-0 (privk b-0)))
+      (send (enc (exp (gen) (mul y y (rec x))) b-0 (privk ca-0)))))
+  (label 68)
+  (parent 61)
+  (unrealized (5 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (b ca name) (y rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (gen) (mul y y)))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
+    ((2 1) (0 2)) ((3 1) (0 4)) ((4 1) (3 0)))
+  (non-orig (privk b) (privk ca))
+  (uniq-gen y)
+  (uniq-orig n)
+  (precur (4 0))
+  (operation nonce-test (contracted (y-0 y) (w (mul y y))) (gen) (4 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (gen) (mul y y))) (send (cat (gen) (mul y y)))))
+  (label 69)
+  (parent 62)
+  (unrealized (3 0) (4 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca name) (y rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (exp (gen) y) y))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
+    ((2 1) (0 2)) ((3 1) (0 4)) ((4 1) (3 0)))
+  (non-orig (privk b) (privk ca))
+  (precur (4 0))
+  (uniq-gen y)
+  (uniq-orig n)
+  (operation nonce-test (displaced 5 0 resp 1) (exp (gen) y-0) (4 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (exp (gen) y) y)) (send (cat (exp (gen) y) y))))
+  (label 70)
+  (parent 62)
+  (unrealized (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (b ca b-0 name) (y y-0 rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (exp (gen) y-0) (mul y y (rec y-0))))
+  (defstrand resp 1 (b b-0) (y y-0))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1))
+    ((2 1) (0 2)) ((3 1) (0 4)) ((4 1) (3 0)) ((5 0) (4 0)))
+  (non-orig (privk b) (privk ca))
+  (precur (4 0))
+  (uniq-gen y y-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 1) (exp (gen) y-0) (4 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (exp (gen) y-0) (mul y y (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul y y (rec y-0)))))
+    ((send (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))))
+  (label 71)
+  (parent 62)
+  (unrealized (3 0) (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (b ca a name) (x y rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (precedes ((0 0) (1 0)) ((0 3) (3 3)) ((1 1) (0 1)) ((2 1) (0 2))
+    ((2 1) (3 1)) ((3 0) (2 0)) ((3 4) (0 4)))
+  (non-orig (privk b) (privk ca) (privk a))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (operation encryption-test (displaced 4 1 ca 2)
+    (enc (exp (gen) y) b-0 (privk ca)) (3 3))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (recv (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y))))))
+  (label 72)
+  (parent 63)
+  (unrealized)
+  (shape)
+  (maps ((0) ((n n) (y y) (a a) (b b) (ca ca) (x x))))
+  (origs (n (0 3))))
+
+(defskeleton dhca
+  (vars (n text) (b ca a b-0 name) (x y rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand init 5 (n n) (a a) (b b-0) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject b-0) (ca ca) (x y))
+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((0 3) (3 3)) ((1 1) (0 1))
+    ((2 1) (0 2)) ((2 1) (3 1)) ((3 0) (2 0)) ((3 4) (0 4))
+    ((4 1) (3 3)))
+  (non-orig (privk b) (privk ca) (privk a) (privk b-0))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) y) b-0 (privk ca)) (3 3))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (recv (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b-0 (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) y) b-0 (privk b-0)))
+      (send (enc (exp (gen) y) b-0 (privk ca)))))
+  (label 73)
+  (parent 63)
+  (unrealized (4 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca a name) (x y rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (precedes ((0 0) (1 0)) ((0 3) (3 3)) ((1 1) (0 1)) ((2 1) (0 2))
+    ((3 0) (2 0)) ((3 0) (4 0)) ((3 4) (0 4)) ((4 1) (3 1)))
+  (non-orig (privk b) (privk ca) (privk a))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (operation encryption-test (displaced 5 1 ca 2)
+    (enc (exp (gen) y) b-0 (privk ca-0)) (3 3))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (recv (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca)))))
+  (label 74)
+  (parent 64)
+  (unrealized)
+  (shape)
+  (maps ((0) ((n n) (y y) (a a) (b b) (ca ca) (x x))))
+  (origs (n (0 3))))
+
+(defskeleton dhca
+  (vars (n text) (b ca a b-0 ca-0 name) (x y rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand init 5 (n n) (a a) (b b-0) (ca ca-0) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca-0) (x x))
+  (defstrand ca 2 (subject b-0) (ca ca-0) (x y))
+  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((0 3) (3 3)) ((1 1) (0 1))
+    ((2 1) (0 2)) ((3 0) (2 0)) ((3 0) (4 0)) ((3 4) (0 4))
+    ((4 1) (3 1)) ((5 1) (3 3)))
+  (non-orig (privk b) (privk ca) (privk a) (privk b-0) (privk ca-0))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) y) b-0 (privk ca-0)) (3 3))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (recv (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca-0)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca-0))))
+    ((recv (enc "reg" (exp (gen) y) b-0 (privk b-0)))
+      (send (enc (exp (gen) y) b-0 (privk ca-0)))))
+  (label 75)
+  (parent 64)
+  (unrealized (5 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca a-0 b-0 ca-0 name) (y y-0 x rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x y-0))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y-0))
+  (defstrand resp 1 (b a) (y y-0))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (ca ca-0) (x x)
+    (y (mul y y-0 (rec x))))
+  (defstrand ca 2 (subject a-0) (ca ca-0) (x x))
+  (defstrand ca 2 (subject b-0) (ca ca-0) (x (mul y y-0 (rec x))))
+  (precedes ((0 0) (1 0)) ((0 0) (6 0)) ((0 3) (4 3)) ((1 1) (0 1))
+    ((2 1) (0 2)) ((3 0) (2 0)) ((3 0) (6 0)) ((4 0) (5 0))
+    ((4 0) (6 0)) ((4 4) (0 4)) ((5 1) (4 1)) ((6 1) (4 3)))
+  (non-orig (privk a) (privk b) (privk ca) (privk a-0) (privk b-0)
+    (privk ca-0))
+  (uniq-gen y y-0 x)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) (mul y y-0 (rec x))) b-0 (privk ca-0)) (4 3))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y-0)))))
+      (recv (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
+      (send (enc (exp (gen) y-0) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
+    ((send (enc "reg" (exp (gen) x) a-0 (privk a-0)))
+      (recv (enc (exp (gen) x) a-0 (privk ca-0)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a-0 (privk ca-0))))
+      (recv
+        (cat (exp (gen) (mul y y-0 (rec x)))
+          (enc (exp (gen) (mul y y-0 (rec x))) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul y y-0)))))
+      (send (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) x) a-0 (privk a-0)))
+      (send (enc (exp (gen) x) a-0 (privk ca-0))))
+    ((recv (enc "reg" (exp (gen) (mul y y-0 (rec x))) b-0 (privk b-0)))
+      (send (enc (exp (gen) (mul y y-0 (rec x))) b-0 (privk ca-0)))))
+  (label 76)
+  (parent 65)
+  (unrealized (6 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y y-0 rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x y-0))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y-0))
+  (defstrand resp 1 (b a) (y y-0))
+  (deflistener (exp (gen) (mul y y-0)))
+  (deflistener (cat (gen) (mul y y-0)))
+  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 2))
+    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 4)) ((5 1) (4 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen y y-0)
+  (uniq-orig n)
+  (precur (5 0))
+  (operation nonce-test (contracted (y-1 y) (y-2 y-0) (w (mul y y-0)))
+    (gen) (5 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y-0)))))
+      (recv (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
+      (send (enc (exp (gen) y-0) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
+    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0))))
+    ((recv (cat (gen) (mul y y-0))) (send (cat (gen) (mul y y-0)))))
+  (label 77)
+  (parent 66)
+  (unrealized (4 0) (5 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y y-0 rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y-0) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y-0))
+  (defstrand ca 2 (subject a) (ca ca) (x y))
+  (defstrand resp 1 (b a) (y y))
+  (deflistener (exp (gen) (mul y y-0)))
+  (deflistener (cat (exp (gen) y-0) y))
+  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 2))
+    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 4)) ((5 1) (4 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (precur (5 0))
+  (uniq-gen y y-0)
+  (uniq-orig n)
+  (operation nonce-test (displaced 6 0 resp 1) (exp (gen) y-1) (5 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y-0) b (privk b)))
+      (recv (enc (exp (gen) y-0) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) a (privk ca))))
+      (send
+        (cat (exp (gen) y-0) (enc (exp (gen) y-0) b (privk ca))
+          (enc n (exp (gen) (mul y y-0)))))
+      (recv (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) y-0) b (privk b)))
+      (send (enc (exp (gen) y-0) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) a (privk a)))
+      (send (enc (exp (gen) y) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y) a (privk a))))
+    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0))))
+    ((recv (cat (exp (gen) y-0) y)) (send (cat (exp (gen) y-0) y))))
+  (label 78)
+  (parent 66)
+  (unrealized (5 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y y-0 rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x y-0))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y-0))
+  (defstrand resp 1 (b a) (y y-0))
+  (deflistener (exp (gen) (mul y y-0)))
+  (deflistener (cat (exp (gen) y-0) y))
+  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 2))
+    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 4)) ((5 1) (4 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (precur (5 0))
+  (uniq-gen y y-0)
+  (uniq-orig n)
+  (operation nonce-test (displaced 6 3 resp 1) (exp (gen) y-1) (5 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y-0)))))
+      (recv (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
+      (send (enc (exp (gen) y-0) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
+    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0))))
+    ((recv (cat (exp (gen) y-0) y)) (send (cat (exp (gen) y-0) y))))
+  (label 79)
+  (parent 66)
+  (unrealized (5 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca b-0 name) (y y-0 y-1 rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x y-0))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y-0))
+  (defstrand resp 1 (b a) (y y-0))
+  (deflistener (exp (gen) (mul y y-0)))
+  (deflistener (cat (exp (gen) y-1) (mul y y-0 (rec y-1))))
+  (defstrand resp 1 (b b-0) (y y-1))
+  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (0 2))
+    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 4)) ((5 1) (4 0))
+    ((6 0) (5 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (precur (5 0))
+  (uniq-gen y y-0 y-1)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 1) (exp (gen) y-1) (5 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y-0)))))
+      (recv (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
+      (send (enc (exp (gen) y-0) a (privk ca))))
+    ((send (enc "reg" (exp (gen) y-0) a (privk a))))
+    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0))))
+    ((recv (cat (exp (gen) y-1) (mul y y-0 (rec y-1))))
+      (send (cat (exp (gen) y-1) (mul y y-0 (rec y-1)))))
+    ((send (enc "reg" (exp (gen) y-1) b-0 (privk b-0)))))
+  (label 80)
+  (parent 66)
+  (unrealized (4 0) (5 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (b ca name) (y rndx))
+  (defstrand resp 5 (n n) (a b) (b b) (ca ca) (y y) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (deflistener (exp (gen) (mul y y)))
+  (deflistener (cat (gen) (mul y y)))
+  (deflistener y)
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1))
+    ((2 1) (0 2)) ((3 1) (0 4)) ((4 1) (3 0)) ((5 1) (4 0)))
+  (non-orig (privk b) (privk ca))
+  (uniq-gen y)
+  (uniq-orig n)
+  (precur (4 0))
+  (operation nonce-test (added-listener y) (mul y y) (4 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y)))))
+      (recv (enc "check" n (exp (gen) (mul y y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (exp (gen) (mul y y))) (send (exp (gen) (mul y y))))
+    ((recv (cat (gen) (mul y y))) (send (cat (gen) (mul y y))))
+    ((recv y) (send y)))
+  (label 81)
+  (parent 69)
+  (unrealized (5 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (b ca a name) (x y rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((0 3) (3 3)) ((1 1) (0 1))
+    ((2 1) (0 2)) ((2 1) (3 1)) ((3 0) (2 0)) ((3 4) (0 4))
+    ((4 1) (3 3)))
+  (non-orig (privk b) (privk ca) (privk a))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (operation encryption-test (displaced 5 0 resp 1)
+    (enc "reg" (exp (gen) y) b-0 (privk b-0)) (4 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (recv (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca)))))
+  (label 82)
+  (parent 73)
+  (seen 72)
+  (unrealized)
+  (comment "1 in cohort - 0 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (b ca a ca-0 name) (x y rndx))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca-0) (x x) (y y))
+  (defstrand ca 2 (subject a) (ca ca-0) (x x))
+  (defstrand ca 2 (subject b) (ca ca-0) (x y))
+  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((0 3) (3 3)) ((1 1) (0 1))
+    ((2 1) (0 2)) ((3 0) (2 0)) ((3 0) (4 0)) ((3 4) (0 4))
+    ((4 1) (3 1)) ((5 1) (3 3)))
+  (non-orig (privk b) (privk ca) (privk a) (privk ca-0))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (operation encryption-test (displaced 6 0 resp 1)
+    (enc "reg" (exp (gen) y) b-0 (privk b-0)) (5 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (recv (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca-0)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca-0))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca-0))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca-0))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca-0)))))
+  (label 83)
+  (parent 75)
+  (unrealized)
+  (shape)
+  (maps ((0) ((n n) (y y) (a a) (b b) (ca ca) (x x))))
+  (origs (n (0 3))))
+
+(comment "Nothing left to do")
+
+(defprotocol dhca diffie-hellman
+  (defrole init
+    (vars (x rndx) (a b ca name) (y expt) (n text))
+    (trace (send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    (non-orig (privk ca))
+    (uniq-gen x))
+  (defrole resp
+    (vars (y rndx) (a b ca name) (x expt) (n text))
+    (trace (send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    (non-orig (privk ca))
+    (uniq-gen y))
+  (defrole ca
+    (vars (subject ca name) (x expt))
+    (trace (recv (enc "reg" (exp (gen) x) subject (privk subject)))
+      (send (enc (exp (gen) x) subject (privk ca))))
+    (non-orig (privk subject)))
+  (comment A diffie-hellman exchange which uses a certificate authority
+    to certify long-term DH values))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (non-orig (privk ca))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (comment point of view in which init and resp each complete and they
+    agree on the relevant parameters)
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (recv (enc "check" n (exp (gen) (mul x y))))))
+  (label 84)
+  (unrealized (0 1) (0 3) (1 1) (1 2) (1 4))
+  (preskeleton)
+  (comment "Not a skeleton"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (precedes ((0 0) (1 2)) ((1 3) (0 3)))
+  (non-orig (privk ca))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (comment point of view in which init and resp each complete and they
+    agree on the relevant parameters)
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (recv (enc "check" n (exp (gen) (mul x y))))))
+  (label 85)
+  (parent 84)
+  (unrealized (0 1) (1 1) (1 2) (1 4))
+  (origs (n (1 3)))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (precedes ((0 0) (1 2)) ((1 0) (2 0)) ((1 3) (0 3)) ((2 1) (1 1)))
+  (non-orig (privk b) (privk ca))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) y) b (privk ca)) (1 1))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (recv (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca)))))
+  (label 86)
+  (parent 85)
+  (unrealized (0 1) (1 2) (1 4))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (precedes ((0 0) (3 0)) ((1 0) (2 0)) ((1 3) (0 3)) ((2 1) (1 1))
+    ((3 1) (1 2)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) x) a (privk ca)) (1 2))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca)))))
+  (label 87)
+  (parent 86)
+  (unrealized (0 1) (1 4))
+  (comment "3 in cohort - 3 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (precedes ((0 0) (3 0)) ((0 4) (1 4)) ((1 0) (2 0)) ((1 3) (0 3))
+    ((2 1) (1 1)) ((3 1) (1 2)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation encryption-test (displaced 4 0 init 5)
+    (enc "check" n (exp (gen) (mul y x-0))) (1 4))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca)))))
+  (label 88)
+  (parent 87)
+  (unrealized (0 1))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca a-0 b-0 ca-0 name) (y x x-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (ca ca-0) (x x-0)
+    (y (mul y x (rec x-0))))
+  (precedes ((0 0) (3 0)) ((1 0) (2 0)) ((1 3) (0 3)) ((1 3) (4 3))
+    ((2 1) (1 1)) ((3 1) (1 2)) ((4 4) (1 4)))
+  (non-orig (privk a) (privk b) (privk ca) (privk ca-0))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation encryption-test (added-strand init 5)
+    (enc "check" n (exp (gen) (mul y x))) (1 4))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((send (enc "reg" (exp (gen) x-0) a-0 (privk a-0)))
+      (recv (enc (exp (gen) x-0) a-0 (privk ca-0)))
+      (send
+        (cat (exp (gen) x-0) (enc (exp (gen) x-0) a-0 (privk ca-0))))
+      (recv
+        (cat (exp (gen) (mul y x (rec x-0)))
+          (enc (exp (gen) (mul y x (rec x-0))) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x))))))
+  (label 89)
+  (parent 87)
+  (unrealized (0 1) (4 1) (4 3))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((1 0) (2 0)) ((1 0) (4 0))
+    ((1 3) (0 3)) ((2 1) (1 1)) ((3 1) (1 2)) ((4 1) (1 4)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation encryption-test (added-listener (exp (gen) (mul y x)))
+    (enc "check" n (exp (gen) (mul y x))) (1 4))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x)))))
+  (label 90)
+  (parent 87)
+  (unrealized (0 1) (4 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (precedes ((0 0) (3 0)) ((0 4) (1 4)) ((1 0) (2 0)) ((1 3) (0 3))
+    ((2 1) (1 1)) ((3 1) (0 1)) ((3 1) (1 2)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation encryption-test (displaced 4 3 ca 2)
+    (enc (exp (gen) x) a (privk ca)) (0 1))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca)))))
+  (label 91)
+  (parent 88)
+  (unrealized)
+  (shape)
+  (maps ((0 1) ((a a) (b b) (ca ca) (x x) (y y) (n n))))
+  (origs (n (1 3))))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((0 4) (1 4)) ((1 0) (2 0))
+    ((1 3) (0 3)) ((2 1) (1 1)) ((3 1) (1 2)) ((4 1) (0 1)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) x) a (privk ca)) (0 1))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca)))))
+  (label 92)
+  (parent 88)
+  (unrealized)
+  (shape)
+  (maps ((0 1) ((a a) (b b) (ca ca) (x x) (y y) (n n))))
+  (origs (n (1 3))))
+
+(defskeleton dhca
+  (vars (n text) (a b ca a-0 b-0 ca-0 name) (y x x-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (ca ca-0) (x x-0)
+    (y (mul y x (rec x-0))))
+  (defstrand ca 2 (subject a-0) (ca ca-0) (x x-0))
+  (precedes ((0 0) (3 0)) ((1 0) (2 0)) ((1 3) (0 3)) ((1 3) (4 3))
+    ((2 1) (1 1)) ((3 1) (1 2)) ((4 0) (5 0)) ((4 4) (1 4))
+    ((5 1) (4 1)))
+  (non-orig (privk a) (privk b) (privk ca) (privk a-0) (privk ca-0))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) x-0) a-0 (privk ca-0)) (4 1))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((send (enc "reg" (exp (gen) x-0) a-0 (privk a-0)))
+      (recv (enc (exp (gen) x-0) a-0 (privk ca-0)))
+      (send
+        (cat (exp (gen) x-0) (enc (exp (gen) x-0) a-0 (privk ca-0))))
+      (recv
+        (cat (exp (gen) (mul y x (rec x-0)))
+          (enc (exp (gen) (mul y x (rec x-0))) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) x-0) a-0 (privk a-0)))
+      (send (enc (exp (gen) x-0) a-0 (privk ca-0)))))
+  (label 93)
+  (parent 89)
+  (unrealized (0 1) (4 3))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y x rndx) (w expt))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (exp (gen) (mul y x (rec w))) w))
+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 0) (2 0)) ((1 0) (5 0))
+    ((1 3) (0 3)) ((2 1) (1 1)) ((3 1) (1 2)) ((4 1) (1 4))
+    ((5 1) (4 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (precur (5 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul y x (rec w))) w))
+    (exp (gen) (mul y x)) (4 0))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (exp (gen) (mul y x (rec w))) w))
+      (send (cat (exp (gen) (mul y x (rec w))) w))))
+  (label 94)
+  (parent 90)
+  (unrealized (0 1) (5 0))
+  (comment "4 in cohort - 4 not yet seen"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca a-0 b-0 ca-0 name) (y x x-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (ca ca-0) (x x-0)
+    (y (mul y x (rec x-0))))
+  (defstrand ca 2 (subject a-0) (ca ca-0) (x x-0))
+  (defstrand ca 2 (subject b-0) (ca ca-0) (x (mul y x (rec x-0))))
+  (precedes ((0 0) (3 0)) ((0 0) (6 0)) ((1 0) (2 0)) ((1 0) (6 0))
+    ((1 3) (0 3)) ((1 3) (4 3)) ((2 1) (1 1)) ((3 1) (1 2))
+    ((4 0) (5 0)) ((4 0) (6 0)) ((4 4) (1 4)) ((5 1) (4 1))
+    ((6 1) (4 3)))
+  (non-orig (privk a) (privk b) (privk ca) (privk a-0) (privk b-0)
+    (privk ca-0))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation encryption-test (added-strand ca 2)
+    (enc (exp (gen) (mul y x (rec x-0))) b-0 (privk ca-0)) (4 3))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((send (enc "reg" (exp (gen) x-0) a-0 (privk a-0)))
+      (recv (enc (exp (gen) x-0) a-0 (privk ca-0)))
+      (send
+        (cat (exp (gen) x-0) (enc (exp (gen) x-0) a-0 (privk ca-0))))
+      (recv
+        (cat (exp (gen) (mul y x (rec x-0)))
+          (enc (exp (gen) (mul y x (rec x-0))) b-0 (privk ca-0))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) x-0) a-0 (privk a-0)))
+      (send (enc (exp (gen) x-0) a-0 (privk ca-0))))
+    ((recv (enc "reg" (exp (gen) (mul y x (rec x-0))) b-0 (privk b-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) b-0 (privk ca-0)))))
+  (label 95)
+  (parent 93)
+  (unrealized (0 1) (6 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (gen) (mul y x)))
+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 0) (2 0)) ((1 0) (5 0))
+    ((1 3) (0 3)) ((2 1) (1 1)) ((3 1) (1 2)) ((4 1) (1 4))
+    ((5 1) (4 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (precur (5 0))
+  (operation nonce-test (contracted (y-0 y) (x-0 x) (w (mul y x))) (gen)
+    (5 0))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (gen) (mul y x))) (send (cat (gen) (mul y x)))))
+  (label 96)
+  (parent 94)
+  (unrealized (0 1) (4 0) (5 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x y-0) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x y-0))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x y-0))
+  (deflistener (exp (gen) (mul y y-0)))
+  (deflistener (cat (exp (gen) y-0) y))
+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 0) (2 0)) ((1 0) (5 0))
+    ((1 3) (0 3)) ((2 1) (1 1)) ((3 1) (1 2)) ((4 1) (1 4))
+    ((5 1) (4 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (precur (5 0))
+  (uniq-gen y y-0)
+  (uniq-orig n)
+  (operation nonce-test (displaced 6 0 resp 1) (exp (gen) y-1) (5 0))
+  (traces
+    ((send (enc "reg" (exp (gen) y-0) a (privk a)))
+      (recv (enc (exp (gen) y-0) a (privk ca)))
+      (send (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y-0)))))
+      (send (enc "check" n (exp (gen) (mul y y-0)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) y-0) (enc (exp (gen) y-0) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y y-0)))))
+      (recv (enc "check" n (exp (gen) (mul y y-0)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) y-0) a (privk a)))
+      (send (enc (exp (gen) y-0) a (privk ca))))
+    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0))))
+    ((recv (cat (exp (gen) y-0) y)) (send (cat (exp (gen) y-0) y))))
+  (label 97)
+  (parent 94)
+  (unrealized (0 1) (5 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) y) x))
+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 0) (2 0)) ((1 0) (5 0))
+    ((1 3) (0 3)) ((2 1) (1 1)) ((3 1) (1 2)) ((4 1) (1 4))
+    ((5 1) (4 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (precur (5 0))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (operation nonce-test (displaced 6 1 resp 1) (exp (gen) y-0) (5 0))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (send (enc "check" n (exp (gen) (mul x y)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul x y)))))
+      (recv (enc "check" n (exp (gen) (mul x y)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
+  (label 98)
+  (parent 94)
+  (unrealized (0 1) (5 0))
+  (comment "empty cohort"))
+
+(defskeleton dhca
+  (vars (n text) (a b ca b-0 name) (y x y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (ca ca) (x x) (y y))
+  (defstrand resp 5 (n n) (a a) (b b) (ca ca) (y y) (x x))
+  (defstrand ca 2 (subject b) (ca ca) (x y))
+  (defstrand ca 2 (subject a) (ca ca) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (exp (gen) y-0) (mul y x (rec y-0))))
+  (defstrand resp 1 (b b-0) (y y-0))
+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 0) (2 0)) ((1 0) (5 0))
+    ((1 3) (0 3)) ((2 1) (1 1)) ((3 1) (1 2)) ((4 1) (1 4))
+    ((5 1) (4 0)) ((6 0) (5 0)))
+  (non-orig (privk a) (privk b) (privk ca))
+  (precur (5 0))
+  (uniq-gen y x y-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 1) (exp (gen) y-0) (5 0))
+  (traces
+    ((send (enc "reg" (exp (gen) x) a (privk a)))
+      (recv (enc (exp (gen) x) a (privk ca)))
+      (send (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (recv
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (send (enc "check" n (exp (gen) (mul y x)))))
+    ((send (enc "reg" (exp (gen) y) b (privk b)))
+      (recv (enc (exp (gen) y) b (privk ca)))
+      (recv (cat (exp (gen) x) (enc (exp (gen) x) a (privk ca))))
+      (send
+        (cat (exp (gen) y) (enc (exp (gen) y) b (privk ca))
+          (enc n (exp (gen) (mul y x)))))
+      (recv (enc "check" n (exp (gen) (mul y x)))))
+    ((recv (enc "reg" (exp (gen) y) b (privk b)))
+      (send (enc (exp (gen) y) b (privk ca))))
+    ((recv (enc "reg" (exp (gen) x) a (privk a)))
+      (send (enc (exp (gen) x) a (privk ca))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (exp (gen) y-0) (mul y x (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul y x (rec y-0)))))
     ((send (enc "reg" (exp (gen) y-0) b-0 (privk b-0)))))
   (label 99)
   (parent 94)
diff --git a/tst/dh_mim.scm b/tst/dh_mim.scm
--- a/tst/dh_mim.scm
+++ b/tst/dh_mim.scm
@@ -13,26 +13,26 @@
 
 (defprotocol dh_mim diffie-hellman
   (defrole init
-    (vars (x expn) (h base) (n text))
+    (vars (x rndx) (y expt) (n text))
     (trace
      (send (exp (gen) x))
-     (recv h)
-     (send (enc n (exp h x))))
+     (recv (exp (gen) y))
+     (send (enc n (exp (gen) (mul y x)))))
     (uniq-gen x))
   (defrole resp
-    (vars (y expn) (h base) (n text))
+    (vars (y rndx) (x expt) (n text))
     (trace
-     (recv h)
+     (recv (exp (gen) x))
      (send (exp (gen) y))
-     (recv (enc n (exp h y))))
+     (recv (enc n (exp (gen) (mul x y)))))
     (uniq-gen y))
   (comment "Diffie-hellman key exchange followed by an encryption"))
 
 
 (defskeleton dh_mim
-  (vars (n text) (hx hy base) (x y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h hx) (y y))
+  (vars (n text) (x0 y0 expt) (x y rndx))
+  (defstrand init 3 (n n) (y y0) (x x))
+  (defstrand resp 3 (n n) (x x0) (y y))
   (precedes ((0 2) (1 2)))
   (uniq-orig n)
   (pen-non-orig x y)
diff --git a/tst/dh_mim.tst b/tst/dh_mim.tst
--- a/tst/dh_mim.tst
+++ b/tst/dh_mim.tst
@@ -1,18884 +1,42 @@
 (herald "Diffie-Hellman protocol, man-in-the-middle attack"
   (algebra diffie-hellman))
 
-(comment "CPSA 3.4.0")
-(comment "All input read from dh_mim.scm")
-
-(defprotocol dh_mim diffie-hellman
-  (defrole init
-    (vars (x expn) (h base) (n text))
-    (trace (send (exp (gen) x)) (recv h) (send (enc n (exp h x))))
-    (uniq-gen x))
-  (defrole resp
-    (vars (y expn) (h base) (n text))
-    (trace (recv h) (send (exp (gen) y)) (recv (enc n (exp h y))))
-    (uniq-gen y)
-    (absent (y h)))
-  (comment "Diffie-hellman key exchange followed by an encryption"))
-
-(defskeleton dh_mim
-  (vars (n text) (hx hy base) (x y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h hx) (y y))
-  (precedes ((0 2) (1 2)))
-  (absent (y hx))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (comment "Agreement on the encrypted text only")
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv hx) (send (exp (gen) y)) (recv (enc n (exp hx y)))))
-  (label 0)
-  (unrealized (1 2))
-  (origs (n (0 2)))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x y expn))
-  (defstrand init 3 (n n) (h (exp hy y)) (x x))
-  (defstrand resp 3 (n n) (h (exp hy x)) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)))
-  (absent (y (exp hy x)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation encryption-test (displaced 2 0 init 3) (enc n (exp hx y-0))
-    (1 2))
-  (traces
-    ((send (exp (gen) x)) (recv (exp hy y))
-      (send (enc n (exp hy (mul x y)))))
-    ((recv (exp hy x)) (send (exp (gen) y))
-      (recv (enc n (exp hy (mul x y))))))
-  (label 1)
-  (parent 0)
-  (unrealized (0 1) (1 0))
-  (origs (n (0 2)))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hx hy base) (x y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h hx) (y y))
-  (deflistener (exp hx y))
-  (precedes ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2)))
-  (absent (y hx))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation encryption-test (added-listener (exp hx y))
-    (enc n (exp hx y)) (1 2))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv hx) (send (exp (gen) y)) (recv (enc n (exp hx y))))
-    ((recv (exp hx y)) (send (exp hx y))))
-  (label 2)
-  (parent 0)
-  (unrealized (1 2) (2 0))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (hy (exp (gen) (rec x)))) (gen)
-    (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y)))))
-  (label 3)
-  (parent 1)
-  (unrealized (0 1))
-  (origs (n (0 2)))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 2 0 init 1) (exp (gen) x-0) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul y x)))))
-    ((recv (exp (gen) x)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x))))))
-  (label 4)
-  (parent 1)
-  (unrealized)
-  (shape)
-  (maps
-    ((0 1) ((n n) (hx (exp (gen) x)) (hy (exp (gen) y)) (x x) (y y))))
-  (origs (n (0 2))))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 0) (1 0)))
-  (absent (y (exp (gen) x-0)))
-  (pen-non-orig x y)
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0))))) ((send (exp (gen) x-0))))
-  (label 5)
-  (parent 1)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (pen-non-orig x y)
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 6)
-  (parent 1)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x y expn) (w expr))
-  (defstrand init 3 (n n) (h (exp hy y)) (x x))
-  (defstrand resp 3 (n n) (h (exp hy x)) (y y))
-  (deflistener (cat (exp hy (mul x (rec w))) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y (exp hy x)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp hy (mul x (rec w))) w)) (exp hy x) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp hy y))
-      (send (enc n (exp hy (mul x y)))))
-    ((recv (exp hy x)) (send (exp (gen) y))
-      (recv (enc n (exp hy (mul x y)))))
-    ((recv (cat (exp hy (mul x (rec w))) w))
-      (send (cat (exp hy (mul x (rec w))) w))))
-  (label 7)
-  (parent 1)
-  (unrealized (0 1) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (precedes ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-0) (2 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y))))
-  (label 8)
-  (parent 2)
-  (unrealized (1 2))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hx hy base) (x y expn) (w expr))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h hx) (y y))
-  (deflistener (exp hx y))
-  (deflistener (cat (exp hx (mul y (rec w))) w))
-  (precedes ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2)) ((3 1) (2 0)))
-  (absent (y hx))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp hx (mul y (rec w))) w)) (exp hx y) (2 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv hx) (send (exp (gen) y)) (recv (enc n (exp hx y))))
-    ((recv (exp hx y)) (send (exp hx y)))
-    ((recv (cat (exp hx (mul y (rec w))) w))
-      (send (cat (exp hx (mul y (rec w))) w))))
-  (label 9)
-  (parent 2)
-  (unrealized (1 2) (3 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) (mul (rec x) y (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y (rec w))) w))
-    (exp (gen) (mul (rec x) y)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (cat (exp (gen) (mul (rec x) y (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) y (rec w))) w))))
-  (label 10)
-  (parent 3)
-  (unrealized (2 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 0) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (pen-non-orig x y)
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w))
-    (exp (gen) (mul (rec x) y x-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0))))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w))))
-  (label 11)
-  (parent 5)
-  (unrealized (3 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (pen-non-orig x y)
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w))
-    (exp (gen) (mul (rec x) y y-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w))))
-  (label 12)
-  (parent 6)
-  (unrealized (3 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y w))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (contracted (hy (exp (gen) (mul (rec x) w))))
-    (gen) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w)))
-      (send (enc n (exp (gen) (mul y w)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w)))))
-    ((recv (cat (gen) w)) (send (cat (gen) w))))
-  (label 13)
-  (parent 7)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y w))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (pen-non-orig y x)
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y w)))
-      (send (enc n (exp (gen) (mul y w x)))))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w x)))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 14)
-  (parent 7)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y w x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)))
-  (absent (y (exp (gen) (mul w x-0))))
-  (pen-non-orig x y)
-  (precur (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w x-0)))
-      (send (enc n (exp (gen) (mul y w x-0)))))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w x-0)))))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0))))
-  (label 15)
-  (parent 7)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)))
-  (absent (y-0 h) (y (exp (gen) (mul w y-0))))
-  (pen-non-orig x y)
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w y-0)))
-      (send (enc n (exp (gen) (mul y w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w y-0)))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 16)
-  (parent 7)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (precedes ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (2 0)) ((2 1) (1 2)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (hy (exp (gen) (mul (rec x) y)))) n
-    (1 2) (enc n (exp (gen) y)))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y))))
-  (label 17)
-  (parent 8)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp hy x))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener (exp hy x)) n (1 2)
-    (enc n (exp hy x)))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp hy x)) (send (exp hy x))))
-  (label 18)
-  (parent 8)
-  (unrealized (3 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2)) ((3 1) (2 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (contracted (hx (exp (gen) w)) (y-0 y) (w (mul w y))) (gen) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
-  (label 19)
-  (parent 9)
-  (unrealized (1 2) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (exp (gen) (mul w x y)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x y)))))
-    ((recv (exp (gen) (mul w x y))) (send (exp (gen) (mul w x y))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))))
-  (label 20)
-  (parent 9)
-  (unrealized (1 2) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x-0))) (y y))
-  (deflistener (exp (gen) (mul w x-0 y)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 0) (1 0)))
-  (absent (y (exp (gen) (mul w x-0))))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x-0 y)))))
-    ((recv (exp (gen) (mul w x-0 y))) (send (exp (gen) (mul w x-0 y))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0))))
-  (label 21)
-  (parent 9)
-  (unrealized (1 2) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2)) ((3 1) (2 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 22)
-  (parent 9)
-  (unrealized (1 2))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w y))) (y y-0))
-  (deflistener (exp (gen) (mul w y y-0)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w y))))
-  (pen-non-orig x y-0)
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y y-0)))))
-    ((recv (exp (gen) (mul w y y-0))) (send (exp (gen) (mul w y y-0))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 23)
-  (parent 9)
-  (unrealized (1 2) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (cat (gen) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul (rec x) y)))
-    (gen) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (cat (gen) (mul (rec x) y)))
-      (send (cat (gen) (mul (rec x) y)))))
-  (label 24)
-  (parent 10)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x) (rec x))))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (cat (exp (gen) x) (mul y (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x) (rec x))))))
-  (label 25)
-  (parent 10)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (0 1))
-    ((3 0) (2 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 26)
-  (parent 10)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))))
-  (label 27)
-  (parent 10)
-  (unrealized (0 1) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig x y)
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 28)
-  (parent 10)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul (rec x) y x-0)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 0) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (pen-non-orig x y)
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (contracted (x-1 x) (y-0 y) (x-2 x-0) (w (mul (rec x) y x-0))) (gen)
-    (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0))))) ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul (rec x) y x-0)))
-      (send (cat (gen) (mul (rec x) y x-0)))))
-  (label 29)
-  (parent 11)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) x)) (y y))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 0) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (pen-non-orig y x-0)
-  (precur (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul y x (rec x-0))))
-      (send (enc n (exp (gen) (mul y x)))))
-    ((recv (exp (gen) x)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x))))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))))
-  (label 30)
-  (parent 11)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 0) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 2 init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0))))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y)))
-      (send (cat (exp (gen) x-0) (mul (rec x) y)))))
-  (label 31)
-  (parent 11)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul (rec x) y x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 0) (1 0))
-    ((3 1) (0 1)) ((4 0) (3 0)))
-  (absent (y (exp (gen) x-0)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0))))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul (rec x) y x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul (rec x) y x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 32)
-  (parent 11)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 0) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0 y)))
-      (send (enc n (exp (gen) (mul x-0 y)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x-0 y))))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0)))
-      (send (cat (exp (gen) y) (mul (rec x) x-0)))))
-  (label 33)
-  (parent 11)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y x-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 0) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y-0 h) (y (exp (gen) x-0)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0))))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y x-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y x-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 34)
-  (parent 11)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul (rec x) y y-0)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (pen-non-orig x y)
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y) (y-2 y-0) (w (mul (rec x) y y-0))) (gen)
-    (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul (rec x) y y-0)))
-      (send (cat (gen) (mul (rec x) y y-0)))))
-  (label 35)
-  (parent 12)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul y y-0 (rec x) (rec x))))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (pen-non-orig y x)
-  (precur (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y y-0 (rec x))))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul y y-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y y-0 (rec x) (rec x))))))
-  (label 36)
-  (parent 12)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y y-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (3 0)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y y-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y y-0 (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 37)
-  (parent 12)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y)) (y y-0))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y-0 (exp (gen) y)) (y h))
-  (pen-non-orig x y-0)
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y)))
-      (send (cat (exp (gen) y-0) (mul (rec x) y)))))
-  (label 38)
-  (parent 12)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 2 resp 2) (exp (gen) y-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y)))
-      (send (cat (exp (gen) y-0) (mul (rec x) y)))))
-  (label 39)
-  (parent 12)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (x y y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul (rec x) y y-0 (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y-1 h-0) (y-0 h) (y (exp (gen) y-0)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul (rec x) y y-0 (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul (rec x) y y-0 (rec y-1)))))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 40)
-  (parent 12)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x)) (y y))
-  (deflistener (cat (gen) x))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y (exp (gen) x)))
-  (pen-non-orig x y)
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (exp (gen) x)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x y)))))
-    ((recv (cat (gen) x)) (send (cat (gen) x))))
-  (label 41)
-  (parent 13)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y w))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y w)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w)))
-      (send (enc n (exp (gen) (mul y w)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w)))))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0))))
-  (label 42)
-  (parent 13)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y w))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x))) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)))
-  (absent (y (exp (gen) (mul w x))))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y w)))
-      (send (enc n (exp (gen) (mul y w x)))))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w x))))))
-  (label 43)
-  (parent 14)
-  (unrealized)
-  (shape)
-  (maps
-    ((0 1)
-      ((n n) (hx (exp (gen) (mul w x))) (hy (exp (gen) (mul y w))) (x x)
-        (y y))))
-  (origs (n (0 2))))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)))
-  (absent (y (exp (gen) x)))
-  (pen-non-orig x y)
-  (precur (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (exp (gen) x)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x y)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 44)
-  (parent 15)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr) (x-0 expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y w x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul w x-0))))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener
-      (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y w x-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w x-0)))
-      (send (enc n (exp (gen) (mul y w x-0)))))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w x-0)))))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0))))
-  (label 45)
-  (parent 15)
-  (unrealized (4 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x)) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)))
-  (absent (y-0 (exp (gen) x)) (y h))
-  (pen-non-orig x y-0)
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (exp (gen) x)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x y-0)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y))))
-      (send (cat (exp (gen) y) (mul x (rec y)))))
-    ((recv h) (send (exp (gen) y))))
-  (label 46)
-  (parent 16)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) (mul w y-0))))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener
-      (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y w y-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w y-0)))
-      (send (enc n (exp (gen) (mul y w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w y-0)))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0))))
-  (label 47)
-  (parent 16)
-  (unrealized (4 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) (mul (rec x) y (rec w))) w))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y (rec w))) w))
-    (exp (gen) (mul (rec x) y)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) (mul (rec x) y (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) y (rec w))) w))))
-  (label 48)
-  (parent 17)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (hy (exp (gen) (rec x)))) (gen)
-    (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen))))
-  (label 49)
-  (parent 18)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (gen)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x)) (send (exp (gen) x))))
-  (label 50)
-  (parent 18)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 0) (0 1)) ((4 0) (3 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0))))
-  (label 51)
-  (parent 18)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (2 0))
-    ((1 1) (3 0)) ((2 1) (1 2)) ((3 1) (1 2)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y)) (send (exp (gen) y))))
-  (label 52)
-  (parent 18)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (0 1)) ((4 1) (3 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 53)
-  (parent 18)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x y expn) (w expr))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp hy x))
-  (deflistener (cat (exp hy (mul x (rec w))) w))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (4 0))
-  (operation nonce-test
-    (added-listener (cat (exp hy (mul x (rec w))) w)) (exp hy x) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp hy x)) (send (exp hy x)))
-    ((recv (cat (exp hy (mul x (rec w))) w))
-      (send (cat (exp hy (mul x (rec w))) w))))
-  (label 54)
-  (parent 18)
-  (unrealized (4 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (3 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv y) (send y)))
-  (label 55)
-  (parent 19)
-  (unrealized (1 2) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (exp (gen) (mul w x y)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (3 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x y)))))
-    ((recv (exp (gen) (mul w x y))) (send (exp (gen) (mul w x y))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))) ((recv y) (send y)))
-  (label 56)
-  (parent 20)
-  (unrealized (1 2) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x-0))) (y y))
-  (deflistener (exp (gen) (mul w x-0 y)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener y)
-  (precedes ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 0) (1 0)) ((5 1) (3 0)))
-  (absent (y (exp (gen) (mul w x-0))))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x-0 y)))))
-    ((recv (exp (gen) (mul w x-0 y))) (send (exp (gen) (mul w x-0 y))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0)))
-    ((recv y) (send y)))
-  (label 57)
-  (parent 21)
-  (unrealized (1 2) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (hy (exp (gen) (mul (rec x) w y))))
-    n (1 2) (enc n (exp (gen) (mul w y))))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w y)))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 58)
-  (parent 22)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp hy x))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener (exp hy x)) n (1 2)
-    (enc n (exp hy x)))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp hy x)) (send (exp hy x))))
-  (label 59)
-  (parent 22)
-  (unrealized (4 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w y))) (y y-0))
-  (deflistener (exp (gen) (mul w y y-0)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 0)) ((5 1) (3 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w y))))
-  (pen-non-orig x y-0)
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y y-0)))))
-    ((recv (exp (gen) (mul w y y-0))) (send (exp (gen) (mul w y y-0))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))) ((recv y-0) (send y-0)))
-  (label 60)
-  (parent 23)
-  (unrealized (1 2) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (0 1)) ((3 1) (2 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
-  (label 61)
-  (parent 27)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test
-    (contracted (x-0 x) (y-0 y) (w-0 (mul x w)) (w-1 (mul w y)) (y-1 y)
-      (w (mul w y))) (gen) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
-  (label 62)
-  (parent 42)
-  (unrealized (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x x))) (y y))
-  (deflistener (cat (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) (mul w x x))))
-  (pen-non-orig x y)
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y)))
-      (send (enc n (exp (gen) (mul w x x y)))))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x x y)))))
-    ((recv (cat (gen) (mul w x x))) (send (cat (gen) (mul w x x))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))))
-  (label 63)
-  (parent 42)
-  (unrealized (0 1) (1 0) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (pen-non-orig x y)
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (cat (gen) (mul x w x-0))) (send (cat (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0))))
-  (label 64)
-  (parent 42)
-  (unrealized (0 1) (1 0) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (pen-non-orig x y)
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 65)
-  (parent 42)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (pen-non-orig x y-0)
-  (precur (3 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (gen) (mul x w y))) (send (cat (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 66)
-  (parent 42)
-  (unrealized (0 1) (1 0) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (y-0 y) (w-0 (mul x (rec x-0) w)) (x-2 x-0)
-      (w-1 (mul w y)) (y-1 y) (w (mul w y))) (gen) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
-  (label 67)
-  (parent 45)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x-0 x-0))) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul w x-0 x-0))))
-  (pen-non-orig x-0 y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-1) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul w x-0 x-0 y)))))
-    ((recv (exp (gen) (mul w x-0 x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x-0 x-0 y)))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w x-0 x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))))
-  (label 68)
-  (parent 45)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 3 init 1) (exp (gen) x-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))))
-  (label 69)
-  (parent 45)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 expn) (w expr) (x-1 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-1 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-1))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w y)))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 0) (2 0)))
-  (absent (y (exp (gen) (mul x w x-1))))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-1 y)))
-      (send (enc n (exp (gen) (mul x w x-1 y)))))
-    ((recv (exp (gen) (mul x w x-1))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-1 y)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w x-1))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul w y)))
-      (send (cat (exp (gen) x-1) (mul w y)))) ((send (exp (gen) x-1))))
-  (label 70)
-  (parent 45)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 71)
-  (parent 45)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x x-0 expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w y))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 72)
-  (parent 45)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y h) (y-0 (exp (gen) (mul x w))))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y-0) (w-0 (mul x (rec y) w)) (y-2 y)
-      (w-1 (mul w y-0)) (y-3 y-0) (w (mul w y-0))) (gen) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul w y-0))) (send (cat (gen) (mul w y-0)))))
-  (label 73)
-  (parent 47)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x x))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y h) (y-0 (exp (gen) (mul w x x))))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y-0)))
-      (send (enc n (exp (gen) (mul w x x y-0)))))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w x x y-0)))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w x x)))
-      (send (cat (exp (gen) y) (mul (rec y) w x x))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul w y-0)))
-      (send (cat (exp (gen) x) (mul w y-0)))))
-  (label 74)
-  (parent 47)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w y-0)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 0) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w x-0))))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y-0)))
-      (send (enc n (exp (gen) (mul x w x-0 y-0)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w x-0 y-0)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w x-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul w y-0)))
-      (send (cat (exp (gen) x-0) (mul w y-0))))
-    ((send (exp (gen) x-0))))
-  (label 75)
-  (parent 47)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y-0 (exp (gen) (mul x w))) (y h))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w))))
-  (label 76)
-  (parent 47)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 3 resp 2) (exp (gen) y-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0)))))
-  (label 77)
-  (parent 47)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (x y expn) (w expr) (y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 y-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y-0))) (y y-1))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w y-1)))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (absent (y-0 h-0) (y h) (y-1 (exp (gen) (mul x w y-0))))
-  (pen-non-orig x y-1)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 y-1)))
-      (send (enc n (exp (gen) (mul x w y-0 y-1)))))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) y-1))
-      (recv (enc n (exp (gen) (mul x w y-0 y-1)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w y-1)))
-      (send (cat (exp (gen) y-0) (mul w y-1))))
-    ((recv h-0) (send (exp (gen) y-0))))
-  (label 78)
-  (parent 47)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (gen) (mul (rec x) y)))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul (rec x) y)))
-    (gen) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul (rec x) y)))
-      (send (cat (gen) (mul (rec x) y)))))
-  (label 79)
-  (parent 48)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x) (rec x))))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul y (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x) (rec x))))))
-  (label 80)
-  (parent 48)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (0 1)) ((4 0) (3 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 81)
-  (parent 48)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))))
-  (label 82)
-  (parent 48)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 83)
-  (parent 48)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) (mul (rec x) (rec w))) w))
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (4 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) (rec w))) w))
-    (exp (gen) (rec x)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) (mul (rec x) (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) (rec w))) w))))
-  (label 84)
-  (parent 49)
-  (unrealized (4 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (gen)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) x))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((2 1) (1 2)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) x)) (send (exp (gen) x))))
-  (label 85)
-  (parent 50)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) x-0 (rec w))) w))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 0) (3 0)) ((4 0) (5 0))
-    ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (precur (5 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) x-0 (rec w))) w))
-    (exp (gen) (mul (rec x) x-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) (mul (rec x) x-0 (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) x-0 (rec w))) w))))
-  (label 86)
-  (parent 51)
-  (unrealized (5 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) (mul (rec x) y (rec w))) w))
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (3 0)) ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (4 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y (rec w))) w))
-    (exp (gen) (mul (rec x) y)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) (mul (rec x) y (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) y (rec w))) w))))
-  (label 87)
-  (parent 52)
-  (unrealized (4 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y-0 (rec w))) w))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((4 1) (5 0))
-    ((5 1) (0 1)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (precur (5 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y-0 (rec w))) w))
-    (exp (gen) (mul (rec x) y-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) (mul (rec x) y-0 (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) y-0 (rec w))) w))))
-  (label 88)
-  (parent 53)
-  (unrealized (5 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (4 0))
-  (operation nonce-test (contracted (hy (exp (gen) (mul (rec x) w))))
-    (gen) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w)))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (gen) w)) (send (cat (gen) w))))
-  (label 89)
-  (parent 54)
-  (unrealized (0 1))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul w x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 90)
-  (parent 54)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (0 1)) ((5 0) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (4 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w x-0)))
-      (send (enc n (exp (gen) (mul w x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) (mul w x-0))))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0))))
-  (label 91)
-  (parent 54)
-  (unrealized (0 1))
-  (comment "7 in cohort - 7 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w y)))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 92)
-  (parent 54)
-  (unrealized (0 1))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1)) ((5 1) (4 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig x y)
-  (precur (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w y-0)))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 93)
-  (parent 54)
-  (unrealized (0 1))
-  (comment "7 in cohort - 7 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (exp (gen) x)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
-  (label 94)
-  (parent 58)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (4 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) w y)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w y)))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))))
-  (label 95)
-  (parent 58)
-  (unrealized (4 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (hy (exp (gen) (rec x)))) (gen)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen))))
-  (label 96)
-  (parent 59)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (gen)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x)) (send (exp (gen) x))))
-  (label 97)
-  (parent 59)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (0 1)) ((5 0) (4 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0))))
-  (label 98)
-  (parent 59)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y))))
-  (label 99)
-  (parent 59)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1)) ((5 1) (4 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 100)
-  (parent 59)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x expn) (w expr) (y expn) (w-0 expr))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp hy x))
-  (deflistener (cat (exp hy (mul x (rec w-0))) w-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp hy (mul x (rec w-0))) w-0)) (exp hy x)
-    (4 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp hy x)) (send (exp hy x)))
-    ((recv (cat (exp hy (mul x (rec w-0))) w-0))
-      (send (cat (exp hy (mul x (rec w-0))) w-0))))
-  (label 101)
-  (parent 59)
-  (unrealized (5 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv y) (send y)))
-  (label 102)
-  (parent 62)
-  (unrealized (2 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x x))) (y y))
-  (deflistener (cat (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y (exp (gen) (mul w x x))))
-  (pen-non-orig x y)
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y)))
-      (send (enc n (exp (gen) (mul w x x y)))))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x x y)))))
-    ((recv (cat (gen) (mul w x x))) (send (cat (gen) (mul w x x))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))) ((recv y) (send y)))
-  (label 103)
-  (parent 63)
-  (unrealized (1 0) (2 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)) ((5 1) (3 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (pen-non-orig x y)
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (cat (gen) (mul x w x-0))) (send (cat (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0)))
-    ((recv y) (send y)))
-  (label 104)
-  (parent 64)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w (rec x))) (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))))
-  (label 105)
-  (parent 65)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (x w) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w) w (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))))
-  (label 106)
-  (parent 65)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (pen-non-orig x y)
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv x) (send x)))
-  (label 107)
-  (parent 65)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)) ((5 1) (3 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (pen-non-orig x y-0)
-  (precur (3 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (gen) (mul x w y))) (send (cat (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))) ((recv y-0) (send y-0)))
-  (label 108)
-  (parent 66)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv y) (send y)))
-  (label 109)
-  (parent 67)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x-0 x-0))) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul w x-0 x-0))))
-  (pen-non-orig x-0 y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul w x-0 x-0 y)))))
-    ((recv (exp (gen) (mul w x-0 x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x-0 x-0 y)))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w x-0 x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((recv y) (send y)))
-  (label 110)
-  (parent 68)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((recv y) (send y)))
-  (label 111)
-  (parent 69)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 expn) (w expr) (x-1 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-1 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-1))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w y)))
-  (defstrand init 1 (x x-1))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 0) (2 0)) ((6 1) (4 0)))
-  (absent (y (exp (gen) (mul x w x-1))))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-1 y)))
-      (send (enc n (exp (gen) (mul x w x-1 y)))))
-    ((recv (exp (gen) (mul x w x-1))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-1 y)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w x-1))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul w y)))
-      (send (cat (exp (gen) x-1) (mul w y)))) ((send (exp (gen) x-1)))
-    ((recv y) (send y)))
-  (label 112)
-  (parent 70)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (pen-non-orig y x)
-  (precur (4 0) (2 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w (mul (rec x) x-0))) (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x) x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0)))))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0)))
-      (send (cat (exp (gen) y) (mul (rec x) x-0)))))
-  (label 113)
-  (parent 71)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w (rec x-0))))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (x-0 (mul (rec x) w)) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w))
-    (mul (rec x) w) (2 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w y (rec x-0))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w)))
-      (send (cat (exp (gen) x) (mul (rec x) w)))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul w (rec x-0))))
-      (send (cat (exp (gen) y) (mul w (rec x-0))))))
-  (label 114)
-  (parent 71)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w x-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (x-0 (mul x w)) (y (exp (gen) (mul x w x-0))))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w)) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y x-0)))
-      (send (enc n (exp (gen) (mul x w y x-0)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y x-0)))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w x-0)))
-      (send (cat (exp (gen) y) (mul w x-0)))))
-  (label 115)
-  (parent 71)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x x-0 expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)) ((6 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w y))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))) ((recv y-0) (send y-0)))
-  (label 116)
-  (parent 72)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w))))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul w y-0))) (send (cat (gen) (mul w y-0))))
-    ((recv y-0) (send y-0)))
-  (label 117)
-  (parent 73)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x x))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w x x))))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y-0)))
-      (send (enc n (exp (gen) (mul w x x y-0)))))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w x x y-0)))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w x x)))
-      (send (cat (exp (gen) y) (mul (rec y) w x x))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul w y-0)))
-      (send (cat (exp (gen) x) (mul w y-0)))) ((recv y-0) (send y-0)))
-  (label 118)
-  (parent 74)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 0) (2 0)) ((6 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w x-0))))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y-0)))
-      (send (enc n (exp (gen) (mul x w x-0 y-0)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w x-0 y-0)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w x-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul w y-0)))
-      (send (cat (exp (gen) x-0) (mul w y-0)))) ((send (exp (gen) x-0)))
-    ((recv y-0) (send y-0)))
-  (label 119)
-  (parent 75)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) y-0)) (y-0 h))
-  (pen-non-orig y x)
-  (precur (4 0) (2 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y-0) (w (mul (rec x) y-0))) (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x) y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) y-0)))
-      (send (cat (exp (gen) y) (mul (rec x) y-0)))))
-  (label 120)
-  (parent 76)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (x (mul (rec y) w)) (y-0 (exp (gen) w)) (y h))
-  (pen-non-orig y-0 x)
-  (precur (4 0) (2 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w))
-    (mul (rec y) w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w)))
-      (send (cat (exp (gen) y) (mul (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x))))))
-  (label 121)
-  (parent 76)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul x w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y-0 (mul x w)) (y (exp (gen) (mul x w y-0))) (y-0 h))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w)) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (exp (gen) y-0) (mul x w)))
-      (send (cat (exp (gen) y-0) (mul x w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0)))))
-  (label 122)
-  (parent 76)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0)))) ((recv y-0) (send y-0)))
-  (label 123)
-  (parent 77)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (x y expn) (w expr) (y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 y-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y-0))) (y y-1))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w y-1)))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (deflistener y-1)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)) ((6 1) (4 0)))
-  (absent (y-0 h-0) (y h) (y-1 (exp (gen) (mul x w y-0))))
-  (pen-non-orig x y-1)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-1) (mul w y-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 y-1)))
-      (send (enc n (exp (gen) (mul x w y-0 y-1)))))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) y-1))
-      (recv (enc n (exp (gen) (mul x w y-0 y-1)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w y-1)))
-      (send (cat (exp (gen) y-0) (mul w y-1))))
-    ((recv h-0) (send (exp (gen) y-0))) ((recv y-1) (send y-1)))
-  (label 124)
-  (parent 78)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
-  (label 125)
-  (parent 82)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (deflistener (cat (gen) (rec x)))
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (precur (4 0))
-  (operation nonce-test (contracted (x-0 x) (w (rec x))) (gen) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x)))))
-  (label 126)
-  (parent 84)
-  (unrealized (0 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x))))))
-  (label 127)
-  (parent 84)
-  (unrealized (0 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (0 1)) ((5 0) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 128)
-  (parent 84)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) y) (mul (rec x) (rec y))))
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) y) (mul (rec x) (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) (rec y))))))
-  (label 129)
-  (parent 84)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 130)
-  (parent 84)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (gen)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (precedes ((0 2) (1 2)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y)))))
-  (label 131)
-  (parent 85)
-  (unrealized)
-  (shape)
-  (maps ((0 1) ((n n) (hx (gen)) (hy (gen)) (x x) (y y))))
-  (origs (n (0 2))))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul (rec x) x-0)))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 0) (3 0)) ((4 0) (5 0))
-    ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (precur (5 0))
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w (mul (rec x) x-0))) (gen) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul (rec x) x-0)))
-      (send (cat (gen) (mul (rec x) x-0)))))
-  (label 132)
-  (parent 86)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 0) (3 0)) ((4 0) (5 0))
-    ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (5 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-1) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x)) (send (exp (gen) x))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))))
-  (label 133)
-  (parent 86)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (rec x)))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 0) (3 0)) ((4 0) (5 0))
-    ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 4 init 1) (exp (gen) x-1) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (rec x)))
-      (send (cat (exp (gen) x-0) (rec x)))))
-  (label 134)
-  (parent 86)
-  (unrealized (0 1) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 0) (3 0)) ((4 0) (5 0))
-    ((5 1) (0 1)) ((6 0) (5 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 135)
-  (parent 86)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2)) ((4 0) (3 0))
-    ((4 0) (5 0)) ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))))
-  (label 136)
-  (parent 86)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 0) (3 0)) ((4 0) (5 0))
-    ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 137)
-  (parent 86)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (gen) (mul (rec x) y)))
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (3 0)) ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (4 0))
-  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul (rec x) y)))
-    (gen) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul (rec x) y)))
-      (send (cat (gen) (mul (rec x) y)))))
-  (label 138)
-  (parent 87)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x) (rec x))))
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (3 0)) ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul y (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x) (rec x))))))
-  (label 139)
-  (parent 87)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (3 0)) ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (0 1)) ((5 0) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (4 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 140)
-  (parent 87)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (3 0)) ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))))
-  (label 141)
-  (parent 87)
-  (unrealized (0 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (3 0)) ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig x y)
-  (precur (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 142)
-  (parent 87)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul (rec x) y-0)))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((4 1) (5 0))
-    ((5 1) (0 1)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (precur (5 0))
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y-0) (w (mul (rec x) y-0))) (gen) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul (rec x) y-0)))
-      (send (cat (gen) (mul (rec x) y-0)))))
-  (label 143)
-  (parent 88)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((4 1) (5 0))
-    ((5 1) (0 1)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y-0 (rec x))))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))))
-  (label 144)
-  (parent 88)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((4 1) (5 0))
-    ((5 1) (0 1)) ((6 0) (5 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 145)
-  (parent 88)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y-0))
-  (deflistener (exp (gen) y-0))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0))
-    ((4 1) (5 0)) ((5 1) (0 1)))
-  (absent (y-0 (gen)) (y h))
-  (pen-non-orig x y-0)
-  (precur (5 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-1) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y-0)) (recv (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))))
-  (label 146)
-  (parent 88)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (rec x)))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((4 1) (5 0))
-    ((5 1) (0 1)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 4 resp 2) (exp (gen) y-1) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (rec x)))
-      (send (cat (exp (gen) y-0) (rec x)))))
-  (label 147)
-  (parent 88)
-  (unrealized (0 1) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (y x y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((4 1) (5 0))
-    ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (y-1 h-0) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1)))))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 148)
-  (parent 88)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (gen)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (gen) x))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (precur (4 0))
-  (operation nonce-test (contracted (x-0 x) (w x)) (gen) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (gen) x)) (send (cat (gen) x))))
-  (label 149)
-  (parent 89)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) x)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (gen) (mul x x)))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x))
-      (send (enc n (exp (gen) (mul x x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (gen) (mul x x))) (send (cat (gen) (mul x x)))))
-  (label 150)
-  (parent 89)
-  (unrealized (3 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-0)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (0 1)) ((5 0) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0))))
-    ((send (exp (gen) x-0))))
-  (label 151)
-  (parent 89)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (gen) (mul x y)))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (gen) (mul x y))) (send (cat (gen) (mul x y)))))
-  (label 152)
-  (parent 89)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (gen) (mul x y-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1)) ((5 1) (4 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (gen) (mul x y-0))) (send (cat (gen) (mul x y-0))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 153)
-  (parent 89)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) (mul (rec x) w (rec w-0))) w-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (5 0) (4 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) w)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w)))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (exp (gen) (mul (rec x) w (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) w (rec w-0))) w-0))))
-  (label 154)
-  (parent 89)
-  (unrealized (5 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((2 1) (1 2)) ((3 1) (2 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul w x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 155)
-  (parent 90)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (gen)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (0 1)) ((5 0) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w (mul x (rec x-0))) (x-2 x-0)) (gen) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 156)
-  (parent 91)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-0)) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x-0 x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) x-0 x-0)))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (0 1)) ((5 0) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-1) (0 1))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x-0 x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x-0 x-0))) (send (exp (gen) (mul x-0 x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) x-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) x-0 x-0))))
-    ((send (exp (gen) x))))
-  (label 157)
-  (parent 91)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-0)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (0 1)) ((5 0) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 5 init 1) (exp (gen) x-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x)))
-    ((send (exp (gen) x-0))))
-  (label 158)
-  (parent 91)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-1)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-  (defstrand init 1 (x x-0))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (0 1)) ((5 0) (4 0))
-    ((6 0) (0 1)) ((6 0) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-1))
-      (send (enc n (exp (gen) (mul x x-1)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x x-1))) (send (exp (gen) (mul x x-1))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) x-1))))
-    ((send (exp (gen) x-0))) ((send (exp (gen) x-1))))
-  (label 159)
-  (parent 91)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0))
-    ((5 0) (0 1)) ((5 0) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (4 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) y))))
-    ((send (exp (gen) x-0))))
-  (label 160)
-  (parent 91)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) y-0)))
-  (defstrand init 1 (x x-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (0 1)) ((5 0) (4 0))
-    ((6 1) (0 1)) ((6 1) (4 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) y-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) y-0))))
-    ((send (exp (gen) x-0))) ((recv h) (send (exp (gen) y-0))))
-  (label 161)
-  (parent 91)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr) (x-0 expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) w x-0 (rec w-0))) w-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (4 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w x-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) w x-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w x-0)))
-      (send (enc n (exp (gen) (mul w x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) (mul w x-0))))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) (mul (rec x) w x-0 (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) w x-0 (rec w-0))) w-0))))
-  (label 162)
-  (parent 91)
-  (unrealized (6 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (gen)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w (mul x (rec y))) (y-0 y))
-    (gen) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul x (rec y))))
-      (send (cat (exp (gen) y) (mul x (rec y))))))
-  (label 163)
-  (parent 92)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) x)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) x x)))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x))
-      (send (enc n (exp (gen) (mul x x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) x x)))
-      (send (cat (exp (gen) y) (mul (rec y) x x)))))
-  (label 164)
-  (parent 92)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-0)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) x-0)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0))
-    ((5 0) (0 1)) ((5 0) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (4 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) x-0))))
-    ((send (exp (gen) x-0))))
-  (label 165)
-  (parent 92)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
-  (label 166)
-  (parent 92)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) y-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0))
-    ((5 1) (0 1)) ((5 1) (4 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig x y)
-  (precur (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) y-0))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 167)
-  (parent 92)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) w y)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w y)))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))))
-  (label 168)
-  (parent 92)
-  (unrealized (5 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (gen)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1)) ((5 1) (4 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w (mul x (rec y-0))) (y-1 y-0)) (gen) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 169)
-  (parent 93)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) x)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) x x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1)) ((5 1) (4 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x))
-      (send (enc n (exp (gen) (mul x x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) x x)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) x x))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 170)
-  (parent 93)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-0)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1)) ((5 1) (4 0))
-    ((6 0) (0 1)) ((6 0) (4 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) x-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) x-0))))
-    ((recv h) (send (exp (gen) y-0))) ((send (exp (gen) x-0))))
-  (label 171)
-  (parent 93)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y-0))
-  (deflistener (exp (gen) y-0))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0))
-    ((5 1) (0 1)) ((5 1) (4 0)))
-  (absent (y-0 (gen)) (y h))
-  (pen-non-orig x y-0)
-  (precur (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (gen)) (send (exp (gen) y-0)) (recv (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 172)
-  (parent 93)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y-0) x))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1)) ((5 1) (4 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 5 resp 2) (exp (gen) y-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) y-0) x)) (send (cat (exp (gen) y-0) x)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 173)
-  (parent 93)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (y x y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-1)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x y-1)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) y-1)))
-  (defstrand resp 2 (h h) (y y-0))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((6 1) (4 0)))
-  (absent (y-1 h-0) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-1))
-      (send (enc n (exp (gen) (mul x y-1)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x y-1))) (send (exp (gen) (mul x y-1))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) y-1)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) y-1))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 174)
-  (parent 93)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) (mul (rec x) w y-0 (rec w-0))) w-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w y-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) w y-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w y-0)))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) (mul (rec x) w y-0 (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) w y-0 (rec w-0))) w-0))))
-  (label 175)
-  (parent 93)
-  (unrealized (6 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (4 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-0 (mul x w)) (y-0 y) (w-1 (mul w y)) (y-1 y)
-      (w (mul w y))) (gen) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
-  (label 176)
-  (parent 95)
-  (unrealized (2 0) (3 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x x))) (y y))
-  (deflistener (exp (gen) (mul w x x y)))
-  (deflistener (cat (exp (gen) y) (mul w x x)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (4 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul w x x))))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y)))
-      (send (enc n (exp (gen) (mul w x x y)))))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x x y)))))
-    ((recv (exp (gen) (mul w x x y))) (send (exp (gen) (mul w x x y))))
-    ((recv (cat (exp (gen) y) (mul w x x)))
-      (send (cat (exp (gen) y) (mul w x x))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))))
-  (label 177)
-  (parent 95)
-  (unrealized (0 1) (1 0) (2 0) (3 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (exp (gen) (mul x w x-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (4 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 0) (1 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0 y)))
-      (send (exp (gen) (mul x w x-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w x-0)))
-      (send (cat (exp (gen) y) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0))))
-  (label 178)
-  (parent 95)
-  (unrealized (0 1) (1 0) (2 0) (3 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (4 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 179)
-  (parent 95)
-  (unrealized (2 0) (3 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (exp (gen) (mul x w y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (4 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (1 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (pen-non-orig x y-0)
-  (precur (4 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y y-0)))
-      (send (exp (gen) (mul x w y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w y)))
-      (send (cat (exp (gen) y-0) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 180)
-  (parent 95)
-  (unrealized (0 1) (1 0) (2 0) (3 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) (mul (rec x) (rec w-0))) w-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) (rec w-0))) w-0))
-    (exp (gen) (rec x)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) (mul (rec x) (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) (rec w-0))) w-0))))
-  (label 181)
-  (parent 96)
-  (unrealized (5 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (gen)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x)) (send (exp (gen) x))))
-  (label 182)
-  (parent 97)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) x-0 (rec w-0))) w-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) x-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) x-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) (mul (rec x) x-0 (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) x-0 (rec w-0))) w-0))))
-  (label 183)
-  (parent 98)
-  (unrealized (6 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) (mul (rec x) y (rec w-0))) w-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) (mul (rec x) y (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) y (rec w-0))) w-0))))
-  (label 184)
-  (parent 99)
-  (unrealized (5 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y-0 (rec w-0))) w-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) (mul (rec x) y-0 (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) y-0 (rec w-0))) w-0))))
-  (label 185)
-  (parent 100)
-  (unrealized (6 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (gen) w-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (hy (exp (gen) (mul (rec x) w-0))))
-    (gen) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0)))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0))))
-  (label 186)
-  (parent 101)
-  (unrealized (0 1))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0))))
-  (label 187)
-  (parent 101)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (0 1))
-    ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0 x-0)))
-      (send (enc n (exp (gen) (mul w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x-0))) (send (exp (gen) (mul w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0)))
-    ((send (exp (gen) x-0))))
-  (label 188)
-  (parent 101)
-  (unrealized (0 1))
-  (comment "7 in cohort - 7 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) y) w-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0 y)))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0))))
-  (label 189)
-  (parent 101)
-  (unrealized (0 1))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y expn) (w-0 expr)
-    (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0 y-0)))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 190)
-  (parent 101)
-  (unrealized (0 1))
-  (comment "7 in cohort - 7 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
-  (label 191)
-  (parent 105)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (x w) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))) ((recv x) (send x)))
-  (label 192)
-  (parent 106)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (4 0))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (x-0 (mul (rec x) w)) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w y (rec x-0))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w)))
-      (send (cat (exp (gen) x) (mul (rec x) w)))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul w (rec x-0))))
-      (send (cat (exp (gen) y) (mul w (rec x-0)))))
-    ((recv x-0) (send x-0)))
-  (label 193)
-  (parent 114)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (x-0 (mul x w)) (y (exp (gen) (mul x w x-0))))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y x-0)))
-      (send (enc n (exp (gen) (mul x w y x-0)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y x-0)))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w x-0)))
-      (send (cat (exp (gen) y) (mul w x-0)))) ((recv x-0) (send x-0)))
-  (label 194)
-  (parent 115)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (4 0))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (x (mul (rec y) w)) (y-0 (exp (gen) w)) (y h))
-  (pen-non-orig y-0 x)
-  (precur (4 0) (2 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w)))
-      (send (cat (exp (gen) y) (mul (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x))))) ((recv x) (send x)))
-  (label 195)
-  (parent 121)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul x w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (5 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y-0 (mul x w)) (y (exp (gen) (mul x w y-0))) (y-0 h))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (exp (gen) y-0) (mul x w)))
-      (send (cat (exp (gen) y-0) (mul x w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0)))) ((recv y-0) (send y-0)))
-  (label 196)
-  (parent 122)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (deflistener (cat (gen) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (precur (4 0))
-  (operation nonce-test (added-listener x) (rec x) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x))))
-    ((recv x) (send x)))
-  (label 197)
-  (parent 126)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul (rec x) (rec x)) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 198)
-  (parent 127)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (3 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 0) (3 0)) ((4 0) (5 0))
-    ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (rec x)))
-      (send (cat (exp (gen) x-0) (rec x)))) ((recv x) (send x)))
-  (label 199)
-  (parent 134)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (3 0)) ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
-  (label 200)
-  (parent 141)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (3 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((4 1) (5 0))
-    ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (rec x)))
-      (send (cat (exp (gen) y-0) (rec x)))) ((recv x) (send x)))
-  (label 201)
-  (parent 147)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) x)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (gen) (mul x x)))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x x) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x))
-      (send (enc n (exp (gen) (mul x x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (gen) (mul x x))) (send (cat (gen) (mul x x))))
-    ((recv x) (send x)))
-  (label 202)
-  (parent 150)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (precur (5 0) (4 0))
-  (operation nonce-test (contracted (x-0 x) (w-0 (mul x w)) (w-1 w))
-    (gen) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (gen) w)) (send (cat (gen) w))))
-  (label 203)
-  (parent 154)
-  (unrealized (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x x)))
-  (deflistener (cat (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x)))
-      (send (enc n (exp (gen) (mul w x x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) (mul w x x))))
-    ((recv (cat (gen) (mul w x x))) (send (cat (gen) (mul w x x))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 204)
-  (parent 154)
-  (unrealized (3 0) (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 0) (4 0)) ((6 0) (5 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0)))
-      (send (enc n (exp (gen) (mul x w x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) (mul x w x-0))))
-    ((recv (cat (gen) (mul x w x-0))) (send (cat (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0))))
-  (label 205)
-  (parent 154)
-  (unrealized (3 0) (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (gen) (mul x w y))) (send (cat (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 206)
-  (parent 154)
-  (unrealized (3 0) (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y-0)))
-  (deflistener (cat (gen) (mul x w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 1) (4 0)) ((6 1) (5 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) (mul x w y-0))))
-    ((recv (cat (gen) (mul x w y-0))) (send (cat (gen) (mul x w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 207)
-  (parent 154)
-  (unrealized (3 0) (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((2 1) (1 2)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul w x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 208)
-  (parent 155)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w-0 (mul x (rec x-0) w)) (x-2 x-0) (w-1 w))
-    (gen) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (gen) w)) (send (cat (gen) w))))
-  (label 209)
-  (parent 162)
-  (unrealized (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x-0 x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) w))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-1) (6 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x-0)))
-      (send (enc n (exp (gen) (mul w x-0 x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x-0 x-0)))
-      (send (exp (gen) (mul w x-0 x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w x-0 x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w))))
-  (label 210)
-  (parent 162)
-  (unrealized (3 0) (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) w))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 5 init 1) (exp (gen) x-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0)))
-      (send (enc n (exp (gen) (mul x w x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w))))
-  (label 211)
-  (parent 162)
-  (unrealized (3 0) (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn) (w expr) (x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-1))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) w))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (6 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-1)))
-      (send (enc n (exp (gen) (mul x w x-1)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w x-1))) (send (exp (gen) (mul x w x-1))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w x-1))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) w)) (send (cat (exp (gen) x-1) w)))
-    ((send (exp (gen) x-1))))
-  (label 212)
-  (parent 162)
-  (unrealized (3 0) (4 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 0) (4 0)) ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (4 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 1 resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w y))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 213)
-  (parent 162)
-  (unrealized (3 0) (4 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x x-0 expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (6 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) (mul x w y-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w y-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w y-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 214)
-  (parent 162)
-  (unrealized (3 0) (4 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-0 (mul x (rec y) w)) (y-0 y) (w-1 w)) (gen)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv (cat (gen) w)) (send (cat (gen) w))))
-  (label 215)
-  (parent 168)
-  (unrealized (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x x)))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x)))
-      (send (enc n (exp (gen) (mul w x x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) (mul w x x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w x x)))
-      (send (cat (exp (gen) y) (mul (rec y) w x x))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 216)
-  (parent 168)
-  (unrealized (3 0) (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w x-0)))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 0) (4 0)) ((6 0) (5 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0)))
-      (send (enc n (exp (gen) (mul x w x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w x-0))))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0))))
-  (label 217)
-  (parent 168)
-  (unrealized (3 0) (4 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 218)
-  (parent 168)
-  (unrealized (3 0) (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (4 0)) ((6 1) (5 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) (mul x w y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 219)
-  (parent 168)
-  (unrealized (3 0) (4 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-0 (mul x (rec y-0) w)) (y-1 y-0) (w-1 w))
-    (gen) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) w)) (send (cat (gen) w))))
-  (label 220)
-  (parent 175)
-  (unrealized (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y y-0 expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w x x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x)))
-      (send (enc n (exp (gen) (mul w x x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) (mul w x x))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w x x)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w x x))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 221)
-  (parent 175)
-  (unrealized (3 0) (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (6 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0)))
-      (send (enc n (exp (gen) (mul x w x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w x-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w x-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0))))
-  (label 222)
-  (parent 175)
-  (unrealized (3 0) (4 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y-0))
-  (deflistener (exp (gen) y-0))
-  (deflistener (exp (gen) (mul x w y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) w))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (4 0)) ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 (gen)) (y h))
-  (pen-non-orig x y-0)
-  (precur (6 0) (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 1 resp 2) (exp (gen) y-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (gen)) (send (exp (gen) y-0)) (recv (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) (mul x w y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w))))
-  (label 223)
-  (parent 175)
-  (unrealized (3 0) (4 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) w))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 5 resp 2) (exp (gen) y-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) (mul x w y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w)))
-      (send (cat (exp (gen) y-0) (mul x w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w))))
-  (label 224)
-  (parent 175)
-  (unrealized (3 0) (4 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (y x y-0 expn) (w expr) (y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-1))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y-1)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w y-1)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) w))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (6 0)))
-  (absent (y-1 h-0) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-1)))
-      (send (enc n (exp (gen) (mul x w y-1)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y-1))) (send (exp (gen) (mul x w y-1))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w y-1)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w y-1))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) w)) (send (cat (exp (gen) y-1) w)))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 225)
-  (parent 175)
-  (unrealized (3 0) (4 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (5 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv y) (send y)))
-  (label 226)
-  (parent 176)
-  (unrealized (2 0) (3 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x x))) (y y))
-  (deflistener (exp (gen) (mul w x x y)))
-  (deflistener (cat (exp (gen) y) (mul w x x)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (5 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul w x x))))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y)))
-      (send (enc n (exp (gen) (mul w x x y)))))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x x y)))))
-    ((recv (exp (gen) (mul w x x y))) (send (exp (gen) (mul w x x y))))
-    ((recv (cat (exp (gen) y) (mul w x x)))
-      (send (cat (exp (gen) y) (mul w x x))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))) ((recv y) (send y)))
-  (label 227)
-  (parent 177)
-  (unrealized (1 0) (2 0) (3 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (exp (gen) (mul x w x-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener y)
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (6 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 0) (1 0))
-    ((6 1) (4 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0 y)))
-      (send (exp (gen) (mul x w x-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w x-0)))
-      (send (cat (exp (gen) y) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0)))
-    ((recv y) (send y)))
-  (label 228)
-  (parent 178)
-  (unrealized (1 0) (2 0) (3 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (4 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w (rec x))) (one) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))))
-  (label 229)
-  (parent 179)
-  (unrealized (0 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (4 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (x w) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (4 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w) w (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))))
-  (label 230)
-  (parent 179)
-  (unrealized (0 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1))
-    ((5 1) (3 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv x) (send x)))
-  (label 231)
-  (parent 179)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (exp (gen) (mul x w y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (6 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (1 0))
-    ((6 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (pen-non-orig x y-0)
-  (precur (4 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y y-0)))
-      (send (exp (gen) (mul x w y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w y)))
-      (send (cat (exp (gen) y-0) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))) ((recv y-0) (send y-0)))
-  (label 232)
-  (parent 180)
-  (unrealized (1 0) (2 0) (3 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (rec x)))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w-0 (rec x))) (gen) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x)))))
-  (label 233)
-  (parent 181)
-  (unrealized (0 1) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x))))))
-  (label 234)
-  (parent 181)
-  (unrealized (0 1) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1))
-    ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 235)
-  (parent 181)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) y) (mul (rec x) (rec y))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) y) (mul (rec x) (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) (rec y))))))
-  (label 236)
-  (parent 181)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 237)
-  (parent 181)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (gen)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) x))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((2 1) (1 2)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) x)) (send (exp (gen) x))))
-  (label 238)
-  (parent 182)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul (rec x) x-0)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w-0 (mul (rec x) x-0))) (gen) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul (rec x) x-0)))
-      (send (cat (gen) (mul (rec x) x-0)))))
-  (label 239)
-  (parent 183)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-1) (6 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x)) (send (exp (gen) x))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))))
-  (label 240)
-  (parent 183)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (rec x)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 5 init 1) (exp (gen) x-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (rec x)))
-      (send (cat (exp (gen) x-0) (rec x)))))
-  (label 241)
-  (parent 183)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 0) (6 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 242)
-  (parent 183)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 0) (4 0)) ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 1 resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))))
-  (label 243)
-  (parent 183)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 244)
-  (parent 183)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (gen) (mul (rec x) y)))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-0 y) (w-0 (mul (rec x) y))) (gen) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul (rec x) y)))
-      (send (cat (gen) (mul (rec x) y)))))
-  (label 245)
-  (parent 184)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x) (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul y (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x) (rec x))))))
-  (label 246)
-  (parent 184)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (0 1)) ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 247)
-  (parent 184)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))))
-  (label 248)
-  (parent 184)
-  (unrealized (0 1) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 249)
-  (parent 184)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul (rec x) y-0)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y-0) (w-0 (mul (rec x) y-0))) (gen) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul (rec x) y-0)))
-      (send (cat (gen) (mul (rec x) y-0)))))
-  (label 250)
-  (parent 185)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y-0 (rec x))))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))))
-  (label 251)
-  (parent 185)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 0) (6 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 252)
-  (parent 185)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)) ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 (exp (gen) w)) (y h))
-  (pen-non-orig x y-0)
-  (precur (6 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 1 resp 2) (exp (gen) y-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))))
-  (label 253)
-  (parent 185)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (rec x)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 5 resp 2) (exp (gen) y-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (rec x)))
-      (send (cat (exp (gen) y-0) (rec x)))))
-  (label 254)
-  (parent 185)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y-1 h-0) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1)))))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 255)
-  (parent 185)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (gen)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (gen) x))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w-0 x)) (gen) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (gen) x)) (send (cat (gen) x))))
-  (label 256)
-  (parent 186)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) x)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (gen) (mul x x)))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x))
-      (send (enc n (exp (gen) (mul x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (gen) (mul x x))) (send (cat (gen) (mul x x)))))
-  (label 257)
-  (parent 186)
-  (unrealized (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (0 1))
-    ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0))))
-    ((send (exp (gen) x-0))))
-  (label 258)
-  (parent 186)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (gen) (mul x y)))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (gen) (mul x y))) (send (cat (gen) (mul x y)))))
-  (label 259)
-  (parent 186)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (gen) (mul x y-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (gen) (mul x y-0))) (send (cat (gen) (mul x y-0))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 260)
-  (parent 186)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn) (w-0 w-1 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (gen) w-0))
-  (deflistener (cat (exp (gen) (mul (rec x) w-0 (rec w-1))) w-1))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w-0 (rec w-1))) w-1))
-    (exp (gen) (mul (rec x) w-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0)))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0)))
-    ((recv (cat (exp (gen) (mul (rec x) w-0 (rec w-1))) w-1))
-      (send (cat (exp (gen) (mul (rec x) w-0 (rec w-1))) w-1))))
-  (label 261)
-  (parent 186)
-  (unrealized (6 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0))))
-  (label 262)
-  (parent 187)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (gen)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (0 1))
-    ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w-0 (mul x (rec x-0))) (x-2 x-0)) (gen) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 263)
-  (parent 188)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-0)) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x-0 x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) x-0 x-0)))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (0 1))
-    ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-1) (0 1))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x-0 x-0))) (send (exp (gen) (mul x-0 x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) x-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) x-0 x-0))))
-    ((send (exp (gen) x))))
-  (label 264)
-  (parent 188)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (0 1))
-    ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 6 init 1) (exp (gen) x-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x)))
-    ((send (exp (gen) x-0))))
-  (label 265)
-  (parent 188)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-1)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-  (defstrand init 1 (x x-0))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (0 1))
-    ((6 0) (5 0)) ((7 0) (0 1)) ((7 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-1))
-      (send (enc n (exp (gen) (mul x x-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x-1))) (send (exp (gen) (mul x x-1))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) x-1))))
-    ((send (exp (gen) x-0))) ((send (exp (gen) x-1))))
-  (label 266)
-  (parent 188)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)) ((6 0) (0 1)) ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) y))))
-    ((send (exp (gen) x-0))))
-  (label 267)
-  (parent 188)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) y-0)))
-  (defstrand init 1 (x x-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (0 1))
-    ((6 0) (5 0)) ((7 1) (0 1)) ((7 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) y-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) y-0))))
-    ((send (exp (gen) x-0))) ((recv h) (send (exp (gen) y-0))))
-  (label 268)
-  (parent 188)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn) (w-0 expr) (x-0 expn)
-    (w-1 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) w-0 x-0 (rec w-1))) w-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener
-      (cat (exp (gen) (mul (rec x) w-0 x-0 (rec w-1))) w-1))
-    (exp (gen) (mul (rec x) w-0 x-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0 x-0)))
-      (send (enc n (exp (gen) (mul w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x-0))) (send (exp (gen) (mul w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) (mul (rec x) w-0 x-0 (rec w-1))) w-1))
-      (send (cat (exp (gen) (mul (rec x) w-0 x-0 (rec w-1))) w-1))))
-  (label 269)
-  (parent 188)
-  (unrealized (7 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (gen)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-0 (mul x (rec y))) (y-0 y)) (gen) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul x (rec y))))
-      (send (cat (exp (gen) y) (mul x (rec y))))))
-  (label 270)
-  (parent 189)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) x)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) x x)))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x))
-      (send (enc n (exp (gen) (mul x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) x x)))
-      (send (cat (exp (gen) y) (mul (rec y) x x)))))
-  (label 271)
-  (parent 189)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) x-0)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)) ((6 0) (0 1)) ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) x-0))))
-    ((send (exp (gen) x-0))))
-  (label 272)
-  (parent 189)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
-  (label 273)
-  (parent 189)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) y-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)) ((6 1) (0 1)) ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) y-0))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 274)
-  (parent 189)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w w-0 expr) (y expn) (w-1 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) y) w-0))
-  (deflistener (cat (exp (gen) (mul (rec x) w-0 y (rec w-1))) w-1))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w-0 y (rec w-1))) w-1))
-    (exp (gen) (mul (rec x) w-0 y)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0 y)))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0)))
-    ((recv (cat (exp (gen) (mul (rec x) w-0 y (rec w-1))) w-1))
-      (send (cat (exp (gen) (mul (rec x) w-0 y (rec w-1))) w-1))))
-  (label 275)
-  (parent 189)
-  (unrealized (6 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (gen)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-0 (mul x (rec y-0))) (y-1 y-0)) (gen) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 276)
-  (parent 190)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) x)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) x x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x))
-      (send (enc n (exp (gen) (mul x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) x x)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) x x))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 277)
-  (parent 190)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1))
-    ((6 1) (5 0)) ((7 0) (0 1)) ((7 0) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) x-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) x-0))))
-    ((recv h) (send (exp (gen) y-0))) ((send (exp (gen) x-0))))
-  (label 278)
-  (parent 190)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)) ((6 1) (0 1)) ((6 1) (5 0)))
-  (absent (y-0 (exp (gen) w)) (y h))
-  (pen-non-orig x y-0)
-  (precur (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 1 resp 2) (exp (gen) y-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 279)
-  (parent 190)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y-0) x))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 6 resp 2) (exp (gen) y-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) y-0) x)) (send (cat (exp (gen) y-0) x)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 280)
-  (parent 190)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-1)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y-1)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) y-1)))
-  (defstrand resp 2 (h h) (y y-0))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1))
-    ((6 1) (5 0)) ((7 1) (0 1)) ((7 1) (5 0)))
-  (absent (y-1 h-0) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-1))
-      (send (enc n (exp (gen) (mul x y-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y-1))) (send (exp (gen) (mul x y-1))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) y-1)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) y-1))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 281)
-  (parent 190)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y expn) (w-0 expr)
-    (y-0 expn) (w-1 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) (mul (rec x) w-0 y-0 (rec w-1))) w-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener
-      (cat (exp (gen) (mul (rec x) w-0 y-0 (rec w-1))) w-1))
-    (exp (gen) (mul (rec x) w-0 y-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0 y-0)))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) (mul (rec x) w-0 y-0 (rec w-1))) w-1))
-      (send (cat (exp (gen) (mul (rec x) w-0 y-0 (rec w-1))) w-1))))
-  (label 282)
-  (parent 190)
-  (unrealized (7 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (gen) (rec x)))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (precur (5 0) (4 0))
-  (operation nonce-test (contracted (x-0 x) (w (rec x))) (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x)))))
-  (label 283)
-  (parent 203)
-  (unrealized (0 1) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (gen) (mul w (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (x w) (y (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (precur (5 0) (4 0))
-  (operation nonce-test (added-absence x w) w (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (gen) (mul w (rec x))))
-      (send (cat (gen) (mul w (rec x))))))
-  (label 284)
-  (parent 203)
-  (unrealized (0 1) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (gen) w))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 1) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (precur (5 0) (4 0))
-  (operation nonce-test (added-listener x) (mul x w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (gen) w)) (send (cat (gen) w))) ((recv x) (send x)))
-  (label 285)
-  (parent 203)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (w (mul (rec x) (rec x))) (x-0 x))
-    (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x))))))
-  (label 286)
-  (parent 204)
-  (unrealized (0 1) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) x) (mul w (rec x) (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (x w) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w) w (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (exp (gen) x) (mul w (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w (rec x) (rec x))))))
-  (label 287)
-  (parent 204)
-  (unrealized (0 1) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x x)))
-  (deflistener (cat (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) x) w))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 1) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w x x) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x)))
-      (send (enc n (exp (gen) (mul w x x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) (mul w x x))))
-    ((recv (cat (gen) (mul w x x))) (send (cat (gen) (mul w x x))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w)))
-    ((recv x) (send x)))
-  (label 288)
-  (parent 204)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 0) (4 0)) ((6 0) (5 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w (mul (rec x) (rec x-0))) (x-2 x-0)) (one)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 289)
-  (parent 205)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 0) (4 0)) ((6 0) (5 0)))
-  (absent (x-0 (mul w x)) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (5 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul w x)) (mul w x) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x (rec x-0))))
-      (send (enc n (exp (gen) (mul w x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (gen) (mul w x))) (send (cat (gen) (mul w x))))
-    ((recv (cat (exp (gen) x) (mul w (rec x-0))))
-      (send (cat (exp (gen) x) (mul w (rec x-0)))))
-    ((send (exp (gen) x))))
-  (label 290)
-  (parent 205)
-  (unrealized (0 1) (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 0) (4 0)) ((6 0) (5 0)))
-  (absent (x-0 (mul x w)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w)) (mul x w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 291)
-  (parent 205)
-  (unrealized (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) y) (mul (rec x) (rec y))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w (mul (rec x) (rec y))) (y-0 y)) (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) y) (mul (rec x) (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) (rec y))))))
-  (label 292)
-  (parent 206)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (x (mul w y)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul w y)) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))))
-  (label 293)
-  (parent 206)
-  (unrealized (0 1) (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul w (rec y))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (mul x w)) (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x w)) (mul x w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul w (rec y))))
-      (send (cat (exp (gen) y) (mul w (rec y))))))
-  (label 294)
-  (parent 206)
-  (unrealized (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 1) (4 0)) ((6 1) (5 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w (mul (rec x) (rec y-0))) (y-1 y-0)) (one)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 295)
-  (parent 207)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 1) (4 0)) ((6 1) (5 0)))
-  (absent (x (mul w y-0)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul w y-0)) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (gen) (mul w y-0))) (send (cat (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 296)
-  (parent 207)
-  (unrealized (0 1) (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 1) (4 0)) ((6 1) (5 0)))
-  (absent (y-0 (mul x w)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w)) (mul x w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) y-0) (mul w (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 297)
-  (parent 207)
-  (unrealized (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (precedes ((0 2) (1 2)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul w x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y)))))
-  (label 298)
-  (parent 208)
-  (unrealized)
-  (shape)
-  (maps ((0 1) ((n n) (hx (gen)) (hy (exp (gen) w)) (x x) (y y))))
-  (origs (n (0 2))))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul (rec x) x-0)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w (mul (rec x) x-0))) (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul (rec x) x-0)))
-      (send (cat (gen) (mul (rec x) x-0)))))
-  (label 299)
-  (parent 209)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (gen) (mul w (rec x-0))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (x-0 (mul (rec x) w)) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w))
-    (mul (rec x) w) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w (rec x-0))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w)))
-      (send (cat (exp (gen) x) (mul (rec x) w)))) ((send (exp (gen) x)))
-    ((recv (cat (gen) (mul w (rec x-0))))
-      (send (cat (gen) (mul w (rec x-0))))))
-  (label 300)
-  (parent 209)
-  (unrealized (0 1) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w x-0)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (x-0 (mul x w)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w)) (mul x w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0)))
-      (send (enc n (exp (gen) (mul x w x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul w x-0))) (send (cat (gen) (mul w x-0)))))
-  (label 301)
-  (parent 209)
-  (unrealized (3 0) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w (mul x (rec x-0) (rec x-0))) (x-2 x-0)) (one)
-    (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))))
-  (label 302)
-  (parent 210)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x x x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w x x)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x) (mul w x-0)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (x-0 (mul w x x)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul w x x)) (mul w x x)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x x-0)))
-      (send (enc n (exp (gen) (mul w x x x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x x x-0)))
-      (send (exp (gen) (mul w x x x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w x x)))
-      (send (cat (exp (gen) x-0) (mul w x x)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x) (mul w x-0)))
-      (send (cat (exp (gen) x) (mul w x-0)))))
-  (label 303)
-  (parent 210)
-  (unrealized (0 1) (3 0) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (x-0 (mul (rec x) w)) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w))
-    (mul (rec x) w) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w (rec x-0))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w)))
-      (send (cat (exp (gen) x) (mul (rec x) w)))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0))))))
-  (label 304)
-  (parent 210)
-  (unrealized (0 1) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (rec x-0)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-1 x-0) (w (rec x-0))) (one)
-    (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (rec x-0)))
-      (send (cat (exp (gen) x) (rec x-0)))))
-  (label 305)
-  (parent 211)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) w))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (x-0 w) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 w) w (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x (rec x-0))))
-      (send (enc n (exp (gen) (mul w x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w)))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (mul w (rec x-0))))
-      (send (cat (exp (gen) x) (mul w (rec x-0))))))
-  (label 306)
-  (parent 211)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) w))
-  (deflistener x)
-  (precedes ((0 0) (6 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0)))
-      (send (enc n (exp (gen) (mul x w x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((recv x) (send x)))
-  (label 307)
-  (parent 211)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (6 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-2 x) (x-3 x-0) (w (mul (rec x) x-0 (rec x-1)))
-      (x-4 x-1)) (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 308)
-  (parent 212)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 (rec x-1)))) (x x-1))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-1))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (6 0)))
-  (absent (x-1 (mul (rec x) w x-0)) (y (gen)))
-  (pen-non-orig y x-1)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-1 (mul (rec x) w x-0))
-    (mul (rec x) w x-0) (4 0))
-  (traces
-    ((send (exp (gen) x-1)) (recv (exp (gen) (mul w x-0 (rec x-1))))
-      (send (enc n (exp (gen) (mul w x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) (mul w x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-1))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-1)))))
-    ((send (exp (gen) x-0))))
-  (label 309)
-  (parent 212)
-  (unrealized (0 1) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 x-1))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w x-0 x-1)))
-  (deflistener (cat (exp (gen) x-1) (mul x w x-0)))
-  (defstrand init 1 (x x-1))
-  (deflistener (cat (exp (gen) x-0) (mul w x-1)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (6 0)))
-  (absent (x-1 (mul x w x-0)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-1 (mul x w x-0)) (mul x w x-0)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 x-1)))
-      (send (enc n (exp (gen) (mul x w x-0 x-1)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w x-0 x-1)))
-      (send (exp (gen) (mul x w x-0 x-1))))
-    ((recv (cat (exp (gen) x-1) (mul x w x-0)))
-      (send (cat (exp (gen) x-1) (mul x w x-0))))
-    ((send (exp (gen) x-1)))
-    ((recv (cat (exp (gen) x-0) (mul w x-1)))
-      (send (cat (exp (gen) x-0) (mul w x-1))))
-    ((send (exp (gen) x-0))))
-  (label 310)
-  (parent 212)
-  (unrealized (0 1) (3 0) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn) (w expr) (x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (6 0)))
-  (absent (x-1 (mul x (rec x-0) w)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-1 (mul x (rec x-0) w))
-    (mul x (rec x-0) w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul w (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul w (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 311)
-  (parent 212)
-  (unrealized (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 0) (4 0)) ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (4 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w (mul (rec x) x-0 (rec y))) (y-0 y))
-    (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))))
-  (label 312)
-  (parent 213)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w y)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w (rec x-0))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 0) (4 0)) ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (x-0 (mul (rec x) w y)) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w y))
-    (mul (rec x) w y) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w y (rec x-0))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w y)))
-      (send (cat (exp (gen) x) (mul (rec x) w y))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul w (rec x-0))))
-      (send (cat (exp (gen) y) (mul w (rec x-0))))))
-  (label 313)
-  (parent 213)
-  (unrealized (0 1) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w x-0)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 0) (4 0)) ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (x-0 (mul x w y)) (y (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (4 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w y)) (mul x w y)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y x-0)))
-      (send (enc n (exp (gen) (mul x w y x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y x-0)))
-      (send (exp (gen) (mul x w y x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w y)))
-      (send (cat (exp (gen) x-0) (mul x w y)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w x-0)))
-      (send (cat (exp (gen) y) (mul w x-0)))))
-  (label 314)
-  (parent 213)
-  (unrealized (0 1) (3 0) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w (rec y))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 0) (4 0)) ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (mul x (rec x-0) w)) (y (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (4 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x (rec x-0) w))
-    (mul x (rec x-0) w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w (rec y))))
-      (send (cat (exp (gen) y) (mul w (rec y))))))
-  (label 315)
-  (parent 213)
-  (unrealized (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (6 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w (mul (rec x) x-0 (rec y-0)))
-      (y-1 y-0)) (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 316)
-  (parent 214)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x expn) (w expr) (y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w y-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (6 0)))
-  (absent (x-0 (mul (rec x) w y-0)) (y-0 h) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w y-0))
-    (mul (rec x) w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w y-0 (rec x-0))))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w y-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w y-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x-0))))
-      (send (cat (exp (gen) y-0) (mul w (rec x-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 317)
-  (parent 214)
-  (unrealized (0 1) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x expn) (w expr) (y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul w x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (6 0)))
-  (absent (x-0 (mul x w y-0)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w y-0)) (mul x w y-0)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 x-0)))
-      (send (enc n (exp (gen) (mul x w y-0 x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y-0 x-0)))
-      (send (exp (gen) (mul x w y-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w y-0)))
-      (send (cat (exp (gen) x-0) (mul x w y-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul w x-0)))
-      (send (cat (exp (gen) y-0) (mul w x-0))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 318)
-  (parent 214)
-  (unrealized (0 1) (3 0) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x x-0 expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (6 0)))
-  (absent (y-0 (mul x (rec x-0) w)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x (rec x-0) w))
-    (mul x (rec x-0) w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 319)
-  (parent 214)
-  (unrealized (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (gen) (mul (rec x) y)))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul (rec x) y)))
-    (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (gen) (mul (rec x) y)))
-      (send (cat (gen) (mul (rec x) y)))))
-  (label 320)
-  (parent 215)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (deflistener (cat (gen) (mul w (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (x (mul (rec y) w)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w))
-    (mul (rec y) w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w)))
-      (send (cat (exp (gen) y) (mul (rec y) w))))
-    ((recv (cat (gen) (mul w (rec x))))
-      (send (cat (gen) (mul w (rec x))))))
-  (label 321)
-  (parent 215)
-  (unrealized (0 1) (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (mul x w)) (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x w)) (mul x w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
-  (label 322)
-  (parent 215)
-  (unrealized (3 0) (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) x) (mul y (rec x) (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (y-0 y) (w (mul y (rec x) (rec x))) (x-0 x)) (one)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) x) (mul y (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x) (rec x))))))
-  (label 323)
-  (parent 216)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x x y)))
-  (deflistener (cat (exp (gen) y) (mul w x x)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (mul w x x)) (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul w x x)) (mul w x x) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y)))
-      (send (enc n (exp (gen) (mul w x x y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x x y))) (send (exp (gen) (mul w x x y))))
-    ((recv (cat (exp (gen) y) (mul w x x)))
-      (send (cat (exp (gen) y) (mul w x x))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))))
-  (label 324)
-  (parent 216)
-  (unrealized (0 1) (3 0) (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (deflistener (cat (exp (gen) x) (mul w (rec x) (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (x (mul (rec y) w)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w))
-    (mul (rec y) w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w)))
-      (send (cat (exp (gen) y) (mul (rec y) w))))
-    ((recv (cat (exp (gen) x) (mul w (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w (rec x) (rec x))))))
-  (label 325)
-  (parent 216)
-  (unrealized (0 1) (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 0) (4 0)) ((6 0) (5 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (y-0 y) (w (mul (rec x) y (rec x-0))) (x-2 x-0))
-    (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 326)
-  (parent 217)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x)))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 0) (4 0)) ((6 0) (5 0)))
-  (absent (x-0 (mul (rec y) w x)) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (5 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec y) w x))
-    (mul (rec y) w x) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x (rec x-0))))
-      (send (enc n (exp (gen) (mul w x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w x)))
-      (send (cat (exp (gen) y) (mul (rec y) w x))))
-    ((recv (cat (exp (gen) x) (mul w (rec x-0))))
-      (send (cat (exp (gen) x) (mul w (rec x-0)))))
-    ((send (exp (gen) x))))
-  (label 327)
-  (parent 217)
-  (unrealized (0 1) (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w x-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 0) (4 0)) ((6 0) (5 0)))
-  (absent (y (mul x w x-0)) (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x w x-0)) (mul x w x-0)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w x-0 y)))
-      (send (exp (gen) (mul x w x-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w x-0)))
-      (send (cat (exp (gen) y) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0))))
-  (label 328)
-  (parent 217)
-  (unrealized (0 1) (3 0) (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 0) (4 0)) ((6 0) (5 0)))
-  (absent (x-0 (mul x (rec y) w)) (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x (rec y) w))
-    (mul x (rec y) w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 329)
-  (parent 217)
-  (unrealized (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w (rec x))) (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))))
-  (label 330)
-  (parent 218)
-  (unrealized (0 1) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)))
-  (absent (x w) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w) w (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))))
-  (label 331)
-  (parent 218)
-  (unrealized (0 1) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv x) (send x)))
-  (label 332)
-  (parent 218)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (4 0)) ((6 1) (5 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y) (w (mul (rec x) y (rec y-0))) (y-2 y-0))
-    (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 333)
-  (parent 219)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (4 0)) ((6 1) (5 0)))
-  (absent (x (mul (rec y) w y-0)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w y-0))
-    (mul (rec y) w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w y-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 334)
-  (parent 219)
-  (unrealized (0 1) (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y-0))
-  (deflistener (exp (gen) y-0))
-  (deflistener (exp (gen) (mul x w y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (4 0)) ((6 1) (5 0)))
-  (absent (y-0 (mul x w y)) (y h) (y-0 (gen)))
-  (pen-non-orig x y-0)
-  (precur (5 0) (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w y)) (mul x w y)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (gen)) (send (exp (gen) y-0)) (recv (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (exp (gen) (mul x w y y-0)))
-      (send (exp (gen) (mul x w y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w y)))
-      (send (cat (exp (gen) y-0) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 335)
-  (parent 219)
-  (unrealized (0 1) (3 0) (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (4 0)) ((6 1) (5 0)))
-  (absent (y-0 (mul x (rec y) w)) (y-0 h) (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x (rec y) w))
-    (mul x (rec y) w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv (cat (exp (gen) y-0) (mul w (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 336)
-  (parent 219)
-  (unrealized (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul (rec x) y-0)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y-0) (w (mul (rec x) y-0))) (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul (rec x) y-0)))
-      (send (cat (gen) (mul (rec x) y-0)))))
-  (label 337)
-  (parent 220)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y y-0 expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul w (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (x (mul (rec y-0) w)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y-0) w))
-    (mul (rec y-0) w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul w (rec x))))
-      (send (cat (gen) (mul w (rec x))))))
-  (label 338)
-  (parent 220)
-  (unrealized (0 1) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul w y-0)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 (mul x w)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w)) (mul x w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) (mul x w y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w)))
-      (send (cat (exp (gen) y-0) (mul x w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul w y-0))) (send (cat (gen) (mul w y-0)))))
-  (label 339)
-  (parent 220)
-  (unrealized (3 0) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (y-1 y-0) (w (mul y-0 (rec x) (rec x))) (x-0 x)) (one)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y-0 (rec x))))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))))
-  (label 340)
-  (parent 221)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x x y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w x x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w y-0)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 (mul w x x)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul w x x)) (mul w x x)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y-0)))
-      (send (enc n (exp (gen) (mul w x x y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x x y-0)))
-      (send (exp (gen) (mul w x x y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w x x)))
-      (send (cat (exp (gen) y-0) (mul w x x))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w y-0)))
-      (send (cat (exp (gen) x) (mul w y-0)))))
-  (label 341)
-  (parent 221)
-  (unrealized (0 1) (3 0) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y y-0 expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w (rec x) (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (x (mul (rec y-0) w)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y-0) w))
-    (mul (rec y-0) w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w (rec x) (rec x))))))
-  (label 342)
-  (parent 221)
-  (unrealized (0 1) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (6 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (y-1 y-0) (w (mul (rec x) y-0 (rec x-0)))
-      (x-2 x-0)) (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 343)
-  (parent 222)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y y-0 expn) (w expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (6 0)))
-  (absent (x-0 (mul (rec y-0) w x)) (y-0 h) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec y-0) w x))
-    (mul (rec y-0) w x) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x (rec x-0))))
-      (send (enc n (exp (gen) (mul w x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w x)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w x))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w (rec x-0))))
-      (send (cat (exp (gen) x) (mul w (rec x-0)))))
-    ((send (exp (gen) x))))
-  (label 344)
-  (parent 222)
-  (unrealized (0 1) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x expn) (w expr) (x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w x-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul w y-0)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (6 0)))
-  (absent (y-0 (mul x w x-0)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w x-0)) (mul x w x-0)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y-0)))
-      (send (enc n (exp (gen) (mul x w x-0 y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w x-0 y-0)))
-      (send (exp (gen) (mul x w x-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w x-0)))
-      (send (cat (exp (gen) y-0) (mul x w x-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul w y-0)))
-      (send (cat (exp (gen) x-0) (mul w y-0))))
-    ((send (exp (gen) x-0))))
-  (label 345)
-  (parent 222)
-  (unrealized (0 1) (3 0) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (6 0)))
-  (absent (x-0 (mul x (rec y-0) w)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x (rec y-0) w))
-    (mul x (rec y-0) w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 346)
-  (parent 222)
-  (unrealized (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y-0))
-  (deflistener (exp (gen) y-0))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (4 0)) ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 (gen)) (y h))
-  (pen-non-orig x y-0)
-  (precur (6 0) (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y) (w (mul (rec x) y (rec y-0))) (y-2 y-0))
-    (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y-0)) (recv (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))))
-  (label 347)
-  (parent 223)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y-0))
-  (deflistener (exp (gen) y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (4 0)) ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (x (mul (rec y) w y-0)) (y-0 (gen)) (y h))
-  (pen-non-orig y-0 x)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w y-0))
-    (mul (rec y) w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (gen)) (send (exp (gen) y-0)) (recv (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w y-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x))))))
-  (label 348)
-  (parent 223)
-  (unrealized (0 1) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w y)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (4 0)) ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 (mul x w y)) (y (gen)) (y-0 h))
-  (pen-non-orig x y)
-  (precur (6 0) (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w y)) (mul x w y)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y y-0)))
-      (send (exp (gen) (mul x w y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w y)))
-      (send (cat (exp (gen) y-0) (mul x w y))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0)))))
-  (label 349)
-  (parent 223)
-  (unrealized (0 1) (3 0) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y-0))
-  (deflistener (exp (gen) y-0))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec y-0))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (4 0)) ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 (mul x (rec y) w)) (y-0 (gen)) (y h))
-  (pen-non-orig x y-0)
-  (precur (6 0) (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x (rec y) w))
-    (mul x (rec y) w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y-0)) (recv (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w (rec y-0))))))
-  (label 350)
-  (parent 223)
-  (unrealized (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (rec x)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w (rec x))) (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y-0 (rec x))))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (rec x)))
-      (send (cat (exp (gen) y-0) (rec x)))))
-  (label 351)
-  (parent 224)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (x w) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w) w (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x))))))
-  (label 352)
-  (parent 224)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener x)
-  (precedes ((0 0) (6 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) (mul x w y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w)))
-      (send (cat (exp (gen) y-0) (mul x w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv x) (send x)))
-  (label 353)
-  (parent 224)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (y x y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (6 0)))
-  (absent (y-1 h-0) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-2 y-0) (w (mul (rec x) y-0 (rec y-1)))
-      (y-3 y-1)) (one) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1)))))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 354)
-  (parent 225)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (y y-0 expn) (w expr) (y-1 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-1 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y-1)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w y-1)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul w (rec x))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (6 0)))
-  (absent (x (mul (rec y-0) w y-1)) (y-1 h-0) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 y-1 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y-0) w y-1))
-    (mul (rec y-0) w y-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-1 (rec x))))
-      (send (enc n (exp (gen) (mul w y-1)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y-1))) (send (exp (gen) (mul w y-1))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w y-1)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w y-1))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul w (rec x))))
-      (send (cat (exp (gen) y-1) (mul w (rec x)))))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 355)
-  (parent 225)
-  (unrealized (0 1) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (y x expn) (w expr) (y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 y-1))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y-0 y-1)))
-  (deflistener (cat (exp (gen) y-1) (mul x w y-0)))
-  (defstrand resp 2 (h h) (y y-1))
-  (deflistener (cat (exp (gen) y-0) (mul w y-1)))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (6 0)))
-  (absent (y-1 (mul x w y-0)) (y-0 h-0) (y-1 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-1 (mul x w y-0)) (mul x w y-0)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 y-1)))
-      (send (enc n (exp (gen) (mul x w y-0 y-1)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y-0 y-1)))
-      (send (exp (gen) (mul x w y-0 y-1))))
-    ((recv (cat (exp (gen) y-1) (mul x w y-0)))
-      (send (cat (exp (gen) y-1) (mul x w y-0))))
-    ((recv h) (send (exp (gen) y-1)))
-    ((recv (cat (exp (gen) y-0) (mul w y-1)))
-      (send (cat (exp (gen) y-0) (mul w y-1))))
-    ((recv h-0) (send (exp (gen) y-0))))
-  (label 356)
-  (parent 225)
-  (unrealized (0 1) (3 0) (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (y x y-0 expn) (w expr) (y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul w (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (6 0)))
-  (absent (y-1 (mul x (rec y-0) w)) (y-1 h-0) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-1 (mul x (rec y-0) w))
-    (mul x (rec y-0) w) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul w (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul w (rec y-1)))))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 357)
-  (parent 225)
-  (unrealized (4 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1))
-    ((5 1) (4 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (4 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
-  (label 358)
-  (parent 229)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1))
-    ((5 1) (4 0)))
-  (absent (x w) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (4 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))) ((recv x) (send x)))
-  (label 359)
-  (parent 230)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x))))
-    ((recv x) (send x)))
-  (label 360)
-  (parent 233)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul (rec x) (rec x)) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 361)
-  (parent 234)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (gen)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (precedes ((0 2) (1 2)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y))))))
-  (label 362)
-  (parent 238)
-  (unrealized)
-  (shape)
-  (maps ((0 1) ((n n) (hx (exp (gen) w)) (hy (gen)) (x x) (y y))))
-  (origs (n (0 2))))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (rec x)))
-      (send (cat (exp (gen) x-0) (rec x)))) ((recv x) (send x)))
-  (label 363)
-  (parent 241)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
-  (label 364)
-  (parent 248)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (rec x)))
-      (send (cat (exp (gen) y-0) (rec x)))) ((recv x) (send x)))
-  (label 365)
-  (parent 254)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) x)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (gen) (mul x x)))
-  (deflistener x)
-  (precedes ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x x) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x))
-      (send (enc n (exp (gen) (mul x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (gen) (mul x x))) (send (cat (gen) (mul x x))))
-    ((recv x) (send x)))
-  (label 366)
-  (parent 257)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (gen) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w-1 (mul x w-0)) (w-2 w-0))
-    (gen) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0))))
-  (label 367)
-  (parent 261)
-  (unrealized (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x)))
-  (deflistener (cat (gen) (mul w-0 x x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x)))
-      (send (enc n (exp (gen) (mul w-0 x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x))) (send (exp (gen) (mul w-0 x x))))
-    ((recv (cat (gen) (mul w-0 x x))) (send (cat (gen) (mul w-0 x x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0))))
-  (label 368)
-  (parent 261)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0)))
-  (deflistener (cat (gen) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 0) (5 0)) ((7 0) (6 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0)))
-      (send (exp (gen) (mul x w-0 x-0))))
-    ((recv (cat (gen) (mul x w-0 x-0)))
-      (send (cat (gen) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0)))
-    ((send (exp (gen) x-0))))
-  (label 369)
-  (parent 261)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y)))
-  (deflistener (cat (gen) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) y) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 1 resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y))) (send (exp (gen) (mul x w-0 y))))
-    ((recv (cat (gen) (mul x w-0 y))) (send (cat (gen) (mul x w-0 y))))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0))))
-  (label 370)
-  (parent 261)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)) ((7 1) (6 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (gen) (mul x w-0 y-0)))
-      (send (cat (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 371)
-  (parent 261)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((2 1) (1 2)) ((3 1) (2 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0))))
-  (label 372)
-  (parent 262)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w-1 (mul x (rec x-0) w-0)) (x-2 x-0) (w-2 w-0))
-    (gen) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0))))
-  (label 373)
-  (parent 269)
-  (unrealized (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x-0 x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0 x-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 8 0 init 1) (exp (gen) x-1) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul w-0 x-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x-0 x-0)))
-      (send (exp (gen) (mul w-0 x-0 x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0 x-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0 x-0 x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0))))
-  (label 374)
-  (parent 269)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 8 6 init 1) (exp (gen) x-1) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0)))
-      (send (exp (gen) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0)))
-      (send (cat (exp (gen) x-0) (mul x w-0)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0))))
-  (label 375)
-  (parent 269)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn) (w-0 expr) (x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0 x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) w-0))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-1)))
-      (send (enc n (exp (gen) (mul x w-0 x-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-1)))
-      (send (exp (gen) (mul x w-0 x-1))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0 x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0 x-1))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) w-0)) (send (cat (exp (gen) x-1) w-0)))
-    ((send (exp (gen) x-1))))
-  (label 376)
-  (parent 269)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x x-0 expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0 y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (7 0))
-    ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 8 1 resp 2) (exp (gen) y-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y))) (send (exp (gen) (mul x w-0 y))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0 y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0 y))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0))))
-  (label 377)
-  (parent 269)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x x-0 expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0 y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0 y-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0 y-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 378)
-  (parent 269)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0)))
-  (deflistener (cat (gen) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-1 (mul x (rec y) w-0)) (y-0 y) (w-2 w-0))
-    (gen) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0))))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0))))
-  (label 379)
-  (parent 275)
-  (unrealized (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0 x x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x)))
-      (send (enc n (exp (gen) (mul w-0 x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x))) (send (exp (gen) (mul w-0 x x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0 x x)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0 x x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0))))
-  (label 380)
-  (parent 275)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (6 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0)))
-      (send (exp (gen) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0 x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0)))
-    ((send (exp (gen) x-0))))
-  (label 381)
-  (parent 275)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 1 resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y))) (send (exp (gen) (mul x w-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w-0)))
-      (send (cat (exp (gen) y) (mul x w-0))))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0))))
-  (label 382)
-  (parent 275)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (6 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0 y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 383)
-  (parent 275)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-1 (mul x (rec y-0) w-0)) (y-1 y-0) (w-2 w-0))
-    (gen) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0))))
-  (label 384)
-  (parent 282)
-  (unrealized (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0 x x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 8 0 init 1) (exp (gen) x-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x)))
-      (send (enc n (exp (gen) (mul w-0 x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x))) (send (exp (gen) (mul w-0 x x))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0 x x)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0 x x))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0))))
-  (label 385)
-  (parent 282)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w-0 x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0)))
-      (send (exp (gen) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w-0 x-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w-0 x-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0)))
-    ((send (exp (gen) x-0))))
-  (label 386)
-  (parent 282)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0 y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (7 0))
-    ((7 1) (0 1)))
-  (absent (y-0 (exp (gen) w)) (y h))
-  (pen-non-orig x y-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 8 1 resp 2) (exp (gen) y-1) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0 y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0 y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0))))
-  (label 387)
-  (parent 282)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 8 6 resp 2) (exp (gen) y-1) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0)))
-      (send (cat (exp (gen) y-0) (mul x w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0))))
-  (label 388)
-  (parent 282)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x y-0 expn) (w-0 expr)
-    (y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-1)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w-0 y-1)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) w-0))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (y-1 h-0) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-1)))
-      (send (enc n (exp (gen) (mul x w-0 y-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-1)))
-      (send (exp (gen) (mul x w-0 y-1))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w-0 y-1)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w-0 y-1))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) w-0)) (send (cat (exp (gen) y-1) w-0)))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 389)
-  (parent 282)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (gen) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (precur (5 0) (4 0))
-  (operation nonce-test (added-listener x) (rec x) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x))))
-    ((recv x) (send x)))
-  (label 390)
-  (parent 283)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (gen) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (x w) (y (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (precur (5 0) (4 0))
-  (operation nonce-test (added-listener x) (mul w (rec x)) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (gen) (mul w (rec x))))
-      (send (cat (gen) (mul w (rec x))))) ((recv x) (send x)))
-  (label 391)
-  (parent 284)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul (rec x) (rec x)) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 392)
-  (parent 286)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) x) (mul w (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (x w) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x) (rec x))
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (exp (gen) x) (mul w (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 393)
-  (parent 287)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (defstrand init 1 (x x))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 0) (4 0)) ((6 0) (5 0)) ((7 1) (5 0)))
-  (absent (x-0 (mul w x)) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (5 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x (rec x-0))))
-      (send (enc n (exp (gen) (mul w x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (gen) (mul w x))) (send (cat (gen) (mul w x))))
-    ((recv (cat (exp (gen) x) (mul w (rec x-0))))
-      (send (cat (exp (gen) x) (mul w (rec x-0)))))
-    ((send (exp (gen) x))) ((recv x-0) (send x-0)))
-  (label 394)
-  (parent 290)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 0) (4 0)) ((6 0) (7 0)) ((7 1) (5 0)))
-  (absent (x-0 (mul x w)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-0)))))
-    ((send (exp (gen) x-0))) ((recv x-0) (send x-0)))
-  (label 395)
-  (parent 291)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (x (mul w y)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))) ((recv x) (send x)))
-  (label 396)
-  (parent 293)
-  (unrealized (4 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul w (rec y))))
-  (deflistener y)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (y (mul x w)) (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w (rec y)) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul w (rec y))))
-      (send (cat (exp (gen) y) (mul w (rec y))))) ((recv y) (send y)))
-  (label 397)
-  (parent 294)
-  (unrealized (4 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 1) (4 0)) ((6 1) (5 0)) ((7 1) (5 0)))
-  (absent (x (mul w y-0)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (gen) (mul w y-0))) (send (cat (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv x) (send x)))
-  (label 398)
-  (parent 296)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener y-0)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (0 1))
-    ((6 1) (4 0)) ((6 1) (7 0)) ((7 1) (5 0)))
-  (absent (y-0 (mul x w)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w (rec y-0)) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) y-0) (mul w (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv y-0) (send y-0)))
-  (label 399)
-  (parent 297)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (gen) (mul w (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x-0 (mul (rec x) w)) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (6 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w (rec x-0))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w)))
-      (send (cat (exp (gen) x) (mul (rec x) w)))) ((send (exp (gen) x)))
-    ((recv (cat (gen) (mul w (rec x-0))))
-      (send (cat (gen) (mul w (rec x-0))))) ((recv x-0) (send x-0)))
-  (label 400)
-  (parent 300)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (7 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x-0 (mul x w)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0)))
-      (send (enc n (exp (gen) (mul x w x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul w x-0))) (send (cat (gen) (mul w x-0))))
-    ((recv x-0) (send x-0)))
-  (label 401)
-  (parent 301)
-  (unrealized (3 0) (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x x x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w x x)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x) (mul w x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (7 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x-0 (mul w x x)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x x-0)))
-      (send (enc n (exp (gen) (mul w x x x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x x x-0)))
-      (send (exp (gen) (mul w x x x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w x x)))
-      (send (cat (exp (gen) x-0) (mul w x x)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x) (mul w x-0)))
-      (send (cat (exp (gen) x) (mul w x-0)))) ((recv x-0) (send x-0)))
-  (label 402)
-  (parent 303)
-  (unrealized (3 0) (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x-0 (mul (rec x) w)) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0) (rec x-0))
-    (6 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w (rec x-0))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w)))
-      (send (cat (exp (gen) x) (mul (rec x) w)))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0)))))
-    ((recv x-0) (send x-0)))
-  (label 403)
-  (parent 304)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (rec x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (rec x-0) (6 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (rec x-0)))
-      (send (cat (exp (gen) x) (rec x-0)))) ((recv x-0) (send x-0)))
-  (label 404)
-  (parent 305)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) w))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x-0 w) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (6 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x (rec x-0))))
-      (send (enc n (exp (gen) (mul w x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w)))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (mul w (rec x-0))))
-      (send (cat (exp (gen) x) (mul w (rec x-0)))))
-    ((recv x-0) (send x-0)))
-  (label 405)
-  (parent 306)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 (rec x-1)))) (x x-1))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-1))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-1)
-  (precedes ((0 0) (4 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (6 0))
-    ((8 1) (6 0)))
-  (absent (x-1 (mul (rec x) w x-0)) (y (gen)))
-  (pen-non-orig y x-1)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-1) (mul w (rec x-1)) (6 0))
-  (traces
-    ((send (exp (gen) x-1)) (recv (exp (gen) (mul w x-0 (rec x-1))))
-      (send (enc n (exp (gen) (mul w x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) (mul w x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-1))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-1)))))
-    ((send (exp (gen) x-0))) ((recv x-1) (send x-1)))
-  (label 406)
-  (parent 309)
-  (unrealized (4 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn) (w expr) (x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 x-1))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w x-0 x-1)))
-  (deflistener (cat (exp (gen) x-1) (mul x w x-0)))
-  (defstrand init 1 (x x-1))
-  (deflistener (cat (exp (gen) x-0) (mul w x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener x-1)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (8 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (6 0))
-    ((8 1) (6 0)))
-  (absent (x-1 (mul x w x-0)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-1) (mul w x-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 x-1)))
-      (send (enc n (exp (gen) (mul x w x-0 x-1)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w x-0 x-1)))
-      (send (exp (gen) (mul x w x-0 x-1))))
-    ((recv (cat (exp (gen) x-1) (mul x w x-0)))
-      (send (cat (exp (gen) x-1) (mul x w x-0))))
-    ((send (exp (gen) x-1)))
-    ((recv (cat (exp (gen) x-0) (mul w x-1)))
-      (send (cat (exp (gen) x-0) (mul w x-1)))) ((send (exp (gen) x-0)))
-    ((recv x-1) (send x-1)))
-  (label 407)
-  (parent 310)
-  (unrealized (3 0) (4 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn) (w expr) (x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (deflistener x-1)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (8 0))
-    ((8 1) (6 0)))
-  (absent (x-1 (mul x (rec x-0) w)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-1) (mul w (rec x-1)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul w (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul w (rec x-1)))))
-    ((send (exp (gen) x-1))) ((recv x-1) (send x-1)))
-  (label 408)
-  (parent 311)
-  (unrealized (4 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w y)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 0) (4 0)) ((5 0) (6 0)) ((6 1) (0 1))
-    ((7 1) (6 0)))
-  (absent (x-0 (mul (rec x) w y)) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (6 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w y (rec x-0))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w y)))
-      (send (cat (exp (gen) x) (mul (rec x) w y))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul w (rec x-0))))
-      (send (cat (exp (gen) y) (mul w (rec x-0)))))
-    ((recv x-0) (send x-0)))
-  (label 409)
-  (parent 313)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 0) (4 0)) ((5 0) (7 0)) ((6 1) (0 1))
-    ((7 1) (6 0)))
-  (absent (x-0 (mul x w y)) (y (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (4 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y x-0)))
-      (send (enc n (exp (gen) (mul x w y x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y x-0)))
-      (send (exp (gen) (mul x w y x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w y)))
-      (send (cat (exp (gen) x-0) (mul x w y)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w x-0)))
-      (send (cat (exp (gen) y) (mul w x-0)))) ((recv x-0) (send x-0)))
-  (label 410)
-  (parent 314)
-  (unrealized (3 0) (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w (rec y))))
-  (deflistener y)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 0) (4 0)) ((5 0) (6 0)) ((6 1) (0 1))
-    ((7 1) (6 0)))
-  (absent (y (mul x (rec x-0) w)) (y (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (4 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w (rec y)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w (rec y))))
-      (send (cat (exp (gen) y) (mul w (rec y))))) ((recv y) (send y)))
-  (label 411)
-  (parent 315)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x expn) (w expr) (y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w y-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (6 0))
-    ((8 1) (6 0)))
-  (absent (x-0 (mul (rec x) w y-0)) (y-0 h) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (6 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w y-0 (rec x-0))))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w y-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w y-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x-0))))
-      (send (cat (exp (gen) y-0) (mul w (rec x-0)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv x-0) (send x-0)))
-  (label 412)
-  (parent 317)
-  (unrealized (4 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x expn) (w expr) (y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul w x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (8 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (6 0))
-    ((8 1) (6 0)))
-  (absent (x-0 (mul x w y-0)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 x-0)))
-      (send (enc n (exp (gen) (mul x w y-0 x-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y-0 x-0)))
-      (send (exp (gen) (mul x w y-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w y-0)))
-      (send (cat (exp (gen) x-0) (mul x w y-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul w x-0)))
-      (send (cat (exp (gen) y-0) (mul w x-0))))
-    ((recv h) (send (exp (gen) y-0))) ((recv x-0) (send x-0)))
-  (label 413)
-  (parent 318)
-  (unrealized (3 0) (4 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x x-0 expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener y-0)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (8 0))
-    ((8 1) (6 0)))
-  (absent (y-0 (mul x (rec x-0) w)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w (rec y-0)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv y-0) (send y-0)))
-  (label 414)
-  (parent 319)
-  (unrealized (4 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (deflistener (cat (gen) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (x (mul (rec y) w)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w)))
-      (send (cat (exp (gen) y) (mul (rec y) w))))
-    ((recv (cat (gen) (mul w (rec x))))
-      (send (cat (gen) (mul w (rec x))))) ((recv x) (send x)))
-  (label 415)
-  (parent 321)
-  (unrealized (4 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (y (mul x w)) (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv y) (send y)))
-  (label 416)
-  (parent 322)
-  (unrealized (3 0) (4 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x x y)))
-  (deflistener (cat (exp (gen) y) (mul w x x)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (y (mul w x x)) (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y)))
-      (send (enc n (exp (gen) (mul w x x y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x x y))) (send (exp (gen) (mul w x x y))))
-    ((recv (cat (exp (gen) y) (mul w x x)))
-      (send (cat (exp (gen) y) (mul w x x))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))) ((recv y) (send y)))
-  (label 417)
-  (parent 324)
-  (unrealized (3 0) (4 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (deflistener (cat (exp (gen) x) (mul w (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (x (mul (rec y) w)) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x) (rec x))
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w)))
-      (send (cat (exp (gen) y) (mul (rec y) w))))
-    ((recv (cat (exp (gen) x) (mul w (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 418)
-  (parent 325)
-  (unrealized (4 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x)))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (defstrand init 1 (x x))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 0) (4 0)) ((6 0) (5 0))
-    ((7 1) (5 0)))
-  (absent (x-0 (mul (rec y) w x)) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (5 0) (4 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x (rec x-0))))
-      (send (enc n (exp (gen) (mul w x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w x)))
-      (send (cat (exp (gen) y) (mul (rec y) w x))))
-    ((recv (cat (exp (gen) x) (mul w (rec x-0))))
-      (send (cat (exp (gen) x) (mul w (rec x-0)))))
-    ((send (exp (gen) x))) ((recv x-0) (send x-0)))
-  (label 419)
-  (parent 327)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w x-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener y)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 0) (4 0)) ((6 0) (5 0))
-    ((7 1) (5 0)))
-  (absent (y (mul x w x-0)) (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w x-0 y)))
-      (send (exp (gen) (mul x w x-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w x-0)))
-      (send (cat (exp (gen) y) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0)))
-    ((recv y) (send y)))
-  (label 420)
-  (parent 328)
-  (unrealized (3 0) (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 0) (4 0)) ((6 0) (7 0))
-    ((7 1) (5 0)))
-  (absent (x-0 (mul x (rec y) w)) (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-0)))))
-    ((send (exp (gen) x-0))) ((recv x-0) (send x-0)))
-  (label 421)
-  (parent 329)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
-  (label 422)
-  (parent 330)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (x w) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))) ((recv x) (send x)))
-  (label 423)
-  (parent 331)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (4 0)) ((6 1) (5 0))
-    ((7 1) (5 0)))
-  (absent (x (mul (rec y) w y-0)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w y-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv x) (send x)))
-  (label 424)
-  (parent 334)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y-0))
-  (deflistener (exp (gen) y-0))
-  (deflistener (exp (gen) (mul x w y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (4 0)) ((6 1) (5 0))
-    ((7 1) (5 0)))
-  (absent (y-0 (mul x w y)) (y h) (y-0 (gen)))
-  (pen-non-orig x y-0)
-  (precur (5 0) (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (gen)) (send (exp (gen) y-0)) (recv (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (exp (gen) (mul x w y y-0)))
-      (send (exp (gen) (mul x w y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w y)))
-      (send (cat (exp (gen) y-0) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))) ((recv y-0) (send y-0)))
-  (label 425)
-  (parent 335)
-  (unrealized (3 0) (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener y-0)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (0 1)) ((6 1) (4 0)) ((6 1) (7 0))
-    ((7 1) (5 0)))
-  (absent (y-0 (mul x (rec y) w)) (y-0 h) (y (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w (rec y-0)) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv (cat (exp (gen) y-0) (mul w (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv y-0) (send y-0)))
-  (label 426)
-  (parent 336)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y y-0 expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x (mul (rec y-0) w)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul w (rec x))))
-      (send (cat (gen) (mul w (rec x))))) ((recv x) (send x)))
-  (label 427)
-  (parent 338)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (7 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y-0 (mul x w)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) (mul x w y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w)))
-      (send (cat (exp (gen) y-0) (mul x w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul w y-0))) (send (cat (gen) (mul w y-0))))
-    ((recv y-0) (send y-0)))
-  (label 428)
-  (parent 339)
-  (unrealized (3 0) (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x x y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w x x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (7 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y-0 (mul w x x)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y-0)))
-      (send (enc n (exp (gen) (mul w x x y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x x y-0)))
-      (send (exp (gen) (mul w x x y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w x x)))
-      (send (cat (exp (gen) y-0) (mul w x x))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w y-0)))
-      (send (cat (exp (gen) x) (mul w y-0)))) ((recv y-0) (send y-0)))
-  (label 429)
-  (parent 341)
-  (unrealized (3 0) (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y y-0 expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x (mul (rec y-0) w)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x) (rec x))
-    (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 430)
-  (parent 342)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y y-0 expn) (w expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (defstrand init 1 (x x))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (6 0))
-    ((8 1) (6 0)))
-  (absent (x-0 (mul (rec y-0) w x)) (y-0 h) (y (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (6 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x (rec x-0))))
-      (send (enc n (exp (gen) (mul w x)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w x)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w x))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w (rec x-0))))
-      (send (cat (exp (gen) x) (mul w (rec x-0)))))
-    ((send (exp (gen) x))) ((recv x-0) (send x-0)))
-  (label 431)
-  (parent 344)
-  (unrealized (4 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x expn) (w expr) (x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w x-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul w y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener y-0)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (8 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (6 0))
-    ((8 1) (6 0)))
-  (absent (y-0 (mul x w x-0)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y-0)))
-      (send (enc n (exp (gen) (mul x w x-0 y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w x-0 y-0)))
-      (send (exp (gen) (mul x w x-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w x-0)))
-      (send (cat (exp (gen) y-0) (mul x w x-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul w y-0)))
-      (send (cat (exp (gen) x-0) (mul w y-0)))) ((send (exp (gen) x-0)))
-    ((recv y-0) (send y-0)))
-  (label 432)
-  (parent 345)
-  (unrealized (3 0) (4 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-0)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 0) (4 0)) ((7 0) (8 0))
-    ((8 1) (6 0)))
-  (absent (x-0 (mul x (rec y-0) w)) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-0)))))
-    ((send (exp (gen) x-0))) ((recv x-0) (send x-0)))
-  (label 433)
-  (parent 346)
-  (unrealized (4 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y-0))
-  (deflistener (exp (gen) y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (4 0)) ((5 1) (6 0)) ((6 1) (0 1))
-    ((7 1) (6 0)))
-  (absent (x (mul (rec y) w y-0)) (y-0 (gen)) (y h))
-  (pen-non-orig y-0 x)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (gen)) (send (exp (gen) y-0)) (recv (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w y-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x))))) ((recv x) (send x)))
-  (label 434)
-  (parent 348)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w y)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (4 0)) ((5 1) (7 0)) ((6 1) (0 1))
-    ((7 1) (6 0)))
-  (absent (y-0 (mul x w y)) (y (gen)) (y-0 h))
-  (pen-non-orig x y)
-  (precur (6 0) (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y y-0)))
-      (send (exp (gen) (mul x w y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w y)))
-      (send (cat (exp (gen) y-0) (mul x w y))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0)))) ((recv y-0) (send y-0)))
-  (label 435)
-  (parent 349)
-  (unrealized (3 0) (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y-0))
-  (deflistener (exp (gen) y-0))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec y-0))))
-  (deflistener y-0)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 1) (4 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (1 2))
-    ((4 1) (3 0)) ((5 1) (4 0)) ((5 1) (6 0)) ((6 1) (0 1))
-    ((7 1) (6 0)))
-  (absent (y-0 (mul x (rec y) w)) (y-0 (gen)) (y h))
-  (pen-non-orig x y-0)
-  (precur (6 0) (4 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w (rec y-0)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y-0)) (recv (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w (rec y-0)))))
-    ((recv y-0) (send y-0)))
-  (label 436)
-  (parent 350)
-  (unrealized (4 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y-0 (rec x))))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (rec x)))
-      (send (cat (exp (gen) y-0) (rec x)))) ((recv x) (send x)))
-  (label 437)
-  (parent 351)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x w) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x))))) ((recv x) (send x)))
-  (label 438)
-  (parent 352)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (y y-0 expn) (w expr) (y-1 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-1 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul w y-1)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w y-1)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul w (rec x))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (6 0))
-    ((8 1) (6 0)))
-  (absent (x (mul (rec y-0) w y-1)) (y-1 h-0) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y y-0 y-1 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-1 (rec x))))
-      (send (enc n (exp (gen) (mul w y-1)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul w y-1))) (send (exp (gen) (mul w y-1))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w y-1)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w y-1))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul w (rec x))))
-      (send (cat (exp (gen) y-1) (mul w (rec x)))))
-    ((recv h-0) (send (exp (gen) y-1))) ((recv x) (send x)))
-  (label 439)
-  (parent 355)
-  (unrealized (4 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (y x expn) (w expr) (y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 y-1))) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w y-0 y-1)))
-  (deflistener (cat (exp (gen) y-1) (mul x w y-0)))
-  (defstrand resp 2 (h h) (y y-1))
-  (deflistener (cat (exp (gen) y-0) (mul w y-1)))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (deflistener y-1)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (8 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (6 0))
-    ((8 1) (6 0)))
-  (absent (y-1 (mul x w y-0)) (y-0 h-0) (y-1 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-1) (mul w y-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 y-1)))
-      (send (enc n (exp (gen) (mul x w y-0 y-1)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w y-0 y-1)))
-      (send (exp (gen) (mul x w y-0 y-1))))
-    ((recv (cat (exp (gen) y-1) (mul x w y-0)))
-      (send (cat (exp (gen) y-1) (mul x w y-0))))
-    ((recv h) (send (exp (gen) y-1)))
-    ((recv (cat (exp (gen) y-0) (mul w y-1)))
-      (send (cat (exp (gen) y-0) (mul w y-1))))
-    ((recv h-0) (send (exp (gen) y-0))) ((recv y-1) (send y-1)))
-  (label 440)
-  (parent 356)
-  (unrealized (3 0) (4 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (y x y-0 expn) (w expr) (y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w)) (x x))
-  (defstrand resp 3 (n n) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul w (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (deflistener y-1)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((2 1) (1 2)) ((3 1) (1 2)) ((4 1) (3 0)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (4 0)) ((7 1) (8 0))
-    ((8 1) (6 0)))
-  (absent (y-1 (mul x (rec y-0) w)) (y-1 h-0) (y-0 h) (y (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (4 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-1) (mul w (rec y-1)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul w (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul w (rec y-1)))))
-    ((recv h-0) (send (exp (gen) y-1))) ((recv y-1) (send y-1)))
-  (label 441)
-  (parent 357)
-  (unrealized (4 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (gen) (rec x)))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w-0 (rec x))) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x)))))
-  (label 442)
-  (parent 367)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (gen) w-0))
-  (deflistener (cat (gen) (mul w-0 (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)))
-  (absent (x w-0) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w-0) w-0 (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0)))
-    ((recv (cat (gen) (mul w-0 (rec x))))
-      (send (cat (gen) (mul w-0 (rec x))))))
-  (label 443)
-  (parent 367)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (gen) w-0))
-  (deflistener x)
-  (precedes ((0 0) (6 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0))) ((recv x) (send x)))
-  (label 444)
-  (parent 367)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (w-0 (mul (rec x) (rec x))) (x-0 x))
-    (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x))))))
-  (label 445)
-  (parent 368)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (gen) w-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)))
-  (absent (x w-0) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w-0) w-0 (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))))
-  (label 446)
-  (parent 368)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x)))
-  (deflistener (cat (gen) (mul w-0 x x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (deflistener x)
-  (precedes ((0 0) (6 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 x x) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x)))
-      (send (enc n (exp (gen) (mul w-0 x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x))) (send (exp (gen) (mul w-0 x x))))
-    ((recv (cat (gen) (mul w-0 x x))) (send (cat (gen) (mul w-0 x x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0)))
-    ((recv x) (send x)))
-  (label 447)
-  (parent 368)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 0) (5 0)) ((7 0) (6 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w-0 (mul (rec x) (rec x-0))) (x-2 x-0)) (one)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 448)
-  (parent 369)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 0) (5 0)) ((7 0) (6 0)))
-  (absent (x-0 (mul w-0 x)) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul w-0 x)) (mul w-0 x)
-    (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (gen) (mul w-0 x))) (send (cat (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x))))
-  (label 449)
-  (parent 369)
-  (unrealized (0 1) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 0) (5 0)) ((7 0) (6 0)))
-  (absent (x-0 (mul x w-0)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w-0)) (mul x w-0)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 450)
-  (parent 369)
-  (unrealized (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) y) (mul (rec x) (rec y))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-0 (mul (rec x) (rec y))) (y-0 y)) (one)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) y) (mul (rec x) (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) (rec y))))))
-  (label 451)
-  (parent 370)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w w-0 expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (x (mul w-0 y)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul w-0 y)) (mul w-0 y) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (gen) (mul w-0 y))) (send (cat (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y) (mul w-0 (rec x))))))
-  (label 452)
-  (parent 370)
-  (unrealized (0 1) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec y))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (mul x w-0)) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x w-0)) (mul x w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec y))))
-      (send (cat (exp (gen) y) (mul w-0 (rec y))))))
-  (label 453)
-  (parent 370)
-  (unrealized (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)) ((7 1) (6 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-0 (mul (rec x) (rec y-0))) (y-1 y-0)) (one)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 454)
-  (parent 371)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)) ((7 1) (6 0)))
-  (absent (x (mul w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul w-0 y-0)) (mul w-0 y-0)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (gen) (mul w-0 y-0))) (send (cat (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 455)
-  (parent 371)
-  (unrealized (0 1) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)) ((7 1) (6 0)))
-  (absent (y-0 (mul x w-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w-0)) (mul x w-0)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 456)
-  (parent 371)
-  (unrealized (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (exp (gen) x) w-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((2 1) (1 2)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0))))
-  (label 457)
-  (parent 372)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul (rec x) x-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w-0 (mul (rec x) x-0))) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul (rec x) x-0)))
-      (send (cat (gen) (mul (rec x) x-0)))))
-  (label 458)
-  (parent 373)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (gen) (mul w-0 (rec x-0))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (x-0 (mul (rec x) w-0)) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w-0))
-    (mul (rec x) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 (rec x-0))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (gen) (mul w-0 (rec x-0))))
-      (send (cat (gen) (mul w-0 (rec x-0))))))
-  (label 459)
-  (parent 373)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w-0 x-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (x-0 (mul x w-0)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w-0)) (mul x w-0)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0)))
-      (send (exp (gen) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0)))
-      (send (cat (exp (gen) x-0) (mul x w-0)))) ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul w-0 x-0))) (send (cat (gen) (mul w-0 x-0)))))
-  (label 460)
-  (parent 373)
-  (unrealized (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w-0 (mul x (rec x-0) (rec x-0))) (x-2 x-0))
-    (one) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))))
-  (label 461)
-  (parent 374)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 x x)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 x-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (x-0 (mul w-0 x x)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul w-0 x x)) (mul w-0 x x)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x x-0)))
-      (send (enc n (exp (gen) (mul w-0 x x x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x x-0)))
-      (send (exp (gen) (mul w-0 x x x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 x x)))
-      (send (cat (exp (gen) x-0) (mul w-0 x x))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 x-0)))
-      (send (cat (exp (gen) x) (mul w-0 x-0)))))
-  (label 462)
-  (parent 374)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0) (rec x-0))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (x-0 (mul (rec x) w-0)) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w-0))
-    (mul (rec x) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 (rec x-0))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0) (rec x-0))))))
-  (label 463)
-  (parent 374)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (rec x-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-1 x-0) (w-0 (rec x-0))) (one)
-    (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (rec x-0)))
-      (send (cat (exp (gen) x) (rec x-0)))))
-  (label 464)
-  (parent 375)
-  (unrealized (0 1) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (x-0 w-0) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 w-0) w-0 (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0)))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0))))))
-  (label 465)
-  (parent 375)
-  (unrealized (0 1) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (deflistener x)
-  (precedes ((0 0) (7 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0)))
-      (send (exp (gen) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0)))
-      (send (cat (exp (gen) x-0) (mul x w-0)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0)))
-    ((recv x) (send x)))
-  (label 466)
-  (parent 375)
-  (unrealized (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-2 x) (x-3 x-0) (w-0 (mul (rec x) x-0 (rec x-1)))
-      (x-4 x-1)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 467)
-  (parent 376)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 (rec x-1))))
-    (x x-1))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-1))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (x-1 (mul (rec x) w-0 x-0)) (y (exp (gen) w)))
-  (pen-non-orig y x-1)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-1 (mul (rec x) w-0 x-0))
-    (mul (rec x) w-0 x-0) (5 0))
-  (traces
-    ((send (exp (gen) x-1)) (recv (exp (gen) (mul w-0 x-0 (rec x-1))))
-      (send (enc n (exp (gen) (mul w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x-0))) (send (exp (gen) (mul w-0 x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0 x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-1))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-1)))))
-    ((send (exp (gen) x-0))))
-  (label 468)
-  (parent 376)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 x-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0 x-1)))
-  (deflistener (cat (exp (gen) x-1) (mul x w-0 x-0)))
-  (defstrand init 1 (x x-1))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 x-1)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (x-1 (mul x w-0 x-0)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-1 (mul x w-0 x-0))
-    (mul x w-0 x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0 x-1)))
-      (send (enc n (exp (gen) (mul x w-0 x-0 x-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0 x-1)))
-      (send (exp (gen) (mul x w-0 x-0 x-1))))
-    ((recv (cat (exp (gen) x-1) (mul x w-0 x-0)))
-      (send (cat (exp (gen) x-1) (mul x w-0 x-0))))
-    ((send (exp (gen) x-1)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 x-1)))
-      (send (cat (exp (gen) x-0) (mul w-0 x-1))))
-    ((send (exp (gen) x-0))))
-  (label 469)
-  (parent 376)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn) (w-0 expr) (x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (x-1 (mul x (rec x-0) w-0)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-1 (mul x (rec x-0) w-0))
-    (mul x (rec x-0) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul w-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul w-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 470)
-  (parent 376)
-  (unrealized (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (7 0))
-    ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w-0 (mul (rec x) x-0 (rec y)))
-      (y-0 y)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))))
-  (label 471)
-  (parent 377)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0 y)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec x-0))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (7 0))
-    ((7 1) (0 1)))
-  (absent (x-0 (mul (rec x) w-0 y)) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w-0 y))
-    (mul (rec x) w-0 y) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 y (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0 y)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0 y))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) y) (mul w-0 (rec x-0))))))
-  (label 472)
-  (parent 377)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0 y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 x-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (7 0))
-    ((7 1) (0 1)))
-  (absent (x-0 (mul x w-0 y)) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w-0 y)) (mul x w-0 y)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y x-0)))
-      (send (enc n (exp (gen) (mul x w-0 y x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y x-0)))
-      (send (exp (gen) (mul x w-0 y x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0 y)))
-      (send (cat (exp (gen) x-0) (mul x w-0 y))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 x-0)))
-      (send (cat (exp (gen) y) (mul w-0 x-0)))))
-  (label 473)
-  (parent 377)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x x-0 expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec y))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (7 0))
-    ((7 1) (0 1)))
-  (absent (y (mul x (rec x-0) w-0)) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x (rec x-0) w-0))
-    (mul x (rec x-0) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec y))))
-      (send (cat (exp (gen) y) (mul w-0 (rec y))))))
-  (label 474)
-  (parent 377)
-  (unrealized (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w-0 (mul (rec x) x-0 (rec y-0)))
-      (y-1 y-0)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 475)
-  (parent 378)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x-0))))
-    (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0 y-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (x-0 (mul (rec x) w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w-0 y-0))
-    (mul (rec x) w-0 y-0) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 y-0 (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0 y-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0 y-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 476)
-  (parent 378)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0 y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (x-0 (mul x w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w-0 y-0))
-    (mul x w-0 y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0 x-0)))
-      (send (exp (gen) (mul x w-0 y-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0 y-0)))
-      (send (cat (exp (gen) x-0) (mul x w-0 y-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 x-0)))
-      (send (cat (exp (gen) y-0) (mul w-0 x-0))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 477)
-  (parent 378)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x x-0 expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (y-0 (mul x (rec x-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x (rec x-0) w-0))
-    (mul x (rec x-0) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 478)
-  (parent 378)
-  (unrealized (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (gen) (mul (rec x) y)))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-0 y) (w-0 (mul (rec x) y))) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (gen) (mul (rec x) y)))
-      (send (cat (gen) (mul (rec x) y)))))
-  (label 479)
-  (parent 379)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0)))
-  (deflistener (cat (gen) (mul w-0 (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (x (mul (rec y) w-0)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w-0))
-    (mul (rec y) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0))))
-    ((recv (cat (gen) (mul w-0 (rec x))))
-      (send (cat (gen) (mul w-0 (rec x))))))
-  (label 480)
-  (parent 379)
-  (unrealized (0 1) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w-0)))
-  (deflistener (cat (gen) (mul w-0 y)))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (mul x w-0)) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x w-0)) (mul x w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y))) (send (exp (gen) (mul x w-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w-0)))
-      (send (cat (exp (gen) y) (mul x w-0))))
-    ((recv (cat (gen) (mul w-0 y))) (send (cat (gen) (mul w-0 y)))))
-  (label 481)
-  (parent 379)
-  (unrealized (4 0) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) x) (mul y (rec x) (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (y-0 y) (w-0 (mul y (rec x) (rec x))) (x-0 x)) (one)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) x) (mul y (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x) (rec x))))))
-  (label 482)
-  (parent 380)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w w-0 expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x y)))
-  (deflistener (cat (exp (gen) y) (mul w-0 x x)))
-  (deflistener (cat (exp (gen) x) (mul w-0 y)))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (mul w-0 x x)) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul w-0 x x)) (mul w-0 x x)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x y)))
-      (send (enc n (exp (gen) (mul w-0 x x y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x y)))
-      (send (exp (gen) (mul w-0 x x y))))
-    ((recv (cat (exp (gen) y) (mul w-0 x x)))
-      (send (cat (exp (gen) y) (mul w-0 x x))))
-    ((recv (cat (exp (gen) x) (mul w-0 y)))
-      (send (cat (exp (gen) x) (mul w-0 y)))))
-  (label 483)
-  (parent 380)
-  (unrealized (0 1) (4 0) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0)))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (x (mul (rec y) w-0)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w-0))
-    (mul (rec y) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0))))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))))
-  (label 484)
-  (parent 380)
-  (unrealized (0 1) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (6 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (y-0 y) (w-0 (mul (rec x) y (rec x-0)))
-      (x-2 x-0)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 485)
-  (parent 381)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0 x)))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (6 0)))
-  (absent (x-0 (mul (rec y) w-0 x)) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec y) w-0 x))
-    (mul (rec y) w-0 x) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0 x)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0 x))))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x))))
-  (label 486)
-  (parent 381)
-  (unrealized (0 1) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (6 0)))
-  (absent (y (mul x w-0 x-0)) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x w-0 x-0))
-    (mul x w-0 x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 x-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0 y)))
-      (send (exp (gen) (mul x w-0 x-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w-0 x-0)))
-      (send (cat (exp (gen) y) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 y)))
-      (send (cat (exp (gen) x-0) (mul w-0 y))))
-    ((send (exp (gen) x-0))))
-  (label 487)
-  (parent 381)
-  (unrealized (0 1) (4 0) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (6 0)))
-  (absent (x-0 (mul x (rec y) w-0)) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x (rec y) w-0))
-    (mul x (rec y) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 488)
-  (parent 381)
-  (unrealized (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w-0 (rec x))) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))))
-  (label 489)
-  (parent 382)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w w-0 expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) y) w-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (x w-0) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w-0) w-0 (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y) (mul w-0 (rec x))))))
-  (label 490)
-  (parent 382)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) w-0))
-  (deflistener x)
-  (precedes ((0 0) (6 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y))) (send (exp (gen) (mul x w-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w-0)))
-      (send (cat (exp (gen) y) (mul x w-0))))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0)))
-    ((recv x) (send x)))
-  (label 491)
-  (parent 382)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (6 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y) (w-0 (mul (rec x) y (rec y-0)))
-      (y-2 y-0)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 492)
-  (parent 383)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (6 0)))
-  (absent (x (mul (rec y) w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w-0 y-0))
-    (mul (rec y) w-0 y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 493)
-  (parent 383)
-  (unrealized (0 1) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x expn) (w-0 expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul x w-0 y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul w-0 y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (6 0)))
-  (absent (y-0 (mul x w-0 y)) (y h) (y-0 (exp (gen) w)))
-  (pen-non-orig x y-0)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w-0 y)) (mul x w-0 y)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul x w-0 y y-0)))
-      (send (exp (gen) (mul x w-0 y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0 y)))
-      (send (cat (exp (gen) y-0) (mul x w-0 y))))
-    ((recv (cat (exp (gen) y) (mul w-0 y-0)))
-      (send (cat (exp (gen) y) (mul w-0 y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 494)
-  (parent 383)
-  (unrealized (0 1) (4 0) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (6 0)))
-  (absent (y-0 (mul x (rec y) w-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x (rec y) w-0))
-    (mul x (rec y) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 495)
-  (parent 383)
-  (unrealized (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul (rec x) y-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y-0) (w-0 (mul (rec x) y-0))) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul (rec x) y-0)))
-      (send (cat (gen) (mul (rec x) y-0)))))
-  (label 496)
-  (parent 384)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul w-0 (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (x (mul (rec y-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y-0) w-0))
-    (mul (rec y-0) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul w-0 (rec x))))
-      (send (cat (gen) (mul w-0 (rec x))))))
-  (label 497)
-  (parent 384)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul w-0 y-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 (mul x w-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w-0)) (mul x w-0)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0)))
-      (send (cat (exp (gen) y-0) (mul x w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul w-0 y-0))) (send (cat (gen) (mul w-0 y-0)))))
-  (label 498)
-  (parent 384)
-  (unrealized (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (y-1 y-0) (w-0 (mul y-0 (rec x) (rec x))) (x-0 x)) (one)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y-0 (rec x))))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))))
-  (label 499)
-  (parent 385)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 x x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 y-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 (mul w-0 x x)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul w-0 x x)) (mul w-0 x x)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x y-0)))
-      (send (enc n (exp (gen) (mul w-0 x x y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x y-0)))
-      (send (exp (gen) (mul w-0 x x y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 x x)))
-      (send (cat (exp (gen) y-0) (mul w-0 x x))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 y-0)))
-      (send (cat (exp (gen) x) (mul w-0 y-0)))))
-  (label 500)
-  (parent 385)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (x (mul (rec y-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y-0) w-0))
-    (mul (rec y-0) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))))
-  (label 501)
-  (parent 385)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (y-1 y-0) (w-0 (mul (rec x) y-0 (rec x-0)))
-      (x-2 x-0)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 502)
-  (parent 386)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0 x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (x-0 (mul (rec y-0) w-0 x)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec y-0) w-0 x))
-    (mul (rec y-0) w-0 x) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0 x)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0 x))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x))))
-  (label 503)
-  (parent 386)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0 x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 y-0)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (y-0 (mul x w-0 x-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w-0 x-0))
-    (mul x w-0 x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0 y-0)))
-      (send (exp (gen) (mul x w-0 x-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0 x-0)))
-      (send (cat (exp (gen) y-0) (mul x w-0 x-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 y-0)))
-      (send (cat (exp (gen) x-0) (mul w-0 y-0))))
-    ((send (exp (gen) x-0))))
-  (label 504)
-  (parent 386)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (x-0 (mul x (rec y-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x (rec y-0) w-0))
-    (mul x (rec y-0) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 505)
-  (parent 386)
-  (unrealized (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (7 0))
-    ((7 1) (0 1)))
-  (absent (y-0 (exp (gen) w)) (y h))
-  (pen-non-orig x y-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y) (w-0 (mul (rec x) y (rec y-0)))
-      (y-2 y-0)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))))
-  (label 506)
-  (parent 387)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (7 0))
-    ((7 1) (0 1)))
-  (absent (x (mul (rec y) w-0 y-0)) (y-0 (exp (gen) w)) (y h))
-  (pen-non-orig y-0 x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w-0 y-0))
-    (mul (rec y) w-0 y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0 y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x))))))
-  (label 507)
-  (parent 387)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x expn) (w-0 expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0 y)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 y-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (7 0))
-    ((7 1) (0 1)))
-  (absent (y-0 (mul x w-0 y)) (y (exp (gen) w)) (y-0 h))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w-0 y)) (mul x w-0 y)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y y-0)))
-      (send (exp (gen) (mul x w-0 y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0 y)))
-      (send (cat (exp (gen) y-0) (mul x w-0 y))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 y-0)))
-      (send (cat (exp (gen) y) (mul w-0 y-0)))))
-  (label 508)
-  (parent 387)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (7 0))
-    ((7 1) (0 1)))
-  (absent (y-0 (mul x (rec y) w-0)) (y-0 (exp (gen) w)) (y h))
-  (pen-non-orig x y-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x (rec y) w-0))
-    (mul x (rec y) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0))))))
-  (label 509)
-  (parent 387)
-  (unrealized (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (rec x)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w-0 (rec x))) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y-0 (rec x))))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (rec x)))
-      (send (cat (exp (gen) y-0) (rec x)))))
-  (label 510)
-  (parent 388)
-  (unrealized (0 1) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (x w-0) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w-0) w-0 (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x))))))
-  (label 511)
-  (parent 388)
-  (unrealized (0 1) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (deflistener x)
-  (precedes ((0 0) (7 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0)))
-      (send (cat (exp (gen) y-0) (mul x w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv x) (send x)))
-  (label 512)
-  (parent 388)
-  (unrealized (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (y-1 h-0) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-2 y-0) (w-0 (mul (rec x) y-0 (rec y-1)))
-      (y-3 y-1)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1)))))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 513)
-  (parent 389)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y y-0 expn) (w-0 expr)
-    (y-1 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-1 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-1)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0 y-1)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul w-0 (rec x))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (x (mul (rec y-0) w-0 y-1)) (y-1 h-0) (y-0 h)
-    (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 y-1 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y-0) w-0 y-1))
-    (mul (rec y-0) w-0 y-1) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-1 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-1))) (send (exp (gen) (mul w-0 y-1))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0 y-1)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0 y-1))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-1) (mul w-0 (rec x)))))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 514)
-  (parent 389)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x expn) (w-0 expr)
-    (y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 y-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0 y-1)))
-  (deflistener (cat (exp (gen) y-1) (mul x w-0 y-0)))
-  (defstrand resp 2 (h h) (y y-1))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 y-1)))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (y-1 (mul x w-0 y-0)) (y-0 h-0) (y-1 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-1 (mul x w-0 y-0))
-    (mul x w-0 y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 y-1)))
-      (send (enc n (exp (gen) (mul x w-0 y-0 y-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0 y-1)))
-      (send (exp (gen) (mul x w-0 y-0 y-1))))
-    ((recv (cat (exp (gen) y-1) (mul x w-0 y-0)))
-      (send (cat (exp (gen) y-1) (mul x w-0 y-0))))
-    ((recv h) (send (exp (gen) y-1)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 y-1)))
-      (send (cat (exp (gen) y-0) (mul w-0 y-1))))
-    ((recv h-0) (send (exp (gen) y-0))))
-  (label 515)
-  (parent 389)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x y-0 expn) (w-0 expr)
-    (y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul w-0 (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (y-1 (mul x (rec y-0) w-0)) (y-1 h-0) (y-0 h)
-    (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-1 (mul x (rec y-0) w-0))
-    (mul x (rec y-0) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul w-0 (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul w-0 (rec y-1)))))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 516)
-  (parent 389)
-  (unrealized (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (gen) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x))))
-    ((recv x) (send x)))
-  (label 517)
-  (parent 442)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (gen) w-0))
-  (deflistener (cat (gen) (mul w-0 (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x w-0) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0)))
-    ((recv (cat (gen) (mul w-0 (rec x))))
-      (send (cat (gen) (mul w-0 (rec x))))) ((recv x) (send x)))
-  (label 518)
-  (parent 443)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul (rec x) (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 519)
-  (parent 445)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (gen) w-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x w-0) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x) (rec x))
-    (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 520)
-  (parent 446)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 0) (5 0)) ((7 0) (6 0)) ((8 1) (6 0)))
-  (absent (x-0 (mul w-0 x)) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (6 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (gen) (mul w-0 x))) (send (cat (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x))) ((recv x-0) (send x-0)))
-  (label 521)
-  (parent 449)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 0) (5 0)) ((7 0) (8 0)) ((8 1) (6 0)))
-  (absent (x-0 (mul x w-0)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x-0))) ((recv x-0) (send x-0)))
-  (label 522)
-  (parent 450)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w w-0 expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x (mul w-0 y)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (gen) (mul w-0 y))) (send (cat (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y) (mul w-0 (rec x))))) ((recv x) (send x)))
-  (label 523)
-  (parent 452)
-  (unrealized (5 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec y))))
-  (deflistener y)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y (mul x w-0)) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w-0 (rec y)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec y))))
-      (send (cat (exp (gen) y) (mul w-0 (rec y))))) ((recv y) (send y)))
-  (label 524)
-  (parent 453)
-  (unrealized (5 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)) ((7 1) (6 0)) ((8 1) (6 0)))
-  (absent (x (mul w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (gen) (mul w-0 y-0))) (send (cat (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv x) (send x)))
-  (label 525)
-  (parent 455)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)) ((7 1) (8 0)) ((8 1) (6 0)))
-  (absent (y-0 (mul x w-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 (rec y-0)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv y-0) (send y-0)))
-  (label 526)
-  (parent 456)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (precedes ((0 2) (1 2)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y))))))
-  (label 527)
-  (parent 457)
-  (unrealized)
-  (shape)
-  (maps
-    ((0 1) ((n n) (hx (exp (gen) w)) (hy (exp (gen) w-0)) (x x) (y y))))
-  (origs (n (0 2))))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (gen) (mul w-0 (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x-0 (mul (rec x) w-0)) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 (rec x-0))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (gen) (mul w-0 (rec x-0))))
-      (send (cat (gen) (mul w-0 (rec x-0))))) ((recv x-0) (send x-0)))
-  (label 528)
-  (parent 459)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w-0 x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (8 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x-0 (mul x w-0)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 x-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0)))
-      (send (exp (gen) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0)))
-      (send (cat (exp (gen) x-0) (mul x w-0)))) ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul w-0 x-0))) (send (cat (gen) (mul w-0 x-0))))
-    ((recv x-0) (send x-0)))
-  (label 529)
-  (parent 460)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 x x)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (8 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x-0 (mul w-0 x x)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 x-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x x-0)))
-      (send (enc n (exp (gen) (mul w-0 x x x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x x-0)))
-      (send (exp (gen) (mul w-0 x x x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 x x)))
-      (send (cat (exp (gen) x-0) (mul w-0 x x))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 x-0)))
-      (send (cat (exp (gen) x) (mul w-0 x-0)))) ((recv x-0) (send x-0)))
-  (label 530)
-  (parent 462)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0) (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x-0 (mul (rec x) w-0)) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0)
-    (mul w-0 (rec x-0) (rec x-0)) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 (rec x-0))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0) (rec x-0)))))
-    ((recv x-0) (send x-0)))
-  (label 531)
-  (parent 463)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (rec x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (rec x-0) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (rec x-0)))
-      (send (cat (exp (gen) x) (rec x-0)))) ((recv x-0) (send x-0)))
-  (label 532)
-  (parent 464)
-  (unrealized (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x-0 w-0) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0)))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0)))))
-    ((recv x-0) (send x-0)))
-  (label 533)
-  (parent 465)
-  (unrealized (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 (rec x-1))))
-    (x x-1))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-1))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-1)
-  (precedes ((0 0) (5 0)) ((0 0) (9 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)) ((9 1) (7 0)))
-  (absent (x-1 (mul (rec x) w-0 x-0)) (y (exp (gen) w)))
-  (pen-non-orig y x-1)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-1) (mul w-0 (rec x-1)) (7 0))
-  (traces
-    ((send (exp (gen) x-1)) (recv (exp (gen) (mul w-0 x-0 (rec x-1))))
-      (send (enc n (exp (gen) (mul w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x-0))) (send (exp (gen) (mul w-0 x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0 x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-1))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-1)))))
-    ((send (exp (gen) x-0))) ((recv x-1) (send x-1)))
-  (label 534)
-  (parent 468)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 x-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0 x-1)))
-  (deflistener (cat (exp (gen) x-1) (mul x w-0 x-0)))
-  (defstrand init 1 (x x-1))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener x-1)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (9 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)) ((9 1) (7 0)))
-  (absent (x-1 (mul x w-0 x-0)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-1) (mul w-0 x-1) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0 x-1)))
-      (send (enc n (exp (gen) (mul x w-0 x-0 x-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0 x-1)))
-      (send (exp (gen) (mul x w-0 x-0 x-1))))
-    ((recv (cat (exp (gen) x-1) (mul x w-0 x-0)))
-      (send (cat (exp (gen) x-1) (mul x w-0 x-0))))
-    ((send (exp (gen) x-1)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 x-1)))
-      (send (cat (exp (gen) x-0) (mul w-0 x-1))))
-    ((send (exp (gen) x-0))) ((recv x-1) (send x-1)))
-  (label 535)
-  (parent 469)
-  (unrealized (4 0) (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn) (w-0 expr) (x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (deflistener x-1)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (9 0)) ((9 1) (7 0)))
-  (absent (x-1 (mul x (rec x-0) w-0)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-1) (mul w-0 (rec x-1)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul w-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul w-0 (rec x-1)))))
-    ((send (exp (gen) x-1))) ((recv x-1) (send x-1)))
-  (label 536)
-  (parent 470)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0 y)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (7 0))
-    ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x-0 (mul (rec x) w-0 y)) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 y (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0 y)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0 y))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) y) (mul w-0 (rec x-0)))))
-    ((recv x-0) (send x-0)))
-  (label 537)
-  (parent 472)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0 y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (8 0))
-    ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x-0 (mul x w-0 y)) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 x-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y x-0)))
-      (send (enc n (exp (gen) (mul x w-0 y x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y x-0)))
-      (send (exp (gen) (mul x w-0 y x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0 y)))
-      (send (cat (exp (gen) x-0) (mul x w-0 y))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 x-0)))
-      (send (cat (exp (gen) y) (mul w-0 x-0)))) ((recv x-0) (send x-0)))
-  (label 538)
-  (parent 473)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x x-0 expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec y))))
-  (deflistener y)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (8 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (7 0))
-    ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (y (mul x (rec x-0) w-0)) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w-0 (rec y)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec y))))
-      (send (cat (exp (gen) y) (mul w-0 (rec y))))) ((recv y) (send y)))
-  (label 539)
-  (parent 474)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x-0))))
-    (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0 y-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (9 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)) ((9 1) (7 0)))
-  (absent (x-0 (mul (rec x) w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 y-0 (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0 y-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0 y-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x-0)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv x-0) (send x-0)))
-  (label 540)
-  (parent 476)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0 y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (9 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)) ((9 1) (7 0)))
-  (absent (x-0 (mul x w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 x-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0 x-0)))
-      (send (exp (gen) (mul x w-0 y-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0 y-0)))
-      (send (cat (exp (gen) x-0) (mul x w-0 y-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 x-0)))
-      (send (cat (exp (gen) y-0) (mul w-0 x-0))))
-    ((recv h) (send (exp (gen) y-0))) ((recv x-0) (send x-0)))
-  (label 541)
-  (parent 477)
-  (unrealized (4 0) (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x x-0 expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (9 0)) ((9 1) (7 0)))
-  (absent (y-0 (mul x (rec x-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 (rec y-0)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv y-0) (send y-0)))
-  (label 542)
-  (parent 478)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0)))
-  (deflistener (cat (gen) (mul w-0 (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x (mul (rec y) w-0)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0))))
-    ((recv (cat (gen) (mul w-0 (rec x))))
-      (send (cat (gen) (mul w-0 (rec x))))) ((recv x) (send x)))
-  (label 543)
-  (parent 480)
-  (unrealized (5 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w-0)))
-  (deflistener (cat (gen) (mul w-0 y)))
-  (deflistener y)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y (mul x w-0)) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w-0 y) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y))) (send (exp (gen) (mul x w-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w-0)))
-      (send (cat (exp (gen) y) (mul x w-0))))
-    ((recv (cat (gen) (mul w-0 y))) (send (cat (gen) (mul w-0 y))))
-    ((recv y) (send y)))
-  (label 544)
-  (parent 481)
-  (unrealized (4 0) (5 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w w-0 expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x y)))
-  (deflistener (cat (exp (gen) y) (mul w-0 x x)))
-  (deflistener (cat (exp (gen) x) (mul w-0 y)))
-  (deflistener y)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y (mul w-0 x x)) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w-0 y) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x y)))
-      (send (enc n (exp (gen) (mul w-0 x x y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x y)))
-      (send (exp (gen) (mul w-0 x x y))))
-    ((recv (cat (exp (gen) y) (mul w-0 x x)))
-      (send (cat (exp (gen) y) (mul w-0 x x))))
-    ((recv (cat (exp (gen) x) (mul w-0 y)))
-      (send (cat (exp (gen) x) (mul w-0 y)))) ((recv y) (send y)))
-  (label 545)
-  (parent 483)
-  (unrealized (4 0) (5 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0)))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x (mul (rec y) w-0)) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x) (rec x))
-    (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0))))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 546)
-  (parent 484)
-  (unrealized (5 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0 x)))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (6 0)) ((8 1) (6 0)))
-  (absent (x-0 (mul (rec y) w-0 x)) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (6 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0 x)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0 x))))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x))) ((recv x-0) (send x-0)))
-  (label 547)
-  (parent 486)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 y)))
-  (defstrand init 1 (x x-0))
-  (deflistener y)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (8 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (6 0)) ((8 1) (6 0)))
-  (absent (y (mul x w-0 x-0)) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w-0 y) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 x-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0 y)))
-      (send (exp (gen) (mul x w-0 x-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w-0 x-0)))
-      (send (cat (exp (gen) y) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 y)))
-      (send (cat (exp (gen) x-0) (mul w-0 y)))) ((send (exp (gen) x-0)))
-    ((recv y) (send y)))
-  (label 548)
-  (parent 487)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (8 0)) ((8 1) (6 0)))
-  (absent (x-0 (mul x (rec y) w-0)) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x-0))) ((recv x-0) (send x-0)))
-  (label 549)
-  (parent 488)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
-  (label 550)
-  (parent 489)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w w-0 expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) y) w-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x w-0) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y) (mul w-0 (rec x))))) ((recv x) (send x)))
-  (label 551)
-  (parent 490)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (6 0)) ((8 1) (6 0)))
-  (absent (x (mul (rec y) w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv x) (send x)))
-  (label 552)
-  (parent 493)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x expn) (w-0 expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul x w-0 y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul w-0 y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (8 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (6 0)) ((8 1) (6 0)))
-  (absent (y-0 (mul x w-0 y)) (y h) (y-0 (exp (gen) w)))
-  (pen-non-orig x y-0)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul x w-0 y y-0)))
-      (send (exp (gen) (mul x w-0 y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0 y)))
-      (send (cat (exp (gen) y-0) (mul x w-0 y))))
-    ((recv (cat (exp (gen) y) (mul w-0 y-0)))
-      (send (cat (exp (gen) y) (mul w-0 y-0))))
-    ((recv h) (send (exp (gen) y))) ((recv y-0) (send y-0)))
-  (label 553)
-  (parent 494)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (8 0)) ((8 1) (6 0)))
-  (absent (y-0 (mul x (rec y) w-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 (rec y-0)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv y-0) (send y-0)))
-  (label 554)
-  (parent 495)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul w-0 (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x (mul (rec y-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul w-0 (rec x))))
-      (send (cat (gen) (mul w-0 (rec x))))) ((recv x) (send x)))
-  (label 555)
-  (parent 497)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul w-0 y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (8 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (y-0 (mul x w-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 y-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0)))
-      (send (cat (exp (gen) y-0) (mul x w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul w-0 y-0))) (send (cat (gen) (mul w-0 y-0))))
-    ((recv y-0) (send y-0)))
-  (label 556)
-  (parent 498)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 x x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (8 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (y-0 (mul w-0 x x)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 y-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x y-0)))
-      (send (enc n (exp (gen) (mul w-0 x x y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x y-0)))
-      (send (exp (gen) (mul w-0 x x y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 x x)))
-      (send (cat (exp (gen) y-0) (mul w-0 x x))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 y-0)))
-      (send (cat (exp (gen) x) (mul w-0 y-0)))) ((recv y-0) (send y-0)))
-  (label 557)
-  (parent 500)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x (mul (rec y-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x) (rec x))
-    (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 558)
-  (parent 501)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0 x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (9 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)) ((9 1) (7 0)))
-  (absent (x-0 (mul (rec y-0) w-0 x)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0 x)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0 x))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x))) ((recv x-0) (send x-0)))
-  (label 559)
-  (parent 503)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0 x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (9 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)) ((9 1) (7 0)))
-  (absent (y-0 (mul x w-0 x-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 y-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0 y-0)))
-      (send (exp (gen) (mul x w-0 x-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0 x-0)))
-      (send (cat (exp (gen) y-0) (mul x w-0 x-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 y-0)))
-      (send (cat (exp (gen) x-0) (mul w-0 y-0))))
-    ((send (exp (gen) x-0))) ((recv y-0) (send y-0)))
-  (label 560)
-  (parent 504)
-  (unrealized (4 0) (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (9 0)) ((9 1) (7 0)))
-  (absent (x-0 (mul x (rec y-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x-0))) ((recv x-0) (send x-0)))
-  (label 561)
-  (parent 505)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (7 0))
-    ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x (mul (rec y) w-0 y-0)) (y-0 (exp (gen) w)) (y h))
-  (pen-non-orig y-0 x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0 y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x)))))
-    ((recv x) (send x)))
-  (label 562)
-  (parent 507)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x expn) (w-0 expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0 y)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (8 0))
-    ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (y-0 (mul x w-0 y)) (y (exp (gen) w)) (y-0 h))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 y-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y y-0)))
-      (send (exp (gen) (mul x w-0 y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0 y)))
-      (send (cat (exp (gen) y-0) (mul x w-0 y))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 y-0)))
-      (send (cat (exp (gen) y) (mul w-0 y-0)))) ((recv y-0) (send y-0)))
-  (label 563)
-  (parent 508)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (8 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (7 0))
-    ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (y-0 (mul x (rec y) w-0)) (y-0 (exp (gen) w)) (y h))
-  (pen-non-orig x y-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 (rec y-0)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0)))))
-    ((recv y-0) (send y-0)))
-  (label 564)
-  (parent 509)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y-0 (rec x))))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (rec x)))
-      (send (cat (exp (gen) y-0) (rec x)))) ((recv x) (send x)))
-  (label 565)
-  (parent 510)
-  (unrealized (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x w-0) (y-0 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x)))))
-    ((recv x) (send x)))
-  (label 566)
-  (parent 511)
-  (unrealized (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y y-0 expn) (w-0 expr)
-    (y-1 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-1 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-1)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0 y-1)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul w-0 (rec x))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (9 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)) ((9 1) (7 0)))
-  (absent (x (mul (rec y-0) w-0 y-1)) (y-1 h-0) (y-0 h)
-    (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 y-1 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-1 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-1))) (send (exp (gen) (mul w-0 y-1))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0 y-1)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0 y-1))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-1) (mul w-0 (rec x)))))
-    ((recv h-0) (send (exp (gen) y-1))) ((recv x) (send x)))
-  (label 567)
-  (parent 514)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x expn) (w-0 expr)
-    (y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 y-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0 y-1)))
-  (deflistener (cat (exp (gen) y-1) (mul x w-0 y-0)))
-  (defstrand resp 2 (h h) (y y-1))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 y-1)))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (deflistener y-1)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (9 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)) ((9 1) (7 0)))
-  (absent (y-1 (mul x w-0 y-0)) (y-0 h-0) (y-1 h) (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-1) (mul w-0 y-1) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 y-1)))
-      (send (enc n (exp (gen) (mul x w-0 y-0 y-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0 y-1)))
-      (send (exp (gen) (mul x w-0 y-0 y-1))))
-    ((recv (cat (exp (gen) y-1) (mul x w-0 y-0)))
-      (send (cat (exp (gen) y-1) (mul x w-0 y-0))))
-    ((recv h) (send (exp (gen) y-1)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 y-1)))
-      (send (cat (exp (gen) y-0) (mul w-0 y-1))))
-    ((recv h-0) (send (exp (gen) y-0))) ((recv y-1) (send y-1)))
-  (label 568)
-  (parent 515)
-  (unrealized (4 0) (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x y-0 expn) (w-0 expr)
-    (y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul w-0 (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (deflistener y-1)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (9 0)) ((9 1) (7 0)))
-  (absent (y-1 (mul x (rec y-0) w-0)) (y-1 h-0) (y-0 h)
-    (y (exp (gen) w)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-1) (mul w-0 (rec y-1)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul w-0 (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul w-0 (rec y-1)))))
-    ((recv h-0) (send (exp (gen) y-1))) ((recv y-1) (send y-1)))
-  (label 569)
-  (parent 516)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
+(comment "CPSA 3.5.0")
+(comment "All input read from dh_mim.scm")
+
+(defprotocol dh_mim diffie-hellman
+  (defrole init
+    (vars (x rndx) (y expt) (n text))
+    (trace (send (exp (gen) x)) (recv (exp (gen) y))
+      (send (enc n (exp (gen) (mul x y)))))
+    (uniq-gen x))
+  (defrole resp
+    (vars (y rndx) (x expt) (n text))
+    (trace (recv (exp (gen) x)) (send (exp (gen) y))
+      (recv (enc n (exp (gen) (mul y x)))))
+    (uniq-gen y)
+    (absent (y (exp (gen) x))))
+  (comment "Diffie-hellman key exchange followed by an encryption"))
+
+(defskeleton dh_mim
+  (vars (n text) (x0 y0 expt) (x y rndx))
+  (defstrand init 3 (n n) (x x) (y y0))
+  (defstrand resp 3 (n n) (y y) (x x0))
+  (precedes ((0 2) (1 2)))
+  (absent (y (exp (gen) x0)))
+  (pen-non-orig x y)
+  (uniq-gen x y)
+  (uniq-orig n)
+  (comment "Agreement on the encrypted text only")
+  (traces
+    ((send (exp (gen) x)) (recv (exp (gen) y0))
+      (send (enc n (exp (gen) (mul y0 x)))))
+    ((recv (exp (gen) x0)) (send (exp (gen) y))
+      (recv (enc n (exp (gen) (mul x0 y))))))
+  (label 0)
+  (unrealized)
+  (shape)
+  (maps ((0 1) ((n n) (x0 x0) (y0 y0) (x x) (y y))))
+  (origs (n (0 2))))
 
 (comment "Nothing left to do")
diff --git a/tst/dh_mim2.scm b/tst/dh_mim2.scm
--- a/tst/dh_mim2.scm
+++ b/tst/dh_mim2.scm
@@ -4,82 +4,32 @@
 
 (defprotocol dh_mim diffie-hellman
   (defrole init
-    (vars (x expn) (h base) (n text))
-    (trace (send (exp (gen) x)) (recv h) (send (enc n (exp h x))))
-    (neq (h (gen)))
+    (vars (x rndx) (y expt) (n text))
+    (trace
+     (send (exp (gen) x))
+     (recv (exp (gen) y))
+     (send (enc n (exp (gen) (mul y x)))))
+    (neq (y (one)))
     (uniq-orig n)
     (uniq-gen x))
   (defrole resp
-    (vars (y expn) (h base) (n text))
-    (trace (recv h) (send (exp (gen) y)) (recv (enc n (exp h y))))
-    (neq (h (gen)))
+    (vars (y rndx) (x expt) (n text))
+    (trace
+     (recv (exp (gen) x))
+     (send (exp (gen) y))
+     (recv (enc n (exp (gen) (mul x y)))))
+    (neq (x (one)))
     (uniq-gen y))
   (comment "Diffie-hellman key exchange followed by an encryption"))
 
-(comment
-(defskeleton dh_mim
-  (vars (n text) (hx base) (y x expn))
-  (defstrand init 3 (n n) (h (exp hx (mul (rec y) x))) (x y))
-  (defstrand resp 3 (n n) (h hx) (y x))
-  (precedes ((0 2) (1 2)) ((1 1) (0 1)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation encryption-test (displaced 2 0 init 3)
-    (enc n (exp hx (mul y-0 x-0))) (1 2))
-  (traces
-    ((send (exp (gen) y)) (recv (exp hx (mul (rec y) x)))
-      (send (enc n (exp hx x))))
-    ((recv hx) (send (exp (gen) x)) (recv (enc n (exp hx x)))))
-  (label 1)
-  (parent 0)
-  (unrealized (0 1))
-  (origs (n (0 2)))
-  (comment "empty cohort"))
-)
-
 ;(comment
 (defskeleton dh_mim
-  (vars (n text) (hx hy base) (x y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h hx) (y y))
+  (vars (n text) (x0 y0 expt) (x y rndx))
+  (defstrand init 3 (n n) (y y0) (x x))
+  (defstrand resp 3 (n n) (x x0) (y y))
   (precedes ((0 2) (1 2)))
   (uniq-orig n)
   (pen-non-orig x y)
   (comment "Agreement on the encrypted text only"))
 ;)
 
-(comment
-(defskeleton dh_mim
-  (vars (n text) (x z y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul x z y))) (x y))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul z y y))) (y x))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n))
-)
-
-(comment
-(defskeleton dh_mim
-  (vars (n text) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y y-0))) (x y-0))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul (rec x) y y-0 y-0))) (y x))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)))
-  (pen-non-orig x y-0)
-  (uniq-gen x y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 2 0 init 1) (exp (gen) (mul y x-0))
-    (0 1))
-  (traces
-    ((send (exp (gen) y-0)) (recv (exp (gen) (mul y y-0)))
-      (send (enc n (exp (gen) (mul y y-0 y-0)))))
-    ((recv (exp (gen) (mul (rec x) y y-0 y-0))) (send (exp (gen) x))
-      (recv (enc n (exp (gen) (mul y y-0 y-0))))))
-  (label 3)
-  (parent 1)
-  (seen 3)
-  (unrealized (1 0))
-  (origs (n (0 2)))
-  (comment "3 in cohort - 2 not yet seen"))
-)
diff --git a/tst/dh_mim2.tst b/tst/dh_mim2.tst
--- a/tst/dh_mim2.tst
+++ b/tst/dh_mim2.tst
@@ -1,11257 +1,46 @@
 (herald "Diffie-Hellman protocol, man-in-the-middle attack"
   (algebra diffie-hellman))
 
-(comment "CPSA 3.4.0")
-(comment "All input read from dh_mim2.scm")
-
-(defprotocol dh_mim diffie-hellman
-  (defrole init
-    (vars (x expn) (h base) (n text))
-    (trace (send (exp (gen) x)) (recv h) (send (enc n (exp h x))))
-    (uniq-orig n)
-    (uniq-gen x)
-    (neq (h (gen))))
-  (defrole resp
-    (vars (y expn) (h base) (n text))
-    (trace (recv h) (send (exp (gen) y)) (recv (enc n (exp h y))))
-    (uniq-gen y)
-    (neq (h (gen)))
-    (absent (y h)))
-  (comment "Diffie-hellman key exchange followed by an encryption"))
-
-(defskeleton dh_mim
-  (vars (n text) (hx hy base) (x y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h hx) (y y))
-  (precedes ((0 2) (1 2)))
-  (absent (y hx))
-  (neq (hx (gen)) (hy (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (comment "Agreement on the encrypted text only")
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv hx) (send (exp (gen) y)) (recv (enc n (exp hx y)))))
-  (label 0)
-  (unrealized (1 2))
-  (origs (n (0 2)))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x y expn))
-  (defstrand init 3 (n n) (h (exp hy y)) (x x))
-  (defstrand resp 3 (n n) (h (exp hy x)) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)))
-  (absent (y (exp hy x)))
-  (neq ((exp hy y) (gen)) ((exp hy x) (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation encryption-test (displaced 2 0 init 3) (enc n (exp hx y-0))
-    (1 2))
-  (traces
-    ((send (exp (gen) x)) (recv (exp hy y))
-      (send (enc n (exp hy (mul x y)))))
-    ((recv (exp hy x)) (send (exp (gen) y))
-      (recv (enc n (exp hy (mul x y))))))
-  (label 1)
-  (parent 0)
-  (unrealized (0 1) (1 0))
-  (origs (n (0 2)))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hx hy base) (x y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h hx) (y y))
-  (deflistener (exp hx y))
-  (precedes ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2)))
-  (absent (y hx))
-  (neq (hx (gen)) (hy (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation encryption-test (added-listener (exp hx y))
-    (enc n (exp hx y)) (1 2))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv hx) (send (exp (gen) y)) (recv (enc n (exp hx y))))
-    ((recv (exp hx y)) (send (exp hx y))))
-  (label 2)
-  (parent 0)
-  (unrealized (1 2) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (neq ((exp (gen) y) (gen)) ((exp (gen) x) (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 2 0 init 1) (exp (gen) x-0) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul y x)))))
-    ((recv (exp (gen) x)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x))))))
-  (label 3)
-  (parent 1)
-  (unrealized)
-  (shape)
-  (maps
-    ((0 1) ((n n) (hx (exp (gen) x)) (hy (exp (gen) y)) (x x) (y y))))
-  (origs (n (0 2))))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 0) (1 0)))
-  (absent (y (exp (gen) x-0)))
-  (neq ((exp (gen) (mul (rec x) y x-0)) (gen)) ((exp (gen) x-0) (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0))))) ((send (exp (gen) x-0))))
-  (label 4)
-  (parent 1)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (neq (h (gen)) ((exp (gen) (mul (rec x) y y-0)) (gen))
-    ((exp (gen) y-0) (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 5)
-  (parent 1)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x y expn) (w expr))
-  (defstrand init 3 (n n) (h (exp hy y)) (x x))
-  (defstrand resp 3 (n n) (h (exp hy x)) (y y))
-  (deflistener (cat (exp hy (mul x (rec w))) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y (exp hy x)))
-  (neq ((exp hy y) (gen)) ((exp hy x) (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp hy (mul x (rec w))) w)) (exp hy x) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp hy y))
-      (send (enc n (exp hy (mul x y)))))
-    ((recv (exp hy x)) (send (exp (gen) y))
-      (recv (enc n (exp hy (mul x y)))))
-    ((recv (cat (exp hy (mul x (rec w))) w))
-      (send (cat (exp hy (mul x (rec w))) w))))
-  (label 6)
-  (parent 1)
-  (unrealized (0 1) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hx hy base) (x y expn) (w expr))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h hx) (y y))
-  (deflistener (exp hx y))
-  (deflistener (cat (exp hx (mul y (rec w))) w))
-  (precedes ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2)) ((3 1) (2 0)))
-  (absent (y hx))
-  (neq (hx (gen)) (hy (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp hx (mul y (rec w))) w)) (exp hx y) (2 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv hx) (send (exp (gen) y)) (recv (enc n (exp hx y))))
-    ((recv (exp hx y)) (send (exp hx y)))
-    ((recv (cat (exp hx (mul y (rec w))) w))
-      (send (cat (exp hx (mul y (rec w))) w))))
-  (label 7)
-  (parent 2)
-  (unrealized (1 2) (3 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 0) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (neq ((exp (gen) (mul (rec x) y x-0)) (gen)) ((exp (gen) x-0) (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w))
-    (exp (gen) (mul (rec x) y x-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0))))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w))))
-  (label 8)
-  (parent 4)
-  (unrealized (3 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (neq (h (gen)) ((exp (gen) (mul (rec x) y y-0)) (gen))
-    ((exp (gen) y-0) (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w))
-    (exp (gen) (mul (rec x) y y-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w))))
-  (label 9)
-  (parent 5)
-  (unrealized (3 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y w))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) (mul (rec x) y w)) (gen)) ((exp (gen) w) (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (contracted (hy (exp (gen) (mul (rec x) w))))
-    (gen) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w)))
-      (send (enc n (exp (gen) (mul y w)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w)))))
-    ((recv (cat (gen) w)) (send (cat (gen) w))))
-  (label 10)
-  (parent 6)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y w))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (neq ((exp (gen) (mul y w)) (gen)) ((exp (gen) (mul w x)) (gen)))
-  (pen-non-orig y x)
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y w)))
-      (send (enc n (exp (gen) (mul y w x)))))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w x)))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 11)
-  (parent 6)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y w x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)))
-  (absent (y (exp (gen) (mul w x-0))))
-  (neq ((exp (gen) (mul (rec x) y w x-0)) (gen))
-    ((exp (gen) (mul w x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w x-0)))
-      (send (enc n (exp (gen) (mul y w x-0)))))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w x-0)))))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0))))
-  (label 12)
-  (parent 6)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)))
-  (absent (y-0 h) (y (exp (gen) (mul w y-0))))
-  (neq (h (gen)) ((exp (gen) (mul (rec x) y w y-0)) (gen))
-    ((exp (gen) (mul w y-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w y-0)))
-      (send (enc n (exp (gen) (mul y w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w y-0)))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 13)
-  (parent 6)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2)) ((3 1) (2 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) (hy (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (contracted (hx (exp (gen) w)) (y-0 y) (w (mul w y))) (gen) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
-  (label 14)
-  (parent 7)
-  (unrealized (1 2) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (exp (gen) (mul w x y)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (neq ((exp (gen) (mul w x)) (gen)) (hy (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x y)))))
-    ((recv (exp (gen) (mul w x y))) (send (exp (gen) (mul w x y))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))))
-  (label 15)
-  (parent 7)
-  (unrealized (1 2) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x-0))) (y y))
-  (deflistener (exp (gen) (mul w x-0 y)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 0) (1 0)))
-  (absent (y (exp (gen) (mul w x-0))))
-  (neq ((exp (gen) (mul w x-0)) (gen)) (hy (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x-0 y)))))
-    ((recv (exp (gen) (mul w x-0 y))) (send (exp (gen) (mul w x-0 y))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0))))
-  (label 16)
-  (parent 7)
-  (unrealized (1 2) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2)) ((3 1) (2 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) (hy (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 17)
-  (parent 7)
-  (unrealized (1 2))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w y))) (y y-0))
-  (deflistener (exp (gen) (mul w y y-0)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w y))))
-  (neq (h (gen)) ((exp (gen) (mul w y)) (gen)) (hy (gen)))
-  (pen-non-orig x y-0)
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y y-0)))))
-    ((recv (exp (gen) (mul w y y-0))) (send (exp (gen) (mul w y y-0))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 18)
-  (parent 7)
-  (unrealized (1 2) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul (rec x) y x-0)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 0) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (neq ((exp (gen) (mul (rec x) y x-0)) (gen)) ((exp (gen) x-0) (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (contracted (x-1 x) (y-0 y) (x-2 x-0) (w (mul (rec x) y x-0))) (gen)
-    (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0))))) ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul (rec x) y x-0)))
-      (send (cat (gen) (mul (rec x) y x-0)))))
-  (label 19)
-  (parent 8)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) x)) (y y))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 0) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (neq ((exp (gen) (mul y x (rec x-0))) (gen)) ((exp (gen) x) (gen)))
-  (pen-non-orig y x-0)
-  (precur (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul y x (rec x-0))))
-      (send (enc n (exp (gen) (mul y x)))))
-    ((recv (exp (gen) x)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x))))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))))
-  (label 20)
-  (parent 8)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 0) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (neq ((exp (gen) (mul (rec x) y x-0)) (gen)) ((exp (gen) x-0) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 2 init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0))))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y)))
-      (send (cat (exp (gen) x-0) (mul (rec x) y)))))
-  (label 21)
-  (parent 8)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul (rec x) y x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 0) (1 0))
-    ((3 1) (0 1)) ((4 0) (3 0)))
-  (absent (y (exp (gen) x-0)))
-  (neq ((exp (gen) (mul (rec x) y x-0)) (gen)) ((exp (gen) x-0) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0))))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul (rec x) y x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul (rec x) y x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 22)
-  (parent 8)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 0) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (neq ((exp (gen) x-0) (gen)) ((exp (gen) (mul (rec x) x-0 y)) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0 y)))
-      (send (enc n (exp (gen) (mul x-0 y)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x-0 y))))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0)))
-      (send (cat (exp (gen) y) (mul (rec x) x-0)))))
-  (label 23)
-  (parent 8)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y x-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 0) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y-0 h) (y (exp (gen) x-0)))
-  (neq (h (gen)) ((exp (gen) (mul (rec x) y x-0)) (gen))
-    ((exp (gen) x-0) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0))))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y x-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y x-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 24)
-  (parent 8)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul (rec x) y y-0)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (neq (h (gen)) ((exp (gen) (mul (rec x) y y-0)) (gen))
-    ((exp (gen) y-0) (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y) (y-2 y-0) (w (mul (rec x) y y-0))) (gen)
-    (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul (rec x) y y-0)))
-      (send (cat (gen) (mul (rec x) y y-0)))))
-  (label 25)
-  (parent 9)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul y y-0 (rec x) (rec x))))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (neq (h (gen)) ((exp (gen) (mul y y-0 (rec x))) (gen))
-    ((exp (gen) y-0) (gen)))
-  (pen-non-orig y x)
-  (precur (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y y-0 (rec x))))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul y y-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y y-0 (rec x) (rec x))))))
-  (label 26)
-  (parent 9)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y y-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (3 0)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (neq (h (gen)) ((exp (gen) (mul (rec x) y y-0)) (gen))
-    ((exp (gen) y-0) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y y-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y y-0 (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 27)
-  (parent 9)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y)) (y y-0))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y-0 (exp (gen) y)) (y h))
-  (neq ((exp (gen) y) (gen)) (h (gen))
-    ((exp (gen) (mul (rec x) y y-0)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y)))
-      (send (cat (exp (gen) y-0) (mul (rec x) y)))))
-  (label 28)
-  (parent 9)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (neq (h (gen)) ((exp (gen) (mul (rec x) y y-0)) (gen))
-    ((exp (gen) y-0) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 2 resp 2) (exp (gen) y-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y)))
-      (send (cat (exp (gen) y-0) (mul (rec x) y)))))
-  (label 29)
-  (parent 9)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (x y y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul (rec x) y y-0 (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y-1 h-0) (y-0 h) (y (exp (gen) y-0)))
-  (neq (h-0 (gen)) (h (gen)) ((exp (gen) (mul (rec x) y y-0)) (gen))
-    ((exp (gen) y-0) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul (rec x) y y-0 (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul (rec x) y y-0 (rec y-1)))))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 30)
-  (parent 9)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x)) (y y))
-  (deflistener (cat (gen) x))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y (exp (gen) x)))
-  (neq ((exp (gen) x) (gen)) ((exp (gen) y) (gen)))
-  (pen-non-orig x y)
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (exp (gen) x)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x y)))))
-    ((recv (cat (gen) x)) (send (cat (gen) x))))
-  (label 31)
-  (parent 10)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y w))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) (mul (rec x) y w)) (gen)) ((exp (gen) w) (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y w)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w)))
-      (send (enc n (exp (gen) (mul y w)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w)))))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0))))
-  (label 32)
-  (parent 10)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y w))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x))) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)))
-  (absent (y (exp (gen) (mul w x))))
-  (neq ((exp (gen) (mul y w)) (gen)) ((exp (gen) (mul w x)) (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y w)))
-      (send (enc n (exp (gen) (mul y w x)))))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w x))))))
-  (label 33)
-  (parent 11)
-  (unrealized)
-  (shape)
-  (maps
-    ((0 1)
-      ((n n) (hx (exp (gen) (mul w x))) (hy (exp (gen) (mul y w))) (x x)
-        (y y))))
-  (origs (n (0 2))))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)))
-  (absent (y (exp (gen) x)))
-  (neq ((exp (gen) x) (gen)) ((exp (gen) y) (gen)))
-  (pen-non-orig x y)
-  (precur (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (exp (gen) x)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x y)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 34)
-  (parent 12)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn) (w expr) (x-0 expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y w x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul w x-0))))
-  (neq ((exp (gen) (mul (rec x) y w x-0)) (gen))
-    ((exp (gen) (mul w x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener
-      (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y w x-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w x-0)))
-      (send (enc n (exp (gen) (mul y w x-0)))))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w x-0)))))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0))))
-  (label 35)
-  (parent 12)
-  (unrealized (4 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x)) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)))
-  (absent (y-0 (exp (gen) x)) (y h))
-  (neq ((exp (gen) x) (gen)) (h (gen)) ((exp (gen) y-0) (gen)))
-  (pen-non-orig x y-0)
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (exp (gen) x)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x y-0)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y))))
-      (send (cat (exp (gen) y) (mul x (rec y)))))
-    ((recv h) (send (exp (gen) y))))
-  (label 36)
-  (parent 13)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) (mul w y-0))))
-  (neq (h (gen)) ((exp (gen) (mul (rec x) y w y-0)) (gen))
-    ((exp (gen) (mul w y-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener
-      (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y w y-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w y-0)))
-      (send (enc n (exp (gen) (mul y w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w y-0)))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0))))
-  (label 37)
-  (parent 13)
-  (unrealized (4 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (3 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) (hy (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv y) (send y)))
-  (label 38)
-  (parent 14)
-  (unrealized (1 2) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (exp (gen) (mul w x y)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (3 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (neq ((exp (gen) (mul w x)) (gen)) (hy (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x y)))))
-    ((recv (exp (gen) (mul w x y))) (send (exp (gen) (mul w x y))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))) ((recv y) (send y)))
-  (label 39)
-  (parent 15)
-  (unrealized (1 2) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x-0))) (y y))
-  (deflistener (exp (gen) (mul w x-0 y)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener y)
-  (precedes ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 0) (1 0)) ((5 1) (3 0)))
-  (absent (y (exp (gen) (mul w x-0))))
-  (neq ((exp (gen) (mul w x-0)) (gen)) (hy (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x-0 y)))))
-    ((recv (exp (gen) (mul w x-0 y))) (send (exp (gen) (mul w x-0 y))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0)))
-    ((recv y) (send y)))
-  (label 40)
-  (parent 16)
-  (unrealized (1 2) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) w y)) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (hy (exp (gen) (mul (rec x) w y))))
-    n (1 2) (enc n (exp (gen) (mul w y))))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w y)))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 41)
-  (parent 17)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp hy x))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) (hy (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener (exp hy x)) n (1 2)
-    (enc n (exp hy x)))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp hy x)) (send (exp hy x))))
-  (label 42)
-  (parent 17)
-  (unrealized (4 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w y))) (y y-0))
-  (deflistener (exp (gen) (mul w y y-0)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 0)) ((5 1) (3 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w y))))
-  (neq (h (gen)) ((exp (gen) (mul w y)) (gen)) (hy (gen)))
-  (pen-non-orig x y-0)
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (3 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y y-0)))))
-    ((recv (exp (gen) (mul w y y-0))) (send (exp (gen) (mul w y y-0))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))) ((recv y-0) (send y-0)))
-  (label 43)
-  (parent 18)
-  (unrealized (1 2) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (neq ((exp (gen) (mul w y)) (gen)) ((exp (gen) (mul x w)) (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test
-    (contracted (x-0 x) (y-0 y) (w-0 (mul x w)) (w-1 (mul w y)) (y-1 y)
-      (w (mul w y))) (gen) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
-  (label 44)
-  (parent 32)
-  (unrealized (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x x))) (y y))
-  (deflistener (cat (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) (mul w x x))))
-  (neq ((exp (gen) (mul w x y)) (gen)) ((exp (gen) (mul w x x)) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y)))
-      (send (enc n (exp (gen) (mul w x x y)))))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x x y)))))
-    ((recv (cat (gen) (mul w x x))) (send (cat (gen) (mul w x x))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))))
-  (label 45)
-  (parent 32)
-  (unrealized (0 1) (1 0) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (neq ((exp (gen) (mul w x-0 y)) (gen))
-    ((exp (gen) (mul x w x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (cat (gen) (mul x w x-0))) (send (cat (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0))))
-  (label 46)
-  (parent 32)
-  (unrealized (0 1) (1 0) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (neq ((exp (gen) (mul x w)) (gen)) ((exp (gen) (mul w y)) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 47)
-  (parent 32)
-  (unrealized (2 0))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (neq (h (gen)) ((exp (gen) (mul w y y-0)) (gen))
-    ((exp (gen) (mul x w y)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (3 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (gen) (mul x w y))) (send (cat (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 48)
-  (parent 32)
-  (unrealized (0 1) (1 0) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (neq ((exp (gen) (mul w y)) (gen)) ((exp (gen) (mul x w)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (y-0 y) (w-0 (mul x (rec x-0) w)) (x-2 x-0)
-      (w-1 (mul w y)) (y-1 y) (w (mul w y))) (gen) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
-  (label 49)
-  (parent 35)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x-0 x-0))) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul w x-0 x-0))))
-  (neq ((exp (gen) (mul w x-0 y)) (gen))
-    ((exp (gen) (mul w x-0 x-0)) (gen)))
-  (pen-non-orig x-0 y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-1) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul w x-0 x-0 y)))))
-    ((recv (exp (gen) (mul w x-0 x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x-0 x-0 y)))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w x-0 x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))))
-  (label 50)
-  (parent 35)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (neq ((exp (gen) (mul w x-0 y)) (gen))
-    ((exp (gen) (mul x w x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 3 init 1) (exp (gen) x-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))))
-  (label 51)
-  (parent 35)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 expn) (w expr) (x-1 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-1 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-1))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w y)))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 0) (2 0)))
-  (absent (y (exp (gen) (mul x w x-1))))
-  (neq ((exp (gen) (mul w x-1 y)) (gen))
-    ((exp (gen) (mul x w x-1)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-1 y)))
-      (send (enc n (exp (gen) (mul x w x-1 y)))))
-    ((recv (exp (gen) (mul x w x-1))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-1 y)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w x-1))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul w y)))
-      (send (cat (exp (gen) x-1) (mul w y)))) ((send (exp (gen) x-1))))
-  (label 52)
-  (parent 35)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (neq ((exp (gen) (mul x w)) (gen)) ((exp (gen) (mul w y)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 53)
-  (parent 35)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x x-0 expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (neq (h (gen)) ((exp (gen) (mul w y y-0)) (gen))
-    ((exp (gen) (mul x w y)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w y))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 54)
-  (parent 35)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y h) (y-0 (exp (gen) (mul x w))))
-  (neq (h (gen)) ((exp (gen) (mul w y-0)) (gen))
-    ((exp (gen) (mul x w)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y-0) (w-0 (mul x (rec y) w)) (y-2 y)
-      (w-1 (mul w y-0)) (y-3 y-0) (w (mul w y-0))) (gen) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul w y-0))) (send (cat (gen) (mul w y-0)))))
-  (label 55)
-  (parent 37)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x x))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y h) (y-0 (exp (gen) (mul w x x))))
-  (neq (h (gen)) ((exp (gen) (mul w x y-0)) (gen))
-    ((exp (gen) (mul w x x)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y-0)))
-      (send (enc n (exp (gen) (mul w x x y-0)))))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w x x y-0)))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w x x)))
-      (send (cat (exp (gen) y) (mul (rec y) w x x))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul w y-0)))
-      (send (cat (exp (gen) x) (mul w y-0)))))
-  (label 56)
-  (parent 37)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w y-0)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 0) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w x-0))))
-  (neq (h (gen)) ((exp (gen) (mul w x-0 y-0)) (gen))
-    ((exp (gen) (mul x w x-0)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y-0)))
-      (send (enc n (exp (gen) (mul x w x-0 y-0)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w x-0 y-0)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w x-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul w y-0)))
-      (send (cat (exp (gen) x-0) (mul w y-0))))
-    ((send (exp (gen) x-0))))
-  (label 57)
-  (parent 37)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y-0 (exp (gen) (mul x w))) (y h))
-  (neq ((exp (gen) (mul x w)) (gen)) (h (gen))
-    ((exp (gen) (mul w y-0)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w))))
-  (label 58)
-  (parent 37)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (neq (h (gen)) ((exp (gen) (mul w y y-0)) (gen))
-    ((exp (gen) (mul x w y)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 3 resp 2) (exp (gen) y-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0)))))
-  (label 59)
-  (parent 37)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (x y expn) (w expr) (y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 y-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y-0))) (y y-1))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w y-1)))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (absent (y-0 h-0) (y h) (y-1 (exp (gen) (mul x w y-0))))
-  (neq (h-0 (gen)) (h (gen)) ((exp (gen) (mul w y-0 y-1)) (gen))
-    ((exp (gen) (mul x w y-0)) (gen)))
-  (pen-non-orig x y-1)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 y-1)))
-      (send (enc n (exp (gen) (mul x w y-0 y-1)))))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) y-1))
-      (recv (enc n (exp (gen) (mul x w y-0 y-1)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w y-1)))
-      (send (cat (exp (gen) y-0) (mul w y-1))))
-    ((recv h-0) (send (exp (gen) y-0))))
-  (label 60)
-  (parent 37)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (neq ((exp (gen) x) (gen)) ((exp (gen) y) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (exp (gen) x)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
-  (label 61)
-  (parent 41)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (4 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) w y)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) w y)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w y)))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))))
-  (label 62)
-  (parent 41)
-  (unrealized (4 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (hy (exp (gen) (rec x)))) (gen)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen))))
-  (label 63)
-  (parent 42)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (0 1)) ((5 0) (4 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0))))
-  (label 64)
-  (parent 42)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) y)) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y))))
-  (label 65)
-  (parent 42)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1)) ((5 1) (4 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) y-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 66)
-  (parent 42)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (hy base) (x expn) (w expr) (y expn) (w-0 expr))
-  (defstrand init 3 (n n) (h hy) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp hy x))
-  (deflistener (cat (exp hy (mul x (rec w-0))) w-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) (hy (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp hy (mul x (rec w-0))) w-0)) (exp hy x)
-    (4 0))
-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp hy x)) (send (exp hy x)))
-    ((recv (cat (exp hy (mul x (rec w-0))) w-0))
-      (send (cat (exp hy (mul x (rec w-0))) w-0))))
-  (label 67)
-  (parent 42)
-  (unrealized (5 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (neq ((exp (gen) (mul w y)) (gen)) ((exp (gen) (mul x w)) (gen)))
-  (pen-non-orig x y)
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv y) (send y)))
-  (label 68)
-  (parent 44)
-  (unrealized (2 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x x))) (y y))
-  (deflistener (cat (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y (exp (gen) (mul w x x))))
-  (neq ((exp (gen) (mul w x y)) (gen)) ((exp (gen) (mul w x x)) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y)))
-      (send (enc n (exp (gen) (mul w x x y)))))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x x y)))))
-    ((recv (cat (gen) (mul w x x))) (send (cat (gen) (mul w x x))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))) ((recv y) (send y)))
-  (label 69)
-  (parent 45)
-  (unrealized (1 0) (2 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)) ((5 1) (3 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (neq ((exp (gen) (mul w x-0 y)) (gen))
-    ((exp (gen) (mul x w x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (cat (gen) (mul x w x-0))) (send (cat (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0)))
-    ((recv y) (send y)))
-  (label 70)
-  (parent 46)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (x w) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w y (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w) w (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))))
-  (label 71)
-  (parent 47)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (neq ((exp (gen) (mul x w)) (gen)) ((exp (gen) (mul w y)) (gen)))
-  (pen-non-orig x y)
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv x) (send x)))
-  (label 72)
-  (parent 47)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)) ((5 1) (3 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (neq (h (gen)) ((exp (gen) (mul w y y-0)) (gen))
-    ((exp (gen) (mul x w y)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (3 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (gen) (mul x w y))) (send (cat (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))) ((recv y-0) (send y-0)))
-  (label 73)
-  (parent 48)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (neq ((exp (gen) (mul w y)) (gen)) ((exp (gen) (mul x w)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv y) (send y)))
-  (label 74)
-  (parent 49)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x-0 x-0))) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul w x-0 x-0))))
-  (neq ((exp (gen) (mul w x-0 y)) (gen))
-    ((exp (gen) (mul w x-0 x-0)) (gen)))
-  (pen-non-orig x-0 y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul w x-0 x-0 y)))))
-    ((recv (exp (gen) (mul w x-0 x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x-0 x-0 y)))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w x-0 x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((recv y) (send y)))
-  (label 75)
-  (parent 50)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (neq ((exp (gen) (mul w x-0 y)) (gen))
-    ((exp (gen) (mul x w x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((recv y) (send y)))
-  (label 76)
-  (parent 51)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x x-0 expn) (w expr) (x-1 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-1 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-1))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w y)))
-  (defstrand init 1 (x x-1))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 0) (2 0)) ((6 1) (4 0)))
-  (absent (y (exp (gen) (mul x w x-1))))
-  (neq ((exp (gen) (mul w x-1 y)) (gen))
-    ((exp (gen) (mul x w x-1)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-1 y)))
-      (send (enc n (exp (gen) (mul x w x-1 y)))))
-    ((recv (exp (gen) (mul x w x-1))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-1 y)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w x-1))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul w y)))
-      (send (cat (exp (gen) x-1) (mul w y)))) ((send (exp (gen) x-1)))
-    ((recv y) (send y)))
-  (label 77)
-  (parent 52)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) x-0)) (y y))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (neq ((exp (gen) x-0) (gen)) ((exp (gen) (mul y (rec x) x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (4 0) (2 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w (mul (rec x) x-0))) (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x) x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0)))))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0)))
-      (send (cat (exp (gen) y) (mul (rec x) x-0)))))
-  (label 78)
-  (parent 53)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w (rec x-0))))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (x-0 (mul (rec x) w)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w y (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w))
-    (mul (rec x) w) (2 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w y (rec x-0))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w)))
-      (send (cat (exp (gen) x) (mul (rec x) w)))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul w (rec x-0))))
-      (send (cat (exp (gen) y) (mul w (rec x-0))))))
-  (label 79)
-  (parent 53)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w x-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (x-0 (mul x w)) (y (exp (gen) (mul x w x-0))))
-  (neq ((exp (gen) (mul x w x-0)) (gen))
-    ((exp (gen) (mul w y x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w)) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y x-0)))
-      (send (enc n (exp (gen) (mul x w y x-0)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y x-0)))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w x-0)))
-      (send (cat (exp (gen) y) (mul w x-0)))))
-  (label 80)
-  (parent 53)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x x-0 expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)) ((6 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (neq (h (gen)) ((exp (gen) (mul w y y-0)) (gen))
-    ((exp (gen) (mul x w y)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w y))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))) ((recv y-0) (send y-0)))
-  (label 81)
-  (parent 54)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w))))
-  (neq (h (gen)) ((exp (gen) (mul w y-0)) (gen))
-    ((exp (gen) (mul x w)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y-0)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul w y-0))) (send (cat (gen) (mul w y-0))))
-    ((recv y-0) (send y-0)))
-  (label 82)
-  (parent 55)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x x))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w x x))))
-  (neq (h (gen)) ((exp (gen) (mul w x y-0)) (gen))
-    ((exp (gen) (mul w x x)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y-0)))
-      (send (enc n (exp (gen) (mul w x x y-0)))))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w x x y-0)))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w x x)))
-      (send (cat (exp (gen) y) (mul (rec y) w x x))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul w y-0)))
-      (send (cat (exp (gen) x) (mul w y-0)))) ((recv y-0) (send y-0)))
-  (label 83)
-  (parent 56)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x y expn) (w expr) (x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 0) (2 0)) ((6 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w x-0))))
-  (neq (h (gen)) ((exp (gen) (mul w x-0 y-0)) (gen))
-    ((exp (gen) (mul x w x-0)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y-0)))
-      (send (enc n (exp (gen) (mul x w x-0 y-0)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w x-0 y-0)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w x-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul w y-0)))
-      (send (cat (exp (gen) x-0) (mul w y-0)))) ((send (exp (gen) x-0)))
-    ((recv y-0) (send y-0)))
-  (label 84)
-  (parent 57)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) y-0)) (y y))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) y-0)) (y-0 h))
-  (neq ((exp (gen) y-0) (gen)) (h (gen))
-    ((exp (gen) (mul y (rec x) y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (4 0) (2 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y-0) (w (mul (rec x) y-0))) (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x) y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) y-0)))
-      (send (cat (exp (gen) y) (mul (rec x) y-0)))))
-  (label 85)
-  (parent 58)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (x (mul (rec y) w)) (y-0 (exp (gen) w)) (y h))
-  (neq ((exp (gen) w) (gen)) (h (gen))
-    ((exp (gen) (mul w y-0 (rec x))) (gen)))
-  (pen-non-orig y-0 x)
-  (precur (4 0) (2 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w))
-    (mul (rec y) w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w)))
-      (send (cat (exp (gen) y) (mul (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x))))))
-  (label 86)
-  (parent 58)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul x w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y-0 (mul x w)) (y (exp (gen) (mul x w y-0))) (y-0 h))
-  (neq ((exp (gen) (mul x w y-0)) (gen)) (h (gen))
-    ((exp (gen) (mul w y y-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w)) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (exp (gen) y-0) (mul x w)))
-      (send (cat (exp (gen) y-0) (mul x w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0)))))
-  (label 87)
-  (parent 58)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (neq (h (gen)) ((exp (gen) (mul w y y-0)) (gen))
-    ((exp (gen) (mul x w y)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0)))) ((recv y-0) (send y-0)))
-  (label 88)
-  (parent 59)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (x y expn) (w expr) (y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 y-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y-0))) (y y-1))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w y-1)))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (deflistener y-1)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)) ((6 1) (4 0)))
-  (absent (y-0 h-0) (y h) (y-1 (exp (gen) (mul x w y-0))))
-  (neq (h-0 (gen)) (h (gen)) ((exp (gen) (mul w y-0 y-1)) (gen))
-    ((exp (gen) (mul x w y-0)) (gen)))
-  (pen-non-orig x y-1)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-1) (mul w y-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 y-1)))
-      (send (enc n (exp (gen) (mul x w y-0 y-1)))))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) y-1))
-      (recv (enc n (exp (gen) (mul x w y-0 y-1)))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w y-1)))
-      (send (cat (exp (gen) y-0) (mul w y-1))))
-    ((recv h-0) (send (exp (gen) y-0))) ((recv y-1) (send y-1)))
-  (label 89)
-  (parent 60)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (4 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (neq ((exp (gen) (mul x w)) (gen)) ((exp (gen) (mul w y)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-0 (mul x w)) (y-0 y) (w-1 (mul w y)) (y-1 y)
-      (w (mul w y))) (gen) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
-  (label 90)
-  (parent 62)
-  (unrealized (2 0) (3 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x x))) (y y))
-  (deflistener (exp (gen) (mul w x x y)))
-  (deflistener (cat (exp (gen) y) (mul w x x)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (4 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul w x x))))
-  (neq ((exp (gen) (mul w x x)) (gen)) ((exp (gen) (mul w x y)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y)))
-      (send (enc n (exp (gen) (mul w x x y)))))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x x y)))))
-    ((recv (exp (gen) (mul w x x y))) (send (exp (gen) (mul w x x y))))
-    ((recv (cat (exp (gen) y) (mul w x x)))
-      (send (cat (exp (gen) y) (mul w x x))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))))
-  (label 91)
-  (parent 62)
-  (unrealized (0 1) (1 0) (2 0) (3 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (exp (gen) (mul x w x-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (4 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 0) (1 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (neq ((exp (gen) (mul x w x-0)) (gen))
-    ((exp (gen) (mul w x-0 y)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0 y)))
-      (send (exp (gen) (mul x w x-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w x-0)))
-      (send (cat (exp (gen) y) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0))))
-  (label 92)
-  (parent 62)
-  (unrealized (0 1) (1 0) (2 0) (3 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (4 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (neq ((exp (gen) (mul x w)) (gen)) ((exp (gen) (mul w y)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 93)
-  (parent 62)
-  (unrealized (2 0) (3 0))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (exp (gen) (mul x w y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (4 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (1 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (neq (h (gen)) ((exp (gen) (mul x w y)) (gen))
-    ((exp (gen) (mul w y y-0)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (4 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y y-0)))
-      (send (exp (gen) (mul x w y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w y)))
-      (send (cat (exp (gen) y-0) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 94)
-  (parent 62)
-  (unrealized (0 1) (1 0) (2 0) (3 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) (mul (rec x) (rec w-0))) w-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) (rec w-0))) w-0))
-    (exp (gen) (rec x)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) (mul (rec x) (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) (rec w-0))) w-0))))
-  (label 95)
-  (parent 63)
-  (unrealized (5 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) x-0 (rec w-0))) w-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) x-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) x-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) (mul (rec x) x-0 (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) x-0 (rec w-0))) w-0))))
-  (label 96)
-  (parent 64)
-  (unrealized (6 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) (mul (rec x) y (rec w-0))) w-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) y)) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) (mul (rec x) y (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) y (rec w-0))) w-0))))
-  (label 97)
-  (parent 65)
-  (unrealized (5 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y-0 (rec w-0))) w-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) y-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) (mul (rec x) y-0 (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) y-0 (rec w-0))) w-0))))
-  (label 98)
-  (parent 66)
-  (unrealized (6 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (gen) w-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) w-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (hy (exp (gen) (mul (rec x) w-0))))
-    (gen) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0)))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0))))
-  (label 99)
-  (parent 67)
-  (unrealized (0 1))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0))))
-  (label 100)
-  (parent 67)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (0 1))
-    ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) w-0 x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0 x-0)))
-      (send (enc n (exp (gen) (mul w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x-0))) (send (exp (gen) (mul w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0)))
-    ((send (exp (gen) x-0))))
-  (label 101)
-  (parent 67)
-  (unrealized (0 1))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) y) w-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) w-0 y)) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0 y)))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0))))
-  (label 102)
-  (parent 67)
-  (unrealized (0 1))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y expn) (w-0 expr)
-    (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) w-0 y-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0 y-0)))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 103)
-  (parent 67)
-  (unrealized (0 1))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (x w) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w y (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))) ((recv x) (send x)))
-  (label 104)
-  (parent 71)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (4 0))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (x-0 (mul (rec x) w)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w y (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w y (rec x-0))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w)))
-      (send (cat (exp (gen) x) (mul (rec x) w)))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul w (rec x-0))))
-      (send (cat (exp (gen) y) (mul w (rec x-0)))))
-    ((recv x-0) (send x-0)))
-  (label 105)
-  (parent 79)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (x-0 (mul x w)) (y (exp (gen) (mul x w x-0))))
-  (neq ((exp (gen) (mul x w x-0)) (gen))
-    ((exp (gen) (mul w y x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y x-0)))
-      (send (enc n (exp (gen) (mul x w y x-0)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y x-0)))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w x-0)))
-      (send (cat (exp (gen) y) (mul w x-0)))) ((recv x-0) (send x-0)))
-  (label 106)
-  (parent 80)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (4 0))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (x (mul (rec y) w)) (y-0 (exp (gen) w)) (y h))
-  (neq ((exp (gen) w) (gen)) (h (gen))
-    ((exp (gen) (mul w y-0 (rec x))) (gen)))
-  (pen-non-orig y-0 x)
-  (precur (4 0) (2 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w)))
-      (send (cat (exp (gen) y) (mul (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x))))) ((recv x) (send x)))
-  (label 107)
-  (parent 86)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul x w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (5 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y-0 (mul x w)) (y (exp (gen) (mul x w y-0))) (y-0 h))
-  (neq ((exp (gen) (mul x w y-0)) (gen)) (h (gen))
-    ((exp (gen) (mul w y y-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (cat (exp (gen) y-0) (mul x w)))
-      (send (cat (exp (gen) y-0) (mul x w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0)))) ((recv y-0) (send y-0)))
-  (label 108)
-  (parent 87)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (5 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (neq ((exp (gen) (mul x w)) (gen)) ((exp (gen) (mul w y)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv y) (send y)))
-  (label 109)
-  (parent 90)
-  (unrealized (2 0) (3 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul w x x))) (y y))
-  (deflistener (exp (gen) (mul w x x y)))
-  (deflistener (cat (exp (gen) y) (mul w x x)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (5 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul w x x))))
-  (neq ((exp (gen) (mul w x x)) (gen)) ((exp (gen) (mul w x y)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y)))
-      (send (enc n (exp (gen) (mul w x x y)))))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x x y)))))
-    ((recv (exp (gen) (mul w x x y))) (send (exp (gen) (mul w x x y))))
-    ((recv (cat (exp (gen) y) (mul w x x)))
-      (send (cat (exp (gen) y) (mul w x x))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))) ((recv y) (send y)))
-  (label 110)
-  (parent 91)
-  (unrealized (1 0) (2 0) (3 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (exp (gen) (mul x w x-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener y)
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (6 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 0) (1 0))
-    ((6 1) (4 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (neq ((exp (gen) (mul x w x-0)) (gen))
-    ((exp (gen) (mul w x-0 y)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))))
-    ((recv (exp (gen) (mul x w x-0 y)))
-      (send (exp (gen) (mul x w x-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w x-0)))
-      (send (cat (exp (gen) y) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0)))
-    ((recv y) (send y)))
-  (label 111)
-  (parent 92)
-  (unrealized (1 0) (2 0) (3 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (4 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (x w) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w y (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (4 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w) w (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))))
-  (label 112)
-  (parent 93)
-  (unrealized (0 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1))
-    ((5 1) (3 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (neq ((exp (gen) (mul x w)) (gen)) ((exp (gen) (mul w y)) (gen)))
-  (pen-non-orig x y)
-  (precur (4 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv x) (send x)))
-  (label 113)
-  (parent 93)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (exp (gen) (mul x w y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 1) (6 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (1 0))
-    ((6 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (neq (h (gen)) ((exp (gen) (mul x w y)) (gen))
-    ((exp (gen) (mul w y y-0)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (4 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))))
-    ((recv (exp (gen) (mul x w y y-0)))
-      (send (exp (gen) (mul x w y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w y)))
-      (send (cat (exp (gen) y-0) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))) ((recv y-0) (send y-0)))
-  (label 114)
-  (parent 94)
-  (unrealized (1 0) (2 0) (3 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (rec x)))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w-0 (rec x))) (gen) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x)))))
-  (label 115)
-  (parent 95)
-  (unrealized (0 1) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x))))))
-  (label 116)
-  (parent 95)
-  (unrealized (0 1) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1))
-    ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 117)
-  (parent 95)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) y) (mul (rec x) (rec y))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) y) (mul (rec x) (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) (rec y))))))
-  (label 118)
-  (parent 95)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 119)
-  (parent 95)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul (rec x) x-0)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w-0 (mul (rec x) x-0))) (gen) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul (rec x) x-0)))
-      (send (cat (gen) (mul (rec x) x-0)))))
-  (label 120)
-  (parent 96)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul x (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-1) (6 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x)) (send (exp (gen) x))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))))
-  (label 121)
-  (parent 96)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (rec x)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 5 init 1) (exp (gen) x-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (rec x)))
-      (send (cat (exp (gen) x-0) (rec x)))))
-  (label 122)
-  (parent 96)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 0) (6 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 123)
-  (parent 96)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 0) (4 0)) ((5 0) (6 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 1 resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))))
-  (label 124)
-  (parent 96)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 125)
-  (parent 96)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (gen) (mul (rec x) y)))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) y)) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-0 y) (w-0 (mul (rec x) y))) (gen) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul (rec x) y)))
-      (send (cat (gen) (mul (rec x) y)))))
-  (label 126)
-  (parent 97)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x) (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul y (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul y (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x) (rec x))))))
-  (label 127)
-  (parent 97)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (0 1)) ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) y)) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 128)
-  (parent 97)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) y)) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))))
-  (label 129)
-  (parent 97)
-  (unrealized (0 1) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) y)) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 130)
-  (parent 97)
-  (unrealized (0 1) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul (rec x) y-0)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y-0) (w-0 (mul (rec x) y-0))) (gen) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul (rec x) y-0)))
-      (send (cat (gen) (mul (rec x) y-0)))))
-  (label 131)
-  (parent 98)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul y-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y-0 (rec x))))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))))
-  (label 132)
-  (parent 98)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 0) (6 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 133)
-  (parent 98)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)) ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 (exp (gen) w)) (y h))
-  (neq ((exp (gen) w) (gen)) (h (gen))
-    ((exp (gen) (mul (rec x) y)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (6 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 1 resp 2) (exp (gen) y-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))))
-  (label 134)
-  (parent 98)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (rec x)))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 5 resp 2) (exp (gen) y-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (rec x)))
-      (send (cat (exp (gen) y-0) (rec x)))))
-  (label 135)
-  (parent 98)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y-1 h-0) (y-0 h) (y (exp (gen) w)))
-  (neq (h-0 (gen)) (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1)))))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 136)
-  (parent 98)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) x)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (gen) (mul x x)))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) x) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x))
-      (send (enc n (exp (gen) (mul x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (gen) (mul x x))) (send (cat (gen) (mul x x)))))
-  (label 137)
-  (parent 99)
-  (unrealized (4 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (0 1))
-    ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) x-0) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0))))
-    ((send (exp (gen) x-0))))
-  (label 138)
-  (parent 99)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (gen) (mul x y)))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) y) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (gen) (mul x y))) (send (cat (gen) (mul x y)))))
-  (label 139)
-  (parent 99)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (gen) (mul x y-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) y-0) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (gen) (mul x y-0))) (send (cat (gen) (mul x y-0))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 140)
-  (parent 99)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn) (w-0 w-1 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (gen) w-0))
-  (deflistener (cat (exp (gen) (mul (rec x) w-0 (rec w-1))) w-1))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) w-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w-0 (rec w-1))) w-1))
-    (exp (gen) (mul (rec x) w-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0)))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0)))
-    ((recv (cat (exp (gen) (mul (rec x) w-0 (rec w-1))) w-1))
-      (send (cat (exp (gen) (mul (rec x) w-0 (rec w-1))) w-1))))
-  (label 141)
-  (parent 99)
-  (unrealized (6 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2))
-    ((3 1) (1 2)) ((4 1) (3 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0))))
-  (label 142)
-  (parent 100)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-0)) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x-0 x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) x-0 x-0)))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (0 1))
-    ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) x-0) (gen)))
-  (pen-non-orig y x-0)
-  (precur (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-1) (0 1))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x-0 x-0))) (send (exp (gen) (mul x-0 x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) x-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) x-0 x-0))))
-    ((send (exp (gen) x))))
-  (label 143)
-  (parent 101)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (0 1))
-    ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) x-0) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 6 init 1) (exp (gen) x-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x)))
-    ((send (exp (gen) x-0))))
-  (label 144)
-  (parent 101)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-1)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-  (defstrand init 1 (x x-0))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (0 1))
-    ((6 0) (5 0)) ((7 0) (0 1)) ((7 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) x-1) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-1))
-      (send (enc n (exp (gen) (mul x x-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x-1))) (send (exp (gen) (mul x x-1))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) x-1))))
-    ((send (exp (gen) x-0))) ((send (exp (gen) x-1))))
-  (label 145)
-  (parent 101)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)) ((6 0) (0 1)) ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) y) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) y))))
-    ((send (exp (gen) x-0))))
-  (label 146)
-  (parent 101)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) y-0)))
-  (defstrand init 1 (x x-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (0 1))
-    ((6 0) (5 0)) ((7 1) (0 1)) ((7 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) y-0) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) y-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) y-0))))
-    ((send (exp (gen) x-0))) ((recv h) (send (exp (gen) y-0))))
-  (label 147)
-  (parent 101)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w expr) (y expn) (w-0 expr) (x-0 expn)
-    (w-1 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) w-0 x-0 (rec w-1))) w-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) w-0 x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener
-      (cat (exp (gen) (mul (rec x) w-0 x-0 (rec w-1))) w-1))
-    (exp (gen) (mul (rec x) w-0 x-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0 x-0)))
-      (send (enc n (exp (gen) (mul w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x-0))) (send (exp (gen) (mul w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) (mul (rec x) w-0 x-0 (rec w-1))) w-1))
-      (send (cat (exp (gen) (mul (rec x) w-0 x-0 (rec w-1))) w-1))))
-  (label 148)
-  (parent 101)
-  (unrealized (7 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) x)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) x x)))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) x) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x))
-      (send (enc n (exp (gen) (mul x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) x x)))
-      (send (cat (exp (gen) y) (mul (rec y) x x)))))
-  (label 149)
-  (parent 102)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) x-0)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)) ((6 0) (0 1)) ((6 0) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) x-0) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) x-0))))
-    ((send (exp (gen) x-0))))
-  (label 150)
-  (parent 102)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) y) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 6 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
-  (label 151)
-  (parent 102)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) y-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)) ((6 1) (0 1)) ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) y-0) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) y-0))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 152)
-  (parent 102)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (x expn) (w w-0 expr) (y expn) (w-1 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) y) w-0))
-  (deflistener (cat (exp (gen) (mul (rec x) w-0 y (rec w-1))) w-1))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) w-0 y)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w-0 y (rec w-1))) w-1))
-    (exp (gen) (mul (rec x) w-0 y)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0 y)))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0)))
-    ((recv (cat (exp (gen) (mul (rec x) w-0 y (rec w-1))) w-1))
-      (send (cat (exp (gen) (mul (rec x) w-0 y (rec w-1))) w-1))))
-  (label 153)
-  (parent 102)
-  (unrealized (6 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) x)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) x x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) x) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x))
-      (send (enc n (exp (gen) (mul x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) x x)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) x x))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 154)
-  (parent 103)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) x-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1))
-    ((6 1) (5 0)) ((7 0) (0 1)) ((7 0) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) x-0) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) x-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) x-0))))
-    ((recv h) (send (exp (gen) y-0))) ((send (exp (gen) x-0))))
-  (label 155)
-  (parent 103)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2))
-    ((5 1) (4 0)) ((6 1) (0 1)) ((6 1) (5 0)))
-  (absent (y-0 (exp (gen) w)) (y h))
-  (neq ((exp (gen) w) (gen)) (h (gen)) ((exp (gen) y-0) (gen)))
-  (pen-non-orig x y-0)
-  (precur (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 1 resp 2) (exp (gen) y-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 156)
-  (parent 103)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y-0) x))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) y-0) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 6 resp 2) (exp (gen) y-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) y-0) x)) (send (cat (exp (gen) y-0) x)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 157)
-  (parent 103)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) y-1)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x y-1)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) y-1)))
-  (defstrand resp 2 (h h) (y y-0))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1))
-    ((6 1) (5 0)) ((7 1) (0 1)) ((7 1) (5 0)))
-  (absent (y-1 h-0) (y-0 h) (y (exp (gen) w)))
-  (neq (h-0 (gen)) (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) y-1) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-1))
-      (send (enc n (exp (gen) (mul x y-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x y-1))) (send (exp (gen) (mul x y-1))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) y-1)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) y-1))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 158)
-  (parent 103)
-  (unrealized (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (x expn) (w expr) (y expn) (w-0 expr)
-    (y-0 expn) (w-1 expr))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) (mul (rec x) w-0 y-0 (rec w-1))) w-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) w-0 y-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener
-      (cat (exp (gen) (mul (rec x) w-0 y-0 (rec w-1))) w-1))
-    (exp (gen) (mul (rec x) w-0 y-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w-0 y-0)))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) (mul (rec x) w-0 y-0 (rec w-1))) w-1))
-      (send (cat (exp (gen) (mul (rec x) w-0 y-0 (rec w-1))) w-1))))
-  (label 159)
-  (parent 103)
-  (unrealized (7 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (0 1))
-    ((5 1) (4 0)))
-  (absent (x w) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w y (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (4 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))) ((recv x) (send x)))
-  (label 160)
-  (parent 112)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x))))
-    ((recv x) (send x)))
-  (label 161)
-  (parent 115)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (0 1))
-    ((6 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul (rec x) (rec x)) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 162)
-  (parent 116)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 0) (4 0))
-    ((5 0) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (rec x)))
-      (send (cat (exp (gen) x-0) (rec x)))) ((recv x) (send x)))
-  (label 163)
-  (parent 122)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (4 0)) ((1 1) (5 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (0 1)) ((6 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) y)) (gen)))
-  (pen-non-orig x y)
-  (precur (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
-  (label 164)
-  (parent 129)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((5 1) (6 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (rec x)))
-      (send (cat (exp (gen) y-0) (rec x)))) ((recv x) (send x)))
-  (label 165)
-  (parent 135)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) x)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (gen) (mul x x)))
-  (deflistener x)
-  (precedes ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2))
-    ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) x) (gen)))
-  (pen-non-orig y x)
-  (precur (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x x) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x))
-      (send (enc n (exp (gen) (mul x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (gen) (mul x x))) (send (cat (gen) (mul x x))))
-    ((recv x) (send x)))
-  (label 166)
-  (parent 137)
-  (unrealized (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (gen) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w-1 (mul x w-0)) (w-2 w-0))
-    (gen) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0))))
-  (label 167)
-  (parent 141)
-  (unrealized (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x)))
-  (deflistener (cat (gen) (mul w-0 x x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x)))
-      (send (enc n (exp (gen) (mul w-0 x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x))) (send (exp (gen) (mul w-0 x x))))
-    ((recv (cat (gen) (mul w-0 x x))) (send (cat (gen) (mul w-0 x x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0))))
-  (label 168)
-  (parent 141)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0)))
-  (deflistener (cat (gen) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 0) (5 0)) ((7 0) (6 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0)))
-      (send (exp (gen) (mul x w-0 x-0))))
-    ((recv (cat (gen) (mul x w-0 x-0)))
-      (send (cat (gen) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0)))
-    ((send (exp (gen) x-0))))
-  (label 169)
-  (parent 141)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y)))
-  (deflistener (cat (gen) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) y) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 y)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 1 resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y))) (send (exp (gen) (mul x w-0 y))))
-    ((recv (cat (gen) (mul x w-0 y))) (send (cat (gen) (mul x w-0 y))))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0))))
-  (label 170)
-  (parent 141)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)) ((7 1) (6 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (gen) (mul x w-0 y-0)))
-      (send (cat (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 171)
-  (parent 141)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (precedes ((0 0) (3 0)) ((0 2) (1 2)) ((2 1) (1 2)) ((3 1) (2 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0))))
-  (label 172)
-  (parent 142)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w-1 (mul x (rec x-0) w-0)) (x-2 x-0) (w-2 w-0))
-    (gen) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0))))
-  (label 173)
-  (parent 148)
-  (unrealized (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x-0 x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0 x-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x-0)) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 8 0 init 1) (exp (gen) x-1) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul w-0 x-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x-0 x-0)))
-      (send (exp (gen) (mul w-0 x-0 x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0 x-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0 x-0 x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0))))
-  (label 174)
-  (parent 148)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 8 6 init 1) (exp (gen) x-1) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0)))
-      (send (exp (gen) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0)))
-      (send (cat (exp (gen) x-0) (mul x w-0)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0))))
-  (label 175)
-  (parent 148)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn) (w-0 expr) (x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0 x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) w-0))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x-1)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-1)))
-      (send (enc n (exp (gen) (mul x w-0 x-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-1)))
-      (send (exp (gen) (mul x w-0 x-1))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0 x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0 x-1))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) w-0)) (send (cat (exp (gen) x-1) w-0)))
-    ((send (exp (gen) x-1))))
-  (label 176)
-  (parent 148)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x x-0 expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0 y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (7 0))
-    ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 y)) (gen)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 8 1 resp 2) (exp (gen) y-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y))) (send (exp (gen) (mul x w-0 y))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0 y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0 y))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0))))
-  (label 177)
-  (parent 148)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x x-0 expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0 y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0 y-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0 y-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 178)
-  (parent 148)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0)))
-  (deflistener (cat (gen) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-1 (mul x (rec y) w-0)) (y-0 y) (w-2 w-0))
-    (gen) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0))))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0))))
-  (label 179)
-  (parent 153)
-  (unrealized (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0 x x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x)))
-      (send (enc n (exp (gen) (mul w-0 x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x))) (send (exp (gen) (mul w-0 x x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0 x x)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0 x x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0))))
-  (label 180)
-  (parent 153)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (6 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0)))
-      (send (exp (gen) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0 x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0)))
-    ((send (exp (gen) x-0))))
-  (label 181)
-  (parent 153)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 y)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 7 1 resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y))) (send (exp (gen) (mul x w-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w-0)))
-      (send (cat (exp (gen) y) (mul x w-0))))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0))))
-  (label 182)
-  (parent 153)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (6 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0 y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 183)
-  (parent 153)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-1 (mul x (rec y-0) w-0)) (y-1 y-0) (w-2 w-0))
-    (gen) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0))))
-  (label 184)
-  (parent 159)
-  (unrealized (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0 x x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 8 0 init 1) (exp (gen) x-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x)))
-      (send (enc n (exp (gen) (mul w-0 x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x))) (send (exp (gen) (mul w-0 x x))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0 x x)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0 x x))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0))))
-  (label 185)
-  (parent 159)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w-0 x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0)))
-      (send (exp (gen) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w-0 x-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w-0 x-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0)))
-    ((send (exp (gen) x-0))))
-  (label 186)
-  (parent 159)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0 y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (7 0))
-    ((7 1) (0 1)))
-  (absent (y-0 (exp (gen) w)) (y h))
-  (neq ((exp (gen) w) (gen)) (h (gen))
-    ((exp (gen) (mul w-0 y-0)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 8 1 resp 2) (exp (gen) y-1) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0 y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0 y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0))))
-  (label 187)
-  (parent 159)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 8 6 resp 2) (exp (gen) y-1) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0)))
-      (send (cat (exp (gen) y-0) (mul x w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0))))
-  (label 188)
-  (parent 159)
-  (unrealized (4 0) (5 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x y-0 expn) (w-0 expr)
-    (y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-1)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w-0 y-1)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) w-0))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (y-1 h-0) (y-0 h) (y (exp (gen) w)))
-  (neq (h-0 (gen)) (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-1)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-1)))
-      (send (enc n (exp (gen) (mul x w-0 y-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-1)))
-      (send (exp (gen) (mul x w-0 y-1))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w-0 y-1)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w-0 y-1))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) w-0)) (send (cat (exp (gen) y-1) w-0)))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 189)
-  (parent 159)
-  (unrealized (4 0) (5 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (gen) (rec x)))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w-0 (rec x))) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x)))))
-  (label 190)
-  (parent 167)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (gen) w-0))
-  (deflistener (cat (gen) (mul w-0 (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)))
-  (absent (x w-0) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w-0) w-0 (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0)))
-    ((recv (cat (gen) (mul w-0 (rec x))))
-      (send (cat (gen) (mul w-0 (rec x))))))
-  (label 191)
-  (parent 167)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (gen) w-0))
-  (deflistener x)
-  (precedes ((0 0) (6 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0))) ((recv x) (send x)))
-  (label 192)
-  (parent 167)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (w-0 (mul (rec x) (rec x))) (x-0 x))
-    (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x))))))
-  (label 193)
-  (parent 168)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (gen) w-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)))
-  (absent (x w-0) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w-0) w-0 (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))))
-  (label 194)
-  (parent 168)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x)))
-  (deflistener (cat (gen) (mul w-0 x x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (deflistener x)
-  (precedes ((0 0) (6 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 x x) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x)))
-      (send (enc n (exp (gen) (mul w-0 x x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x))) (send (exp (gen) (mul w-0 x x))))
-    ((recv (cat (gen) (mul w-0 x x))) (send (cat (gen) (mul w-0 x x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0)))
-    ((recv x) (send x)))
-  (label 195)
-  (parent 168)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 0) (5 0)) ((7 0) (6 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w-0 (mul (rec x) (rec x-0))) (x-2 x-0)) (one)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 196)
-  (parent 169)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 0) (5 0)) ((7 0) (6 0)))
-  (absent (x-0 (mul w-0 x)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul w-0 x)) (mul w-0 x)
-    (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (gen) (mul w-0 x))) (send (cat (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x))))
-  (label 197)
-  (parent 169)
-  (unrealized (0 1) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 0) (5 0)) ((7 0) (6 0)))
-  (absent (x-0 (mul x w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w-0)) (mul x w-0)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 198)
-  (parent 169)
-  (unrealized (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) y) (mul (rec x) (rec y))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-0 (mul (rec x) (rec y))) (y-0 y)) (one)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) y) (mul (rec x) (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) (rec y))))))
-  (label 199)
-  (parent 170)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w w-0 expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (x (mul w-0 y)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 y (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul w-0 y)) (mul w-0 y) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (gen) (mul w-0 y))) (send (cat (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y) (mul w-0 (rec x))))))
-  (label 200)
-  (parent 170)
-  (unrealized (0 1) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec y))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (mul x w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x w-0)) (mul x w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec y))))
-      (send (cat (exp (gen) y) (mul w-0 (rec y))))))
-  (label 201)
-  (parent 170)
-  (unrealized (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)) ((7 1) (6 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-0 (mul (rec x) (rec y-0))) (y-1 y-0)) (one)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 202)
-  (parent 171)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)) ((7 1) (6 0)))
-  (absent (x (mul w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul w-0 y-0)) (mul w-0 y-0)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (gen) (mul w-0 y-0))) (send (cat (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 203)
-  (parent 171)
-  (unrealized (0 1) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)) ((7 1) (6 0)))
-  (absent (y-0 (mul x w-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w-0)) (mul x w-0)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 204)
-  (parent 171)
-  (unrealized (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (exp (gen) x) w-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((2 1) (1 2)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0))))
-  (label 205)
-  (parent 172)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul (rec x) x-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w-0 (mul (rec x) x-0))) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul (rec x) x-0)))
-      (send (cat (gen) (mul (rec x) x-0)))))
-  (label 206)
-  (parent 173)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (gen) (mul w-0 (rec x-0))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (x-0 (mul (rec x) w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w-0))
-    (mul (rec x) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 (rec x-0))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (gen) (mul w-0 (rec x-0))))
-      (send (cat (gen) (mul w-0 (rec x-0))))))
-  (label 207)
-  (parent 173)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w-0 x-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (x-0 (mul x w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w-0)) (mul x w-0)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0)))
-      (send (exp (gen) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0)))
-      (send (cat (exp (gen) x-0) (mul x w-0)))) ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul w-0 x-0))) (send (cat (gen) (mul w-0 x-0)))))
-  (label 208)
-  (parent 173)
-  (unrealized (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul x (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w-0 (mul x (rec x-0) (rec x-0))) (x-2 x-0))
-    (one) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))))
-  (label 209)
-  (parent 174)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 x x)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 x-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (x-0 (mul w-0 x x)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul w-0 x x)) (mul w-0 x x)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x x-0)))
-      (send (enc n (exp (gen) (mul w-0 x x x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x x-0)))
-      (send (exp (gen) (mul w-0 x x x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 x x)))
-      (send (cat (exp (gen) x-0) (mul w-0 x x))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 x-0)))
-      (send (cat (exp (gen) x) (mul w-0 x-0)))))
-  (label 210)
-  (parent 174)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0) (rec x-0))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (x-0 (mul (rec x) w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w-0))
-    (mul (rec x) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 (rec x-0))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0) (rec x-0))))))
-  (label 211)
-  (parent 174)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (rec x-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul x (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-1 x-0) (w-0 (rec x-0))) (one)
-    (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (rec x-0)))
-      (send (cat (exp (gen) x) (rec x-0)))))
-  (label 212)
-  (parent 175)
-  (unrealized (0 1) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)))
-  (absent (x-0 w-0) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 w-0) w-0 (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0)))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0))))))
-  (label 213)
-  (parent 175)
-  (unrealized (0 1) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) w-0))
-  (deflistener x)
-  (precedes ((0 0) (7 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0)))
-      (send (exp (gen) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0)))
-      (send (cat (exp (gen) x-0) (mul x w-0)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) w-0)) (send (cat (exp (gen) x-0) w-0)))
-    ((recv x) (send x)))
-  (label 214)
-  (parent 175)
-  (unrealized (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-2 x) (x-3 x-0) (w-0 (mul (rec x) x-0 (rec x-1)))
-      (x-4 x-1)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 215)
-  (parent 176)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 (rec x-1))))
-    (x x-1))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-1))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (x-1 (mul (rec x) w-0 x-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 x-0 (rec x-1))) (gen)))
-  (pen-non-orig y x-1)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-1 (mul (rec x) w-0 x-0))
-    (mul (rec x) w-0 x-0) (5 0))
-  (traces
-    ((send (exp (gen) x-1)) (recv (exp (gen) (mul w-0 x-0 (rec x-1))))
-      (send (enc n (exp (gen) (mul w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x-0))) (send (exp (gen) (mul w-0 x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0 x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-1))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-1)))))
-    ((send (exp (gen) x-0))))
-  (label 216)
-  (parent 176)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 x-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0 x-1)))
-  (deflistener (cat (exp (gen) x-1) (mul x w-0 x-0)))
-  (defstrand init 1 (x x-1))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 x-1)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (x-1 (mul x w-0 x-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x-0 x-1)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-1 (mul x w-0 x-0))
-    (mul x w-0 x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0 x-1)))
-      (send (enc n (exp (gen) (mul x w-0 x-0 x-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0 x-1)))
-      (send (exp (gen) (mul x w-0 x-0 x-1))))
-    ((recv (cat (exp (gen) x-1) (mul x w-0 x-0)))
-      (send (cat (exp (gen) x-1) (mul x w-0 x-0))))
-    ((send (exp (gen) x-1)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 x-1)))
-      (send (cat (exp (gen) x-0) (mul w-0 x-1))))
-    ((send (exp (gen) x-0))))
-  (label 217)
-  (parent 176)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn) (w-0 expr) (x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (x-1 (mul x (rec x-0) w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-1 (mul x (rec x-0) w-0))
-    (mul x (rec x-0) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul w-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul w-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 218)
-  (parent 176)
-  (unrealized (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (7 0))
-    ((7 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w-0 (mul (rec x) x-0 (rec y)))
-      (y-0 y)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))))
-  (label 219)
-  (parent 177)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0 y)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec x-0))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (7 0))
-    ((7 1) (0 1)))
-  (absent (x-0 (mul (rec x) w-0 y)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 y (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w-0 y))
-    (mul (rec x) w-0 y) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 y (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0 y)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0 y))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) y) (mul w-0 (rec x-0))))))
-  (label 220)
-  (parent 177)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0 y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 x-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (7 0))
-    ((7 1) (0 1)))
-  (absent (x-0 (mul x w-0 y)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 y x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w-0 y)) (mul x w-0 y)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y x-0)))
-      (send (enc n (exp (gen) (mul x w-0 y x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y x-0)))
-      (send (exp (gen) (mul x w-0 y x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0 y)))
-      (send (cat (exp (gen) x-0) (mul x w-0 y))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 x-0)))
-      (send (cat (exp (gen) y) (mul w-0 x-0)))))
-  (label 221)
-  (parent 177)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x x-0 expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec y))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (7 0))
-    ((7 1) (0 1)))
-  (absent (y (mul x (rec x-0) w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x (rec x-0) w-0))
-    (mul x (rec x-0) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec y))))
-      (send (cat (exp (gen) y) (mul w-0 (rec y))))))
-  (label 222)
-  (parent 177)
-  (unrealized (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w-0 (mul (rec x) x-0 (rec y-0)))
-      (y-1 y-0)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) x-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 223)
-  (parent 178)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x-0))))
-    (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0 y-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (x-0 (mul (rec x) w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0 (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w-0 y-0))
-    (mul (rec x) w-0 y-0) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 y-0 (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0 y-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0 y-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 224)
-  (parent 178)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0 y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (x-0 (mul x w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0 x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w-0 y-0))
-    (mul x w-0 y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0 x-0)))
-      (send (exp (gen) (mul x w-0 y-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0 y-0)))
-      (send (cat (exp (gen) x-0) (mul x w-0 y-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 x-0)))
-      (send (cat (exp (gen) y-0) (mul w-0 x-0))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 225)
-  (parent 178)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x x-0 expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (y-0 (mul x (rec x-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x (rec x-0) w-0))
-    (mul x (rec x-0) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 226)
-  (parent 178)
-  (unrealized (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (gen) (mul (rec x) y)))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) y)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-0 y) (w-0 (mul (rec x) y))) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (gen) (mul (rec x) y)))
-      (send (cat (gen) (mul (rec x) y)))))
-  (label 227)
-  (parent 179)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0)))
-  (deflistener (cat (gen) (mul w-0 (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (x (mul (rec y) w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w-0))
-    (mul (rec y) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0))))
-    ((recv (cat (gen) (mul w-0 (rec x))))
-      (send (cat (gen) (mul w-0 (rec x))))))
-  (label 228)
-  (parent 179)
-  (unrealized (0 1) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w-0)))
-  (deflistener (cat (gen) (mul w-0 y)))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (mul x w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 y)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x w-0)) (mul x w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y))) (send (exp (gen) (mul x w-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w-0)))
-      (send (cat (exp (gen) y) (mul x w-0))))
-    ((recv (cat (gen) (mul w-0 y))) (send (cat (gen) (mul w-0 y)))))
-  (label 229)
-  (parent 179)
-  (unrealized (4 0) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) x) (mul y (rec x) (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul y (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (y-0 y) (w-0 (mul y (rec x) (rec x))) (x-0 x)) (one)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) x) (mul y (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x) (rec x))))))
-  (label 230)
-  (parent 180)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w w-0 expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x y)))
-  (deflistener (cat (exp (gen) y) (mul w-0 x x)))
-  (deflistener (cat (exp (gen) x) (mul w-0 y)))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (mul w-0 x x)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x y)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul w-0 x x)) (mul w-0 x x)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x y)))
-      (send (enc n (exp (gen) (mul w-0 x x y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x y)))
-      (send (exp (gen) (mul w-0 x x y))))
-    ((recv (cat (exp (gen) y) (mul w-0 x x)))
-      (send (cat (exp (gen) y) (mul w-0 x x))))
-    ((recv (cat (exp (gen) x) (mul w-0 y)))
-      (send (cat (exp (gen) x) (mul w-0 y)))))
-  (label 231)
-  (parent 180)
-  (unrealized (0 1) (4 0) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0)))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (x (mul (rec y) w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w-0))
-    (mul (rec y) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0))))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))))
-  (label 232)
-  (parent 180)
-  (unrealized (0 1) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (6 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul (rec x) y)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (y-0 y) (w-0 (mul (rec x) y (rec x-0)))
-      (x-2 x-0)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 233)
-  (parent 181)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0 x)))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (6 0)))
-  (absent (x-0 (mul (rec y) w-0 x)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec y) w-0 x))
-    (mul (rec y) w-0 x) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0 x)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0 x))))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x))))
-  (label 234)
-  (parent 181)
-  (unrealized (0 1) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (6 0)))
-  (absent (y (mul x w-0 x-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x-0 y)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x w-0 x-0))
-    (mul x w-0 x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 x-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0 y)))
-      (send (exp (gen) (mul x w-0 x-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w-0 x-0)))
-      (send (cat (exp (gen) y) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 y)))
-      (send (cat (exp (gen) x-0) (mul w-0 y))))
-    ((send (exp (gen) x-0))))
-  (label 235)
-  (parent 181)
-  (unrealized (0 1) (4 0) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (6 0)))
-  (absent (x-0 (mul x (rec y) w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x (rec y) w-0))
-    (mul x (rec y) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 236)
-  (parent 181)
-  (unrealized (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul y (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w-0 (rec x))) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))))
-  (label 237)
-  (parent 182)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w w-0 expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) y) w-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)))
-  (absent (x w-0) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 y (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w-0) w-0 (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y) (mul w-0 (rec x))))))
-  (label 238)
-  (parent 182)
-  (unrealized (0 1) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) w-0))
-  (deflistener x)
-  (precedes ((0 0) (6 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 y)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y))) (send (exp (gen) (mul x w-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w-0)))
-      (send (cat (exp (gen) y) (mul x w-0))))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0)))
-    ((recv x) (send x)))
-  (label 239)
-  (parent 182)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (6 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) y)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y) (w-0 (mul (rec x) y (rec y-0)))
-      (y-2 y-0)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 240)
-  (parent 183)
-  (unrealized (0 1) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (6 0)))
-  (absent (x (mul (rec y) w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w-0 y-0))
-    (mul (rec y) w-0 y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 241)
-  (parent 183)
-  (unrealized (0 1) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x expn) (w-0 expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul x w-0 y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul w-0 y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (6 0)))
-  (absent (y-0 (mul x w-0 y)) (y h) (y-0 (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y y-0)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w-0 y)) (mul x w-0 y)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul x w-0 y y-0)))
-      (send (exp (gen) (mul x w-0 y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0 y)))
-      (send (cat (exp (gen) y-0) (mul x w-0 y))))
-    ((recv (cat (exp (gen) y) (mul w-0 y-0)))
-      (send (cat (exp (gen) y) (mul w-0 y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 242)
-  (parent 183)
-  (unrealized (0 1) (4 0) (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (6 0)))
-  (absent (y-0 (mul x (rec y) w-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x (rec y) w-0))
-    (mul x (rec y) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 243)
-  (parent 183)
-  (unrealized (5 0) (6 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul (rec x) y-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y-0) (w-0 (mul (rec x) y-0))) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul (rec x) y-0)))
-      (send (cat (gen) (mul (rec x) y-0)))))
-  (label 244)
-  (parent 184)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul w-0 (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (x (mul (rec y-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y-0) w-0))
-    (mul (rec y-0) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul w-0 (rec x))))
-      (send (cat (gen) (mul w-0 (rec x))))))
-  (label 245)
-  (parent 184)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul w-0 y-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 (mul x w-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w-0)) (mul x w-0)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0)))
-      (send (cat (exp (gen) y-0) (mul x w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul w-0 y-0))) (send (cat (gen) (mul w-0 y-0)))))
-  (label 246)
-  (parent 184)
-  (unrealized (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul y-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (y-1 y-0) (w-0 (mul y-0 (rec x) (rec x))) (x-0 x)) (one)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y-0 (rec x))))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y-0 (rec x) (rec x))))))
-  (label 247)
-  (parent 185)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 x x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 y-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 (mul w-0 x x)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 x y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul w-0 x x)) (mul w-0 x x)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x y-0)))
-      (send (enc n (exp (gen) (mul w-0 x x y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x y-0)))
-      (send (exp (gen) (mul w-0 x x y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 x x)))
-      (send (cat (exp (gen) y-0) (mul w-0 x x))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 y-0)))
-      (send (cat (exp (gen) x) (mul w-0 y-0)))))
-  (label 248)
-  (parent 185)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (x (mul (rec y-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y-0) w-0))
-    (mul (rec y-0) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))))
-  (label 249)
-  (parent 185)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (y-1 y-0) (w-0 (mul (rec x) y-0 (rec x-0)))
-      (x-2 x-0)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y-0 (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 250)
-  (parent 186)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0 x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (x-0 (mul (rec y-0) w-0 x)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 x (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec y-0) w-0 x))
-    (mul (rec y-0) w-0 x) (5 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0 x)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0 x))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x))))
-  (label 251)
-  (parent 186)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0 x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 y-0)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (y-0 (mul x w-0 x-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 x-0 y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w-0 x-0))
-    (mul x w-0 x-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0 y-0)))
-      (send (exp (gen) (mul x w-0 x-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0 x-0)))
-      (send (cat (exp (gen) y-0) (mul x w-0 x-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 y-0)))
-      (send (cat (exp (gen) x-0) (mul w-0 y-0))))
-    ((send (exp (gen) x-0))))
-  (label 252)
-  (parent 186)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)))
-  (absent (x-0 (mul x (rec y-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x (rec y-0) w-0))
-    (mul x (rec y-0) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 253)
-  (parent 186)
-  (unrealized (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (7 0))
-    ((7 1) (0 1)))
-  (absent (y-0 (exp (gen) w)) (y h))
-  (neq ((exp (gen) w) (gen)) (h (gen))
-    ((exp (gen) (mul (rec x) y)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y) (w-0 (mul (rec x) y (rec y-0)))
-      (y-2 y-0)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))))
-  (label 254)
-  (parent 187)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (7 0))
-    ((7 1) (0 1)))
-  (absent (x (mul (rec y) w-0 y-0)) (y-0 (exp (gen) w)) (y h))
-  (neq ((exp (gen) w) (gen)) (h (gen))
-    ((exp (gen) (mul w-0 y-0 (rec x))) (gen)))
-  (pen-non-orig y-0 x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w-0 y-0))
-    (mul (rec y) w-0 y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0 y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x))))))
-  (label 255)
-  (parent 187)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x expn) (w-0 expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0 y)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 y-0)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (7 0))
-    ((7 1) (0 1)))
-  (absent (y-0 (mul x w-0 y)) (y (exp (gen) w)) (y-0 h))
-  (neq ((exp (gen) w) (gen)) (h (gen))
-    ((exp (gen) (mul w-0 y y-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w-0 y)) (mul x w-0 y)
-    (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y y-0)))
-      (send (exp (gen) (mul x w-0 y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0 y)))
-      (send (cat (exp (gen) y-0) (mul x w-0 y))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 y-0)))
-      (send (cat (exp (gen) y) (mul w-0 y-0)))))
-  (label 256)
-  (parent 187)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (7 0))
-    ((7 1) (0 1)))
-  (absent (y-0 (mul x (rec y) w-0)) (y-0 (exp (gen) w)) (y h))
-  (neq ((exp (gen) w) (gen)) (h (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig x y-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x (rec y) w-0))
-    (mul x (rec y) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0))))))
-  (label 257)
-  (parent 187)
-  (unrealized (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (rec x)))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul y-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w-0 (rec x))) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y-0 (rec x))))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (rec x)))
-      (send (cat (exp (gen) y-0) (rec x)))))
-  (label 258)
-  (parent 188)
-  (unrealized (0 1) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)))
-  (absent (x w-0) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w-0) w-0 (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x))))))
-  (label 259)
-  (parent 188)
-  (unrealized (0 1) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (deflistener x)
-  (precedes ((0 0) (7 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0)))
-      (send (cat (exp (gen) y-0) (mul x w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv x) (send x)))
-  (label 260)
-  (parent 188)
-  (unrealized (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul (rec x) y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (y-1 h-0) (y-0 h) (y (exp (gen) w)))
-  (neq (h-0 (gen)) (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul (rec x) y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-2 y-0) (w-0 (mul (rec x) y-0 (rec y-1)))
-      (y-3 y-1)) (one) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y-0)))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul (rec x) y-0 (rec y-1)))))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 261)
-  (parent 189)
-  (unrealized (0 1) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y y-0 expn) (w-0 expr)
-    (y-1 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-1 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-1)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0 y-1)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul w-0 (rec x))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (x (mul (rec y-0) w-0 y-1)) (y-1 h-0) (y-0 h)
-    (y (exp (gen) w)))
-  (neq (h-0 (gen)) (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-1 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 y-1 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y-0) w-0 y-1))
-    (mul (rec y-0) w-0 y-1) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-1 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-1))) (send (exp (gen) (mul w-0 y-1))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0 y-1)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0 y-1))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-1) (mul w-0 (rec x)))))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 262)
-  (parent 189)
-  (unrealized (0 1) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x expn) (w-0 expr)
-    (y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 y-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0 y-1)))
-  (deflistener (cat (exp (gen) y-1) (mul x w-0 y-0)))
-  (defstrand resp 2 (h h) (y y-1))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 y-1)))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (y-1 (mul x w-0 y-0)) (y-0 h-0) (y-1 h) (y (exp (gen) w)))
-  (neq (h-0 (gen)) (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0 y-1)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-1 (mul x w-0 y-0))
-    (mul x w-0 y-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 y-1)))
-      (send (enc n (exp (gen) (mul x w-0 y-0 y-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0 y-1)))
-      (send (exp (gen) (mul x w-0 y-0 y-1))))
-    ((recv (cat (exp (gen) y-1) (mul x w-0 y-0)))
-      (send (cat (exp (gen) y-1) (mul x w-0 y-0))))
-    ((recv h) (send (exp (gen) y-1)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 y-1)))
-      (send (cat (exp (gen) y-0) (mul w-0 y-1))))
-    ((recv h-0) (send (exp (gen) y-0))))
-  (label 263)
-  (parent 189)
-  (unrealized (0 1) (4 0) (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x y-0 expn) (w-0 expr)
-    (y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul w-0 (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)))
-  (absent (y-1 (mul x (rec y-0) w-0)) (y-1 h-0) (y-0 h)
-    (y (exp (gen) w)))
-  (neq (h-0 (gen)) (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-1 (mul x (rec y-0) w-0))
-    (mul x (rec y-0) w-0) (5 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul w-0 (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul w-0 (rec y-1)))))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 264)
-  (parent 189)
-  (unrealized (5 0) (7 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (gen) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x))))
-    ((recv x) (send x)))
-  (label 265)
-  (parent 190)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (gen) w-0))
-  (deflistener (cat (gen) (mul w-0 (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x w-0) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0)))
-    ((recv (cat (gen) (mul w-0 (rec x))))
-      (send (cat (gen) (mul w-0 (rec x))))) ((recv x) (send x)))
-  (label 266)
-  (parent 191)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (rec x))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (rec x)) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul (rec x) (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 267)
-  (parent 193)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (gen) w-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x w-0) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x) (rec x))
-    (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (gen) w-0)) (send (cat (gen) w-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 268)
-  (parent 194)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 0) (5 0)) ((7 0) (6 0)) ((8 1) (6 0)))
-  (absent (x-0 (mul w-0 x)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (6 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (gen) (mul w-0 x))) (send (cat (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x))) ((recv x-0) (send x-0)))
-  (label 269)
-  (parent 197)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 0) (5 0)) ((7 0) (8 0)) ((8 1) (6 0)))
-  (absent (x-0 (mul x w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x-0))) ((recv x-0) (send x-0)))
-  (label 270)
-  (parent 198)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w w-0 expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x (mul w-0 y)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 y (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (gen) (mul w-0 y))) (send (cat (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y) (mul w-0 (rec x))))) ((recv x) (send x)))
-  (label 271)
-  (parent 200)
-  (unrealized (5 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec y))))
-  (deflistener y)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y (mul x w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w-0 (rec y)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec y))))
-      (send (cat (exp (gen) y) (mul w-0 (rec y))))) ((recv y) (send y)))
-  (label 272)
-  (parent 201)
-  (unrealized (5 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)) ((7 1) (6 0)) ((8 1) (6 0)))
-  (absent (x (mul w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (gen) (mul w-0 y-0))) (send (cat (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv x) (send x)))
-  (label 273)
-  (parent 203)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (0 1)) ((7 1) (5 0)) ((7 1) (8 0)) ((8 1) (6 0)))
-  (absent (y-0 (mul x w-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 (rec y-0)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (gen) (mul x w-0))) (send (cat (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv y-0) (send y-0)))
-  (label 274)
-  (parent 204)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (precedes ((0 2) (1 2)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation generalization deleted (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y))))))
-  (label 275)
-  (parent 205)
-  (unrealized)
-  (shape)
-  (maps
-    ((0 1) ((n n) (hx (exp (gen) w)) (hy (exp (gen) w-0)) (x x) (y y))))
-  (origs (n (0 2))))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (gen) (mul w-0 (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x-0 (mul (rec x) w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 (rec x-0))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (gen) (mul w-0 (rec x-0))))
-      (send (cat (gen) (mul w-0 (rec x-0))))) ((recv x-0) (send x-0)))
-  (label 276)
-  (parent 207)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w-0 x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (8 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x-0 (mul x w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 x-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0)))
-      (send (exp (gen) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0)))
-      (send (cat (exp (gen) x-0) (mul x w-0)))) ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul w-0 x-0))) (send (cat (gen) (mul w-0 x-0))))
-    ((recv x-0) (send x-0)))
-  (label 277)
-  (parent 208)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 x x)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (8 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x-0 (mul w-0 x x)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 x-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x x-0)))
-      (send (enc n (exp (gen) (mul w-0 x x x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x x-0)))
-      (send (exp (gen) (mul w-0 x x x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 x x)))
-      (send (cat (exp (gen) x-0) (mul w-0 x x))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 x-0)))
-      (send (cat (exp (gen) x) (mul w-0 x-0)))) ((recv x-0) (send x-0)))
-  (label 278)
-  (parent 210)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0) (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x-0 (mul (rec x) w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0)
-    (mul w-0 (rec x-0) (rec x-0)) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 (rec x-0))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0) (rec x-0)))))
-    ((recv x-0) (send x-0)))
-  (label 279)
-  (parent 211)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (rec x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul x (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (rec x-0) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (rec x-0)))
-      (send (cat (exp (gen) x) (rec x-0)))) ((recv x-0) (send x-0)))
-  (label 280)
-  (parent 212)
-  (unrealized (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) x) w-0))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x-0 w-0) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) x) w-0)) (send (cat (exp (gen) x) w-0)))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0)))))
-    ((recv x-0) (send x-0)))
-  (label 281)
-  (parent 213)
-  (unrealized (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 (rec x-1))))
-    (x x-1))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-1))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-1)
-  (precedes ((0 0) (5 0)) ((0 0) (9 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)) ((9 1) (7 0)))
-  (absent (x-1 (mul (rec x) w-0 x-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 x-0 (rec x-1))) (gen)))
-  (pen-non-orig y x-1)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-1) (mul w-0 (rec x-1)) (7 0))
-  (traces
-    ((send (exp (gen) x-1)) (recv (exp (gen) (mul w-0 x-0 (rec x-1))))
-      (send (enc n (exp (gen) (mul w-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x-0))) (send (exp (gen) (mul w-0 x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0 x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-1))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-1)))))
-    ((send (exp (gen) x-0))) ((recv x-1) (send x-1)))
-  (label 282)
-  (parent 216)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn) (w-0 expr) (x-0 x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 x-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0 x-1)))
-  (deflistener (cat (exp (gen) x-1) (mul x w-0 x-0)))
-  (defstrand init 1 (x x-1))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener x-1)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (9 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)) ((9 1) (7 0)))
-  (absent (x-1 (mul x w-0 x-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x-0 x-1)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-1) (mul w-0 x-1) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0 x-1)))
-      (send (enc n (exp (gen) (mul x w-0 x-0 x-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0 x-1)))
-      (send (exp (gen) (mul x w-0 x-0 x-1))))
-    ((recv (cat (exp (gen) x-1) (mul x w-0 x-0)))
-      (send (cat (exp (gen) x-1) (mul x w-0 x-0))))
-    ((send (exp (gen) x-1)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 x-1)))
-      (send (cat (exp (gen) x-0) (mul w-0 x-1))))
-    ((send (exp (gen) x-0))) ((recv x-1) (send x-1)))
-  (label 283)
-  (parent 217)
-  (unrealized (4 0) (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x x-0 expn) (w-0 expr) (x-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (deflistener x-1)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (9 0)) ((9 1) (7 0)))
-  (absent (x-1 (mul x (rec x-0) w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-1) (mul w-0 (rec x-1)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul w-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul w-0 (rec x-1)))))
-    ((send (exp (gen) x-1))) ((recv x-1) (send x-1)))
-  (label 284)
-  (parent 218)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0 y)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (7 0))
-    ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x-0 (mul (rec x) w-0 y)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 y (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 y (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0 y)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0 y))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) y) (mul w-0 (rec x-0)))))
-    ((recv x-0) (send x-0)))
-  (label 285)
-  (parent 220)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0 y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (8 0))
-    ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x-0 (mul x w-0 y)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 y x-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 x-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y x-0)))
-      (send (enc n (exp (gen) (mul x w-0 y x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y x-0)))
-      (send (exp (gen) (mul x w-0 y x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0 y)))
-      (send (cat (exp (gen) x-0) (mul x w-0 y))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 x-0)))
-      (send (cat (exp (gen) y) (mul w-0 x-0)))) ((recv x-0) (send x-0)))
-  (label 286)
-  (parent 221)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x x-0 expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec y))))
-  (deflistener y)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (8 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 0) (5 0)) ((6 0) (7 0))
-    ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (y (mul x (rec x-0) w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w-0 (rec y)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec y))))
-      (send (cat (exp (gen) y) (mul w-0 (rec y))))) ((recv y) (send y)))
-  (label 287)
-  (parent 222)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x-0))))
-    (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w-0 y-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (9 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)) ((9 1) (7 0)))
-  (absent (x-0 (mul (rec x) w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0 (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 y-0 (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w-0 y-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w-0 y-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x-0)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv x-0) (send x-0)))
-  (label 288)
-  (parent 224)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 x-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w-0 y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (9 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)) ((9 1) (7 0)))
-  (absent (x-0 (mul x w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0 x-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 x-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 x-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0 x-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0 x-0)))
-      (send (exp (gen) (mul x w-0 y-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w-0 y-0)))
-      (send (cat (exp (gen) x-0) (mul x w-0 y-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 x-0)))
-      (send (cat (exp (gen) y-0) (mul w-0 x-0))))
-    ((recv h) (send (exp (gen) y-0))) ((recv x-0) (send x-0)))
-  (label 289)
-  (parent 225)
-  (unrealized (4 0) (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x x-0 expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 0) (5 0)) ((6 0) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (9 0)) ((9 1) (7 0)))
-  (absent (y-0 (mul x (rec x-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 (rec y-0)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w-0)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w-0))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv y-0) (send y-0)))
-  (label 290)
-  (parent 226)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0)))
-  (deflistener (cat (gen) (mul w-0 (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x (mul (rec y) w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0))))
-    ((recv (cat (gen) (mul w-0 (rec x))))
-      (send (cat (gen) (mul w-0 (rec x))))) ((recv x) (send x)))
-  (label 291)
-  (parent 228)
-  (unrealized (5 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w-0)))
-  (deflistener (cat (gen) (mul w-0 y)))
-  (deflistener y)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y (mul x w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 y)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w-0 y) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y))) (send (exp (gen) (mul x w-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w-0)))
-      (send (cat (exp (gen) y) (mul x w-0))))
-    ((recv (cat (gen) (mul w-0 y))) (send (cat (gen) (mul w-0 y))))
-    ((recv y) (send y)))
-  (label 292)
-  (parent 229)
-  (unrealized (4 0) (5 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w w-0 expr) (x y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x y)))
-  (deflistener (cat (exp (gen) y) (mul w-0 x x)))
-  (deflistener (cat (exp (gen) x) (mul w-0 y)))
-  (deflistener y)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y (mul w-0 x x)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x y)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w-0 y) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x y)))
-      (send (enc n (exp (gen) (mul w-0 x x y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x y)))
-      (send (exp (gen) (mul w-0 x x y))))
-    ((recv (cat (exp (gen) y) (mul w-0 x x)))
-      (send (cat (exp (gen) y) (mul w-0 x x))))
-    ((recv (cat (exp (gen) x) (mul w-0 y)))
-      (send (cat (exp (gen) x) (mul w-0 y)))) ((recv y) (send y)))
-  (label 293)
-  (parent 231)
-  (unrealized (4 0) (5 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0)))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x (mul (rec y) w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x) (rec x))
-    (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0))))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 294)
-  (parent 232)
-  (unrealized (5 0) (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0 x)))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (6 0)) ((8 1) (6 0)))
-  (absent (x-0 (mul (rec y) w-0 x)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (6 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0 x)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0 x))))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x))) ((recv x-0) (send x-0)))
-  (label 295)
-  (parent 234)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x expn) (w-0 expr) (x-0 y expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 y))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w-0 x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 y)))
-  (defstrand init 1 (x x-0))
-  (deflistener y)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (8 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (6 0)) ((8 1) (6 0)))
-  (absent (y (mul x w-0 x-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 x-0 y)) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w-0 y) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0 y)))
-      (send (enc n (exp (gen) (mul x w-0 x-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0 y)))
-      (send (exp (gen) (mul x w-0 x-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w-0 x-0)))
-      (send (cat (exp (gen) y) (mul x w-0 x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 y)))
-      (send (cat (exp (gen) x-0) (mul w-0 y)))) ((send (exp (gen) x-0)))
-    ((recv y) (send y)))
-  (label 296)
-  (parent 235)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (x y expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 0) (5 0))
-    ((7 0) (8 0)) ((8 1) (6 0)))
-  (absent (x-0 (mul x (rec y) w-0)) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0))))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x-0))) ((recv x-0) (send x-0)))
-  (label 297)
-  (parent 236)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul y (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
-  (label 298)
-  (parent 237)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (w w-0 expr) (y x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y)))
-  (deflistener (cat (exp (gen) y) w-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (6 0)))
-  (absent (x w-0) (y (exp (gen) w)))
-  (neq ((exp (gen) w) (gen)) ((exp (gen) (mul w-0 y (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y))) (send (exp (gen) (mul w-0 y))))
-    ((recv (cat (exp (gen) y) w-0)) (send (cat (exp (gen) y) w-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y) (mul w-0 (rec x))))) ((recv x) (send x)))
-  (label 299)
-  (parent 238)
-  (unrealized (7 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (6 0)) ((8 1) (6 0)))
-  (absent (x (mul (rec y) w-0 y-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv x) (send x)))
-  (label 300)
-  (parent 241)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x expn) (w-0 expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul x w-0 y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0 y)))
-  (deflistener (cat (exp (gen) y) (mul w-0 y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (8 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (6 0)) ((8 1) (6 0)))
-  (absent (y-0 (mul x w-0 y)) (y h) (y-0 (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y y-0)) (gen)))
-  (pen-non-orig x y-0)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 y-0) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul x w-0 y y-0)))
-      (send (exp (gen) (mul x w-0 y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0 y)))
-      (send (cat (exp (gen) y-0) (mul x w-0 y))))
-    ((recv (cat (exp (gen) y) (mul w-0 y-0)))
-      (send (cat (exp (gen) y) (mul w-0 y-0))))
-    ((recv h) (send (exp (gen) y))) ((recv y-0) (send y-0)))
-  (label 301)
-  (parent 242)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (6 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (6 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (0 1)) ((7 1) (5 0))
-    ((7 1) (8 0)) ((8 1) (6 0)))
-  (absent (y-0 (mul x (rec y) w-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig x y)
-  (precur (6 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 (rec y-0)) (6 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))) ((recv y-0) (send y-0)))
-  (label 302)
-  (parent 243)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul w-0 (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x (mul (rec y-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul w-0 (rec x))))
-      (send (cat (gen) (mul w-0 (rec x))))) ((recv x) (send x)))
-  (label 303)
-  (parent 245)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul w-0 y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (8 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (y-0 (mul x w-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 y-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0)))
-      (send (exp (gen) (mul x w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0)))
-      (send (cat (exp (gen) y-0) (mul x w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul w-0 y-0))) (send (cat (gen) (mul w-0 y-0))))
-    ((recv y-0) (send y-0)))
-  (label 304)
-  (parent 246)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (x y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x x y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 x x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (8 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (y-0 (mul w-0 x x)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 x y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 y-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x y-0)))
-      (send (enc n (exp (gen) (mul w-0 x x y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x x y-0)))
-      (send (exp (gen) (mul w-0 x x y-0))))
-    ((recv (cat (exp (gen) y-0) (mul w-0 x x)))
-      (send (cat (exp (gen) y-0) (mul w-0 x x))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 y-0)))
-      (send (cat (exp (gen) x) (mul w-0 y-0)))) ((recv y-0) (send y-0)))
-  (label 305)
-  (parent 248)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 expn) (w-0 expr) (x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) w-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x (mul (rec y-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x) (rec x))
-    (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 (rec x))))
-      (send (enc n (exp (gen) w-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) w-0)) (send (exp (gen) w-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 306)
-  (parent 249)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 expn) (w-0 expr) (x x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x (rec x-0)))) (x x-0))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 x)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0 x)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (9 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)) ((9 1) (7 0)))
-  (absent (x-0 (mul (rec y-0) w-0 x)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 x (rec x-0))) (gen)))
-  (pen-non-orig y x-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (7 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w-0 x (rec x-0))))
-      (send (enc n (exp (gen) (mul w-0 x)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 x))) (send (exp (gen) (mul w-0 x))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0 x)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0 x))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x))) ((recv x-0) (send x-0)))
-  (label 307)
-  (parent 251)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x expn) (w-0 expr) (x-0 y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 x-0 y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 x-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0 x-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (9 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (7 0)) ((9 1) (7 0)))
-  (absent (y-0 (mul x w-0 x-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 x-0 y-0)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 y-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 x-0 y-0)))
-      (send (enc n (exp (gen) (mul x w-0 x-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 x-0 y-0)))
-      (send (exp (gen) (mul x w-0 x-0 y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0 x-0)))
-      (send (cat (exp (gen) y-0) (mul x w-0 x-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 y-0)))
-      (send (cat (exp (gen) x-0) (mul w-0 y-0))))
-    ((send (exp (gen) x-0))) ((recv y-0) (send y-0)))
-  (label 308)
-  (parent 252)
-  (unrealized (4 0) (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y x y-0 expn) (w-0 expr) (x-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 0) (5 0))
-    ((8 0) (9 0)) ((9 1) (7 0)))
-  (absent (x-0 (mul x (rec y-0) w-0)) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w-0 (rec x-0)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul w-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w-0 (rec x-0)))))
-    ((send (exp (gen) x-0))) ((recv x-0) (send x-0)))
-  (label 309)
-  (parent 253)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (7 0))
-    ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x (mul (rec y) w-0 y-0)) (y-0 (exp (gen) w)) (y h))
-  (neq ((exp (gen) w) (gen)) (h (gen))
-    ((exp (gen) (mul w-0 y-0 (rec x))) (gen)))
-  (pen-non-orig y-0 x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w-0 y-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w-0 y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x)))))
-    ((recv x) (send x)))
-  (label 310)
-  (parent 255)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x expn) (w-0 expr) (y y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y y-0))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w-0 y)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w-0 y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (7 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (8 0))
-    ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (y-0 (mul x w-0 y)) (y (exp (gen) w)) (y-0 h))
-  (neq ((exp (gen) w) (gen)) (h (gen))
-    ((exp (gen) (mul w-0 y y-0)) (gen)))
-  (pen-non-orig x y)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 y-0) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y y-0)))
-      (send (enc n (exp (gen) (mul x w-0 y y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y y-0)))
-      (send (exp (gen) (mul x w-0 y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w-0 y)))
-      (send (cat (exp (gen) y-0) (mul x w-0 y))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul w-0 y-0)))
-      (send (cat (exp (gen) y) (mul w-0 y-0)))) ((recv y-0) (send y-0)))
-  (label 311)
-  (parent 256)
-  (unrealized (4 0) (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (x y expn) (w-0 expr) (y-0 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y-0) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-  (deflistener y-0)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 1) (5 0)) ((1 1) (8 0)) ((2 1) (1 2)) ((3 1) (2 0))
-    ((4 1) (1 2)) ((5 1) (4 0)) ((6 1) (5 0)) ((6 1) (7 0))
-    ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (y-0 (mul x (rec y) w-0)) (y-0 (exp (gen) w)) (y h))
-  (neq ((exp (gen) w) (gen)) (h (gen)) ((exp (gen) w-0) (gen)))
-  (pen-non-orig x y-0)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w-0 (rec y-0)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec y-0)))))
-    ((recv y-0) (send y-0)))
-  (label 312)
-  (parent 257)
-  (unrealized (5 0) (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) y-0))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul y-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y-0 (rec x))))
-      (send (enc n (exp (gen) y-0))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (rec x)))
-      (send (cat (exp (gen) y-0) (rec x)))) ((recv x) (send x)))
-  (label 313)
-  (parent 258)
-  (unrealized (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h base) (w expr) (y expn) (w-0 expr) (y-0 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-0)))
-  (deflistener (cat (exp (gen) y-0) w-0))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (8 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (7 0)))
-  (absent (x w-0) (y-0 h) (y (exp (gen) w)))
-  (neq (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-0))) (send (exp (gen) (mul w-0 y-0))))
-    ((recv (cat (exp (gen) y-0) w-0)) (send (cat (exp (gen) y-0) w-0)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-0) (mul w-0 (rec x)))))
-    ((recv x) (send x)))
-  (label 314)
-  (parent 259)
-  (unrealized (8 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y y-0 expn) (w-0 expr)
-    (y-1 x expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-1 (rec x)))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul w-0 y-1)))
-  (deflistener (cat (exp (gen) y-0) (mul (rec y-0) w-0 y-1)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul w-0 (rec x))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (deflistener x)
-  (precedes ((0 0) (5 0)) ((0 0) (9 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)) ((9 1) (7 0)))
-  (absent (x (mul (rec y-0) w-0 y-1)) (y-1 h-0) (y-0 h)
-    (y (exp (gen) w)))
-  (neq (h-0 (gen)) (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-1 (rec x))) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y y-0 y-1 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w-0 (rec x)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-1 (rec x))))
-      (send (enc n (exp (gen) (mul w-0 y-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul w-0 y-1))) (send (exp (gen) (mul w-0 y-1))))
-    ((recv (cat (exp (gen) y-0) (mul (rec y-0) w-0 y-1)))
-      (send (cat (exp (gen) y-0) (mul (rec y-0) w-0 y-1))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul w-0 (rec x))))
-      (send (cat (exp (gen) y-1) (mul w-0 (rec x)))))
-    ((recv h-0) (send (exp (gen) y-1))) ((recv x) (send x)))
-  (label 315)
-  (parent 262)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x expn) (w-0 expr)
-    (y-0 y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) (mul w-0 y-0 y-1))) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0 y-0 y-1)))
-  (deflistener (cat (exp (gen) y-1) (mul x w-0 y-0)))
-  (defstrand resp 2 (h h) (y y-1))
-  (deflistener (cat (exp (gen) y-0) (mul w-0 y-1)))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (deflistener y-1)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (9 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (7 0)) ((9 1) (7 0)))
-  (absent (y-1 (mul x w-0 y-0)) (y-0 h-0) (y-1 h) (y (exp (gen) w)))
-  (neq (h-0 (gen)) (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) (mul w-0 y-0 y-1)) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-1) (mul w-0 y-1) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w-0 y-0 y-1)))
-      (send (enc n (exp (gen) (mul x w-0 y-0 y-1)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0 y-0 y-1)))
-      (send (exp (gen) (mul x w-0 y-0 y-1))))
-    ((recv (cat (exp (gen) y-1) (mul x w-0 y-0)))
-      (send (cat (exp (gen) y-1) (mul x w-0 y-0))))
-    ((recv h) (send (exp (gen) y-1)))
-    ((recv (cat (exp (gen) y-0) (mul w-0 y-1)))
-      (send (cat (exp (gen) y-0) (mul w-0 y-1))))
-    ((recv h-0) (send (exp (gen) y-0))) ((recv y-1) (send y-1)))
-  (label 316)
-  (parent 263)
-  (unrealized (4 0) (5 0) (9 0))
-  (comment "empty cohort"))
-
-(defskeleton dh_mim
-  (vars (n text) (h h-0 base) (w expr) (y x y-0 expn) (w-0 expr)
-    (y-1 expn))
-  (defstrand init 3 (n n) (h (exp (gen) w-0)) (x x))
-  (defstrand resp 3 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener (exp (gen) (mul x w-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul w-0 (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (deflistener y-1)
-  (precedes ((0 0) (5 0)) ((0 0) (7 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (1 2)) ((5 1) (4 0))
-    ((6 1) (5 0)) ((6 1) (7 0)) ((7 1) (0 1)) ((8 1) (5 0))
-    ((8 1) (9 0)) ((9 1) (7 0)))
-  (absent (y-1 (mul x (rec y-0) w-0)) (y-1 h-0) (y-0 h)
-    (y (exp (gen) w)))
-  (neq (h-0 (gen)) (h (gen)) ((exp (gen) w) (gen))
-    ((exp (gen) w-0) (gen)))
-  (pen-non-orig y x)
-  (precur (7 0) (5 0) (3 0))
-  (uniq-gen y x y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-1) (mul w-0 (rec y-1)) (7 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w-0))
-      (send (enc n (exp (gen) (mul x w-0)))))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv (exp (gen) (mul x w-0))) (send (exp (gen) (mul x w-0))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0) w-0)))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0) w-0))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul w-0 (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul w-0 (rec y-1)))))
-    ((recv h-0) (send (exp (gen) y-1))) ((recv y-1) (send y-1)))
-  (label 317)
-  (parent 264)
-  (unrealized (5 0) (9 0))
-  (comment "empty cohort"))
+(comment "CPSA 3.5.0")
+(comment "All input read from dh_mim2.scm")
+
+(defprotocol dh_mim diffie-hellman
+  (defrole init
+    (vars (x rndx) (y expt) (n text))
+    (trace (send (exp (gen) x)) (recv (exp (gen) y))
+      (send (enc n (exp (gen) (mul x y)))))
+    (uniq-orig n)
+    (uniq-gen x)
+    (neq (y (one))))
+  (defrole resp
+    (vars (y rndx) (x expt) (n text))
+    (trace (recv (exp (gen) x)) (send (exp (gen) y))
+      (recv (enc n (exp (gen) (mul y x)))))
+    (uniq-gen y)
+    (neq (x (one)))
+    (absent (y (exp (gen) x))))
+  (comment "Diffie-hellman key exchange followed by an encryption"))
+
+(defskeleton dh_mim
+  (vars (n text) (x0 y0 expt) (x y rndx))
+  (defstrand init 3 (n n) (x x) (y y0))
+  (defstrand resp 3 (n n) (y y) (x x0))
+  (precedes ((0 2) (1 2)))
+  (absent (y (exp (gen) x0)))
+  (neq (x0 (one)) (y0 (one)))
+  (pen-non-orig x y)
+  (uniq-gen x y)
+  (uniq-orig n)
+  (comment "Agreement on the encrypted text only")
+  (traces
+    ((send (exp (gen) x)) (recv (exp (gen) y0))
+      (send (enc n (exp (gen) (mul y0 x)))))
+    ((recv (exp (gen) x0)) (send (exp (gen) y))
+      (recv (enc n (exp (gen) (mul x0 y))))))
+  (label 0)
+  (unrealized)
+  (shape)
+  (maps ((0 1) ((n n) (x0 x0) (y0 y0) (x x) (y y))))
+  (origs (n (0 2))))
 
 (comment "Nothing left to do")
diff --git a/tst/dh_sig.scm b/tst/dh_sig.scm
--- a/tst/dh_sig.scm
+++ b/tst/dh_sig.scm
@@ -3,18 +3,18 @@
 
 (defprotocol dh_sig diffie-hellman
   (defrole init
-    (vars (x expn) (h base) (a b name))
+    (vars (x rndx) (y expt) (a b name))
     (trace
      (send (exp (gen) x))
-     (recv (enc h (exp (gen) x) (privk b)))
-     (send (enc h (exp (gen) x) (privk a))))
+     (recv (enc (exp (gen) y) (exp (gen) x) (privk b)))
+     (send (enc (exp (gen) y) (exp (gen) x) (privk a))))
     (uniq-gen x))
   (defrole resp
-    (vars (y expn) (h base) (a b name))
+    (vars (y rndx) (x expt) (a b name))
     (trace
-     (recv h)
-     (send (enc (exp (gen) y) h (privk b)))
-     (recv (enc (exp (gen) y) h (privk a))))
+     (recv (exp (gen) x))
+     (send (enc (exp (gen) y) (exp (gen) x) (privk b)))
+     (recv (enc (exp (gen) y) (exp (gen) x) (privk a))))
     (uniq-gen y))
 )
 
@@ -32,18 +32,18 @@
 
 (defprotocol dh_sig2 diffie-hellman
   (defrole init
-    (vars (x expn) (h base) (a b name))
+    (vars (x rndx) (y expt) (a b name))
     (trace
      (send (exp (gen) x))
-     (recv (enc h (exp (gen) x) (privk b)))
-     (send (enc (exp (gen) x) h b (privk a))))
+     (recv (enc (exp (gen) y) (exp (gen) x) (privk b)))
+     (send (enc (exp (gen) x) (exp (gen) y) b (privk a))))
     (uniq-gen x))
   (defrole resp
-    (vars (y expn) (h base) (a b name))
+    (vars (y rndx) (x expt) (a b name))
     (trace
-     (recv h)
-     (send (enc (exp (gen) y) h (privk b)))
-     (recv (enc h (exp (gen) y) b (privk a))))
+     (recv (exp (gen) x))
+     (send (enc (exp (gen) y) (exp (gen) x) (privk b)))
+     (recv (enc (exp (gen) x) (exp (gen) y) b (privk a))))
     (uniq-gen y))
 )
 
diff --git a/tst/dh_sig.tst b/tst/dh_sig.tst
--- a/tst/dh_sig.tst
+++ b/tst/dh_sig.tst
@@ -1,42 +1,45 @@
 (herald "Signed DH exchange" (algebra diffie-hellman))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from dh_sig.scm")
 
 (defprotocol dh_sig diffie-hellman
   (defrole init
-    (vars (x expn) (h base) (a b name))
-    (trace (send (exp (gen) x)) (recv (enc h (exp (gen) x) (privk b)))
-      (send (enc h (exp (gen) x) (privk a))))
+    (vars (x rndx) (y expt) (a b name))
+    (trace (send (exp (gen) x))
+      (recv (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (send (enc (exp (gen) y) (exp (gen) x) (privk a))))
     (uniq-gen x))
   (defrole resp
-    (vars (y expn) (h base) (a b name))
-    (trace (recv h) (send (enc (exp (gen) y) h (privk b)))
-      (recv (enc (exp (gen) y) h (privk a))))
+    (vars (y rndx) (x expt) (a b name))
+    (trace (recv (exp (gen) x))
+      (send (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (recv (enc (exp (gen) y) (exp (gen) x) (privk a))))
     (uniq-gen y)
-    (absent (y h))))
+    (absent (y (exp (gen) x)))))
 
 (defskeleton dh_sig
-  (vars (a b name) (h base) (x expn))
-  (defstrand init 3 (a a) (b b) (h h) (x x))
+  (vars (a b name) (x rndx) (y expt))
+  (defstrand init 3 (a a) (b b) (x x) (y y))
   (non-orig (privk a) (privk b))
   (uniq-gen x)
   (traces
-    ((send (exp (gen) x)) (recv (enc h (exp (gen) x) (privk b)))
-      (send (enc h (exp (gen) x) (privk a)))))
+    ((send (exp (gen) x))
+      (recv (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (send (enc (exp (gen) y) (exp (gen) x) (privk a)))))
   (label 0)
   (unrealized (0 1))
   (origs)
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton dh_sig
-  (vars (a b name) (x y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (h (exp (gen) x)) (y y))
+  (vars (a b name) (y x rndx))
+  (defstrand init 3 (a a) (b b) (x x) (y y))
+  (defstrand resp 2 (b b) (y y) (x x))
   (precedes ((0 0) (1 0)) ((1 1) (0 1)))
   (absent (y (exp (gen) x)))
   (non-orig (privk a) (privk b))
-  (uniq-gen x y)
+  (uniq-gen y x)
   (operation encryption-test (added-strand resp 2)
     (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
   (traces
@@ -49,42 +52,45 @@
   (parent 0)
   (unrealized)
   (shape)
-  (maps ((0) ((a a) (b b) (x x) (h (exp (gen) y)))))
+  (maps ((0) ((a a) (b b) (x x) (y y))))
   (origs))
 
 (comment "Nothing left to do")
 
 (defprotocol dh_sig diffie-hellman
   (defrole init
-    (vars (x expn) (h base) (a b name))
-    (trace (send (exp (gen) x)) (recv (enc h (exp (gen) x) (privk b)))
-      (send (enc h (exp (gen) x) (privk a))))
+    (vars (x rndx) (y expt) (a b name))
+    (trace (send (exp (gen) x))
+      (recv (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (send (enc (exp (gen) y) (exp (gen) x) (privk a))))
     (uniq-gen x))
   (defrole resp
-    (vars (y expn) (h base) (a b name))
-    (trace (recv h) (send (enc (exp (gen) y) h (privk b)))
-      (recv (enc (exp (gen) y) h (privk a))))
+    (vars (y rndx) (x expt) (a b name))
+    (trace (recv (exp (gen) x))
+      (send (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (recv (enc (exp (gen) y) (exp (gen) x) (privk a))))
     (uniq-gen y)
-    (absent (y h))))
+    (absent (y (exp (gen) x)))))
 
 (defskeleton dh_sig
-  (vars (a b name) (h base) (y expn))
-  (defstrand resp 3 (a a) (b b) (h h) (y y))
-  (absent (y h))
+  (vars (a b name) (y rndx) (x expt))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (absent (y (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (uniq-gen y)
   (traces
-    ((recv h) (send (enc (exp (gen) y) h (privk b)))
-      (recv (enc (exp (gen) y) h (privk a)))))
+    ((recv (exp (gen) x))
+      (send (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (recv (enc (exp (gen) y) (exp (gen) x) (privk a)))))
   (label 2)
   (unrealized (0 2))
   (origs)
   (comment "2 in cohort - 2 not yet seen"))
 
 (defskeleton dh_sig
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
+  (vars (a b b-0 name) (y x rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
   (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))
   (absent (y (exp (gen) x)))
   (non-orig (privk a) (privk b))
@@ -102,63 +108,67 @@
   (parent 2)
   (unrealized)
   (shape)
-  (maps ((0) ((a a) (b b) (y y) (h (exp (gen) x)))))
+  (maps ((0) ((a a) (b b) (y y) (x x))))
   (origs))
 
 (defskeleton dh_sig
-  (vars (b name) (h base) (y expn))
-  (defstrand resp 3 (a b) (b b) (h h) (y y))
-  (absent (y h))
+  (vars (b name) (y rndx) (x expt))
+  (defstrand resp 3 (a b) (b b) (y y) (x x))
+  (absent (y (exp (gen) x)))
   (non-orig (privk b))
   (uniq-gen y)
   (operation encryption-test (displaced 1 0 resp 2)
-    (enc (exp (gen) y) h (privk a)) (0 2))
+    (enc (exp (gen) y) (exp (gen) x) (privk a)) (0 2))
   (traces
-    ((recv h) (send (enc (exp (gen) y) h (privk b)))
-      (recv (enc (exp (gen) y) h (privk b)))))
+    ((recv (exp (gen) x))
+      (send (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (recv (enc (exp (gen) y) (exp (gen) x) (privk b)))))
   (label 4)
   (parent 2)
   (unrealized)
   (shape)
-  (maps ((0) ((a b) (b b) (y y) (h h))))
+  (maps ((0) ((a b) (b b) (y y) (x x))))
   (origs))
 
 (comment "Nothing left to do")
 
 (defprotocol dh_sig2 diffie-hellman
   (defrole init
-    (vars (x expn) (h base) (a b name))
-    (trace (send (exp (gen) x)) (recv (enc h (exp (gen) x) (privk b)))
-      (send (enc (exp (gen) x) h b (privk a))))
+    (vars (x rndx) (y expt) (a b name))
+    (trace (send (exp (gen) x))
+      (recv (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (privk a))))
     (uniq-gen x))
   (defrole resp
-    (vars (y expn) (h base) (a b name))
-    (trace (recv h) (send (enc (exp (gen) y) h (privk b)))
-      (recv (enc h (exp (gen) y) b (privk a))))
+    (vars (y rndx) (x expt) (a b name))
+    (trace (recv (exp (gen) x))
+      (send (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (privk a))))
     (uniq-gen y)
-    (absent (y h))))
+    (absent (y (exp (gen) x)))))
 
 (defskeleton dh_sig2
-  (vars (a b name) (h base) (x expn))
-  (defstrand init 3 (a a) (b b) (h h) (x x))
+  (vars (a b name) (x rndx) (y expt))
+  (defstrand init 3 (a a) (b b) (x x) (y y))
   (non-orig (privk a) (privk b))
   (uniq-gen x)
   (traces
-    ((send (exp (gen) x)) (recv (enc h (exp (gen) x) (privk b)))
-      (send (enc (exp (gen) x) h b (privk a)))))
+    ((send (exp (gen) x))
+      (recv (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (privk a)))))
   (label 5)
   (unrealized (0 1))
   (origs)
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton dh_sig2
-  (vars (a b name) (x y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (h (exp (gen) x)) (y y))
+  (vars (a b name) (y x rndx))
+  (defstrand init 3 (a a) (b b) (x x) (y y))
+  (defstrand resp 2 (b b) (y y) (x x))
   (precedes ((0 0) (1 0)) ((1 1) (0 1)))
   (absent (y (exp (gen) x)))
   (non-orig (privk a) (privk b))
-  (uniq-gen x y)
+  (uniq-gen y x)
   (operation encryption-test (added-strand resp 2)
     (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
   (traces
@@ -171,46 +181,49 @@
   (parent 5)
   (unrealized)
   (shape)
-  (maps ((0) ((a a) (b b) (x x) (h (exp (gen) y)))))
+  (maps ((0) ((a a) (b b) (x x) (y y))))
   (origs))
 
 (comment "Nothing left to do")
 
 (defprotocol dh_sig2 diffie-hellman
   (defrole init
-    (vars (x expn) (h base) (a b name))
-    (trace (send (exp (gen) x)) (recv (enc h (exp (gen) x) (privk b)))
-      (send (enc (exp (gen) x) h b (privk a))))
+    (vars (x rndx) (y expt) (a b name))
+    (trace (send (exp (gen) x))
+      (recv (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (privk a))))
     (uniq-gen x))
   (defrole resp
-    (vars (y expn) (h base) (a b name))
-    (trace (recv h) (send (enc (exp (gen) y) h (privk b)))
-      (recv (enc h (exp (gen) y) b (privk a))))
+    (vars (y rndx) (x expt) (a b name))
+    (trace (recv (exp (gen) x))
+      (send (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (privk a))))
     (uniq-gen y)
-    (absent (y h))))
+    (absent (y (exp (gen) x)))))
 
 (defskeleton dh_sig2
-  (vars (a b name) (h base) (y expn))
-  (defstrand resp 3 (a a) (b b) (h h) (y y))
-  (absent (y h))
+  (vars (a b name) (y rndx) (x expt))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (absent (y (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (uniq-gen y)
   (traces
-    ((recv h) (send (enc (exp (gen) y) h (privk b)))
-      (recv (enc h (exp (gen) y) b (privk a)))))
+    ((recv (exp (gen) x))
+      (send (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (privk a)))))
   (label 7)
   (unrealized (0 2))
   (origs)
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton dh_sig2
-  (vars (a b name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
+  (vars (a b name) (x y rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b) (x x) (y y))
   (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))
   (absent (y (exp (gen) x)))
   (non-orig (privk a) (privk b))
-  (uniq-gen y x)
+  (uniq-gen x y)
   (operation encryption-test (added-strand init 3)
     (enc (exp (gen) x) (exp (gen) y) b (privk a)) (0 2))
   (traces
@@ -224,7 +237,7 @@
   (parent 7)
   (unrealized)
   (shape)
-  (maps ((0) ((a a) (b b) (y y) (h (exp (gen) x)))))
+  (maps ((0) ((a a) (b b) (y y) (x x))))
   (origs))
 
 (comment "Nothing left to do")
diff --git a/tst/dh_test.scm b/tst/dh_test.scm
--- a/tst/dh_test.scm
+++ b/tst/dh_test.scm
@@ -3,7 +3,7 @@
 (comment
 (defprotocol foo diffie-hellman
   (defrole init
-    (vars (h base) (k akey) (x expn))
+    (vars (h base) (k akey) (x rndx))
     (trace
        (send (enc (exp (gen) x) k))
        (recv (enc (exp h x) k))
@@ -19,7 +19,7 @@
 
 (defprotocol bar diffie-hellman
   (defrole init
-    (vars (h base) (x z expn))
+    (vars (h base) (x z rndx))
     (trace
        (send (exp (gen) x))
        (recv (exp (gen) (mul x z)))
@@ -29,12 +29,12 @@
 )
 
 (defskeleton bar
-  (vars (x expn))
+  (vars (x rndx))
   (defstrand init 2 (x x)))
 
 (defprotocol bar2 diffie-hellman
   (defrole init
-    (vars (h base) (x z expn))
+    (vars (h base) (x z rndx))
     (trace
        (send (exp h x))
        (recv (exp (gen) x))
@@ -44,12 +44,12 @@
 )
 
 (defskeleton bar2
-  (vars (x expn))
+  (vars (x rndx))
   (defstrand init 2 (x x)))
 
 (defprotocol baz diffie-hellman
   (defrole init
-    (vars (h base) (x z expn) (k akey))
+    (vars (h base) (x z rndx) (k akey))
     (trace
        (send (enc (exp (gen) x) k))
        (recv (enc (exp (gen) (mul x z)) k))
@@ -60,12 +60,12 @@
 )
 
 (defskeleton baz
-  (vars (x expn))
+  (vars (x rndx))
   (defstrand init 2 (x x)))
 
 (defprotocol bazar diffie-hellman
   (defrole init
-    (vars (h base) (t text) (x z expn) (k skey))
+    (vars (h base) (t text) (x z rndx) (k skey))
     (trace
        (send (enc (exp (gen) (mul x z)) k))
        (recv (exp (gen) x))
@@ -87,7 +87,7 @@
 
 (defprotocol foo2 diffie-hellman
   (defrole init
-    (vars (h base) (x expn))
+    (vars (h base) (x rndx))
     (trace
        (send (cat (exp (gen) x)
 		  (enc "foo" (exp h x))))
@@ -104,10 +104,10 @@
     (vars (h base))
     (trace (recv h)))
   (defrole init
-    (vars (x expn))
+    (vars (x rndx))
     (trace (send (exp (gen) x)))))
 
 (defskeleton foo3
-   (vars (x expn))
+   (vars (x rndx))
    (defstrand resp 1 (h (exp (gen) x)))
    (non-orig x))
diff --git a/tst/dh_test.tst b/tst/dh_test.tst
--- a/tst/dh_test.tst
+++ b/tst/dh_test.tst
@@ -1,16 +1,16 @@
 (herald "Diffie-Hellman protocol, man-in-the-middle attack"
   (algebra diffie-hellman) (bound 20))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from dh_test.scm")
 (comment "Strand count bounded at 20")
 
 (defprotocol foo3 diffie-hellman
   (defrole resp (vars (h base)) (trace (recv h)))
-  (defrole init (vars (x expn)) (trace (send (exp (gen) x)))))
+  (defrole init (vars (x rndx)) (trace (send (exp (gen) x)))))
 
 (defskeleton foo3
-  (vars (x expn))
+  (vars (x rndx))
   (defstrand resp 1 (h (exp (gen) x)))
   (non-orig x)
   (traces ((recv (exp (gen) x))))
@@ -20,7 +20,7 @@
   (comment "2 in cohort - 2 not yet seen"))
 
 (defskeleton foo3
-  (vars (x expn))
+  (vars (x rndx))
   (defstrand resp 1 (h (exp (gen) x)))
   (defstrand init 1 (x x))
   (precedes ((1 0) (0 0)))
@@ -35,7 +35,7 @@
   (origs))
 
 (defskeleton foo3
-  (vars (x expn) (w expr))
+  (vars (x rndx) (w expt))
   (defstrand resp 1 (h (exp (gen) x)))
   (deflistener (cat (exp (gen) (mul x (rec w))) w))
   (precedes ((1 1) (0 0)))
@@ -53,7 +53,7 @@
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton foo3
-  (vars (x x-0 expn))
+  (vars (x x-0 rndx))
   (defstrand resp 1 (h (exp (gen) x)))
   (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
   (defstrand init 1 (x x-0))
@@ -71,7 +71,7 @@
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton foo3
-  (vars (x expn))
+  (vars (x rndx))
   (defstrand resp 1 (h (exp (gen) x)))
   (deflistener (cat (exp (gen) x) (one)))
   (defstrand init 1 (x x))
diff --git a/tst/dhnsl_basic.scm b/tst/dhnsl_basic.scm
--- a/tst/dhnsl_basic.scm
+++ b/tst/dhnsl_basic.scm
@@ -4,23 +4,23 @@
 
 (defprotocol dhnsl diffie-hellman
   (defrole resp
-    (vars (b a name) (h1 base) (y expn))
+    (vars (b a name) (x expt) (y rndx))
     (trace
-     (recv (enc h1 a (pubk b)))
-     (send (enc h1 (exp (gen) y) b (pubk a)))
+     (recv (enc (exp (gen) x) a (pubk b)))
+     (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
      (recv (enc (exp (gen) y) (pubk b)))
      
      )
-    (absent (y h1))
+    (absent (y (exp (gen) x)))
 ;    (uniq-gen y)
     (comment "Y and Z should be assumed to be freshly chosen per role")
   )
   (defrole init
-    (vars (a b name) (h2 base) (x expn))
+    (vars (a b name) (y expt) (x rndx))
     (trace
      (send (enc (exp (gen) x) a (pubk b)))
-     (recv (enc (exp (gen) x) h2 b (pubk a)))
-     (send (enc h2 (pubk b)))
+     (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+     (send (enc (exp (gen) y) (pubk b)))
     )
 ;    (uniq-gen x)
     (comment "X should be assumed to be freshly chosen per role")
@@ -30,16 +30,16 @@
 
 ;;; The initiator point-of-view
 (defskeleton dhnsl
-  (vars (a b name) (h2 h3 base) (x expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
+  (vars (a b name) (y expt) (x rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
   (non-orig (privk b) (privk a))
   (uniq-gen x)
   (comment "Initiator point-of-view"))
 
 ;; The responder point-of-view
 (defskeleton dhnsl
-  (vars (a b name) (h1 base) (y z expn))
-  (defstrand resp 3 (a a) (b b) (h1 h1) (y y))
+  (vars (a b name) (x expt) (y rndx))
+  (defstrand resp 3 (a a) (b b) (x x) (y y))
   (non-orig (privk a))
   (uniq-gen y)
   (comment "Responder point-of-view"))
diff --git a/tst/dhnsl_basic.tst b/tst/dhnsl_basic.tst
--- a/tst/dhnsl_basic.tst
+++ b/tst/dhnsl_basic.tst
@@ -1,63 +1,65 @@
 (herald "Diffie-Hellman enhanced Needham-Schroeder-Lowe Protocol"
   (algebra diffie-hellman))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from dhnsl_basic.scm")
 
 (defprotocol dhnsl diffie-hellman
   (defrole resp
-    (vars (b a name) (h1 base) (y expn))
-    (trace (recv (enc h1 a (pubk b)))
-      (send (enc h1 (exp (gen) y) b (pubk a)))
+    (vars (b a name) (x expt) (y rndx))
+    (trace (recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
       (recv (enc (exp (gen) y) (pubk b))))
-    (absent (y h1))
+    (absent (y (exp (gen) x)))
     (comment "Y and Z should be assumed to be freshly chosen per role"))
   (defrole init
-    (vars (a b name) (h2 base) (x expn))
+    (vars (a b name) (y expt) (x rndx))
     (trace (send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     (comment "X should be assumed to be freshly chosen per role"))
   (comment
     "Needham-Schroeder-Lowe DH challenge/responses in place of nonces"))
 
 (defskeleton dhnsl
-  (vars (a b name) (h2 base) (x expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
+  (vars (a b name) (y expt) (x rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
   (non-orig (privk a) (privk b))
   (uniq-gen x)
   (comment "Initiator point-of-view")
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a)))
-      (send (enc h2 (pubk b)))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))))
   (label 0)
   (unrealized (0 1))
   (origs)
   (comment "2 in cohort - 2 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b name) (h2 base) (x y expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
+  (vars (a b name) (y expt) (y-0 x rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
   (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (absent (y (exp (gen) x)))
+  (absent (y-0 (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (uniq-gen x)
   (operation nonce-test (added-strand resp 2) (exp (gen) x) (0 1)
     (enc (exp (gen) x) a (pubk b)))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a)))))
   (label 1)
   (parent 0)
   (unrealized (0 1))
   (comment "2 in cohort - 2 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b name) (h2 base) (x expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
+  (vars (a b name) (y expt) (x rndx) (w expt))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
   (deflistener (cat (exp (gen) (mul x (rec w))) w))
   (precedes ((0 0) (1 0)) ((1 1) (0 1)))
   (non-orig (privk a) (privk b))
@@ -68,7 +70,8 @@
     (0 1) (enc (exp (gen) x) a (pubk b)))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     ((recv (cat (exp (gen) (mul x (rec w))) w))
       (send (cat (exp (gen) (mul x (rec w))) w))))
   (label 2)
@@ -77,15 +80,15 @@
   (comment "4 in cohort - 4 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b name) (x y expn))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
+  (vars (a b name) (x y rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y))
   (precedes ((0 0) (1 0)) ((1 1) (0 1)))
   (absent (y (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (uniq-gen x)
-  (operation nonce-test (contracted (h2 (exp (gen) y))) (exp (gen) x)
-    (0 1) (enc (exp (gen) x) a (pubk b))
+  (operation nonce-test (contracted (y-0 y) (y-1 y)) (exp (gen) x) (0 1)
+    (enc (exp (gen) x) a (pubk b))
     (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
@@ -97,28 +100,29 @@
   (parent 1)
   (unrealized)
   (shape)
-  (maps ((0) ((a a) (b b) (h2 (exp (gen) y)) (x x))))
+  (maps ((0) ((a a) (b b) (y y) (x x))))
   (origs))
 
 (defskeleton dhnsl
-  (vars (a b name) (h2 base) (x y expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
+  (vars (a b name) (y expt) (y-0 x rndx) (w expt))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
   (deflistener (cat (exp (gen) (mul x (rec w))) w))
   (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
-  (absent (y (exp (gen) x)))
+  (absent (y-0 (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (uniq-gen x)
   (precur (2 0))
   (operation nonce-test
     (added-listener (cat (exp (gen) (mul x (rec w))) w)) (exp (gen) x)
     (0 1) (enc (exp (gen) x) a (pubk b))
-    (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+    (enc (exp (gen) x) (exp (gen) y-0) b (pubk a)))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a))))
     ((recv (cat (exp (gen) (mul x (rec w))) w))
       (send (cat (exp (gen) (mul x (rec w))) w))))
   (label 4)
@@ -127,8 +131,8 @@
   (comment "5 in cohort - 5 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b name) (h2 base) (x expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
+  (vars (a b name) (y expt) (x rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
   (deflistener (cat (gen) x))
   (precedes ((0 0) (1 0)) ((1 1) (0 1)))
   (non-orig (privk a) (privk b))
@@ -137,7 +141,8 @@
   (operation nonce-test (contracted (x-0 x) (w x)) (gen) (1 0))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     ((recv (cat (gen) x)) (send (cat (gen) x))))
   (label 5)
   (parent 2)
@@ -145,31 +150,32 @@
   (comment "empty cohort"))
 
 (defskeleton dhnsl
-  (vars (a b b-0 a-0 name) (h2 h1 base) (x y expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1) (y y))
+  (vars (a b b-0 a-0 name) (y x expt) (x-0 y-0 rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x-0))
+  (deflistener (cat (exp (gen) y-0) (mul x-0 (rec y-0))))
+  (defstrand resp 2 (b b-0) (a a-0) (x x) (y y-0))
   (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y h1))
+  (absent (y-0 (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (precur (1 0))
-  (uniq-gen x)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (1 0))
+  (uniq-gen x-0)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (1 0))
   (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
-    ((recv (cat (exp (gen) y) (mul x (rec y))))
-      (send (cat (exp (gen) y) (mul x (rec y)))))
-    ((recv (enc h1 a-0 (pubk b-0)))
-      (send (enc h1 (exp (gen) y) b-0 (pubk a-0)))))
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((recv (cat (exp (gen) y-0) (mul x-0 (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul x-0 (rec y-0)))))
+    ((recv (enc (exp (gen) x) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b-0 (pubk a-0)))))
   (label 6)
   (parent 2)
   (unrealized (0 1) (1 0))
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b name) (h2 base) (x expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
+  (vars (a b name) (y expt) (x rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
   (deflistener (cat (exp (gen) x) (one)))
   (precedes ((0 0) (1 0)) ((1 1) (0 1)))
   (non-orig (privk a) (privk b))
@@ -178,7 +184,8 @@
   (operation nonce-test (displaced 2 0 init 1) (exp (gen) x-0) (1 0))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one)))))
   (label 7)
   (parent 2)
@@ -186,8 +193,8 @@
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b a-0 b-0 name) (h2 base) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
+  (vars (a b a-0 b-0 name) (y expt) (x x-0 rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
   (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
   (defstrand init 1 (a a-0) (b b-0) (x x-0))
   (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 0) (1 0)))
@@ -197,7 +204,8 @@
   (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
       (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
     ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
@@ -207,21 +215,22 @@
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b name) (h2 base) (y x expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
+  (vars (a b name) (y expt) (y-0 x rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
   (deflistener (cat (gen) x))
   (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
-  (absent (y (exp (gen) x)))
+  (absent (y-0 (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (uniq-gen x)
   (precur (2 0))
   (operation nonce-test (contracted (x-0 x) (w x)) (gen) (2 0))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a))))
     ((recv (cat (gen) x)) (send (cat (gen) x))))
   (label 9)
   (parent 4)
@@ -229,71 +238,74 @@
   (comment "empty cohort"))
 
 (defskeleton dhnsl
-  (vars (a b name) (h2 base) (x y expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
+  (vars (a b name) (y expt) (x y-0 rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0))))
   (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))
-  (absent (y (exp (gen) x)))
+  (absent (y-0 (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (precur (2 0))
   (uniq-gen x)
-  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-0) (2 0))
+  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-1) (2 0))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (cat (exp (gen) y) (mul x (rec y))))
-      (send (cat (exp (gen) y) (mul x (rec y))))))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a))))
+    ((recv (cat (exp (gen) y-0) (mul x (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul x (rec y-0))))))
   (label 10)
   (parent 4)
   (unrealized (0 1) (2 0))
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b b-0 a-0 name) (h2 h1 base) (y x y-0 expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1) (y y-0))
+  (vars (a b b-0 a-0 name) (y expt) (y-0 rndx) (x expt) (x-0 y-1 rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x-0))
+  (defstrand resp 2 (b b) (a a) (x x-0) (y y-0))
+  (deflistener (cat (exp (gen) y-1) (mul x-0 (rec y-1))))
+  (defstrand resp 2 (b b-0) (a a-0) (x x) (y y-1))
   (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1))
     ((3 1) (2 0)))
-  (absent (y-0 h1) (y (exp (gen) x)))
+  (absent (y-1 (exp (gen) x)) (y-0 (exp (gen) x-0)))
   (non-orig (privk a) (privk b))
   (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (2 0))
+  (uniq-gen x-0)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (2 0))
   (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0)))))
-    ((recv (enc h1 a-0 (pubk b-0)))
-      (send (enc h1 (exp (gen) y-0) b-0 (pubk a-0)))))
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y-0) b (pubk a))))
+    ((recv (cat (exp (gen) y-1) (mul x-0 (rec y-1))))
+      (send (cat (exp (gen) y-1) (mul x-0 (rec y-1)))))
+    ((recv (enc (exp (gen) x) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x) (exp (gen) y-1) b-0 (pubk a-0)))))
   (label 11)
   (parent 4)
   (unrealized (0 1) (2 0))
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b name) (h2 base) (y x expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
+  (vars (a b name) (y expt) (y-0 x rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
   (deflistener (cat (exp (gen) x) (one)))
   (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
-  (absent (y (exp (gen) x)))
+  (absent (y-0 (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (precur (2 0))
   (uniq-gen x)
   (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a))))
     ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one)))))
   (label 12)
   (parent 4)
@@ -302,23 +314,24 @@
   (comment "2 in cohort - 1 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b a-0 b-0 name) (h2 base) (y x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
+  (vars (a b a-0 b-0 name) (y expt) (y-0 x x-0 rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
   (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
   (defstrand init 1 (a a-0) (b b-0) (x x-0))
   (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1))
     ((3 0) (2 0)))
-  (absent (y (exp (gen) x)))
+  (absent (y-0 (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (precur (2 0))
   (uniq-gen x)
   (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a))))
     ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
       (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
     ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
@@ -328,36 +341,38 @@
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b b-0 a-0 name) (h2 h1 base) (x y expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1) (y y))
-  (deflistener x)
+  (vars (a b b-0 a-0 name) (y x expt) (x-0 y-0 rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x-0))
+  (deflistener (cat (exp (gen) y-0) (mul x-0 (rec y-0))))
+  (defstrand resp 2 (b b-0) (a a-0) (x x) (y y-0))
+  (deflistener x-0)
   (precedes ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (1 0)))
-  (absent (y h1))
+  (absent (y-0 (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (precur (1 0))
-  (uniq-gen x)
-  (operation nonce-test (added-listener x) (mul x (rec y)) (1 0))
+  (uniq-gen x-0)
+  (operation nonce-test (added-listener x-0) (mul x-0 (rec y-0)) (1 0))
   (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
-    ((recv (cat (exp (gen) y) (mul x (rec y))))
-      (send (cat (exp (gen) y) (mul x (rec y)))))
-    ((recv (enc h1 a-0 (pubk b-0)))
-      (send (enc h1 (exp (gen) y) b-0 (pubk a-0)))) ((recv x) (send x)))
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((recv (cat (exp (gen) y-0) (mul x-0 (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul x-0 (rec y-0)))))
+    ((recv (enc (exp (gen) x) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b-0 (pubk a-0))))
+    ((recv x-0) (send x-0)))
   (label 14)
   (parent 6)
   (unrealized (3 0))
   (comment "empty cohort"))
 
 (defskeleton dhnsl
-  (vars (a b name) (h2 base) (x y expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
+  (vars (a b name) (y expt) (y-0 x rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
   (deflistener (cat (exp (gen) x) (one)))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
   (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y (exp (gen) x)))
+  (absent (y-0 (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (precur (1 0))
   (uniq-gen x)
@@ -365,18 +380,19 @@
     (enc (exp (gen) x) a (pubk b)))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
     ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a)))))
   (label 15)
   (parent 7)
   (unrealized (1 0))
   (comment "empty cohort"))
 
 (defskeleton dhnsl
-  (vars (a b a-0 b-0 name) (h2 base) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
+  (vars (a b a-0 b-0 name) (y expt) (x x-0 rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
   (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
   (defstrand init 1 (a a-0) (b b-0) (x x-0))
   (deflistener x)
@@ -387,7 +403,8 @@
   (operation nonce-test (added-listener x) (mul x (rec x-0)) (1 0))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
       (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
     ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))) ((recv x) (send x)))
@@ -397,68 +414,71 @@
   (comment "empty cohort"))
 
 (defskeleton dhnsl
-  (vars (a b name) (h2 base) (x y expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
+  (vars (a b name) (y expt) (x y-0 rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0))))
   (deflistener x)
   (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (2 0)) ((2 1) (0 1))
     ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
+  (absent (y-0 (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (precur (2 0))
   (uniq-gen x)
-  (operation nonce-test (added-listener x) (mul x (rec y)) (2 0))
+  (operation nonce-test (added-listener x) (mul x (rec y-0)) (2 0))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (cat (exp (gen) y) (mul x (rec y))))
-      (send (cat (exp (gen) y) (mul x (rec y))))) ((recv x) (send x)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a))))
+    ((recv (cat (exp (gen) y-0) (mul x (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul x (rec y-0)))))
+    ((recv x) (send x)))
   (label 17)
   (parent 10)
   (unrealized (3 0))
   (comment "empty cohort"))
 
 (defskeleton dhnsl
-  (vars (a b b-0 a-0 name) (h2 h1 base) (y x y-0 expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1) (y y-0))
-  (deflistener x)
+  (vars (a b b-0 a-0 name) (y expt) (y-0 rndx) (x expt) (x-0 y-1 rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x-0))
+  (defstrand resp 2 (b b) (a a) (x x-0) (y y-0))
+  (deflistener (cat (exp (gen) y-1) (mul x-0 (rec y-1))))
+  (defstrand resp 2 (b b-0) (a a-0) (x x) (y y-1))
+  (deflistener x-0)
   (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 1))
     ((3 1) (2 0)) ((4 1) (2 0)))
-  (absent (y-0 h1) (y (exp (gen) x)))
+  (absent (y-1 (exp (gen) x)) (y-0 (exp (gen) x-0)))
   (non-orig (privk a) (privk b))
   (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-listener x) (mul x (rec y-0)) (2 0))
+  (uniq-gen x-0)
+  (operation nonce-test (added-listener x-0) (mul x-0 (rec y-1)) (2 0))
   (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0)))))
-    ((recv (enc h1 a-0 (pubk b-0)))
-      (send (enc h1 (exp (gen) y-0) b-0 (pubk a-0))))
-    ((recv x) (send x)))
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y-0) b (pubk a))))
+    ((recv (cat (exp (gen) y-1) (mul x-0 (rec y-1))))
+      (send (cat (exp (gen) y-1) (mul x-0 (rec y-1)))))
+    ((recv (enc (exp (gen) x) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x) (exp (gen) y-1) b-0 (pubk a-0))))
+    ((recv x-0) (send x-0)))
   (label 18)
   (parent 11)
   (unrealized (4 0))
   (comment "empty cohort"))
 
 (defskeleton dhnsl
-  (vars (a b name) (h2 base) (y x y-0 expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
+  (vars (a b name) (y expt) (y-0 y-1 x rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
   (deflistener (cat (exp (gen) x) (one)))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y-0))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-1))
   (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))
     ((3 1) (2 0)))
-  (absent (y-0 (exp (gen) x)) (y (exp (gen) x)))
+  (absent (y-1 (exp (gen) x)) (y-0 (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (precur (2 0))
   (uniq-gen x)
@@ -466,12 +486,13 @@
     (enc (exp (gen) x) a (pubk b)))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a))))
     ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
     ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a)))))
+      (send (enc (exp (gen) x) (exp (gen) y-1) b (pubk a)))))
   (label 19)
   (parent 12)
   (seen 15)
@@ -479,24 +500,25 @@
   (comment "1 in cohort - 0 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b a-0 b-0 name) (h2 base) (y x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
+  (vars (a b a-0 b-0 name) (y expt) (y-0 x x-0 rndx))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
   (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
   (defstrand init 1 (a a-0) (b b-0) (x x-0))
   (deflistener x)
   (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 1))
     ((3 0) (2 0)) ((4 1) (2 0)))
-  (absent (y (exp (gen) x)))
+  (absent (y-0 (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (precur (2 0))
   (uniq-gen x)
   (operation nonce-test (added-listener x) (mul x (rec x-0)) (2 0))
   (traces
     ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a))))
     ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
       (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
     ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))) ((recv x) (send x)))
@@ -509,29 +531,31 @@
 
 (defprotocol dhnsl diffie-hellman
   (defrole resp
-    (vars (b a name) (h1 base) (y expn))
-    (trace (recv (enc h1 a (pubk b)))
-      (send (enc h1 (exp (gen) y) b (pubk a)))
+    (vars (b a name) (x expt) (y rndx))
+    (trace (recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
       (recv (enc (exp (gen) y) (pubk b))))
-    (absent (y h1))
+    (absent (y (exp (gen) x)))
     (comment "Y and Z should be assumed to be freshly chosen per role"))
   (defrole init
-    (vars (a b name) (h2 base) (x expn))
+    (vars (a b name) (y expt) (x rndx))
     (trace (send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b))))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
     (comment "X should be assumed to be freshly chosen per role"))
   (comment
     "Needham-Schroeder-Lowe DH challenge/responses in place of nonces"))
 
 (defskeleton dhnsl
-  (vars (a b name) (h1 base) (y expn))
-  (defstrand resp 3 (b b) (a a) (h1 h1) (y y))
-  (absent (y h1))
+  (vars (a b name) (x expt) (y rndx))
+  (defstrand resp 3 (b b) (a a) (x x) (y y))
+  (absent (y (exp (gen) x)))
   (non-orig (privk a))
   (uniq-gen y)
   (comment "Responder point-of-view")
   (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) b (pubk a)))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
       (recv (enc (exp (gen) y) (pubk b)))))
   (label 21)
   (unrealized (0 2))
@@ -539,9 +563,9 @@
   (comment "2 in cohort - 2 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b name) (y x expn))
-  (defstrand resp 3 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
+  (vars (a b name) (y x rndx))
+  (defstrand resp 3 (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
   (precedes ((0 1) (1 1)) ((1 2) (0 2)))
   (absent (y (exp (gen) x)))
   (non-orig (privk a))
@@ -559,23 +583,24 @@
   (parent 21)
   (unrealized)
   (shape)
-  (maps ((0) ((a a) (b b) (h1 (exp (gen) x)) (y y))))
+  (maps ((0) ((a a) (b b) (x x) (y y))))
   (origs))
 
 (defskeleton dhnsl
-  (vars (a b name) (h1 base) (y expn) (w expr))
-  (defstrand resp 3 (b b) (a a) (h1 h1) (y y))
+  (vars (a b name) (x expt) (y rndx) (w expt))
+  (defstrand resp 3 (b b) (a a) (x x) (y y))
   (deflistener (cat (exp (gen) (mul y (rec w))) w))
   (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y h1))
+  (absent (y (exp (gen) x)))
   (non-orig (privk a))
   (uniq-gen y)
   (precur (1 0))
   (operation nonce-test
     (added-listener (cat (exp (gen) (mul y (rec w))) w)) (exp (gen) y)
-    (0 2) (enc h1 (exp (gen) y) b (pubk a)))
+    (0 2) (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
   (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) b (pubk a)))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
       (recv (enc (exp (gen) y) (pubk b))))
     ((recv (cat (exp (gen) (mul y (rec w))) w))
       (send (cat (exp (gen) (mul y (rec w))) w))))
@@ -585,17 +610,18 @@
   (comment "4 in cohort - 4 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b name) (h1 base) (y expn))
-  (defstrand resp 3 (b b) (a a) (h1 h1) (y y))
+  (vars (a b name) (x expt) (y rndx))
+  (defstrand resp 3 (b b) (a a) (x x) (y y))
   (deflistener (cat (gen) y))
   (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y h1))
+  (absent (y (exp (gen) x)))
   (non-orig (privk a))
   (uniq-gen y)
   (precur (1 0))
   (operation nonce-test (contracted (y-0 y) (w y)) (gen) (1 0))
   (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) b (pubk a)))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
       (recv (enc (exp (gen) y) (pubk b))))
     ((recv (cat (gen) y)) (send (cat (gen) y))))
   (label 24)
@@ -604,17 +630,18 @@
   (comment "empty cohort"))
 
 (defskeleton dhnsl
-  (vars (a b name) (h1 base) (y expn))
-  (defstrand resp 3 (b b) (a a) (h1 h1) (y y))
+  (vars (a b name) (x expt) (y rndx))
+  (defstrand resp 3 (b b) (a a) (x x) (y y))
   (deflistener (cat (exp (gen) y) (one)))
   (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y h1))
+  (absent (y (exp (gen) x)))
   (non-orig (privk a))
   (precur (1 0))
   (uniq-gen y)
   (operation nonce-test (displaced 2 0 resp 2) (exp (gen) y-0) (1 0))
   (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) b (pubk a)))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
       (recv (enc (exp (gen) y) (pubk b))))
     ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one)))))
   (label 25)
@@ -623,55 +650,57 @@
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b b-0 a-0 name) (h1 h1-0 base) (y y-0 expn))
-  (defstrand resp 3 (b b) (a a) (h1 h1) (y y))
+  (vars (a b b-0 a-0 name) (x x-0 expt) (y y-0 rndx))
+  (defstrand resp 3 (b b) (a a) (x x) (y y))
   (deflistener (cat (exp (gen) y-0) (mul y (rec y-0))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1-0) (y y-0))
+  (defstrand resp 2 (b b-0) (a a-0) (x x-0) (y y-0))
   (precedes ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (1 0)))
-  (absent (y-0 h1-0) (y h1))
+  (absent (y-0 (exp (gen) x-0)) (y (exp (gen) x)))
   (non-orig (privk a))
   (precur (1 0))
   (uniq-gen y)
   (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (1 0))
   (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) b (pubk a)))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
       (recv (enc (exp (gen) y) (pubk b))))
     ((recv (cat (exp (gen) y-0) (mul y (rec y-0))))
       (send (cat (exp (gen) y-0) (mul y (rec y-0)))))
-    ((recv (enc h1-0 a-0 (pubk b-0)))
-      (send (enc h1-0 (exp (gen) y-0) b-0 (pubk a-0)))))
+    ((recv (enc (exp (gen) x-0) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x-0) (exp (gen) y-0) b-0 (pubk a-0)))))
   (label 26)
   (parent 23)
   (unrealized (0 2) (1 0))
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b a-0 b-0 name) (h1 base) (y x expn))
-  (defstrand resp 3 (b b) (a a) (h1 h1) (y y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x))))
-  (defstrand init 1 (a a-0) (b b-0) (x x))
+  (vars (a b a-0 b-0 name) (x expt) (y x-0 rndx))
+  (defstrand resp 3 (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) x-0) (mul y (rec x-0))))
+  (defstrand init 1 (a a-0) (b b-0) (x x-0))
   (precedes ((0 1) (1 0)) ((1 1) (0 2)) ((2 0) (1 0)))
-  (absent (y h1))
+  (absent (y (exp (gen) x)))
   (non-orig (privk a))
   (precur (1 0))
   (uniq-gen y)
-  (operation nonce-test (added-strand init 1) (exp (gen) x) (1 0))
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
   (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) b (pubk a)))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
       (recv (enc (exp (gen) y) (pubk b))))
-    ((recv (cat (exp (gen) x) (mul y (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x)))))
-    ((send (enc (exp (gen) x) a-0 (pubk b-0)))))
+    ((recv (cat (exp (gen) x-0) (mul y (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul y (rec x-0)))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
   (label 27)
   (parent 23)
   (unrealized (0 2) (1 0))
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b name) (y x expn))
-  (defstrand resp 3 (b b) (a a) (h1 (exp (gen) x)) (y y))
+  (vars (a b name) (y x rndx))
+  (defstrand resp 3 (b b) (a a) (x x) (y y))
   (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
   (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 2) (1 0)))
   (absent (y (exp (gen) x)))
   (non-orig (privk a))
@@ -694,24 +723,25 @@
   (comment "1 in cohort - 0 not yet seen"))
 
 (defskeleton dhnsl
-  (vars (a b b-0 a-0 name) (h1 h1-0 base) (y y-0 expn))
-  (defstrand resp 3 (b b) (a a) (h1 h1) (y y))
+  (vars (a b b-0 a-0 name) (x x-0 expt) (y y-0 rndx))
+  (defstrand resp 3 (b b) (a a) (x x) (y y))
   (deflistener (cat (exp (gen) y-0) (mul y (rec y-0))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1-0) (y y-0))
+  (defstrand resp 2 (b b-0) (a a-0) (x x-0) (y y-0))
   (deflistener y)
   (precedes ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (1 0)))
-  (absent (y-0 h1-0) (y h1))
+  (absent (y-0 (exp (gen) x-0)) (y (exp (gen) x)))
   (non-orig (privk a))
   (precur (1 0))
   (uniq-gen y)
   (operation nonce-test (added-listener y) (mul y (rec y-0)) (1 0))
   (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) b (pubk a)))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
       (recv (enc (exp (gen) y) (pubk b))))
     ((recv (cat (exp (gen) y-0) (mul y (rec y-0))))
       (send (cat (exp (gen) y-0) (mul y (rec y-0)))))
-    ((recv (enc h1-0 a-0 (pubk b-0)))
-      (send (enc h1-0 (exp (gen) y-0) b-0 (pubk a-0))))
+    ((recv (enc (exp (gen) x-0) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x-0) (exp (gen) y-0) b-0 (pubk a-0))))
     ((recv y) (send y)))
   (label 29)
   (parent 26)
@@ -719,23 +749,24 @@
   (comment "empty cohort"))
 
 (defskeleton dhnsl
-  (vars (a b a-0 b-0 name) (h1 base) (y x expn))
-  (defstrand resp 3 (b b) (a a) (h1 h1) (y y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x))))
-  (defstrand init 1 (a a-0) (b b-0) (x x))
+  (vars (a b a-0 b-0 name) (x expt) (y x-0 rndx))
+  (defstrand resp 3 (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) x-0) (mul y (rec x-0))))
+  (defstrand init 1 (a a-0) (b b-0) (x x-0))
   (deflistener y)
   (precedes ((0 1) (3 0)) ((1 1) (0 2)) ((2 0) (1 0)) ((3 1) (1 0)))
-  (absent (y h1))
+  (absent (y (exp (gen) x)))
   (non-orig (privk a))
   (precur (1 0))
   (uniq-gen y)
-  (operation nonce-test (added-listener y) (mul y (rec x)) (1 0))
+  (operation nonce-test (added-listener y) (mul y (rec x-0)) (1 0))
   (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) b (pubk a)))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
       (recv (enc (exp (gen) y) (pubk b))))
-    ((recv (cat (exp (gen) x) (mul y (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x)))))
-    ((send (enc (exp (gen) x) a-0 (pubk b-0)))) ((recv y) (send y)))
+    ((recv (cat (exp (gen) x-0) (mul y (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul y (rec x-0)))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))) ((recv y) (send y)))
   (label 30)
   (parent 27)
   (unrealized (3 0))
diff --git a/tst/dhnsl_use.scm b/tst/dhnsl_use.scm
--- a/tst/dhnsl_use.scm
+++ b/tst/dhnsl_use.scm
@@ -4,12 +4,12 @@
 
 (defprotocol dhnsl diffie-hellman
   (defrole resp
-    (vars (b a name) (h1 base) (y expn) (n text))
+    (vars (b a name) (x expt) (y rndx) (n text))
     (trace
-     (recv (enc h1 a (pubk b)))
-     (send (enc h1 (exp (gen) y) b (pubk a)))
+     (recv (enc (exp (gen) x) a (pubk b)))
+     (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
      (recv (enc (exp (gen) y) (pubk b)))
-     (send (enc n (exp h1 y)))
+     (send (enc n (exp (gen) (mul x y))))
      (recv n)
     )
      (uniq-orig n)
@@ -17,12 +17,12 @@
     (comment "Y should be assumed to be freshly chosen per role")
   )
   (defrole init
-    (vars (a b name) (h2 base) (x expn) (n text))
+    (vars (a b name) (y expt) (x rndx) (n text))
     (trace
      (send (enc (exp (gen) x) a (pubk b)))
-     (recv (enc (exp (gen) x) h2 b (pubk a)))
-     (send (enc h2 (pubk b)))
-     (recv (enc n (exp h2 x)))
+     (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+     (send (enc (exp (gen) y) (pubk b)))
+     (recv (enc n (exp (gen) (mul x y))))
      (send n)
     )
     (uniq-gen x)
@@ -33,28 +33,26 @@
 
 ;;; The initiator point-of-view
 (defskeleton dhnsl
-  (vars (a b name) (h2 h3 base) (x expn))
-  (defstrand init 5 (a a) (b b) (h2 h2) (x x))
+  (vars (a b name) (y expt) (x rndx))
+  (defstrand init 5 (a a) (b b) (y y) (x x))
   (non-orig (privk b) (privk a))
-;  (uniq-gen x)
   (comment "Initiator point-of-view"))
 
 ;; The responder point-of-view
 (defskeleton dhnsl
-  (vars (a b name) (h1 base) (y z expn))
-  (defstrand resp 5 (a a) (b b) (h1 h1) (y y))
+  (vars (a b name) (x expt) (y rndx))
+  (defstrand resp 5 (a a) (b b) (x x) (y y))
   (non-orig (privk a) (privk b))
-;  (uniq-gen y)
   (comment "Responder point-of-view"))
 
 (defprotocol dhns diffie-hellman
   (defrole resp
-    (vars (b a name) (h1 base) (y expn) (n text))
+    (vars (b a name) (x expt) (y rndx) (n text))
     (trace
-     (recv (enc h1 a (pubk b)))
-     (send (enc h1 (exp (gen) y) (pubk a)))
+     (recv (enc (exp (gen) x) a (pubk b)))
+     (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
      (recv (enc (exp (gen) y) (pubk b)))
-     (send (enc n (exp h1 y)))
+     (send (enc n (exp (gen) (mul x y))))
      (recv n)
     )
      (uniq-orig n)
@@ -62,12 +60,12 @@
     (comment "Y should be assumed to be freshly chosen per role")
   )
   (defrole init
-    (vars (a b name) (h2 base) (x expn) (n text))
+    (vars (a b name) (y expt) (x rndx) (n text))
     (trace
      (send (enc (exp (gen) x) a (pubk b)))
-     (recv (enc (exp (gen) x) h2 (pubk a)))
-     (send (enc h2 (pubk b)))
-     (recv (enc n (exp h2 x)))
+     (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+     (send (enc (exp (gen) y) (pubk b)))
+     (recv (enc n (exp (gen) (mul y x))))
      (send n)
     )
     (uniq-gen x)
@@ -78,16 +76,16 @@
 
 ;;; The initiator point-of-view
 (defskeleton dhns
-  (vars (a b name) (h2 h3 base) (x expn))
-  (defstrand init 5 (a a) (b b) (h2 h2) (x x))
+  (vars (a b name) (y expt) (x rndx))
+  (defstrand init 5 (a a) (b b) (y y) (x x))
   (non-orig (privk b) (privk a))
 ;  (uniq-gen x)
   (comment "Initiator point-of-view"))
 
 ;; The responder point-of-view
 (defskeleton dhns
-  (vars (a b name) (h1 base) (y z expn))
-  (defstrand resp 5 (a a) (b b) (h1 h1) (y y))
+  (vars (a b name) (x expt) (y z rndx))
+  (defstrand resp 5 (a a) (b b) (x x) (y y))
   (non-orig (privk a) (privk b))
 ;  (uniq-gen y)
   (comment "Responder point-of-view"))
diff --git a/tst/dhnsl_use.tst b/tst/dhnsl_use.tst
--- a/tst/dhnsl_use.tst
+++ b/tst/dhnsl_use.tst
@@ -1,3957 +1,3995 @@
 (herald "Diffie-Hellman enhanced Needham-Schroeder-Lowe Protocol"
   (algebra diffie-hellman))
 
-(comment "CPSA 3.4.0")
-(comment "All input read from dhnsl_use.scm")
-
-(defprotocol dhnsl diffie-hellman
-  (defrole resp
-    (vars (b a name) (h1 base) (y expn) (n text))
-    (trace (recv (enc h1 a (pubk b)))
-      (send (enc h1 (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n))
-    (uniq-orig n)
-    (uniq-gen y)
-    (absent (y h1))
-    (comment "Y should be assumed to be freshly chosen per role"))
-  (defrole init
-    (vars (a b name) (h2 base) (x expn) (n text))
-    (trace (send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    (uniq-gen x)
-    (comment "X should be assumed to be freshly chosen per role"))
-  (comment
-    "Needham-Schroeder-Lowe DH challenge/responses in place of nonces"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (h2 base) (x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (comment "Initiator point-of-view")
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n)))
-  (label 0)
-  (unrealized (0 1) (0 3))
-  (origs)
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (h2 base) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) x) (0 1)
-    (enc (exp (gen) x) a (pubk b)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))))
-  (label 1)
-  (parent 0)
-  (unrealized (0 1) (0 3))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (h2 base) (x expn) (w expr))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (deflistener (cat (exp (gen) (mul x (rec w))) w))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (precur (1 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x (rec w))) w)) (exp (gen) x)
-    (0 1) (enc (exp (gen) x) a (pubk b)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (cat (exp (gen) (mul x (rec w))) w))
-      (send (cat (exp (gen) (mul x (rec w))) w))))
-  (label 2)
-  (parent 0)
-  (unrealized (0 3) (1 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (operation nonce-test (contracted (h2 (exp (gen) y))) (exp (gen) x)
-    (0 1) (enc (exp (gen) x) a (pubk b))
-    (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))))
-  (label 3)
-  (parent 1)
-  (unrealized (0 3))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (h2 base) (x y expn) (w expr))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) (mul x (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (precur (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x (rec w))) w)) (exp (gen) x)
-    (0 1) (enc (exp (gen) x) a (pubk b))
-    (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (cat (exp (gen) (mul x (rec w))) w))
-      (send (cat (exp (gen) (mul x (rec w))) w))))
-  (label 4)
-  (parent 1)
-  (unrealized (0 3) (2 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (h2 base) (x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (deflistener (cat (gen) x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (precur (1 0))
-  (operation nonce-test (contracted (x-0 x) (w x)) (gen) (1 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (cat (gen) x)) (send (cat (gen) x))))
-  (label 5)
-  (parent 2)
-  (unrealized (1 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b b-0 a-0 name) (h2 h1 base) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y h1))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen x y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (1 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (cat (exp (gen) y) (mul x (rec y))))
-      (send (cat (exp (gen) y) (mul x (rec y)))))
-    ((recv (enc h1 a-0 (pubk b-0)))
-      (send (enc h1 (exp (gen) y) b-0 (pubk a-0)))))
-  (label 6)
-  (parent 2)
-  (unrealized (0 1) (0 3) (1 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (h2 base) (x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen x)
-  (operation nonce-test (displaced 2 0 init 1) (exp (gen) x-0) (1 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one)))))
-  (label 7)
-  (parent 2)
-  (unrealized (0 3) (1 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b a-0 b-0 name) (h2 base) (x x-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
-  (defstrand init 1 (a a-0) (b b-0) (x x-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 0) (1 0)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
-  (label 8)
-  (parent 2)
-  (unrealized (0 1) (0 3) (1 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (b a name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 3) (0 3)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation encryption-test (displaced 1 2 resp 4)
-    (enc n (exp (gen) (mul x y-0))) (0 3))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y))))))
-  (label 9)
-  (parent 3)
-  (unrealized (1 2))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((2 1) (0 3)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (operation encryption-test (added-listener (exp (gen) (mul x y)))
-    (enc n (exp (gen) (mul x y))) (0 3))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y)))))
-  (label 10)
-  (parent 3)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (h2 base) (y x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (gen) x))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (precur (2 0))
-  (operation nonce-test (contracted (x-0 x) (w x)) (gen) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (cat (gen) x)) (send (cat (gen) x))))
-  (label 11)
-  (parent 4)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (h2 base) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (cat (exp (gen) y) (mul x (rec y))))
-      (send (cat (exp (gen) y) (mul x (rec y))))))
-  (label 12)
-  (parent 4)
-  (unrealized (0 1) (0 3) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b b-0 a-0 name) (h2 h1 base) (y x y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y-0 h1) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y x y-0)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0)))))
-    ((recv (enc h1 a-0 (pubk b-0)))
-      (send (enc h1 (exp (gen) y-0) b-0 (pubk a-0)))))
-  (label 13)
-  (parent 4)
-  (unrealized (0 1) (0 3) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (h2 base) (y x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x) (one)))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y x)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one)))))
-  (label 14)
-  (parent 4)
-  (seen 16)
-  (unrealized (0 3) (2 0))
-  (comment "2 in cohort - 1 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b a-0 b-0 name) (h2 base) (y x x-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
-  (defstrand init 1 (a a-0) (b b-0) (x x-0))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1))
-    ((3 0) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y x x-0)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
-  (label 15)
-  (parent 4)
-  (unrealized (0 1) (0 3) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (h2 base) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen x y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) x) (1 0)
-    (enc (exp (gen) x) a (pubk b)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))))
-  (label 16)
-  (parent 7)
-  (unrealized (0 3) (1 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (b a name) (y x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 2 0 init 3) (exp (gen) y) (1 2)
-    (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x))))))
-  (label 17)
-  (parent 9)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (h2 (exp (gen) y)) (x x) (n n))))
-  (origs (n (1 3))))
-
-(defskeleton dhnsl
-  (vars (n text) (b a name) (x y expn) (w expr))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) (mul y (rec w))) w))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (1 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y (rec w))) w)) (exp (gen) y)
-    (1 2) (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (cat (exp (gen) (mul y (rec w))) w))
-      (send (cat (exp (gen) (mul y (rec w))) w))))
-  (label 18)
-  (parent 9)
-  (unrealized (2 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (x y expn) (w expr))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) (mul x y (rec w))) w))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x y (rec w))) w))
-    (exp (gen) (mul x y)) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) (mul x y (rec w))) w))
-      (send (cat (exp (gen) (mul x y (rec w))) w))))
-  (label 19)
-  (parent 10)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (h2 base) (y x y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y-0 (exp (gen) x)) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y x y-0)
-  (operation nonce-test (added-strand resp 2) (exp (gen) x) (2 0)
-    (enc (exp (gen) x) a (pubk b)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a)))))
-  (label 20)
-  (parent 14)
-  (seen 16)
-  (unrealized (0 3) (2 0))
-  (comment "1 in cohort - 0 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (b a name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (gen) y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (1 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (contracted (y-0 y) (w y)) (gen) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (cat (gen) y)) (send (cat (gen) y))))
-  (label 21)
-  (parent 18)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (b a name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (1 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one)))))
-  (label 22)
-  (parent 18)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (b a b-0 a-0 name) (h1 base) (x y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul y (rec y-0))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1) (y y-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (1 2)) ((3 1) (2 0)))
-  (absent (y-0 h1) (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (cat (exp (gen) y-0) (mul y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul y (rec y-0)))))
-    ((recv (enc h1 a-0 (pubk b-0)))
-      (send (enc h1 (exp (gen) y-0) b-0 (pubk a-0)))))
-  (label 23)
-  (parent 18)
-  (unrealized (1 2) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (b a name) (y x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x))))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (1 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))))
-    ((recv (cat (exp (gen) x) (mul y (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x))))))
-  (label 24)
-  (parent 18)
-  (unrealized (1 2) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (b a a-0 b-0 name) (x y x-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul y (rec x-0))))
-  (defstrand init 1 (a a-0) (b b-0) (x x-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (1 2)) ((3 0) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (precur (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (cat (exp (gen) x-0) (mul y (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul y (rec x-0)))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
-  (label 25)
-  (parent 18)
-  (unrealized (1 2) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (gen) (mul x y)))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (precur (3 0))
-  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul x y))) (gen)
-    (3 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (gen) (mul x y))) (send (cat (gen) (mul x y)))))
-  (label 26)
-  (parent 19)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x y)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
-  (label 27)
-  (parent 19)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b b-0 a-0 name) (h1 base) (x y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y-0) (mul x y (rec y-0))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1) (y y-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
-    ((3 1) (2 0)) ((4 1) (3 0)))
-  (absent (y-0 h1) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y-0) (mul x y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul x y (rec y-0)))))
-    ((recv (enc h1 a-0 (pubk b-0)))
-      (send (enc h1 (exp (gen) y-0) b-0 (pubk a-0)))))
-  (label 28)
-  (parent 19)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (y x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x) y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
-  (label 29)
-  (parent 19)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b a-0 b-0 name) (x y x-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x-0) (mul x y (rec x-0))))
-  (defstrand init 1 (a a-0) (b b-0) (x x-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
-    ((3 1) (2 0)) ((4 0) (3 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x y x-0)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) x-0) (mul x y (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x y (rec x-0)))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
-  (label 30)
-  (parent 19)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (b a name) (y x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (precedes ((0 0) (1 0)) ((0 2) (2 0)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 3) (exp (gen) y) (2 0)
-    (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one)))))
-  (label 31)
-  (parent 22)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (b a name) (y x y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x))))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((1 1) (2 0))
-    ((1 3) (0 3)) ((2 1) (1 2)) ((3 1) (2 0)))
-  (absent (y-0 (exp (gen) x)) (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (precur (2 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) x) (2 0)
-    (enc (exp (gen) x) a (pubk b))
-    (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))))
-    ((recv (cat (exp (gen) x) (mul y (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x)))))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a)))))
-  (label 32)
-  (parent 24)
-  (unrealized (1 2) (2 0))
-  (comment "empty cohort"))
-
-(comment "Nothing left to do")
-
-(defprotocol dhnsl diffie-hellman
-  (defrole resp
-    (vars (b a name) (h1 base) (y expn) (n text))
-    (trace (recv (enc h1 a (pubk b)))
-      (send (enc h1 (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n))
-    (uniq-orig n)
-    (uniq-gen y)
-    (absent (y h1))
-    (comment "Y should be assumed to be freshly chosen per role"))
-  (defrole init
-    (vars (a b name) (h2 base) (x expn) (n text))
-    (trace (send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 b (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    (uniq-gen x)
-    (comment "X should be assumed to be freshly chosen per role"))
-  (comment
-    "Needham-Schroeder-Lowe DH challenge/responses in place of nonces"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (h1 base) (y expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 h1) (y y))
-  (absent (y h1))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (uniq-orig n)
-  (comment "Responder point-of-view")
-  (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n)))
-  (label 33)
-  (unrealized (0 2) (0 4))
-  (origs (n (0 3)))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 3) (exp (gen) y) (0 2)
-    (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))))
-  (label 34)
-  (parent 33)
-  (unrealized (0 4))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (h1 base) (y expn) (w expr))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 h1) (y y))
-  (deflistener (cat (exp (gen) (mul y (rec w))) w))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y h1))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (uniq-orig n)
-  (precur (1 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y (rec w))) w)) (exp (gen) y)
-    (0 2) (enc h1 (exp (gen) y) b (pubk a)))
-  (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n))
-    ((recv (cat (exp (gen) (mul y (rec w))) w))
-      (send (cat (exp (gen) (mul y (rec w))) w))))
-  (label 35)
-  (parent 33)
-  (unrealized (0 4) (1 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (precedes ((0 1) (1 1)) ((0 3) (1 3)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((1 4) (0 4)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 1 2 init 5) n (0 4)
-    (enc n (exp (gen) (mul y x-0))))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n)))
-  (label 36)
-  (parent 34)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (h1 (exp (gen) x)) (y y) (n n))))
-  (origs (n (0 3))))
-
-(defskeleton dhnsl
-  (vars (n text) (a b a-0 b-0 name) (y x x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-0)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (precedes ((0 1) (1 1)) ((0 1) (2 1)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 4) (0 4)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 5) n (0 4)
-    (enc n (exp (gen) (mul y x))))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0))) b-0
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-0)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n)))
-  (label 37)
-  (parent 34)
-  (unrealized (2 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (precedes ((0 1) (1 1)) ((0 1) (2 0)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((2 1) (0 4)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener (exp (gen) (mul y x))) n (0 4)
-    (enc n (exp (gen) (mul y x))))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x)))))
-  (label 38)
-  (parent 34)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (h1 base) (y expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 h1) (y y))
-  (deflistener (cat (gen) y))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y h1))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (uniq-orig n)
-  (precur (1 0))
-  (operation nonce-test (contracted (y-0 y) (w y)) (gen) (1 0))
-  (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n)) ((recv (cat (gen) y)) (send (cat (gen) y))))
-  (label 39)
-  (parent 35)
-  (unrealized (1 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (h1 base) (y expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 h1) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y h1))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 2 0 resp 2) (exp (gen) y-0) (1 0))
-  (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one)))))
-  (label 40)
-  (parent 35)
-  (unrealized (0 4) (1 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b b-0 a-0 name) (h1 h1-0 base) (y y-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 h1) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul y (rec y-0))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1-0) (y y-0))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (1 0)))
-  (absent (y-0 h1-0) (y h1))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (1 0))
-  (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n))
-    ((recv (cat (exp (gen) y-0) (mul y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul y (rec y-0)))))
-    ((recv (enc h1-0 a-0 (pubk b-0)))
-      (send (enc h1-0 (exp (gen) y-0) b-0 (pubk a-0)))))
-  (label 41)
-  (parent 35)
-  (unrealized (0 2) (0 4) (1 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b a-0 b-0 name) (h1 base) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 h1) (y y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x))))
-  (defstrand init 1 (a a-0) (b b-0) (x x))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)) ((2 0) (1 0)))
-  (absent (y h1))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x) (1 0))
-  (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n))
-    ((recv (cat (exp (gen) x) (mul y (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x)))))
-    ((send (enc (exp (gen) x) a-0 (pubk b-0)))))
-  (label 42)
-  (parent 35)
-  (unrealized (0 2) (0 4) (1 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b a-0 b-0 name) (y x x-0 expn) (w expr))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-0)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (deflistener (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
-    (exp (gen) (mul y x (rec x-0))) (2 1))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0))) b-0
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-0)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
-      (send (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))))
-  (label 43)
-  (parent 37)
-  (unrealized (3 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (y x expn) (w expr))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) (mul y x (rec w))) w))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((2 1) (0 4)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y x (rec w))) w))
-    (exp (gen) (mul y x)) (2 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) (mul y x (rec w))) w))
-      (send (cat (exp (gen) (mul y x (rec w))) w))))
-  (label 44)
-  (parent 38)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (1 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 3) (exp (gen) y) (1 0)
-    (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))))
-  (label 45)
-  (parent 40)
-  (unrealized (0 4) (1 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b a-0 b-0 name) (y x x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-0)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (deflistener (cat (gen) (mul y x (rec x-0))))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (contracted (y-0 y) (x-1 x) (x-2 x-0) (w (mul y x (rec x-0)))) (gen)
-    (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0))) b-0
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-0)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (cat (gen) (mul y x (rec x-0))))
-      (send (cat (gen) (mul y x (rec x-0))))))
-  (label 46)
-  (parent 43)
-  (unrealized (2 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b a-0 b-0 name) (x x-0 y expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-0)
-    (h2 (exp (gen) (mul x (rec x-0) y))) (x x-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec x-0))))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul x (rec x-0) y)) b-0
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul x (rec x-0) y)) (pubk b-0)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (cat (exp (gen) y) (mul x (rec x-0))))
-      (send (cat (exp (gen) y) (mul x (rec x-0))))))
-  (label 47)
-  (parent 43)
-  (unrealized (2 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b a-0 b-0 b-1 a-1 name) (h1 base)
-    (y x x-0 y-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-0)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul y x (rec x-0) (rec y-0))))
-  (defstrand resp 2 (b b-1) (a a-1) (h1 h1) (y y-0))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1))
-    ((4 1) (3 0)))
-  (absent (y-0 h1) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0))) b-0
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-0)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (cat (exp (gen) y-0) (mul y x (rec x-0) (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul y x (rec x-0) (rec y-0)))))
-    ((recv (enc h1 a-1 (pubk b-1)))
-      (send (enc h1 (exp (gen) y-0) b-1 (pubk a-1)))))
-  (label 48)
-  (parent 43)
-  (unrealized (2 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b a-0 b-0 name) (y x x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x-0)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x-0))
-  (defstrand init 5 (n n) (a a-0) (b b-0)
-    (h2 (exp (gen) (mul y (rec x) x-0))) (x x))
-  (deflistener (cat (exp (gen) x-0) (mul y (rec x))))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
-  (absent (y (exp (gen) x-0)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x-0) a (pubk b)))
-      (send (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
-    ((send (enc (exp (gen) x-0) a (pubk b)))
-      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((send (enc (exp (gen) x) a-0 (pubk b-0)))
-      (recv
-        (enc (exp (gen) x) (exp (gen) (mul y (rec x) x-0)) b-0
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y (rec x) x-0)) (pubk b-0)))
-      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul y (rec x))))
-      (send (cat (exp (gen) x-0) (mul y (rec x))))))
-  (label 49)
-  (parent 43)
-  (unrealized (2 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b a-0 b-0 name) (y x x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-0)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 2 init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0))) b-0
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-0)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))))
-  (label 50)
-  (parent 43)
-  (unrealized (2 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b a-0 b-0 a-1 b-1 name) (y x x-0 x-1 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-0)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1))))
-  (defstrand init 1 (a a-1) (b b-1) (x x-1))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1))
-    ((4 0) (3 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0))) b-0
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-0)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1)))))
-    ((send (enc (exp (gen) x-1) a-1 (pubk b-1)))))
-  (label 51)
-  (parent 43)
-  (unrealized (2 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (gen) (mul y x)))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((2 1) (0 4)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test (contracted (y-0 y) (x-0 x) (w (mul y x))) (gen)
-    (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (gen) (mul y x))) (send (cat (gen) (mul y x)))))
-  (label 52)
-  (parent 44)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (x y expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((2 1) (0 4)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
-  (label 53)
-  (parent 44)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b b-0 a-0 name) (h1 base) (y x y-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y-0) (mul y x (rec y-0))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1) (y y-0))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((2 1) (0 4)) ((3 1) (2 0)) ((4 1) (3 0)))
-  (absent (y-0 h1) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) y-0) (mul y x (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul y x (rec y-0)))))
-    ((recv (enc h1 a-0 (pubk b-0)))
-      (send (enc h1 (exp (gen) y-0) b-0 (pubk a-0)))))
-  (label 54)
-  (parent 44)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x) y))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((2 1) (0 4)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
-  (label 55)
-  (parent 44)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b a-0 b-0 name) (y x x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0))))
-  (defstrand init 1 (a a-0) (b b-0) (x x-0))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((2 1) (0 4)) ((3 1) (2 0)) ((4 0) (3 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul y x (rec x-0)))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
-  (label 56)
-  (parent 44)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b a-0 b-0 name) (x y x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x-0)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x-0))
-  (defstrand init 5 (n n) (a a-0) (b b-0)
-    (h2 (exp (gen) (mul (rec x) y x-0))) (x x))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
-  (precedes ((0 1) (1 1)) ((0 3) (2 3)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((1 2) (3 0)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
-  (absent (y (exp (gen) x-0)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 init 3) (exp (gen) y) (3 0)
-    (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
-  (traces
-    ((recv (enc (exp (gen) x-0) a (pubk b)))
-      (send (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
-    ((send (enc (exp (gen) x-0) a (pubk b)))
-      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((send (enc (exp (gen) x) a-0 (pubk b-0)))
-      (recv
-        (enc (exp (gen) x) (exp (gen) (mul (rec x) y x-0)) b-0
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul (rec x) y x-0)) (pubk b-0)))
-      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0)))
-      (send (cat (exp (gen) y) (mul (rec x) x-0)))))
-  (label 57)
-  (parent 47)
-  (unrealized (2 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhnsl
-  (vars (n text) (a b a-0 b-0 name) (y x x-0 y-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x-0)) (y y))
-  (defstrand init 3 (a a) (b b) (h2 (exp (gen) y)) (x x-0))
-  (defstrand init 5 (n n) (a a-0) (b b-0)
-    (h2 (exp (gen) (mul y (rec x) x-0))) (x x))
-  (deflistener (cat (exp (gen) x-0) (mul y (rec x))))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x-0)) (y y-0))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 0) (4 0)) ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4))
-    ((3 1) (2 1)) ((4 1) (3 0)))
-  (absent (y-0 (exp (gen) x-0)) (y (exp (gen) x-0)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) x-0) (3 0)
-    (enc (exp (gen) x-0) a (pubk b))
-    (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
-  (traces
-    ((recv (enc (exp (gen) x-0) a (pubk b)))
-      (send (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
-    ((send (enc (exp (gen) x-0) a (pubk b)))
-      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
-      (send (enc (exp (gen) y) (pubk b))))
-    ((send (enc (exp (gen) x) a-0 (pubk b-0)))
-      (recv
-        (enc (exp (gen) x) (exp (gen) (mul y (rec x) x-0)) b-0
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y (rec x) x-0)) (pubk b-0)))
-      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul y (rec x))))
-      (send (cat (exp (gen) x-0) (mul y (rec x)))))
-    ((recv (enc (exp (gen) x-0) a (pubk b)))
-      (send (enc (exp (gen) x-0) (exp (gen) y-0) b (pubk a)))))
-  (label 58)
-  (parent 49)
-  (unrealized (2 1) (3 0))
-  (comment "empty cohort"))
-
-(comment "Nothing left to do")
-
-(defprotocol dhns diffie-hellman
-  (defrole resp
-    (vars (b a name) (h1 base) (y expn) (n text))
-    (trace (recv (enc h1 a (pubk b)))
-      (send (enc h1 (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n))
-    (uniq-orig n)
-    (uniq-gen y)
-    (absent (y h1))
-    (comment "Y should be assumed to be freshly chosen per role"))
-  (defrole init
-    (vars (a b name) (h2 base) (x expn) (n text))
-    (trace (send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    (uniq-gen x)
-    (comment "X should be assumed to be freshly chosen per role"))
-  (comment
-    "Needham-Schroeder-Lowe DH challenge/responses in place of nonces"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (h2 base) (x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (comment "Initiator point-of-view")
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n)))
-  (label 59)
-  (unrealized (0 1) (0 3))
-  (origs)
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (h2 base) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) x) (0 1)
-    (enc (exp (gen) x) a (pubk b)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))))
-  (label 60)
-  (parent 59)
-  (unrealized (0 1) (0 3))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (h2 base) (x expn) (w expr))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (deflistener (cat (exp (gen) (mul x (rec w))) w))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (precur (1 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x (rec w))) w)) (exp (gen) x)
-    (0 1) (enc (exp (gen) x) a (pubk b)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (cat (exp (gen) (mul x (rec w))) w))
-      (send (cat (exp (gen) (mul x (rec w))) w))))
-  (label 61)
-  (parent 59)
-  (unrealized (0 3) (1 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (operation nonce-test (contracted (h2 (exp (gen) y))) (exp (gen) x)
-    (0 1) (enc (exp (gen) x) a (pubk b))
-    (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))))
-  (label 62)
-  (parent 60)
-  (unrealized (0 3))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (h2 base) (x y expn) (w expr))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) (mul x (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (precur (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x (rec w))) w)) (exp (gen) x)
-    (0 1) (enc (exp (gen) x) a (pubk b))
-    (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
-    ((recv (cat (exp (gen) (mul x (rec w))) w))
-      (send (cat (exp (gen) (mul x (rec w))) w))))
-  (label 63)
-  (parent 60)
-  (unrealized (0 3) (2 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (h2 base) (x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (deflistener (cat (gen) x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (precur (1 0))
-  (operation nonce-test (contracted (x-0 x) (w x)) (gen) (1 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (cat (gen) x)) (send (cat (gen) x))))
-  (label 64)
-  (parent 61)
-  (unrealized (1 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 name) (h2 h1 base) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y h1))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen x y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (1 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (cat (exp (gen) y) (mul x (rec y))))
-      (send (cat (exp (gen) y) (mul x (rec y)))))
-    ((recv (enc h1 a-0 (pubk b-0)))
-      (send (enc h1 (exp (gen) y) (pubk a-0)))))
-  (label 65)
-  (parent 61)
-  (unrealized (0 1) (0 3) (1 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (h2 base) (x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen x)
-  (operation nonce-test (displaced 2 0 init 1) (exp (gen) x-0) (1 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one)))))
-  (label 66)
-  (parent 61)
-  (unrealized (0 3) (1 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b a-0 b-0 name) (h2 base) (x x-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
-  (defstrand init 1 (a a-0) (b b-0) (x x-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 0) (1 0)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
-  (label 67)
-  (parent 61)
-  (unrealized (0 1) (0 3) (1 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (b a name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 3) (0 3)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation encryption-test (displaced 1 2 resp 4)
-    (enc n (exp (gen) (mul x y-0))) (0 3))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y))))))
-  (label 68)
-  (parent 62)
-  (unrealized (1 2))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((2 1) (0 3)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (operation encryption-test (added-listener (exp (gen) (mul x y)))
-    (enc n (exp (gen) (mul x y))) (0 3))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y)))))
-  (label 69)
-  (parent 62)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (h2 base) (y x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (gen) x))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (precur (2 0))
-  (operation nonce-test (contracted (x-0 x) (w x)) (gen) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
-    ((recv (cat (gen) x)) (send (cat (gen) x))))
-  (label 70)
-  (parent 63)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (h2 base) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
-    ((recv (cat (exp (gen) y) (mul x (rec y))))
-      (send (cat (exp (gen) y) (mul x (rec y))))))
-  (label 71)
-  (parent 63)
-  (unrealized (0 1) (0 3) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 name) (h2 h1 base) (y x y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y-0 h1) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y x y-0)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
-    ((recv (cat (exp (gen) y-0) (mul x (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul x (rec y-0)))))
-    ((recv (enc h1 a-0 (pubk b-0)))
-      (send (enc h1 (exp (gen) y-0) (pubk a-0)))))
-  (label 72)
-  (parent 63)
-  (unrealized (0 1) (0 3) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (h2 base) (y x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x) (one)))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y x)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one)))))
-  (label 73)
-  (parent 63)
-  (seen 75)
-  (unrealized (0 3) (2 0))
-  (comment "2 in cohort - 1 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b a-0 b-0 name) (h2 base) (y x x-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
-  (defstrand init 1 (a a-0) (b b-0) (x x-0))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1))
-    ((3 0) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y x x-0)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
-  (label 74)
-  (parent 63)
-  (unrealized (0 1) (0 3) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (h2 base) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen x y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) x) (1 0)
-    (enc (exp (gen) x) a (pubk b)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))))
-  (label 75)
-  (parent 66)
-  (unrealized (0 3) (1 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (b a name) (y x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 2 0 init 3) (exp (gen) y) (1 2)
-    (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x))))))
-  (label 76)
-  (parent 68)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (h2 (exp (gen) y)) (x x) (n n))))
-  (origs (n (1 3))))
-
-(defskeleton dhns
-  (vars (n text) (b a name) (x y expn) (w expr))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) (mul y (rec w))) w))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (1 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y (rec w))) w)) (exp (gen) y)
-    (1 2) (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (cat (exp (gen) (mul y (rec w))) w))
-      (send (cat (exp (gen) (mul y (rec w))) w))))
-  (label 77)
-  (parent 68)
-  (unrealized (2 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (x y expn) (w expr))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) (mul x y (rec w))) w))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x y (rec w))) w))
-    (exp (gen) (mul x y)) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) (mul x y (rec w))) w))
-      (send (cat (exp (gen) (mul x y (rec w))) w))))
-  (label 78)
-  (parent 69)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (h2 base) (y x y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 h2) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y-0 (exp (gen) x)) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y x y-0)
-  (operation nonce-test (added-strand resp 2) (exp (gen) x) (2 0)
-    (enc (exp (gen) x) a (pubk b)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a)))))
-  (label 79)
-  (parent 73)
-  (seen 75)
-  (unrealized (0 3) (2 0))
-  (comment "1 in cohort - 0 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (b a name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (gen) y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (1 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (contracted (y-0 y) (w y)) (gen) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (cat (gen) y)) (send (cat (gen) y))))
-  (label 80)
-  (parent 77)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (b a name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (1 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one)))))
-  (label 81)
-  (parent 77)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (b a b-0 a-0 name) (h1 base) (x y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul y (rec y-0))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1) (y y-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (1 2)) ((3 1) (2 0)))
-  (absent (y-0 h1) (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (cat (exp (gen) y-0) (mul y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul y (rec y-0)))))
-    ((recv (enc h1 a-0 (pubk b-0)))
-      (send (enc h1 (exp (gen) y-0) (pubk a-0)))))
-  (label 82)
-  (parent 77)
-  (unrealized (1 2) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (b a name) (y x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x))))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (1 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))))
-    ((recv (cat (exp (gen) x) (mul y (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x))))))
-  (label 83)
-  (parent 77)
-  (unrealized (1 2) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (b a a-0 b-0 name) (x y x-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul y (rec x-0))))
-  (defstrand init 1 (a a-0) (b b-0) (x x-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (1 2)) ((3 0) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (precur (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))))
-    ((recv (cat (exp (gen) x-0) (mul y (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul y (rec x-0)))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
-  (label 84)
-  (parent 77)
-  (unrealized (1 2) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (gen) (mul x y)))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (precur (3 0))
-  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul x y))) (gen)
-    (3 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (gen) (mul x y))) (send (cat (gen) (mul x y)))))
-  (label 85)
-  (parent 78)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (x y expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x y)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
-  (label 86)
-  (parent 78)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 name) (h1 base) (x y y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y-0) (mul x y (rec y-0))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1) (y y-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
-    ((3 1) (2 0)) ((4 1) (3 0)))
-  (absent (y-0 h1) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y-0) (mul x y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul x y (rec y-0)))))
-    ((recv (enc h1 a-0 (pubk b-0)))
-      (send (enc h1 (exp (gen) y-0) (pubk a-0)))))
-  (label 87)
-  (parent 78)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (y x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x) y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
-  (label 88)
-  (parent 78)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b a-0 b-0 name) (x y x-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x-0) (mul x y (rec x-0))))
-  (defstrand init 1 (a a-0) (b b-0) (x x-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
-    ((3 1) (2 0)) ((4 0) (3 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x y x-0)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) x-0) (mul x y (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x y (rec x-0)))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
-  (label 89)
-  (parent 78)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (b a name) (y x expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (precedes ((0 0) (1 0)) ((0 2) (2 0)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 3) (exp (gen) y) (2 0)
-    (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one)))))
-  (label 90)
-  (parent 81)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (b a name) (y x y-0 expn))
-  (defstrand init 5 (n n) (a a) (b b) (h2 (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x))))
-  (defstrand resp 2 (b b) (a a) (h1 (exp (gen) x)) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((1 1) (2 0))
-    ((1 3) (0 3)) ((2 1) (1 2)) ((3 1) (2 0)))
-  (absent (y-0 (exp (gen) x)) (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (precur (2 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) x) (2 0)
-    (enc (exp (gen) x) a (pubk b))
-    (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-  (traces
-    ((send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))))
-    ((recv (cat (exp (gen) x) (mul y (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x)))))
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a)))))
-  (label 91)
-  (parent 83)
-  (unrealized (1 2) (2 0))
-  (comment "empty cohort"))
-
-(comment "Nothing left to do")
-
-(defprotocol dhns diffie-hellman
-  (defrole resp
-    (vars (b a name) (h1 base) (y expn) (n text))
-    (trace (recv (enc h1 a (pubk b)))
-      (send (enc h1 (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n))
-    (uniq-orig n)
-    (uniq-gen y)
-    (absent (y h1))
-    (comment "Y should be assumed to be freshly chosen per role"))
-  (defrole init
-    (vars (a b name) (h2 base) (x expn) (n text))
-    (trace (send (enc (exp (gen) x) a (pubk b)))
-      (recv (enc (exp (gen) x) h2 (pubk a))) (send (enc h2 (pubk b)))
-      (recv (enc n (exp h2 x))) (send n))
-    (uniq-gen x)
-    (comment "X should be assumed to be freshly chosen per role"))
-  (comment
-    "Needham-Schroeder-Lowe DH challenge/responses in place of nonces"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (h1 base) (y expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 h1) (y y))
-  (absent (y h1))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (uniq-orig n)
-  (comment "Responder point-of-view")
-  (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n)))
-  (label 92)
-  (unrealized (0 2) (0 4))
-  (origs (n (0 3)))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 3) (exp (gen) y) (0 2)
-    (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0)))))
-  (label 93)
-  (parent 92)
-  (unrealized (0 4))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (h1 base) (y expn) (w expr))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 h1) (y y))
-  (deflistener (cat (exp (gen) (mul y (rec w))) w))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y h1))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (uniq-orig n)
-  (precur (1 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y (rec w))) w)) (exp (gen) y)
-    (0 2) (enc h1 (exp (gen) y) (pubk a)))
-  (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n))
-    ((recv (cat (exp (gen) (mul y (rec w))) w))
-      (send (cat (exp (gen) (mul y (rec w))) w))))
-  (label 94)
-  (parent 92)
-  (unrealized (0 4) (1 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (b a b-0 name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 5 (n n) (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (precedes ((0 1) (1 1)) ((0 3) (1 3)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((1 4) (0 4)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 1 2 init 5) n (0 4)
-    (enc n (exp (gen) (mul y x-0))))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n)))
-  (label 95)
-  (parent 93)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (h1 (exp (gen) x)) (y y) (n n))))
-  (origs (n (0 3))))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (precedes ((0 1) (1 1)) ((0 1) (2 1)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 4) (0 4)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 5) n (0 4)
-    (enc n (exp (gen) (mul y x))))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n)))
-  (label 96)
-  (parent 93)
-  (unrealized (2 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (precedes ((0 1) (1 1)) ((0 1) (2 0)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((2 1) (0 4)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener (exp (gen) (mul y x))) n (0 4)
-    (enc n (exp (gen) (mul y x))))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x)))))
-  (label 97)
-  (parent 93)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (h1 base) (y expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 h1) (y y))
-  (deflistener (cat (gen) y))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y h1))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (uniq-orig n)
-  (precur (1 0))
-  (operation nonce-test (contracted (y-0 y) (w y)) (gen) (1 0))
-  (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n)) ((recv (cat (gen) y)) (send (cat (gen) y))))
-  (label 98)
-  (parent 94)
-  (unrealized (1 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b name) (h1 base) (y expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 h1) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y h1))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 2 0 resp 2) (exp (gen) y-0) (1 0))
-  (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one)))))
-  (label 99)
-  (parent 94)
-  (unrealized (0 4) (1 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 name) (h1 h1-0 base) (y y-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 h1) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul y (rec y-0))))
-  (defstrand resp 2 (b b-0) (a a-0) (h1 h1-0) (y y-0))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (1 0)))
-  (absent (y-0 h1-0) (y h1))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (1 0))
-  (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n))
-    ((recv (cat (exp (gen) y-0) (mul y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul y (rec y-0)))))
-    ((recv (enc h1-0 a-0 (pubk b-0)))
-      (send (enc h1-0 (exp (gen) y-0) (pubk a-0)))))
-  (label 100)
-  (parent 94)
-  (unrealized (0 2) (0 4) (1 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b a-0 b-0 name) (h1 base) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 h1) (y y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x))))
-  (defstrand init 1 (a a-0) (b b-0) (x x))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)) ((2 0) (1 0)))
-  (absent (y h1))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x) (1 0))
-  (traces
-    ((recv (enc h1 a (pubk b))) (send (enc h1 (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b))) (send (enc n (exp h1 y)))
-      (recv n))
-    ((recv (cat (exp (gen) x) (mul y (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x)))))
-    ((send (enc (exp (gen) x) a-0 (pubk b-0)))))
-  (label 101)
-  (parent 94)
-  (unrealized (0 2) (0 4) (1 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 expn) (w expr))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (deflistener (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
-    (exp (gen) (mul y x (rec x-0))) (2 1))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
-      (send (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))))
-  (label 102)
-  (parent 96)
-  (unrealized (3 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 name) (y x expn) (w expr))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) (mul y x (rec w))) w))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((2 1) (0 4)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y x (rec w))) w))
-    (exp (gen) (mul y x)) (2 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) (mul y x (rec w))) w))
-      (send (cat (exp (gen) (mul y x (rec w))) w))))
-  (label 103)
-  (parent 97)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (1 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 3) (exp (gen) y) (1 0)
-    (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0)))))
-  (label 104)
-  (parent 99)
-  (unrealized (0 4))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (deflistener (cat (gen) (mul y x (rec x-0))))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (contracted (y-0 y) (x-1 x) (x-2 x-0) (w (mul y x (rec x-0)))) (gen)
-    (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (cat (gen) (mul y x (rec x-0))))
-      (send (cat (gen) (mul y x (rec x-0))))))
-  (label 105)
-  (parent 102)
-  (unrealized (2 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (x x-0 y expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul x (rec x-0) y))) (x x-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec x-0))))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul x (rec x-0) y))
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul x (rec x-0) y)) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (cat (exp (gen) y) (mul x (rec x-0))))
-      (send (cat (exp (gen) y) (mul x (rec x-0))))))
-  (label 106)
-  (parent 102)
-  (unrealized (2 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 b-2 a-1 name) (h1 base)
-    (y x x-0 y-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul y x (rec x-0) (rec y-0))))
-  (defstrand resp 2 (b b-2) (a a-1) (h1 h1) (y y-0))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1))
-    ((4 1) (3 0)))
-  (absent (y-0 h1) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (cat (exp (gen) y-0) (mul y x (rec x-0) (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul y x (rec x-0) (rec y-0)))))
-    ((recv (enc h1 a-1 (pubk b-2)))
-      (send (enc h1 (exp (gen) y-0) (pubk a-1)))))
-  (label 107)
-  (parent 102)
-  (unrealized (2 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x-0)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x-0))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul y (rec x) x-0))) (x x))
-  (deflistener (cat (exp (gen) x-0) (mul y (rec x))))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
-  (absent (y (exp (gen) x-0)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x-0) a (pubk b)))
-      (send (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
-    ((send (enc (exp (gen) x-0) a (pubk b-0)))
-      (recv (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x) (exp (gen) (mul y (rec x) x-0)) (pubk a-0)))
-      (send (enc (exp (gen) (mul y (rec x) x-0)) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul y (rec x))))
-      (send (cat (exp (gen) x-0) (mul y (rec x))))))
-  (label 108)
-  (parent 102)
-  (unrealized (2 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 2 init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))))
-  (label 109)
-  (parent 102)
-  (unrealized (2 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 a-1 b-2 name) (y x x-0 x-1 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1))))
-  (defstrand init 1 (a a-1) (b b-2) (x x-1))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
-    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1))
-    ((4 0) (3 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1)))))
-    ((send (enc (exp (gen) x-1) a-1 (pubk b-2)))))
-  (label 110)
-  (parent 102)
-  (unrealized (2 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (gen) (mul y x)))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((2 1) (0 4)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test (contracted (y-0 y) (x-0 x) (w (mul y x))) (gen)
-    (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (gen) (mul y x))) (send (cat (gen) (mul y x)))))
-  (label 111)
-  (parent 103)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 name) (x y expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((2 1) (0 4)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
-  (label 112)
-  (parent 103)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 b-1 a-0 name) (h1 base) (y x y-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y-0) (mul y x (rec y-0))))
-  (defstrand resp 2 (b b-1) (a a-0) (h1 h1) (y y-0))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((2 1) (0 4)) ((3 1) (2 0)) ((4 1) (3 0)))
-  (absent (y-0 h1) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) y-0) (mul y x (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul y x (rec y-0)))))
-    ((recv (enc h1 a-0 (pubk b-1)))
-      (send (enc h1 (exp (gen) y-0) (pubk a-0)))))
-  (label 113)
-  (parent 103)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x) y))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((2 1) (0 4)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
-  (label 114)
-  (parent 103)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0))))
-  (defstrand init 1 (a a-0) (b b-1) (x x-0))
-  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((2 1) (0 4)) ((3 1) (2 0)) ((4 0) (3 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul y x (rec x-0)))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))))
-  (label 115)
-  (parent 103)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (b a b-0 name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 5 (n n) (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (precedes ((0 1) (2 1)) ((0 3) (2 3)) ((1 1) (0 2)) ((2 0) (0 0))
-    ((2 2) (1 0)) ((2 4) (0 4)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk b) (privk a))
-  (precur (1 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 2 3 init 5) n (0 4)
-    (enc n (exp (gen) (mul y x-0))))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n)))
-  (label 116)
-  (parent 104)
-  (seen 95)
-  (unrealized)
-  (comment "1 in cohort - 0 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (precedes ((0 1) (2 1)) ((0 1) (3 1)) ((0 3) (3 3)) ((1 1) (0 2))
-    ((2 0) (0 0)) ((2 2) (1 0)) ((3 4) (0 4)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 5) n (0 4)
-    (enc n (exp (gen) (mul y x))))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n)))
-  (label 117)
-  (parent 104)
-  (unrealized (3 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (precedes ((0 1) (2 1)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 0) (0 0))
-    ((2 2) (1 0)) ((3 1) (0 4)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener (exp (gen) (mul y x))) n (0 4)
-    (enc n (exp (gen) (mul y x))))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x)))))
-  (label 118)
-  (parent 104)
-  (unrealized (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (x y x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x-0)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x-0))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul (rec x) y x-0))) (x x))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
-  (precedes ((0 1) (1 1)) ((0 3) (2 3)) ((1 0) (0 0)) ((1 2) (0 2))
-    ((1 2) (3 0)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
-  (absent (y (exp (gen) x-0)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 init 3) (exp (gen) y) (3 0)
-    (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
-  (traces
-    ((recv (enc (exp (gen) x-0) a (pubk b)))
-      (send (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
-    ((send (enc (exp (gen) x-0) a (pubk b-0)))
-      (recv (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x) (exp (gen) (mul (rec x) y x-0)) (pubk a-0)))
-      (send (enc (exp (gen) (mul (rec x) y x-0)) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0)))
-      (send (cat (exp (gen) y) (mul (rec x) x-0)))))
-  (label 119)
-  (parent 106)
-  (unrealized (2 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 expn) (w expr))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (deflistener (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
-  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((0 3) (3 3)) ((1 1) (0 2))
-    ((2 0) (0 0)) ((2 2) (1 0)) ((3 0) (4 0)) ((3 4) (0 4))
-    ((4 1) (3 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (4 0) (1 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
-    (exp (gen) (mul y x (rec x-0))) (3 1))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
-      (send (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))))
-  (label 120)
-  (parent 117)
-  (unrealized (4 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 name) (y x expn) (w expr))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) (mul y x (rec w))) w))
-  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 0) (0 0))
-    ((2 2) (1 0)) ((3 1) (0 4)) ((4 1) (3 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (4 0) (1 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y x (rec w))) w))
-    (exp (gen) (mul y x)) (3 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) (mul y x (rec w))) w))
-      (send (cat (exp (gen) (mul y x (rec w))) w))))
-  (label 121)
-  (parent 118)
-  (unrealized (4 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (deflistener (cat (gen) (mul y x (rec x-0))))
-  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((0 3) (3 3)) ((1 1) (0 2))
-    ((2 0) (0 0)) ((2 2) (1 0)) ((3 0) (4 0)) ((3 4) (0 4))
-    ((4 1) (3 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (4 0) (1 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (y-0 y) (x-1 x) (x-2 x-0) (w (mul y x (rec x-0)))) (gen)
-    (4 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (cat (gen) (mul y x (rec x-0))))
-      (send (cat (gen) (mul y x (rec x-0))))))
-  (label 122)
-  (parent 120)
-  (unrealized (3 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (x x-0 y expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul x (rec x-0) y))) (x x-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec x-0))))
-  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((0 3) (3 3)) ((1 1) (0 2))
-    ((2 0) (0 0)) ((2 2) (1 0)) ((3 0) (4 0)) ((3 4) (0 4))
-    ((4 1) (3 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (4 0) (1 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul x (rec x-0) y))
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul x (rec x-0) y)) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (cat (exp (gen) y) (mul x (rec x-0))))
-      (send (cat (exp (gen) y) (mul x (rec x-0))))))
-  (label 123)
-  (parent 120)
-  (unrealized (3 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 b-2 a-1 name) (h1 base)
-    (y x x-0 y-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul y x (rec x-0) (rec y-0))))
-  (defstrand resp 2 (b b-2) (a a-1) (h1 h1) (y y-0))
-  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((0 3) (3 3)) ((1 1) (0 2))
-    ((2 0) (0 0)) ((2 2) (1 0)) ((3 0) (4 0)) ((3 4) (0 4))
-    ((4 1) (3 1)) ((5 1) (4 0)))
-  (absent (y-0 h1) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (4 0) (1 0))
-  (uniq-gen y x x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (cat (exp (gen) y-0) (mul y x (rec x-0) (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul y x (rec x-0) (rec y-0)))))
-    ((recv (enc h1 a-1 (pubk b-2)))
-      (send (enc h1 (exp (gen) y-0) (pubk a-1)))))
-  (label 124)
-  (parent 120)
-  (unrealized (3 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x-0)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x-0))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul y (rec x) x-0))) (x x))
-  (deflistener (cat (exp (gen) x-0) (mul y (rec x))))
-  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((0 3) (3 3)) ((1 1) (0 2))
-    ((2 0) (0 0)) ((2 2) (1 0)) ((3 0) (4 0)) ((3 4) (0 4))
-    ((4 1) (3 1)))
-  (absent (y (exp (gen) x-0)))
-  (non-orig (privk a) (privk b))
-  (precur (4 0) (1 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 2 init 1) (exp (gen) x-1) (4 0))
-  (traces
-    ((recv (enc (exp (gen) x-0) a (pubk b)))
-      (send (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x-0) a (pubk b-0)))
-      (recv (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x) (exp (gen) (mul y (rec x) x-0)) (pubk a-0)))
-      (send (enc (exp (gen) (mul y (rec x) x-0)) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul y (rec x))))
-      (send (cat (exp (gen) x-0) (mul y (rec x))))))
-  (label 125)
-  (parent 120)
-  (unrealized (3 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
-  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((0 3) (3 3)) ((1 1) (0 2))
-    ((2 0) (0 0)) ((2 2) (1 0)) ((3 0) (4 0)) ((3 4) (0 4))
-    ((4 1) (3 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (4 0) (1 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 3 init 1) (exp (gen) x-1) (4 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))))
-  (label 126)
-  (parent 120)
-  (unrealized (3 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 a-1 b-2 name) (y x x-0 x-1 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1))))
-  (defstrand init 1 (a a-1) (b b-2) (x x-1))
-  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((0 3) (3 3)) ((1 1) (0 2))
-    ((2 0) (0 0)) ((2 2) (1 0)) ((3 0) (4 0)) ((3 4) (0 4))
-    ((4 1) (3 1)) ((5 0) (4 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (4 0) (1 0))
-  (uniq-gen y x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (4 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
-      (recv
-        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
-          (pubk a-0)))
-      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((recv (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1)))))
-    ((send (enc (exp (gen) x-1) a-1 (pubk b-2)))))
-  (label 127)
-  (parent 120)
-  (unrealized (3 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (gen) (mul y x)))
-  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 0) (0 0))
-    ((2 2) (1 0)) ((3 1) (0 4)) ((4 1) (3 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (4 0) (1 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (y-0 y) (x-0 x) (w (mul y x))) (gen)
-    (4 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (gen) (mul y x))) (send (cat (gen) (mul y x)))))
-  (label 128)
-  (parent 121)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 name) (x y expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 0) (0 0))
-    ((2 2) (1 0)) ((3 1) (0 4)) ((4 1) (3 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (4 0) (1 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul x y)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
-  (label 129)
-  (parent 121)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 b-1 a-0 name) (h1 base) (y x y-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y-0) (mul y x (rec y-0))))
-  (defstrand resp 2 (b b-1) (a a-0) (h1 h1) (y y-0))
-  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 0) (0 0))
-    ((2 2) (1 0)) ((3 1) (0 4)) ((4 1) (3 0)) ((5 1) (4 0)))
-  (absent (y-0 h1) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (4 0) (1 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) y-0) (mul y x (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul y x (rec y-0)))))
-    ((recv (enc h1 a-0 (pubk b-1)))
-      (send (enc h1 (exp (gen) y-0) (pubk a-0)))))
-  (label 130)
-  (parent 121)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 name) (y x expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x) y))
-  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 0) (0 0))
-    ((2 2) (1 0)) ((3 1) (0 4)) ((4 1) (3 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (4 0) (1 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 2 init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
-  (label 131)
-  (parent 121)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0))))
-  (defstrand init 1 (a a-0) (b b-1) (x x-0))
-  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 0) (0 0))
-    ((2 2) (1 0)) ((3 1) (0 4)) ((4 1) (3 0)) ((5 0) (4 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (4 0) (1 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((recv (enc (exp (gen) x) a (pubk b)))
-      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (recv (enc (exp (gen) y) (pubk b)))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((send (enc (exp (gen) x) a (pubk b-0)))
-      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
-      (send (enc (exp (gen) y) (pubk b-0))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul y x (rec x-0)))))
-    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))))
-  (label 132)
-  (parent 121)
-  (unrealized (3 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton dhns
-  (vars (n text) (a b b-0 a-0 b-1 name) (x y x-0 expn))
-  (defstrand resp 5 (n n) (b b) (a a) (h1 (exp (gen) x-0)) (y y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand init 3 (a a) (b b-0) (h2 (exp (gen) y)) (x x-0))
-  (defstrand init 5 (n n) (a a-0) (b b-1)
-    (h2 (exp (gen) (mul (rec x) y x-0))) (x x))
+(comment "CPSA 3.5.0")
+(comment "All input read from dhnsl_use.scm")
+
+(defprotocol dhnsl diffie-hellman
+  (defrole resp
+    (vars (b a name) (x expt) (y rndx) (n text))
+    (trace (recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    (uniq-orig n)
+    (uniq-gen y)
+    (absent (y (exp (gen) x)))
+    (comment "Y should be assumed to be freshly chosen per role"))
+  (defrole init
+    (vars (a b name) (y expt) (x rndx) (n text))
+    (trace (send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    (uniq-gen x)
+    (comment "X should be assumed to be freshly chosen per role"))
+  (comment
+    "Needham-Schroeder-Lowe DH challenge/responses in place of nonces"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y expt) (x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x)
+  (comment "Initiator point-of-view")
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n)))
+  (label 0)
+  (unrealized (0 1) (0 3))
+  (origs)
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y expt) (y-0 x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y-0 x)
+  (operation nonce-test (added-strand resp 2) (exp (gen) x) (0 1)
+    (enc (exp (gen) x) a (pubk b)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a)))))
+  (label 1)
+  (parent 0)
+  (unrealized (0 1) (0 3))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y expt) (x rndx) (w expt))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (deflistener (cat (exp (gen) (mul x (rec w))) w))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x)
+  (precur (1 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul x (rec w))) w)) (exp (gen) x)
+    (0 1) (enc (exp (gen) x) a (pubk b)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) (mul x (rec w))) w))
+      (send (cat (exp (gen) (mul x (rec w))) w))))
+  (label 2)
+  (parent 0)
+  (unrealized (1 0))
+  (comment "4 in cohort - 4 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (operation nonce-test (contracted (y-0 y) (y-1 y)) (exp (gen) x) (0 1)
+    (enc (exp (gen) x) a (pubk b))
+    (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))))
+  (label 3)
+  (parent 1)
+  (unrealized (0 3))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y expt) (y-0 x rndx) (w expt))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (deflistener (cat (exp (gen) (mul x (rec w))) w))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y-0 x)
+  (precur (2 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul x (rec w))) w)) (exp (gen) x)
+    (0 1) (enc (exp (gen) x) a (pubk b))
+    (enc (exp (gen) x) (exp (gen) y-0) b (pubk a)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a))))
+    ((recv (cat (exp (gen) (mul x (rec w))) w))
+      (send (cat (exp (gen) (mul x (rec w))) w))))
+  (label 4)
+  (parent 1)
+  (unrealized (2 0))
+  (comment "5 in cohort - 5 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y expt) (x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (deflistener (cat (gen) x))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x)
+  (precur (1 0))
+  (operation nonce-test (contracted (x-0 x) (w x)) (gen) (1 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (gen) x)) (send (cat (gen) x))))
+  (label 5)
+  (parent 2)
+  (unrealized (1 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b b-0 a-0 name) (y x expt) (x-0 y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x-0))
+  (deflistener (cat (exp (gen) y-0) (mul x-0 (rec y-0))))
+  (defstrand resp 2 (b b-0) (a a-0) (x x) (y y-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (1 0)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen x-0 y-0)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (1 0))
+  (traces
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
+    ((recv (cat (exp (gen) y-0) (mul x-0 (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul x-0 (rec y-0)))))
+    ((recv (enc (exp (gen) x) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b-0 (pubk a-0)))))
+  (label 6)
+  (parent 2)
+  (unrealized (0 1) (0 3) (1 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y expt) (x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (deflistener (cat (exp (gen) x) (one)))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen x)
+  (operation nonce-test (displaced 2 0 init 1) (exp (gen) x-0) (1 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one)))))
+  (label 7)
+  (parent 2)
+  (unrealized (1 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b a-0 b-0 name) (y expt) (x x-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
+  (defstrand init 1 (a a-0) (b b-0) (x x-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 0) (1 0)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen x x-0)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
+  (label 8)
+  (parent 2)
+  (unrealized (0 1) (0 3) (1 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (b a name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 3) (0 3)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (operation encryption-test (displaced 1 2 resp 4)
+    (enc n (exp (gen) (mul x y-0))) (0 3))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y))))))
+  (label 9)
+  (parent 3)
+  (unrealized (1 2))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((2 1) (0 3)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (operation encryption-test (added-listener (exp (gen) (mul x y)))
+    (enc n (exp (gen) (mul x y))) (0 3))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y)))))
+  (label 10)
+  (parent 3)
+  (unrealized (2 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y expt) (y-0 x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (deflistener (cat (gen) x))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y-0 x)
+  (precur (2 0))
+  (operation nonce-test (contracted (x-0 x) (w x)) (gen) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a))))
+    ((recv (cat (gen) x)) (send (cat (gen) x))))
+  (label 11)
+  (parent 4)
+  (unrealized (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y expt) (x y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0))))
+  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (2 0))
+  (uniq-gen x y-0)
+  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-1) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a))))
+    ((recv (cat (exp (gen) y-0) (mul x (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul x (rec y-0))))))
+  (label 12)
+  (parent 4)
+  (unrealized (0 1) (0 3) (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b b-0 a-0 name) (y expt) (y-0 rndx) (x expt)
+    (x-0 y-1 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x-0))
+  (defstrand resp 2 (b b) (a a) (x x-0) (y y-0))
+  (deflistener (cat (exp (gen) y-1) (mul x-0 (rec y-1))))
+  (defstrand resp 2 (b b-0) (a a-0) (x x) (y y-1))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1))
+    ((3 1) (2 0)))
+  (absent (y-1 (exp (gen) x)) (y-0 (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (2 0))
+  (uniq-gen y-0 x-0 y-1)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (2 0))
+  (traces
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y-0) b (pubk a))))
+    ((recv (cat (exp (gen) y-1) (mul x-0 (rec y-1))))
+      (send (cat (exp (gen) y-1) (mul x-0 (rec y-1)))))
+    ((recv (enc (exp (gen) x) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x) (exp (gen) y-1) b-0 (pubk a-0)))))
+  (label 13)
+  (parent 4)
+  (unrealized (0 1) (0 3) (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y expt) (y-0 x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (deflistener (cat (exp (gen) x) (one)))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (2 0))
+  (uniq-gen y-0 x)
+  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a))))
+    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one)))))
+  (label 14)
+  (parent 4)
+  (seen 16)
+  (unrealized (2 0))
+  (comment "2 in cohort - 1 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b a-0 b-0 name) (y expt) (y-0 x x-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
+  (defstrand init 1 (a a-0) (b b-0) (x x-0))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1))
+    ((3 0) (2 0)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (2 0))
+  (uniq-gen y-0 x x-0)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a))))
+    ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
+  (label 15)
+  (parent 4)
+  (unrealized (0 1) (0 3) (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y expt) (y-0 x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (deflistener (cat (exp (gen) x) (one)))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen y-0 x)
+  (operation nonce-test (added-strand resp 2) (exp (gen) x) (1 0)
+    (enc (exp (gen) x) a (pubk b)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a)))))
+  (label 16)
+  (parent 7)
+  (unrealized (1 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (b a name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (displaced 2 0 init 3) (exp (gen) y) (1 2)
+    (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x))))))
+  (label 17)
+  (parent 9)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (y y) (x x) (n n))))
+  (origs (n (1 3))))
+
+(defskeleton dhnsl
+  (vars (n text) (b a name) (x y rndx) (w expt))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) (mul y (rec w))) w))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
+    ((2 1) (1 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (precur (2 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul y (rec w))) w)) (exp (gen) y)
+    (1 2) (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))))
+    ((recv (cat (exp (gen) (mul y (rec w))) w))
+      (send (cat (exp (gen) (mul y (rec w))) w))))
+  (label 18)
+  (parent 9)
+  (unrealized (2 0))
+  (comment "5 in cohort - 5 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (x y rndx) (w expt))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) (mul x y (rec w))) w))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (precur (3 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul x y (rec w))) w))
+    (exp (gen) (mul x y)) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) (mul x y (rec w))) w))
+      (send (cat (exp (gen) (mul x y (rec w))) w))))
+  (label 19)
+  (parent 10)
+  (unrealized (3 0))
+  (comment "5 in cohort - 5 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y expt) (y-0 y-1 x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (deflistener (cat (exp (gen) x) (one)))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-1))
+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))
+    ((3 1) (2 0)))
+  (absent (y-1 (exp (gen) x)) (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (2 0))
+  (uniq-gen y-0 y-1 x)
+  (operation nonce-test (added-strand resp 2) (exp (gen) x) (2 0)
+    (enc (exp (gen) x) a (pubk b)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a))))
+    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-1) b (pubk a)))))
+  (label 20)
+  (parent 14)
+  (seen 16)
+  (unrealized (2 0))
+  (comment "1 in cohort - 0 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (b a name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (gen) y))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
+    ((2 1) (1 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (precur (2 0))
+  (operation nonce-test (contracted (y-0 y) (w y)) (gen) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))))
+    ((recv (cat (gen) y)) (send (cat (gen) y))))
+  (label 21)
+  (parent 18)
+  (unrealized (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (b a name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
+    ((2 1) (1 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (precur (2 0))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-0) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one)))))
+  (label 22)
+  (parent 18)
+  (unrealized (2 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (b a b-0 a-0 name) (x rndx) (x-0 expt) (y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y-0) (mul y (rec y-0))))
+  (defstrand resp 2 (b b-0) (a a-0) (x x-0) (y y-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
+    ((2 1) (1 2)) ((3 1) (2 0)))
+  (absent (y-0 (exp (gen) x-0)) (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (precur (2 0))
+  (uniq-gen x y y-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))))
+    ((recv (cat (exp (gen) y-0) (mul y (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul y (rec y-0)))))
+    ((recv (enc (exp (gen) x-0) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x-0) (exp (gen) y-0) b-0 (pubk a-0)))))
+  (label 23)
+  (parent 18)
+  (unrealized (1 2) (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (b a name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) x) (mul y (rec x))))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
+    ((2 1) (1 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (precur (2 0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))))
+    ((recv (cat (exp (gen) x) (mul y (rec x))))
+      (send (cat (exp (gen) x) (mul y (rec x))))))
+  (label 24)
+  (parent 18)
+  (unrealized (1 2) (2 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (b a a-0 b-0 name) (x y x-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) x-0) (mul y (rec x-0))))
+  (defstrand init 1 (a a-0) (b b-0) (x x-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
+    ((2 1) (1 2)) ((3 0) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (precur (2 0))
+  (uniq-gen x y x-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))))
+    ((recv (cat (exp (gen) x-0) (mul y (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul y (rec x-0)))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
+  (label 25)
+  (parent 18)
+  (unrealized (1 2) (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (gen) (mul x y)))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (precur (3 0))
+  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul x y))) (gen)
+    (3 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (gen) (mul x y))) (send (cat (gen) (mul x y)))))
+  (label 26)
+  (parent 19)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) y) x))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x y)
+  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
+  (label 27)
+  (parent 19)
+  (unrealized (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b b-0 a-0 name) (x expt) (x-0 y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x-0))
+  (defstrand resp 2 (b b) (a a) (x x-0) (y y))
+  (deflistener (exp (gen) (mul x-0 y)))
+  (deflistener (cat (exp (gen) y-0) (mul x-0 y (rec y-0))))
+  (defstrand resp 2 (b b-0) (a a-0) (x x) (y y-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
+    ((3 1) (2 0)) ((4 1) (3 0)))
+  (absent (y-0 (exp (gen) x)) (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x-0 y y-0)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
+  (traces
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x-0 y)))) (send n))
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) b (pubk a))))
+    ((recv (exp (gen) (mul x-0 y))) (send (exp (gen) (mul x-0 y))))
+    ((recv (cat (exp (gen) y-0) (mul x-0 y (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul x-0 y (rec y-0)))))
+    ((recv (enc (exp (gen) x) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b-0 (pubk a-0)))))
+  (label 28)
+  (parent 19)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (exp (gen) x) y))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x)
+  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
+  (label 29)
+  (parent 19)
+  (unrealized (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b a-0 b-0 name) (x y x-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) x-0) (mul x y (rec x-0))))
+  (defstrand init 1 (a a-0) (b b-0) (x x-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
+    ((3 1) (2 0)) ((4 0) (3 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x y x-0)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) x-0) (mul x y (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul x y (rec x-0)))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
+  (label 30)
+  (parent 19)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (b a name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (precedes ((0 0) (1 0)) ((0 2) (2 0)) ((1 1) (0 1)) ((1 3) (0 3))
+    ((2 1) (1 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (precur (2 0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (displaced 3 0 init 3) (exp (gen) y) (2 0)
+    (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one)))))
+  (label 31)
+  (parent 22)
+  (unrealized (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (b a name) (y y-0 x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) x) (mul y (rec x))))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((1 1) (2 0))
+    ((1 3) (0 3)) ((2 1) (1 2)) ((3 1) (2 0)))
+  (absent (y-0 (exp (gen) x)) (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (precur (2 0))
+  (uniq-gen y y-0 x)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 2) (exp (gen) x) (2 0)
+    (enc (exp (gen) x) a (pubk b))
+    (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))))
+    ((recv (cat (exp (gen) x) (mul y (rec x))))
+      (send (cat (exp (gen) x) (mul y (rec x)))))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b (pubk a)))))
+  (label 32)
+  (parent 24)
+  (unrealized (1 2) (2 0))
+  (comment "empty cohort"))
+
+(comment "Nothing left to do")
+
+(defprotocol dhnsl diffie-hellman
+  (defrole resp
+    (vars (b a name) (x expt) (y rndx) (n text))
+    (trace (recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    (uniq-orig n)
+    (uniq-gen y)
+    (absent (y (exp (gen) x)))
+    (comment "Y should be assumed to be freshly chosen per role"))
+  (defrole init
+    (vars (a b name) (y expt) (x rndx) (n text))
+    (trace (send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    (uniq-gen x)
+    (comment "X should be assumed to be freshly chosen per role"))
+  (comment
+    "Needham-Schroeder-Lowe DH challenge/responses in place of nonces"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (x expt) (y rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y)
+  (uniq-orig n)
+  (comment "Responder point-of-view")
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n)))
+  (label 33)
+  (unrealized (0 2) (0 4))
+  (origs (n (0 3)))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 3) (exp (gen) y) (0 2)
+    (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))))
+  (label 34)
+  (parent 33)
+  (unrealized (0 4))
+  (comment "3 in cohort - 3 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (x expt) (y rndx) (w expt))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) (mul y (rec w))) w))
+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y)
+  (uniq-orig n)
+  (precur (1 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul y (rec w))) w)) (exp (gen) y)
+    (0 2) (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    ((recv (cat (exp (gen) (mul y (rec w))) w))
+      (send (cat (exp (gen) (mul y (rec w))) w))))
+  (label 35)
+  (parent 33)
+  (unrealized (1 0))
+  (comment "4 in cohort - 4 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (precedes ((0 1) (1 1)) ((0 3) (1 3)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((1 4) (0 4)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (displaced 1 2 init 5) n (0 4)
+    (enc n (exp (gen) (mul y x-0))))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n)))
+  (label 36)
+  (parent 34)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (x x) (y y) (n n))))
+  (origs (n (0 3))))
+
+(defskeleton dhnsl
+  (vars (n text) (a b a-0 b-0 name) (y x x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (y (mul y x (rec x-0)))
+    (x x-0))
+  (precedes ((0 1) (1 1)) ((0 1) (2 1)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 4) (0 4)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 5) n (0 4)
+    (enc n (exp (gen) (mul y x))))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))
+      (recv
+        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0))) b-0
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-0)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n)))
+  (label 37)
+  (parent 34)
+  (unrealized (2 1))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (precedes ((0 1) (1 1)) ((0 1) (2 0)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((2 1) (0 4)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (added-listener (exp (gen) (mul y x))) n (0 4)
+    (enc n (exp (gen) (mul y x))))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x)))))
+  (label 38)
+  (parent 34)
+  (unrealized (2 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (x expt) (y rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (gen) y))
+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y)
+  (uniq-orig n)
+  (precur (1 0))
+  (operation nonce-test (contracted (y-0 y) (w y)) (gen) (1 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    ((recv (cat (gen) y)) (send (cat (gen) y))))
+  (label 39)
+  (parent 35)
+  (unrealized (1 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (x expt) (y rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen y)
+  (uniq-orig n)
+  (operation nonce-test (displaced 2 0 resp 2) (exp (gen) y-0) (1 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one)))))
+  (label 40)
+  (parent 35)
+  (unrealized (1 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b b-0 a-0 name) (x x-0 expt) (y y-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y-0) (mul y (rec y-0))))
+  (defstrand resp 2 (b b-0) (a a-0) (x x-0) (y y-0))
+  (precedes ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (1 0)))
+  (absent (y-0 (exp (gen) x-0)) (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen y y-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (1 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    ((recv (cat (exp (gen) y-0) (mul y (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul y (rec y-0)))))
+    ((recv (enc (exp (gen) x-0) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x-0) (exp (gen) y-0) b-0 (pubk a-0)))))
+  (label 41)
+  (parent 35)
+  (unrealized (0 2) (0 4) (1 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b a-0 b-0 name) (x expt) (y x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) x-0) (mul y (rec x-0))))
+  (defstrand init 1 (a a-0) (b b-0) (x x-0))
+  (precedes ((0 1) (1 0)) ((1 1) (0 2)) ((2 0) (1 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen y x-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    ((recv (cat (exp (gen) x-0) (mul y (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul y (rec x-0)))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
+  (label 42)
+  (parent 35)
+  (unrealized (0 2) (0 4) (1 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b a-0 b-0 name) (y x x-0 rndx) (w expt))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (y (mul y x (rec x-0)))
+    (x x-0))
+  (deflistener (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (precur (3 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
+    (exp (gen) (mul y x (rec x-0))) (2 1))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))
+      (recv
+        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0))) b-0
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-0)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
+      (send (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))))
+  (label 43)
+  (parent 37)
+  (unrealized (3 0))
+  (comment "6 in cohort - 6 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y x rndx) (w expt))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (exp (gen) (mul y x (rec w))) w))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((2 1) (0 4)) ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (precur (3 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul y x (rec w))) w))
+    (exp (gen) (mul y x)) (2 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (exp (gen) (mul y x (rec w))) w))
+      (send (cat (exp (gen) (mul y x (rec w))) w))))
+  (label 44)
+  (parent 38)
+  (unrealized (3 0))
+  (comment "5 in cohort - 5 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (1 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 3) (exp (gen) y) (1 0)
+    (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))))
+  (label 45)
+  (parent 40)
+  (unrealized (0 4) (1 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b a-0 b-0 name) (y x x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (y (mul y x (rec x-0)))
+    (x x-0))
+  (deflistener (cat (gen) (mul y x (rec x-0))))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (precur (3 0))
+  (operation nonce-test
+    (contracted (y-0 y) (x-1 x) (x-2 x-0) (w (mul y x (rec x-0)))) (gen)
+    (3 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))
+      (recv
+        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0))) b-0
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-0)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (gen) (mul y x (rec x-0))))
+      (send (cat (gen) (mul y x (rec x-0))))))
+  (label 46)
+  (parent 43)
+  (unrealized (2 1) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b a-0 b-0 name) (x x-0 y rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x-0))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (y (mul (rec x) x-0 y)) (x x))
+  (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
+  (absent (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x x-0 y)
+  (uniq-orig n)
+  (operation nonce-test (displaced 4 0 resp 2) (exp (gen) y-0) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x-0 y)))) (recv n))
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((send (enc (exp (gen) x) a-0 (pubk b-0)))
+      (recv
+        (enc (exp (gen) x) (exp (gen) (mul (rec x) x-0 y)) b-0
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul (rec x) x-0 y)) (pubk b-0)))
+      (recv (enc n (exp (gen) (mul x-0 y)))) (send n))
+    ((recv (cat (exp (gen) y) (mul (rec x) x-0)))
+      (send (cat (exp (gen) y) (mul (rec x) x-0)))))
+  (label 47)
+  (parent 43)
+  (unrealized (2 1) (3 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b a-0 b-0 b-1 a-1 name) (x expt)
+    (y x-0 x-1 y-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x-0))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (y (mul y x-0 (rec x-1)))
+    (x x-1))
+  (deflistener (cat (exp (gen) y-0) (mul y x-0 (rec x-1) (rec y-0))))
+  (defstrand resp 2 (b b-1) (a a-1) (x x) (y y-0))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1))
+    ((4 1) (3 0)))
+  (absent (y-0 (exp (gen) x)) (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x-0 x-1 y-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((send (enc (exp (gen) x-1) a-0 (pubk b-0)))
+      (recv
+        (enc (exp (gen) x-1) (exp (gen) (mul y x-0 (rec x-1))) b-0
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x-0 (rec x-1))) (pubk b-0)))
+      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
+    ((recv (cat (exp (gen) y-0) (mul y x-0 (rec x-1) (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul y x-0 (rec x-1) (rec y-0)))))
+    ((recv (enc (exp (gen) x) a-1 (pubk b-1)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b-1 (pubk a-1)))))
+  (label 48)
+  (parent 43)
+  (unrealized (2 1) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b a-0 b-0 name) (y x x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x-0))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (y (mul y (rec x) x-0)) (x x))
+  (deflistener (cat (exp (gen) x-0) (mul y (rec x))))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
+  (absent (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-1) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((send (enc (exp (gen) x) a-0 (pubk b-0)))
+      (recv
+        (enc (exp (gen) x) (exp (gen) (mul y (rec x) x-0)) b-0
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y (rec x) x-0)) (pubk b-0)))
+      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
+    ((recv (cat (exp (gen) x-0) (mul y (rec x))))
+      (send (cat (exp (gen) x-0) (mul y (rec x))))))
+  (label 49)
+  (parent 43)
+  (unrealized (2 1) (3 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b a-0 b-0 name) (y x x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (y (mul y x (rec x-0)))
+    (x x-0))
+  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation nonce-test (displaced 4 2 init 1) (exp (gen) x-1) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))
+      (recv
+        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0))) b-0
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-0)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))))
+  (label 50)
+  (parent 43)
+  (unrealized (2 1) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b a-0 b-0 a-1 b-1 name) (y x x-0 x-1 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (y (mul y x (rec x-0)))
+    (x x-0))
+  (deflistener (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1))))
+  (defstrand init 1 (a a-1) (b b-1) (x x-1))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1))
+    ((4 0) (3 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x x-0 x-1)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))
+      (recv
+        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0))) b-0
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-0)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1))))
+      (send (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1)))))
+    ((send (enc (exp (gen) x-1) a-1 (pubk b-1)))))
+  (label 51)
+  (parent 43)
+  (unrealized (2 1) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (gen) (mul y x)))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((2 1) (0 4)) ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (precur (3 0))
+  (operation nonce-test (contracted (y-0 y) (x-0 x) (w (mul y x))) (gen)
+    (3 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (gen) (mul y x))) (send (cat (gen) (mul y x)))))
+  (label 52)
+  (parent 44)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (x y rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) y) x))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((2 1) (0 4)) ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (operation nonce-test (displaced 4 0 resp 2) (exp (gen) y-0) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
+  (label 53)
+  (parent 44)
+  (unrealized (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b b-0 a-0 name) (x expt) (y x-0 y-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x-0))
+  (deflistener (exp (gen) (mul y x-0)))
+  (deflistener (cat (exp (gen) y-0) (mul y x-0 (rec y-0))))
+  (defstrand resp 2 (b b-0) (a a-0) (x x) (y y-0))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((2 1) (0 4)) ((3 1) (2 0)) ((4 1) (3 0)))
+  (absent (y-0 (exp (gen) x)) (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x-0 y-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((recv (exp (gen) (mul y x-0))) (send (exp (gen) (mul y x-0))))
+    ((recv (cat (exp (gen) y-0) (mul y x-0 (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul y x-0 (rec y-0)))))
+    ((recv (enc (exp (gen) x) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) b-0 (pubk a-0)))))
+  (label 54)
+  (parent 44)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (exp (gen) x) y))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((2 1) (0 4)) ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-0) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
+  (label 55)
+  (parent 44)
+  (unrealized (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b a-0 b-0 name) (y x x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0))))
+  (defstrand init 1 (a a-0) (b b-0) (x x-0))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((2 1) (0 4)) ((3 1) (2 0)) ((4 0) (3 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul y x (rec x-0)))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
+  (label 56)
+  (parent 44)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b a-0 b-0 name) (x y x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x-0))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (y (mul (rec x) y x-0)) (x x))
+  (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
+  (precedes ((0 1) (1 1)) ((0 3) (2 3)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((1 2) (3 0)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
+  (absent (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x y x-0)
+  (uniq-orig n)
+  (operation nonce-test (displaced 4 1 init 3) (exp (gen) y) (3 0)
+    (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+  (traces
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((send (enc (exp (gen) x) a-0 (pubk b-0)))
+      (recv
+        (enc (exp (gen) x) (exp (gen) (mul (rec x) y x-0)) b-0
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul (rec x) y x-0)) (pubk b-0)))
+      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
+    ((recv (cat (exp (gen) y) (mul (rec x) x-0)))
+      (send (cat (exp (gen) y) (mul (rec x) x-0)))))
+  (label 57)
+  (parent 47)
+  (unrealized (2 1) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhnsl
+  (vars (n text) (a b a-0 b-0 name) (y x y-0 x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (defstrand init 3 (a a) (b b) (y y) (x x-0))
+  (defstrand init 5 (n n) (a a-0) (b b-0) (y (mul y (rec x) x-0)) (x x))
+  (deflistener (cat (exp (gen) x-0) (mul y (rec x))))
+  (defstrand resp 2 (b b) (a a) (x x-0) (y y-0))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 0) (4 0)) ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4))
+    ((3 1) (2 1)) ((4 1) (3 0)))
+  (absent (y-0 (exp (gen) x-0)) (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x y-0 x-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 2) (exp (gen) x-0) (3 0)
+    (enc (exp (gen) x-0) a (pubk b))
+    (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+  (traces
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) b (pubk a)))
+      (send (enc (exp (gen) y) (pubk b))))
+    ((send (enc (exp (gen) x) a-0 (pubk b-0)))
+      (recv
+        (enc (exp (gen) x) (exp (gen) (mul y (rec x) x-0)) b-0
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y (rec x) x-0)) (pubk b-0)))
+      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
+    ((recv (cat (exp (gen) x-0) (mul y (rec x))))
+      (send (cat (exp (gen) x-0) (mul y (rec x)))))
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y-0) b (pubk a)))))
+  (label 58)
+  (parent 49)
+  (unrealized (2 1) (3 0))
+  (comment "empty cohort"))
+
+(comment "Nothing left to do")
+
+(defprotocol dhns diffie-hellman
+  (defrole resp
+    (vars (b a name) (x expt) (y rndx) (n text))
+    (trace (recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    (uniq-orig n)
+    (uniq-gen y)
+    (absent (y (exp (gen) x)))
+    (comment "Y should be assumed to be freshly chosen per role"))
+  (defrole init
+    (vars (a b name) (y expt) (x rndx) (n text))
+    (trace (send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    (uniq-gen x)
+    (comment "X should be assumed to be freshly chosen per role"))
+  (comment
+    "Needham-Schroeder-Lowe DH challenge/responses in place of nonces"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (y expt) (x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x)
+  (comment "Initiator point-of-view")
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n)))
+  (label 59)
+  (unrealized (0 1) (0 3))
+  (origs)
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (y expt) (y-0 x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y-0 x)
+  (operation nonce-test (added-strand resp 2) (exp (gen) x) (0 1)
+    (enc (exp (gen) x) a (pubk b)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a)))))
+  (label 60)
+  (parent 59)
+  (unrealized (0 1) (0 3))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (y expt) (x rndx) (w expt))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (deflistener (cat (exp (gen) (mul x (rec w))) w))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x)
+  (precur (1 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul x (rec w))) w)) (exp (gen) x)
+    (0 1) (enc (exp (gen) x) a (pubk b)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) (mul x (rec w))) w))
+      (send (cat (exp (gen) (mul x (rec w))) w))))
+  (label 61)
+  (parent 59)
+  (unrealized (1 0))
+  (comment "4 in cohort - 4 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (operation nonce-test (contracted (y-0 y) (y-1 y)) (exp (gen) x) (0 1)
+    (enc (exp (gen) x) a (pubk b))
+    (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))))
+  (label 62)
+  (parent 60)
+  (unrealized (0 3))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (y expt) (y-0 x rndx) (w expt))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (deflistener (cat (exp (gen) (mul x (rec w))) w))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y-0 x)
+  (precur (2 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul x (rec w))) w)) (exp (gen) x)
+    (0 1) (enc (exp (gen) x) a (pubk b))
+    (enc (exp (gen) x) (exp (gen) y-0) (pubk a)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a))))
+    ((recv (cat (exp (gen) (mul x (rec w))) w))
+      (send (cat (exp (gen) (mul x (rec w))) w))))
+  (label 63)
+  (parent 60)
+  (unrealized (2 0))
+  (comment "5 in cohort - 5 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (y expt) (x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (deflistener (cat (gen) x))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x)
+  (precur (1 0))
+  (operation nonce-test (contracted (x-0 x) (w x)) (gen) (1 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (gen) x)) (send (cat (gen) x))))
+  (label 64)
+  (parent 61)
+  (unrealized (1 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 name) (y x expt) (x-0 y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x-0))
+  (deflistener (cat (exp (gen) y-0) (mul x-0 (rec y-0))))
+  (defstrand resp 2 (b b-0) (a a-0) (x x) (y y-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (1 0)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen x-0 y-0)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (1 0))
+  (traces
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
+    ((recv (cat (exp (gen) y-0) (mul x-0 (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul x-0 (rec y-0)))))
+    ((recv (enc (exp (gen) x) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a-0)))))
+  (label 65)
+  (parent 61)
+  (unrealized (0 1) (0 3) (1 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (y expt) (x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (deflistener (cat (exp (gen) x) (one)))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen x)
+  (operation nonce-test (displaced 2 0 init 1) (exp (gen) x-0) (1 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one)))))
+  (label 66)
+  (parent 61)
+  (unrealized (1 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b a-0 b-0 name) (y expt) (x x-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
+  (defstrand init 1 (a a-0) (b b-0) (x x-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 0) (1 0)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen x x-0)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
+  (label 67)
+  (parent 61)
+  (unrealized (0 1) (0 3) (1 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (b a name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 3) (0 3)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (operation encryption-test (displaced 1 2 resp 4)
+    (enc n (exp (gen) (mul x y-0))) (0 3))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y))))))
+  (label 68)
+  (parent 62)
+  (unrealized (1 2))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((2 1) (0 3)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (operation encryption-test (added-listener (exp (gen) (mul x y)))
+    (enc n (exp (gen) (mul x y))) (0 3))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y)))))
+  (label 69)
+  (parent 62)
+  (unrealized (2 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (y expt) (y-0 x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (deflistener (cat (gen) x))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y-0 x)
+  (precur (2 0))
+  (operation nonce-test (contracted (x-0 x) (w x)) (gen) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a))))
+    ((recv (cat (gen) x)) (send (cat (gen) x))))
+  (label 70)
+  (parent 63)
+  (unrealized (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (y expt) (x y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (deflistener (cat (exp (gen) y-0) (mul x (rec y-0))))
+  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (2 0))
+  (uniq-gen x y-0)
+  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-1) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a))))
+    ((recv (cat (exp (gen) y-0) (mul x (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul x (rec y-0))))))
+  (label 71)
+  (parent 63)
+  (unrealized (0 1) (0 3) (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 name) (y expt) (y-0 rndx) (x expt)
+    (x-0 y-1 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x-0))
+  (defstrand resp 2 (b b) (a a) (x x-0) (y y-0))
+  (deflistener (cat (exp (gen) y-1) (mul x-0 (rec y-1))))
+  (defstrand resp 2 (b b-0) (a a-0) (x x) (y y-1))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1))
+    ((3 1) (2 0)))
+  (absent (y-1 (exp (gen) x)) (y-0 (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (2 0))
+  (uniq-gen y-0 x-0 y-1)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (2 0))
+  (traces
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y-0) (pubk a))))
+    ((recv (cat (exp (gen) y-1) (mul x-0 (rec y-1))))
+      (send (cat (exp (gen) y-1) (mul x-0 (rec y-1)))))
+    ((recv (enc (exp (gen) x) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x) (exp (gen) y-1) (pubk a-0)))))
+  (label 72)
+  (parent 63)
+  (unrealized (0 1) (0 3) (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (y expt) (y-0 x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (deflistener (cat (exp (gen) x) (one)))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (2 0))
+  (uniq-gen y-0 x)
+  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a))))
+    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one)))))
+  (label 73)
+  (parent 63)
+  (seen 75)
+  (unrealized (2 0))
+  (comment "2 in cohort - 1 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b a-0 b-0 name) (y expt) (y-0 x x-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
+  (defstrand init 1 (a a-0) (b b-0) (x x-0))
+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1))
+    ((3 0) (2 0)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (2 0))
+  (uniq-gen y-0 x x-0)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a))))
+    ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
+  (label 74)
+  (parent 63)
+  (unrealized (0 1) (0 3) (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (y expt) (y-0 x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (deflistener (cat (exp (gen) x) (one)))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
+  (absent (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen y-0 x)
+  (operation nonce-test (added-strand resp 2) (exp (gen) x) (1 0)
+    (enc (exp (gen) x) a (pubk b)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a)))))
+  (label 75)
+  (parent 66)
+  (unrealized (1 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (b a name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (displaced 2 0 init 3) (exp (gen) y) (1 2)
+    (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x))))))
+  (label 76)
+  (parent 68)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (y y) (x x) (n n))))
+  (origs (n (1 3))))
+
+(defskeleton dhns
+  (vars (n text) (b a name) (x y rndx) (w expt))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) (mul y (rec w))) w))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
+    ((2 1) (1 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (precur (2 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul y (rec w))) w)) (exp (gen) y)
+    (1 2) (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))))
+    ((recv (cat (exp (gen) (mul y (rec w))) w))
+      (send (cat (exp (gen) (mul y (rec w))) w))))
+  (label 77)
+  (parent 68)
+  (unrealized (2 0))
+  (comment "5 in cohort - 5 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (x y rndx) (w expt))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) (mul x y (rec w))) w))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (precur (3 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul x y (rec w))) w))
+    (exp (gen) (mul x y)) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) (mul x y (rec w))) w))
+      (send (cat (exp (gen) (mul x y (rec w))) w))))
+  (label 78)
+  (parent 69)
+  (unrealized (3 0))
+  (comment "5 in cohort - 5 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (y expt) (y-0 y-1 x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (deflistener (cat (exp (gen) x) (one)))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-1))
+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))
+    ((3 1) (2 0)))
+  (absent (y-1 (exp (gen) x)) (y-0 (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (2 0))
+  (uniq-gen y-0 y-1 x)
+  (operation nonce-test (added-strand resp 2) (exp (gen) x) (2 0)
+    (enc (exp (gen) x) a (pubk b)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a))))
+    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-1) (pubk a)))))
+  (label 79)
+  (parent 73)
+  (seen 75)
+  (unrealized (2 0))
+  (comment "1 in cohort - 0 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (b a name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (gen) y))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
+    ((2 1) (1 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (precur (2 0))
+  (operation nonce-test (contracted (y-0 y) (w y)) (gen) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))))
+    ((recv (cat (gen) y)) (send (cat (gen) y))))
+  (label 80)
+  (parent 77)
+  (unrealized (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (b a name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
+    ((2 1) (1 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (precur (2 0))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-0) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one)))))
+  (label 81)
+  (parent 77)
+  (unrealized (2 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (b a b-0 a-0 name) (x rndx) (x-0 expt) (y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y-0) (mul y (rec y-0))))
+  (defstrand resp 2 (b b-0) (a a-0) (x x-0) (y y-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
+    ((2 1) (1 2)) ((3 1) (2 0)))
+  (absent (y-0 (exp (gen) x-0)) (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (precur (2 0))
+  (uniq-gen x y y-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))))
+    ((recv (cat (exp (gen) y-0) (mul y (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul y (rec y-0)))))
+    ((recv (enc (exp (gen) x-0) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x-0) (exp (gen) y-0) (pubk a-0)))))
+  (label 82)
+  (parent 77)
+  (unrealized (1 2) (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (b a name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) x) (mul y (rec x))))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
+    ((2 1) (1 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (precur (2 0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))))
+    ((recv (cat (exp (gen) x) (mul y (rec x))))
+      (send (cat (exp (gen) x) (mul y (rec x))))))
+  (label 83)
+  (parent 77)
+  (unrealized (1 2) (2 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (b a a-0 b-0 name) (x y x-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) x-0) (mul y (rec x-0))))
+  (defstrand init 1 (a a-0) (b b-0) (x x-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (2 0)) ((1 3) (0 3))
+    ((2 1) (1 2)) ((3 0) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (precur (2 0))
+  (uniq-gen x y x-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))))
+    ((recv (cat (exp (gen) x-0) (mul y (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul y (rec x-0)))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
+  (label 84)
+  (parent 77)
+  (unrealized (1 2) (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (gen) (mul x y)))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (precur (3 0))
+  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul x y))) (gen)
+    (3 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (gen) (mul x y))) (send (cat (gen) (mul x y)))))
+  (label 85)
+  (parent 78)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (x y rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) y) x))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x y)
+  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
+  (label 86)
+  (parent 78)
+  (unrealized (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 name) (x expt) (x-0 y y-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x-0))
+  (defstrand resp 2 (b b) (a a) (x x-0) (y y))
+  (deflistener (exp (gen) (mul x-0 y)))
+  (deflistener (cat (exp (gen) y-0) (mul x-0 y (rec y-0))))
+  (defstrand resp 2 (b b-0) (a a-0) (x x) (y y-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
+    ((3 1) (2 0)) ((4 1) (3 0)))
+  (absent (y-0 (exp (gen) x)) (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x-0 y y-0)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
+  (traces
+    ((send (enc (exp (gen) x-0) a (pubk b)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x-0 y)))) (send n))
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) (pubk a))))
+    ((recv (exp (gen) (mul x-0 y))) (send (exp (gen) (mul x-0 y))))
+    ((recv (cat (exp (gen) y-0) (mul x-0 y (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul x-0 y (rec y-0)))))
+    ((recv (enc (exp (gen) x) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a-0)))))
+  (label 87)
+  (parent 78)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (exp (gen) x) y))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x)
+  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
+  (label 88)
+  (parent 78)
+  (unrealized (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b a-0 b-0 name) (x y x-0 rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 2 (b b) (a a) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) x-0) (mul x y (rec x-0))))
+  (defstrand init 1 (a a-0) (b b-0) (x x-0))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((2 1) (0 3))
+    ((3 1) (2 0)) ((4 0) (3 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x y x-0)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul x y)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) x-0) (mul x y (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul x y (rec x-0)))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
+  (label 89)
+  (parent 78)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (b a name) (y x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (precedes ((0 0) (1 0)) ((0 2) (2 0)) ((1 1) (0 1)) ((1 3) (0 3))
+    ((2 1) (1 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (precur (2 0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (displaced 3 0 init 3) (exp (gen) y) (2 0)
+    (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one)))))
+  (label 90)
+  (parent 81)
+  (unrealized (2 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (b a name) (y y-0 x rndx))
+  (defstrand init 5 (n n) (a a) (b b) (y y) (x x))
+  (defstrand resp 4 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) x) (mul y (rec x))))
+  (defstrand resp 2 (b b) (a a) (x x) (y y-0))
+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((1 1) (2 0))
+    ((1 3) (0 3)) ((2 1) (1 2)) ((3 1) (2 0)))
+  (absent (y-0 (exp (gen) x)) (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (precur (2 0))
+  (uniq-gen y y-0 x)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 2) (exp (gen) x) (2 0)
+    (enc (exp (gen) x) a (pubk b))
+    (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+  (traces
+    ((send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))))
+    ((recv (cat (exp (gen) x) (mul y (rec x))))
+      (send (cat (exp (gen) x) (mul y (rec x)))))
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a)))))
+  (label 91)
+  (parent 83)
+  (unrealized (1 2) (2 0))
+  (comment "empty cohort"))
+
+(comment "Nothing left to do")
+
+(defprotocol dhns diffie-hellman
+  (defrole resp
+    (vars (b a name) (x expt) (y rndx) (n text))
+    (trace (recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    (uniq-orig n)
+    (uniq-gen y)
+    (absent (y (exp (gen) x)))
+    (comment "Y should be assumed to be freshly chosen per role"))
+  (defrole init
+    (vars (a b name) (y expt) (x rndx) (n text))
+    (trace (send (enc (exp (gen) x) a (pubk b)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    (uniq-gen x)
+    (comment "X should be assumed to be freshly chosen per role"))
+  (comment
+    "Needham-Schroeder-Lowe DH challenge/responses in place of nonces"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (x expt) (y rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y)
+  (uniq-orig n)
+  (comment "Responder point-of-view")
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n)))
+  (label 92)
+  (unrealized (0 2) (0 4))
+  (origs (n (0 3)))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 3) (exp (gen) y) (0 2)
+    (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0)))))
+  (label 93)
+  (parent 92)
+  (unrealized (0 4))
+  (comment "3 in cohort - 3 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (x expt) (y rndx) (w expt))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) (mul y (rec w))) w))
+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y)
+  (uniq-orig n)
+  (precur (1 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul y (rec w))) w)) (exp (gen) y)
+    (0 2) (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    ((recv (cat (exp (gen) (mul y (rec w))) w))
+      (send (cat (exp (gen) (mul y (rec w))) w))))
+  (label 94)
+  (parent 92)
+  (unrealized (1 0))
+  (comment "4 in cohort - 4 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (b a b-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 5 (n n) (a a) (b b-0) (y y) (x x))
+  (precedes ((0 1) (1 1)) ((0 3) (1 3)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((1 4) (0 4)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (displaced 1 2 init 5) n (0 4)
+    (enc n (exp (gen) (mul y x-0))))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n)))
+  (label 95)
+  (parent 93)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (x x) (y y) (n n))))
+  (origs (n (0 3))))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul y x (rec x-0)))
+    (x x-0))
+  (precedes ((0 1) (1 1)) ((0 1) (2 1)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 4) (0 4)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 5) n (0 4)
+    (enc n (exp (gen) (mul y x))))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n)))
+  (label 96)
+  (parent 93)
+  (unrealized (2 1))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (precedes ((0 1) (1 1)) ((0 1) (2 0)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((2 1) (0 4)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (added-listener (exp (gen) (mul y x))) n (0 4)
+    (enc n (exp (gen) (mul y x))))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x)))))
+  (label 97)
+  (parent 93)
+  (unrealized (2 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (x expt) (y rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (gen) y))
+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y)
+  (uniq-orig n)
+  (precur (1 0))
+  (operation nonce-test (contracted (y-0 y) (w y)) (gen) (1 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    ((recv (cat (gen) y)) (send (cat (gen) y))))
+  (label 98)
+  (parent 94)
+  (unrealized (1 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b name) (x expt) (y rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen y)
+  (uniq-orig n)
+  (operation nonce-test (displaced 2 0 resp 2) (exp (gen) y-0) (1 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one)))))
+  (label 99)
+  (parent 94)
+  (unrealized (1 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 name) (x x-0 expt) (y y-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y-0) (mul y (rec y-0))))
+  (defstrand resp 2 (b b-0) (a a-0) (x x-0) (y y-0))
+  (precedes ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (1 0)))
+  (absent (y-0 (exp (gen) x-0)) (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen y y-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (1 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    ((recv (cat (exp (gen) y-0) (mul y (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul y (rec y-0)))))
+    ((recv (enc (exp (gen) x-0) a-0 (pubk b-0)))
+      (send (enc (exp (gen) x-0) (exp (gen) y-0) (pubk a-0)))))
+  (label 100)
+  (parent 94)
+  (unrealized (0 2) (0 4) (1 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b a-0 b-0 name) (x expt) (y x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) x-0) (mul y (rec x-0))))
+  (defstrand init 1 (a a-0) (b b-0) (x x-0))
+  (precedes ((0 1) (1 0)) ((1 1) (0 2)) ((2 0) (1 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen y x-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    ((recv (cat (exp (gen) x-0) (mul y (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul y (rec x-0)))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-0)))))
+  (label 101)
+  (parent 94)
+  (unrealized (0 2) (0 4) (1 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 rndx) (w expt))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul y x (rec x-0)))
+    (x x-0))
+  (deflistener (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (precur (3 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
+    (exp (gen) (mul y x (rec x-0))) (2 1))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
+      (send (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))))
+  (label 102)
+  (parent 96)
+  (unrealized (3 0))
+  (comment "6 in cohort - 6 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 name) (y x rndx) (w expt))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (exp (gen) (mul y x (rec w))) w))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((2 1) (0 4)) ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (precur (3 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul y x (rec w))) w))
+    (exp (gen) (mul y x)) (2 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (exp (gen) (mul y x (rec w))) w))
+      (send (cat (exp (gen) (mul y x (rec w))) w))))
+  (label 103)
+  (parent 97)
+  (unrealized (3 0))
+  (comment "5 in cohort - 5 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (1 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 3) (exp (gen) y) (1 0)
+    (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0)))))
+  (label 104)
+  (parent 99)
+  (unrealized (0 4))
+  (comment "3 in cohort - 3 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul y x (rec x-0)))
+    (x x-0))
+  (deflistener (cat (gen) (mul y x (rec x-0))))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (precur (3 0))
+  (operation nonce-test
+    (contracted (y-0 y) (x-1 x) (x-2 x-0) (w (mul y x (rec x-0)))) (gen)
+    (3 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (gen) (mul y x (rec x-0))))
+      (send (cat (gen) (mul y x (rec x-0))))))
+  (label 105)
+  (parent 102)
+  (unrealized (2 1) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (x x-0 y rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x-0))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul (rec x) x-0 y)) (x x))
+  (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
+  (absent (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x x-0 y)
+  (uniq-orig n)
+  (operation nonce-test (displaced 4 0 resp 2) (exp (gen) y-0) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x-0 y)))) (recv n))
+    ((send (enc (exp (gen) x-0) a (pubk b-0)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x) (exp (gen) (mul (rec x) x-0 y)) (pubk a-0)))
+      (send (enc (exp (gen) (mul (rec x) x-0 y)) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul x-0 y)))) (send n))
+    ((recv (cat (exp (gen) y) (mul (rec x) x-0)))
+      (send (cat (exp (gen) y) (mul (rec x) x-0)))))
+  (label 106)
+  (parent 102)
+  (unrealized (2 1) (3 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 b-2 a-1 name) (x expt)
+    (y x-0 x-1 y-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x-0))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul y x-0 (rec x-1)))
+    (x x-1))
+  (deflistener (cat (exp (gen) y-0) (mul y x-0 (rec x-1) (rec y-0))))
+  (defstrand resp 2 (b b-2) (a a-1) (x x) (y y-0))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1))
+    ((4 1) (3 0)))
+  (absent (y-0 (exp (gen) x)) (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x-0 x-1 y-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
+    ((send (enc (exp (gen) x-0) a (pubk b-0)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x-1) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x-1) (exp (gen) (mul y x-0 (rec x-1)))
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x-0 (rec x-1))) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
+    ((recv (cat (exp (gen) y-0) (mul y x-0 (rec x-1) (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul y x-0 (rec x-1) (rec y-0)))))
+    ((recv (enc (exp (gen) x) a-1 (pubk b-2)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a-1)))))
+  (label 107)
+  (parent 102)
+  (unrealized (2 1) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x-0))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul y (rec x) x-0)) (x x))
+  (deflistener (cat (exp (gen) x-0) (mul y (rec x))))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
+  (absent (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-1) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
+    ((send (enc (exp (gen) x-0) a (pubk b-0)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x) (exp (gen) (mul y (rec x) x-0)) (pubk a-0)))
+      (send (enc (exp (gen) (mul y (rec x) x-0)) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
+    ((recv (cat (exp (gen) x-0) (mul y (rec x))))
+      (send (cat (exp (gen) x-0) (mul y (rec x))))))
+  (label 108)
+  (parent 102)
+  (unrealized (2 1) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul y x (rec x-0)))
+    (x x-0))
+  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation nonce-test (displaced 4 2 init 1) (exp (gen) x-1) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))))
+  (label 109)
+  (parent 102)
+  (unrealized (2 1) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 a-1 b-2 name) (y x x-0 x-1 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul y x (rec x-0)))
+    (x x-0))
+  (deflistener (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1))))
+  (defstrand init 1 (a a-1) (b b-2) (x x-1))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((0 3) (2 3)) ((1 0) (0 0))
+    ((1 2) (0 2)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1))
+    ((4 0) (3 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x x-0 x-1)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1))))
+      (send (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1)))))
+    ((send (enc (exp (gen) x-1) a-1 (pubk b-2)))))
+  (label 110)
+  (parent 102)
+  (unrealized (2 1) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (gen) (mul y x)))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((2 1) (0 4)) ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (precur (3 0))
+  (operation nonce-test (contracted (y-0 y) (x-0 x) (w (mul y x))) (gen)
+    (3 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (gen) (mul y x))) (send (cat (gen) (mul y x)))))
+  (label 111)
+  (parent 103)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 name) (x y rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) y) x))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((2 1) (0 4)) ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (operation nonce-test (displaced 4 0 resp 2) (exp (gen) y-0) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
+  (label 112)
+  (parent 103)
+  (unrealized (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 b-1 a-0 name) (x expt) (y x-0 y-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x-0))
+  (deflistener (exp (gen) (mul y x-0)))
+  (deflistener (cat (exp (gen) y-0) (mul y x-0 (rec y-0))))
+  (defstrand resp 2 (b b-1) (a a-0) (x x) (y y-0))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((2 1) (0 4)) ((3 1) (2 0)) ((4 1) (3 0)))
+  (absent (y-0 (exp (gen) x)) (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x-0 y-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
+    ((send (enc (exp (gen) x-0) a (pubk b-0)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((recv (exp (gen) (mul y x-0))) (send (exp (gen) (mul y x-0))))
+    ((recv (cat (exp (gen) y-0) (mul y x-0 (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul y x-0 (rec y-0)))))
+    ((recv (enc (exp (gen) x) a-0 (pubk b-1)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a-0)))))
+  (label 113)
+  (parent 103)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (exp (gen) x) y))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((2 1) (0 4)) ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-0) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
+  (label 114)
+  (parent 103)
+  (unrealized (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0))))
+  (defstrand init 1 (a a-0) (b b-1) (x x-0))
+  (precedes ((0 1) (1 1)) ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((2 1) (0 4)) ((3 1) (2 0)) ((4 0) (3 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul y x (rec x-0)))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))))
+  (label 115)
+  (parent 103)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (b a b-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 5 (n n) (a a) (b b-0) (y y) (x x))
+  (precedes ((0 1) (2 1)) ((0 3) (2 3)) ((1 1) (0 2)) ((2 0) (0 0))
+    ((2 2) (1 0)) ((2 4) (0 4)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk b) (privk a))
+  (precur (1 0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (displaced 2 3 init 5) n (0 4)
+    (enc n (exp (gen) (mul y x-0))))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n)))
+  (label 116)
+  (parent 104)
+  (seen 95)
+  (unrealized)
+  (comment "1 in cohort - 0 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul y x (rec x-0)))
+    (x x-0))
+  (precedes ((0 1) (2 1)) ((0 1) (3 1)) ((0 3) (3 3)) ((1 1) (0 2))
+    ((2 0) (0 0)) ((2 2) (1 0)) ((3 4) (0 4)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 5) n (0 4)
+    (enc n (exp (gen) (mul y x))))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n)))
+  (label 117)
+  (parent 104)
+  (unrealized (3 1))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (precedes ((0 1) (2 1)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 0) (0 0))
+    ((2 2) (1 0)) ((3 1) (0 4)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (1 0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (added-listener (exp (gen) (mul y x))) n (0 4)
+    (enc n (exp (gen) (mul y x))))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x)))))
+  (label 118)
+  (parent 104)
+  (unrealized (3 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (x y x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x-0))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul (rec x) y x-0)) (x x))
+  (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
+  (precedes ((0 1) (1 1)) ((0 3) (2 3)) ((1 0) (0 0)) ((1 2) (0 2))
+    ((1 2) (3 0)) ((2 0) (3 0)) ((2 4) (0 4)) ((3 1) (2 1)))
+  (absent (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x y x-0)
+  (uniq-orig n)
+  (operation nonce-test (displaced 4 1 init 3) (exp (gen) y) (3 0)
+    (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+  (traces
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
+    ((send (enc (exp (gen) x-0) a (pubk b-0)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x) (exp (gen) (mul (rec x) y x-0)) (pubk a-0)))
+      (send (enc (exp (gen) (mul (rec x) y x-0)) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
+    ((recv (cat (exp (gen) y) (mul (rec x) x-0)))
+      (send (cat (exp (gen) y) (mul (rec x) x-0)))))
+  (label 119)
+  (parent 106)
+  (unrealized (2 1) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 rndx) (w expt))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul y x (rec x-0)))
+    (x x-0))
+  (deflistener (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
+  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((0 3) (3 3)) ((1 1) (0 2))
+    ((2 0) (0 0)) ((2 2) (1 0)) ((3 0) (4 0)) ((3 4) (0 4))
+    ((4 1) (3 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (4 0) (1 0))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
+    (exp (gen) (mul y x (rec x-0))) (3 1))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))
+      (send (cat (exp (gen) (mul y x (rec x-0) (rec w))) w))))
+  (label 120)
+  (parent 117)
+  (unrealized (4 0))
+  (comment "6 in cohort - 6 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 name) (y x rndx) (w expt))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (exp (gen) (mul y x (rec w))) w))
+  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 0) (0 0))
+    ((2 2) (1 0)) ((3 1) (0 4)) ((4 1) (3 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (4 0) (1 0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul y x (rec w))) w))
+    (exp (gen) (mul y x)) (3 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (exp (gen) (mul y x (rec w))) w))
+      (send (cat (exp (gen) (mul y x (rec w))) w))))
+  (label 121)
+  (parent 118)
+  (unrealized (4 0))
+  (comment "5 in cohort - 5 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul y x (rec x-0)))
+    (x x-0))
+  (deflistener (cat (gen) (mul y x (rec x-0))))
+  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((0 3) (3 3)) ((1 1) (0 2))
+    ((2 0) (0 0)) ((2 2) (1 0)) ((3 0) (4 0)) ((3 4) (0 4))
+    ((4 1) (3 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (4 0) (1 0))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation nonce-test
+    (contracted (y-0 y) (x-1 x) (x-2 x-0) (w (mul y x (rec x-0)))) (gen)
+    (4 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (gen) (mul y x (rec x-0))))
+      (send (cat (gen) (mul y x (rec x-0))))))
+  (label 122)
+  (parent 120)
+  (unrealized (3 1) (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (x x-0 y rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x-0))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul (rec x) x-0 y)) (x x))
+  (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
+  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((0 3) (3 3)) ((1 1) (0 2))
+    ((2 0) (0 0)) ((2 2) (1 0)) ((3 0) (4 0)) ((3 4) (0 4))
+    ((4 1) (3 1)))
+  (absent (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (4 0) (1 0))
+  (uniq-gen x x-0 y)
+  (uniq-orig n)
+  (operation nonce-test (displaced 5 0 resp 2) (exp (gen) y-0) (4 0))
+  (traces
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x-0 y)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x-0) a (pubk b-0)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x) (exp (gen) (mul (rec x) x-0 y)) (pubk a-0)))
+      (send (enc (exp (gen) (mul (rec x) x-0 y)) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul x-0 y)))) (send n))
+    ((recv (cat (exp (gen) y) (mul (rec x) x-0)))
+      (send (cat (exp (gen) y) (mul (rec x) x-0)))))
+  (label 123)
+  (parent 120)
+  (unrealized (3 1) (4 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 b-2 a-1 name) (x expt)
+    (y x-0 x-1 y-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x-0))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul y x-0 (rec x-1)))
+    (x x-1))
+  (deflistener (cat (exp (gen) y-0) (mul y x-0 (rec x-1) (rec y-0))))
+  (defstrand resp 2 (b b-2) (a a-1) (x x) (y y-0))
+  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((0 3) (3 3)) ((1 1) (0 2))
+    ((2 0) (0 0)) ((2 2) (1 0)) ((3 0) (4 0)) ((3 4) (0 4))
+    ((4 1) (3 1)) ((5 1) (4 0)))
+  (absent (y-0 (exp (gen) x)) (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (4 0) (1 0))
+  (uniq-gen y x-0 x-1 y-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (4 0))
+  (traces
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x-0) a (pubk b-0)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x-1) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x-1) (exp (gen) (mul y x-0 (rec x-1)))
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x-0 (rec x-1))) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
+    ((recv (cat (exp (gen) y-0) (mul y x-0 (rec x-1) (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul y x-0 (rec x-1) (rec y-0)))))
+    ((recv (enc (exp (gen) x) a-1 (pubk b-2)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a-1)))))
+  (label 124)
+  (parent 120)
+  (unrealized (3 1) (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x-0))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul y (rec x) x-0)) (x x))
+  (deflistener (cat (exp (gen) x-0) (mul y (rec x))))
+  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((0 3) (3 3)) ((1 1) (0 2))
+    ((2 0) (0 0)) ((2 2) (1 0)) ((3 0) (4 0)) ((3 4) (0 4))
+    ((4 1) (3 1)))
+  (absent (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (4 0) (1 0))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation nonce-test (displaced 5 2 init 1) (exp (gen) x-1) (4 0))
+  (traces
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x-0) a (pubk b-0)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x) (exp (gen) (mul y (rec x) x-0)) (pubk a-0)))
+      (send (enc (exp (gen) (mul y (rec x) x-0)) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
+    ((recv (cat (exp (gen) x-0) (mul y (rec x))))
+      (send (cat (exp (gen) x-0) (mul y (rec x))))))
+  (label 125)
+  (parent 120)
+  (unrealized (3 1) (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul y x (rec x-0)))
+    (x x-0))
+  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
+  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((0 3) (3 3)) ((1 1) (0 2))
+    ((2 0) (0 0)) ((2 2) (1 0)) ((3 0) (4 0)) ((3 4) (0 4))
+    ((4 1) (3 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (4 0) (1 0))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation nonce-test (displaced 5 3 init 1) (exp (gen) x-1) (4 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))))
+  (label 126)
+  (parent 120)
+  (unrealized (3 1) (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 a-1 b-2 name) (y x x-0 x-1 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul y x (rec x-0)))
+    (x x-0))
+  (deflistener (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1))))
+  (defstrand init 1 (a a-1) (b b-2) (x x-1))
+  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((0 3) (3 3)) ((1 1) (0 2))
+    ((2 0) (0 0)) ((2 2) (1 0)) ((3 0) (4 0)) ((3 4) (0 4))
+    ((4 1) (3 1)) ((5 0) (4 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (4 0) (1 0))
+  (uniq-gen y x x-0 x-1)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (4 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))
+      (recv
+        (enc (exp (gen) x-0) (exp (gen) (mul y x (rec x-0)))
+          (pubk a-0)))
+      (send (enc (exp (gen) (mul y x (rec x-0))) (pubk b-1)))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    ((recv (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1))))
+      (send (cat (exp (gen) x-1) (mul y x (rec x-0) (rec x-1)))))
+    ((send (enc (exp (gen) x-1) a-1 (pubk b-2)))))
+  (label 127)
+  (parent 120)
+  (unrealized (3 1) (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (gen) (mul y x)))
+  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 0) (0 0))
+    ((2 2) (1 0)) ((3 1) (0 4)) ((4 1) (3 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (4 0) (1 0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (contracted (y-0 y) (x-0 x) (w (mul y x))) (gen)
+    (4 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (gen) (mul y x))) (send (cat (gen) (mul y x)))))
+  (label 128)
+  (parent 121)
+  (unrealized (3 0) (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 name) (x y rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) y) x))
+  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 0) (0 0))
+    ((2 2) (1 0)) ((3 1) (0 4)) ((4 1) (3 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (4 0) (1 0))
+  (uniq-gen x y)
+  (uniq-orig n)
+  (operation nonce-test (displaced 5 0 resp 2) (exp (gen) y-0) (4 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
+  (label 129)
+  (parent 121)
+  (unrealized (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 b-1 a-0 name) (x expt) (y x-0 y-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x-0))
+  (deflistener (exp (gen) (mul y x-0)))
+  (deflistener (cat (exp (gen) y-0) (mul y x-0 (rec y-0))))
+  (defstrand resp 2 (b b-1) (a a-0) (x x) (y y-0))
+  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 0) (0 0))
+    ((2 2) (1 0)) ((3 1) (0 4)) ((4 1) (3 0)) ((5 1) (4 0)))
+  (absent (y-0 (exp (gen) x)) (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (4 0) (1 0))
+  (uniq-gen y x-0 y-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (4 0))
+  (traces
+    ((recv (enc (exp (gen) x-0) a (pubk b)))
+      (send (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x-0) a (pubk b-0)))
+      (recv (enc (exp (gen) x-0) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((recv (exp (gen) (mul y x-0))) (send (exp (gen) (mul y x-0))))
+    ((recv (cat (exp (gen) y-0) (mul y x-0 (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul y x-0 (rec y-0)))))
+    ((recv (enc (exp (gen) x) a-0 (pubk b-1)))
+      (send (enc (exp (gen) x) (exp (gen) y-0) (pubk a-0)))))
+  (label 130)
+  (parent 121)
+  (unrealized (3 0) (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 name) (y x rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (exp (gen) x) y))
+  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 0) (0 0))
+    ((2 2) (1 0)) ((3 1) (0 4)) ((4 1) (3 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (4 0) (1 0))
+  (uniq-gen y x)
+  (uniq-orig n)
+  (operation nonce-test (displaced 5 2 init 1) (exp (gen) x-0) (4 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
+  (label 131)
+  (parent 121)
+  (unrealized (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (y x x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0))))
+  (defstrand init 1 (a a-0) (b b-1) (x x-0))
+  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 0) (0 0))
+    ((2 2) (1 0)) ((3 1) (0 4)) ((4 1) (3 0)) ((5 0) (4 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (4 0) (1 0))
+  (uniq-gen y x x-0)
+  (uniq-orig n)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (4 0))
+  (traces
+    ((recv (enc (exp (gen) x) a (pubk b)))
+      (send (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (recv (enc (exp (gen) y) (pubk b)))
+      (send (enc n (exp (gen) (mul y x)))) (recv n))
+    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
+    ((send (enc (exp (gen) x) a (pubk b-0)))
+      (recv (enc (exp (gen) x) (exp (gen) y) (pubk a)))
+      (send (enc (exp (gen) y) (pubk b-0))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul y x (rec x-0)))))
+    ((send (enc (exp (gen) x-0) a-0 (pubk b-1)))))
+  (label 132)
+  (parent 121)
+  (unrealized (3 0) (4 0))
+  (comment "empty cohort"))
+
+(defskeleton dhns
+  (vars (n text) (a b b-0 a-0 b-1 name) (x y x-0 rndx))
+  (defstrand resp 5 (n n) (b b) (a a) (x x-0) (y y))
+  (deflistener (cat (exp (gen) y) (one)))
+  (defstrand init 3 (a a) (b b-0) (y y) (x x-0))
+  (defstrand init 5 (n n) (a a-0) (b b-1) (y (mul (rec x) y x-0)) (x x))
   (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
   (precedes ((0 1) (2 1)) ((0 3) (3 3)) ((1 1) (0 2)) ((2 0) (0 0))
     ((2 2) (1 0)) ((2 2) (4 0)) ((3 0) (4 0)) ((3 4) (0 4))
diff --git a/tst/enrich.tst b/tst/enrich.tst
--- a/tst/enrich.tst
+++ b/tst/enrich.tst
@@ -1,6 +1,6 @@
 (herald enrich)
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from enrich.scm")
 
 (defprotocol enrich basic
diff --git a/tst/envelope.tst b/tst/envelope.tst
--- a/tst/envelope.tst
+++ b/tst/envelope.tst
@@ -1,6 +1,6 @@
 (herald "Envelope Protocol" (bound 20))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from envelope.scm")
 (comment "Strand count bounded at 20")
 
diff --git a/tst/ffgg.tst b/tst/ffgg.tst
--- a/tst/ffgg.tst
+++ b/tst/ffgg.tst
@@ -1,7 +1,7 @@
 (herald "The ffgg Protocol"
   (comment "From A Necessarily Parallel Attack by Jon K. Millen"))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from ffgg.scm")
 
 (defprotocol ffgg basic
diff --git a/tst/fnof_or.tst b/tst/fnof_or.tst
--- a/tst/fnof_or.tst
+++ b/tst/fnof_or.tst
@@ -2,7 +2,7 @@
   (comment
     "Version using variables of sort mesg, with ltk function emulated."))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from fnof_or.scm")
 
 (defprotocol or basic
diff --git a/tst/fnof_test.tst b/tst/fnof_test.tst
--- a/tst/fnof_test.tst
+++ b/tst/fnof_test.tst
@@ -1,7 +1,7 @@
 (herald "Function constraint test protocol"
   (comment "Skeletons 2, 4, and 7 should have no shapes."))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from fnof_test.scm")
 
 (defprotocol fnoftest basic
diff --git a/tst/fnof_woolam.tst b/tst/fnof_woolam.tst
--- a/tst/fnof_woolam.tst
+++ b/tst/fnof_woolam.tst
@@ -1,6 +1,6 @@
 (herald "Woo-Lam Protocol, using fnof to emulate ltk function")
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from fnof_woolam.scm")
 
 (defprotocol woolam basic
diff --git a/tst/fnof_yahalom.tst b/tst/fnof_yahalom.tst
--- a/tst/fnof_yahalom.tst
+++ b/tst/fnof_yahalom.tst
@@ -2,7 +2,7 @@
   "Yahalom Protocol with Forwarding Removed, using fnof to emulate ltk function"
   (bound 12))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from fnof_yahalom.scm")
 
 (defprotocol yahalom basic
diff --git a/tst/goals.tst b/tst/goals.tst
--- a/tst/goals.tst
+++ b/tst/goals.tst
@@ -1,6 +1,6 @@
 (herald goals)
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from goals.scm")
 
 (defprotocol ns basic
diff --git a/tst/iadh_um.scm b/tst/iadh_um.scm
--- a/tst/iadh_um.scm
+++ b/tst/iadh_um.scm
@@ -28,18 +28,18 @@
 
 (defprotocol iadh-um diffie-hellman
   (defrole participant
-    (vars (l e expn) (hl he base) (self peer name) (key n data))
+    (vars (l e rndx) (lp ep expt) (self peer name) (key n data))
     (trace
      (recv (enc "cert" (exp (gen) l) self (privk self)))
-     (recv (enc "cert" hl peer (privk peer)))
+     (recv (enc "cert" (exp (gen) lp) peer (privk peer)))
      (send (exp (gen) e))
-     (recv he)
+     (recv (exp (gen) ep))
      (send key))
-    (fn-of (foo ((hash (exp hl l) (exp he e)) key)))
+    (fn-of (foo ((hash (exp (gen) (mul l lp)) (exp (gen) (mul e ep))) key)))
     (uniq-gen e)
-    (neq (he (gen))))
+    (neq (ep (one))))
   (defrole ltx-gen
-    (vars (self name) (l expn))
+    (vars (self name) (l rndx))
     (trace
      (send (enc "cert" (exp (gen) l) self (privk self)))
      (send l))
@@ -51,7 +51,7 @@
 ;; Implicit authentication: participants will agree on the resulting key
 ;; foo(key).  Therefore they should agree on the names A and B.
  (defskeleton iadh-um
-  (vars (key data) (eA lA eB lB expn) (A B C D name))
+  (vars (key data) (eA lA eB lB rndx) (A B C D name))
   (defstrand participant 5 (key key) (e eA) (l lA) (self A) (peer C))
   (defstrand participant 5 (key key) (e eB) (l lB) (self B) (peer D))
   (non-orig lA lB)
@@ -62,10 +62,10 @@
 
  ;; Security: 
 (defskeleton iadh-um
-  (vars (e1 e2 l expn) (hl base) (A B name))
-  (defstrand participant 5 (e e1) (l l) (he (exp (gen) e2)) (hl hl) (self A) (peer B))
+  (vars (e1 e2 l rndx) (lp expt) (A B name))
+  (defstrand participant 5 (e e1) (l l) (ep e2) (lp lp) (self A) (peer B))
   (defstrand participant 3 (e e2))
-  (deflistener (hash (exp hl l) (exp (gen) (mul e1 e2))))
+  (deflistener (hash (exp (gen) (mul l lp)) (exp (gen) (mul e1 e2))))
   (non-orig (privk A) (privk B))
 )
 
diff --git a/tst/iadh_um.tst b/tst/iadh_um.tst
# file too large to diff: tst/iadh_um.tst
diff --git a/tst/injection.tst b/tst/injection.tst
--- a/tst/injection.tst
+++ b/tst/injection.tst
@@ -2,7 +2,7 @@
   (comment "This protocol contains a man-in-the-middle"
     "attack discovered by Galvin Lowe."))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from injection.scm")
 
 (defprotocol ns diffie-hellman
diff --git a/tst/kerb.scm b/tst/kerb.scm
--- a/tst/kerb.scm
+++ b/tst/kerb.scm
@@ -42,7 +42,7 @@
   (non-orig (ltk a s) (ltk b s))
   (uniq-orig m))
 
-; This version of the protocol is not modeled properly, with a generic variable (ticket)
+; This version of the protocol is modeled properly, with a generic variable (ticket)
 (defprotocol kerb-flawed2 basic
   (defrole init
     (vars (a b s name) (ticket mesg) (m n text) (k skey))
diff --git a/tst/kerb.tst b/tst/kerb.tst
--- a/tst/kerb.tst
+++ b/tst/kerb.tst
@@ -1,4 +1,4 @@
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from kerb.scm")
 
 (defprotocol kerb-flawed basic
diff --git a/tst/kerberos++.tst b/tst/kerberos++.tst
--- a/tst/kerberos++.tst
+++ b/tst/kerberos++.tst
@@ -1,4 +1,4 @@
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from kerberos++.scm")
 
 (defprotocol kerberos basic
diff --git a/tst/lt_test.tst b/tst/lt_test.tst
--- a/tst/lt_test.tst
+++ b/tst/lt_test.tst
@@ -2,7 +2,7 @@
   (comment "First and third skeletons should have a shape,"
     "second and fourth should be dead."))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from lt_test.scm")
 
 (defprotocol lttest basic
diff --git a/tst/neq_test.tst b/tst/neq_test.tst
--- a/tst/neq_test.tst
+++ b/tst/neq_test.tst
@@ -2,7 +2,7 @@
   (comment "First skeleton should have a shape,"
     "second, and hird should be dead."))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from neq_test.scm")
 
 (defprotocol neqtest basic
diff --git a/tst/ns.tst b/tst/ns.tst
--- a/tst/ns.tst
+++ b/tst/ns.tst
@@ -2,7 +2,7 @@
   (comment "This protocol contains a man-in-the-middle"
     "attack discovered by Galvin Lowe."))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from ns.scm")
 
 (defprotocol ns basic
diff --git a/tst/or.tst b/tst/or.tst
--- a/tst/or.tst
+++ b/tst/or.tst
@@ -1,7 +1,7 @@
 (herald "Otway-Rees Protocol"
   (comment "Standard version using variables of sort mesg"))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from or.scm")
 
 (defprotocol or basic
diff --git a/tst/owang.tst b/tst/owang.tst
--- a/tst/owang.tst
+++ b/tst/owang.tst
@@ -1,4 +1,4 @@
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from owang.scm")
 
 (defprotocol wang basic
diff --git a/tst/owat.tst b/tst/owat.tst
--- a/tst/owat.tst
+++ b/tst/owat.tst
@@ -1,7 +1,7 @@
 (herald "One-way Authentication Test with bltk keys"
   (algebra diffie-hellman) (bound 12))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from owat.scm")
 
 (defprotocol owa diffie-hellman
diff --git a/tst/pkinit.tst b/tst/pkinit.tst
--- a/tst/pkinit.tst
+++ b/tst/pkinit.tst
@@ -1,6 +1,6 @@
 (herald "Kerberos PKINIT")
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from pkinit.scm")
 
 (defprotocol pkinit-flawed basic
diff --git a/tst/plaindh.scm b/tst/plaindh.scm
--- a/tst/plaindh.scm
+++ b/tst/plaindh.scm
@@ -4,18 +4,18 @@
 
 (defprotocol plaindh diffie-hellman
   (defrole init
-    (vars (x expn) (h base) (n text))
+    (vars (x rndx) (y expt) (n text))
     (trace (send (exp (gen) x))
-           (recv h)
-           (send (enc n (exp h x)))
+           (recv (exp (gen) y))
+           (send (enc n (exp (gen) (mul x y))))
            (recv n))
     (uniq-orig n)
     (uniq-gen x))
   (defrole resp
-    (vars (y expn) (h base) (n text))
-    (trace (recv h)
+    (vars (y rndx) (x expt) (n text))
+    (trace (recv (exp (gen) x))
            (send (exp (gen) y))
-           (recv (enc n (exp h y)))
+           (recv (enc n (exp (gen) (mul x y))))
            (send n))
     (uniq-gen y))
   (comment "Diffie-hellman key exchange followed by an encryption"))
diff --git a/tst/plaindh.tst b/tst/plaindh.tst
--- a/tst/plaindh.tst
+++ b/tst/plaindh.tst
@@ -1,6254 +1,36 @@
 (herald "Plain diffie-hellman protocol with challenge-response"
   (algebra diffie-hellman))
 
-(comment "CPSA 3.4.0")
-(comment "All input read from plaindh.scm")
-
-(defprotocol plaindh diffie-hellman
-  (defrole init
-    (vars (x expn) (h base) (n text))
-    (trace (send (exp (gen) x)) (recv h) (send (enc n (exp h x)))
-      (recv n))
-    (uniq-orig n)
-    (uniq-gen x))
-  (defrole resp
-    (vars (y expn) (h base) (n text))
-    (trace (recv h) (send (exp (gen) y)) (recv (enc n (exp h y)))
-      (send n))
-    (uniq-gen y)
-    (absent (y h)))
-  (comment "Diffie-hellman key exchange followed by an encryption"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn))
-  (defstrand init 4 (n n) (h h) (x x))
-  (uniq-gen x)
-  (uniq-orig n)
-  (traces
-    ((send (exp (gen) x)) (recv h) (send (enc n (exp h x))) (recv n)))
-  (label 0)
-  (unrealized (0 3))
-  (origs (n (0 2)))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp h y)) (x x))
-  (defstrand resp 4 (n n) (h (exp h x)) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3)))
-  (absent (y (exp h x)))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 4) n (0 3)
-    (enc n (exp h (mul x y))))
-  (traces
-    ((send (exp (gen) x)) (recv (exp h y))
-      (send (enc n (exp h (mul x y)))) (recv n))
-    ((recv (exp h x)) (send (exp (gen) y))
-      (recv (enc n (exp h (mul x y)))) (send n)))
-  (label 1)
-  (parent 0)
-  (unrealized (0 1) (1 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn))
-  (defstrand init 4 (n n) (h h) (x x))
-  (deflistener (exp h x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 3)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener (exp h x)) n (0 3)
-    (enc n (exp h x)))
-  (traces
-    ((send (exp (gen) x)) (recv h) (send (enc n (exp h x))) (recv n))
-    ((recv (exp h x)) (send (exp h x))))
-  (label 2)
-  (parent 0)
-  (unrealized (1 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3)))
-  (absent (y (gen)))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (h (exp (gen) (rec x)))) (gen)
-    (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y)))
-      (send n)))
-  (label 3)
-  (parent 1)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3)))
-  (absent (y (exp (gen) x)))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 2 0 init 1) (exp (gen) x-0) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (exp (gen) x)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x)))) (send n)))
-  (label 4)
-  (parent 1)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 0) (1 0)))
-  (absent (y (exp (gen) x-0)))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
-    ((send (exp (gen) x-0))))
-  (label 5)
-  (parent 1)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))) (recv n))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))) (send n))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 6)
-  (parent 1)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr))
-  (defstrand init 4 (n n) (h (exp h y)) (x x))
-  (defstrand resp 4 (n n) (h (exp h x)) (y y))
-  (deflistener (cat (exp h (mul x (rec w))) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)))
-  (absent (y (exp h x)))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (added-listener (cat (exp h (mul x (rec w))) w))
-    (exp h x) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp h y))
-      (send (enc n (exp h (mul x y)))) (recv n))
-    ((recv (exp h x)) (send (exp (gen) y))
-      (recv (enc n (exp h (mul x y)))) (send n))
-    ((recv (cat (exp h (mul x (rec w))) w))
-      (send (cat (exp h (mul x (rec w))) w))))
-  (label 7)
-  (parent 1)
-  (unrealized (0 1) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (precedes ((0 0) (1 0)) ((1 1) (0 3)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (h (exp (gen) (rec x)))) (gen)
-    (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))) (recv n)) ((recv (gen)) (send (gen))))
-  (label 8)
-  (parent 2)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (gen)) (x x))
-  (deflistener (exp (gen) x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 3)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 2 0 init 1) (exp (gen) x-0) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x)))
-      (recv n)) ((recv (exp (gen) x)) (send (exp (gen) x))))
-  (label 9)
-  (parent 2)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 3)) ((2 0) (0 1)) ((2 0) (1 0)))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0))))
-  (label 10)
-  (parent 2)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 3)) ((2 1) (0 1)) ((2 1) (1 0)))
-  (absent (y h))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv h) (send (exp (gen) y))))
-  (label 11)
-  (parent 2)
-  (unrealized (0 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr))
-  (defstrand init 4 (n n) (h h) (x x))
-  (deflistener (exp h x))
-  (deflistener (cat (exp h (mul x (rec w))) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (added-listener (cat (exp h (mul x (rec w))) w))
-    (exp h x) (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv h) (send (enc n (exp h x))) (recv n))
-    ((recv (exp h x)) (send (exp h x)))
-    ((recv (cat (exp h (mul x (rec w))) w))
-      (send (cat (exp h (mul x (rec w))) w))))
-  (label 12)
-  (parent 2)
-  (unrealized (2 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x y expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) (mul (rec x) y (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (0 1)))
-  (absent (y (gen)))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y (rec w))) w))
-    (exp (gen) (mul (rec x) y)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y)))
-      (send n))
-    ((recv (cat (exp (gen) (mul (rec x) y (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) y (rec w))) w))))
-  (label 13)
-  (parent 3)
-  (unrealized (2 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (absent (y (exp (gen) x)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization deleted (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul y x)))) (recv n)))
-  (label 14)
-  (parent 4)
-  (unrealized)
-  (origs (n (0 2)))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x y x-0 expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 0) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w))
-    (exp (gen) (mul (rec x) y x-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) y x-0 (rec w))) w))))
-  (label 15)
-  (parent 5)
-  (unrealized (3 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w))
-    (exp (gen) (mul (rec x) y y-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))) (recv n))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))) (send n))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) y y-0 (rec w))) w))))
-  (label 16)
-  (parent 6)
-  (unrealized (3 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x y expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y w))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)))
-  (absent (y (exp (gen) w)))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (contracted (h (exp (gen) (mul (rec x) w))))
-    (gen) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w)))
-      (send (enc n (exp (gen) (mul y w)))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w)))) (send n))
-    ((recv (cat (gen) w)) (send (cat (gen) w))))
-  (label 17)
-  (parent 7)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y w))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y w)))
-      (send (enc n (exp (gen) (mul y w x)))) (recv n))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w x)))) (send n))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 18)
-  (parent 7)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x y expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y w x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)))
-  (absent (y (exp (gen) (mul w x-0))))
-  (precur (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w x-0)))
-      (send (enc n (exp (gen) (mul y w x-0)))) (recv n))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w x-0)))) (send n))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0))))
-  (label 19)
-  (parent 7)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y w y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y-0 h) (y (exp (gen) (mul w y-0))))
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w y-0)))
-      (send (enc n (exp (gen) (mul y w y-0)))) (recv n))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w y-0)))) (send n))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 20)
-  (parent 7)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) (mul (rec x) (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (0 1)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) (rec w))) w))
-    (exp (gen) (rec x)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))) (recv n)) ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) (mul (rec x) (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) (rec w))) w))))
-  (label 21)
-  (parent 8)
-  (unrealized (2 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (gen)) (x x))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization deleted (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x)))
-      (recv n)))
-  (label 22)
-  (parent 9)
-  (unrealized)
-  (shape)
-  (maps ((0) ((x x) (h (gen)) (n n))))
-  (origs (n (0 2))))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) x-0 (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 0) (1 0))
-    ((2 0) (3 0)) ((3 1) (0 1)))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) x-0 (rec w))) w))
-    (exp (gen) (mul (rec x) x-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) (mul (rec x) x-0 (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) x-0 (rec w))) w))))
-  (label 23)
-  (parent 10)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) (mul (rec x) y (rec w))) w))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((2 1) (3 0)) ((3 1) (0 1)))
-  (absent (y h))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y (rec w))) w))
-    (exp (gen) (mul (rec x) y)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) (mul (rec x) y (rec w))) w))
-      (send (cat (exp (gen) (mul (rec x) y (rec w))) w))))
-  (label 24)
-  (parent 11)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) w))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (contracted (h (exp (gen) (mul (rec x) w))))
-    (gen) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w)))
-      (send (enc n (exp (gen) w))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (gen) w)) (send (cat (gen) w))))
-  (label 25)
-  (parent 12)
-  (unrealized (0 1))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)))
-  (precur (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul w x)))) (recv n))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 26)
-  (parent 12)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) w x-0))) (x x))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 0) (0 1))
-    ((3 0) (2 0)))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w x-0)))
-      (send (enc n (exp (gen) (mul w x-0)))) (recv n))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) (mul w x-0))))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0))))
-  (label 27)
-  (parent 12)
-  (unrealized (0 1))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) w y))) (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w y)))
-      (send (enc n (exp (gen) (mul w y)))) (recv n))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv h) (send (exp (gen) y))))
-  (label 28)
-  (parent 12)
-  (unrealized (0 1))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (gen) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (0 1)))
-  (absent (y (gen)))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul (rec x) y)))
-    (gen) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y)))
-      (send n))
-    ((recv (cat (gen) (mul (rec x) y)))
-      (send (cat (gen) (mul (rec x) y)))))
-  (label 29)
-  (parent 13)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x) (rec x))))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (0 1)))
-  (absent (y (gen)))
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y)))
-      (send n))
-    ((recv (cat (exp (gen) x) (mul y (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x) (rec x))))))
-  (label 30)
-  (parent 13)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (0 1)) ((3 0) (2 0)))
-  (absent (y (gen)))
-  (precur (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y)))
-      (send n))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 31)
-  (parent 13)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (0 1)))
-  (absent (y (gen)))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y)))
-      (send n))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))))
-  (label 32)
-  (parent 13)
-  (unrealized (0 1) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (2 0)) ((1 3) (0 3))
-    ((2 1) (0 1)) ((3 1) (2 0)))
-  (absent (y-0 h) (y (gen)))
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y)))
-      (send n))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 33)
-  (parent 13)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization forgot ((absent (y (exp (gen) x)))))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul y x)))) (recv n)))
-  (label 34)
-  (parent 14)
-  (unrealized)
-  (shape)
-  (maps ((0) ((x x) (h (exp (gen) y)) (n n))))
-  (origs (n (0 2))))
-
-(defskeleton plaindh
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul (rec x) y x-0)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 0) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (contracted (x-1 x) (y-0 y) (x-2 x-0) (w (mul (rec x) y x-0))) (gen)
-    (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul (rec x) y x-0)))
-      (send (cat (gen) (mul (rec x) y x-0)))))
-  (label 35)
-  (parent 15)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y x (rec x-0)))) (x x-0))
-  (defstrand resp 4 (n n) (h (exp (gen) x)) (y y))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 0) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (precur (3 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul y x (rec x-0))))
-      (send (enc n (exp (gen) (mul y x)))) (recv n))
-    ((recv (exp (gen) x)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x)))) (send n))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul y x (rec x-0) (rec x-0))))))
-  (label 36)
-  (parent 15)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 0) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (precur (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 2 init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y)))
-      (send (cat (exp (gen) x-0) (mul (rec x) y)))))
-  (label 37)
-  (parent 15)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x y x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul (rec x) y x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 0) (1 0)) ((3 1) (0 1)) ((4 0) (3 0)))
-  (absent (y (exp (gen) x-0)))
-  (precur (3 0))
-  (uniq-gen x y x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul (rec x) y x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul (rec x) y x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 38)
-  (parent 15)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0 y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 0) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (precur (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0 y)))
-      (send (enc n (exp (gen) (mul x-0 y)))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x-0 y)))) (send n))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0)))
-      (send (cat (exp (gen) y) (mul (rec x) x-0)))))
-  (label 39)
-  (parent 15)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y x-0 y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y x-0 (rec y-0))))
-  (defstrand resp 2 (h h) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 0) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y-0 h) (y (exp (gen) x-0)))
-  (precur (3 0))
-  (uniq-gen x y x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y x-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y x-0 (rec y-0)))))
-    ((recv h) (send (exp (gen) y-0))))
-  (label 40)
-  (parent 15)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (gen) (mul (rec x) y y-0)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y) (y-2 y-0) (w (mul (rec x) y y-0))) (gen)
-    (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))) (recv n))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))) (send n))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (gen) (mul (rec x) y y-0)))
-      (send (cat (gen) (mul (rec x) y y-0)))))
-  (label 41)
-  (parent 16)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y y-0 x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y y-0 (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x) (mul y y-0 (rec x) (rec x))))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (precur (3 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y y-0 (rec x))))
-      (send (enc n (exp (gen) (mul y y-0)))) (recv n))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))) (send n))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x) (mul y y-0 (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y y-0 (rec x) (rec x))))))
-  (label 42)
-  (parent 16)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y y-0 (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 0) (3 0)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (precur (3 0))
-  (uniq-gen x y y-0 x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))) (recv n))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))) (send n))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y y-0 (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y y-0 (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 43)
-  (parent 16)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y)) (y y-0))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y-0 (exp (gen) y)) (y h))
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))) (recv n))
-    ((recv (exp (gen) y)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul y y-0)))) (send n))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y)))
-      (send (cat (exp (gen) y-0) (mul (rec x) y)))))
-  (label 44)
-  (parent 16)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) y-0)))
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 2 resp 2) (exp (gen) y-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))) (recv n))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))) (send n))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y)))
-      (send (cat (exp (gen) y-0) (mul (rec x) y)))))
-  (label 45)
-  (parent 16)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y y-0 y-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y-1) (mul (rec x) y y-0 (rec y-1))))
-  (defstrand resp 2 (h h-0) (y y-1))
-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y-1 h-0) (y-0 h) (y (exp (gen) y-0)))
-  (precur (3 0))
-  (uniq-gen x y y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))) (recv n))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))) (send n))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y-1) (mul (rec x) y y-0 (rec y-1))))
-      (send (cat (exp (gen) y-1) (mul (rec x) y y-0 (rec y-1)))))
-    ((recv h-0) (send (exp (gen) y-1))))
-  (label 46)
-  (parent 16)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x)) (y y))
-  (deflistener (cat (gen) x))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)))
-  (absent (y (exp (gen) x)))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))) (recv n))
-    ((recv (exp (gen) x)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (cat (gen) x)) (send (cat (gen) x))))
-  (label 47)
-  (parent 17)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x y expn) (w w-0 expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y w))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) w)))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y w)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w)))
-      (send (enc n (exp (gen) (mul y w)))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w)))) (send n))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) y w (rec w-0))) w-0))))
-  (label 48)
-  (parent 17)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y w))) (x x))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (absent (y (exp (gen) (mul w x))))
-  (precur (1 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization deleted (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y w)))
-      (send (enc n (exp (gen) (mul y w x)))) (recv n))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 49)
-  (parent 18)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)))
-  (absent (y (exp (gen) x)))
-  (precur (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))) (recv n))
-    ((recv (exp (gen) x)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x y)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 50)
-  (parent 19)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x y expn) (w expr) (x-0 expn) (w-0 expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y w x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul w x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener
-      (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y w x-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w x-0)))
-      (send (enc n (exp (gen) (mul y w x-0)))) (recv n))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w x-0)))) (send n))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) y w x-0 (rec w-0))) w-0))))
-  (label 51)
-  (parent 19)
-  (unrealized (4 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) y-0)) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x)) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y-0 (exp (gen) x)) (y h))
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))) (recv n))
-    ((recv (exp (gen) x)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x y-0)))) (send n))
-    ((recv (cat (exp (gen) y) (mul x (rec y))))
-      (send (cat (exp (gen) y) (mul x (rec y)))))
-    ((recv h) (send (exp (gen) y))))
-  (label 52)
-  (parent 20)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn) (w-0 expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y w y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y-0 h) (y (exp (gen) (mul w y-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener
-      (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) y w y-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y w y-0)))
-      (send (enc n (exp (gen) (mul y w y-0)))) (recv n))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y w y-0)))) (send n))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) y w y-0 (rec w-0))) w-0))))
-  (label 53)
-  (parent 20)
-  (unrealized (4 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (rec x)))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (0 1)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (contracted (x-0 x) (w (rec x))) (gen) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))) (recv n)) ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x)))))
-  (label 54)
-  (parent 21)
-  (unrealized (0 1) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (0 1)))
-  (precur (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))) (recv n)) ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x))))))
-  (label 55)
-  (parent 21)
-  (unrealized (0 1) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (0 1))
-    ((3 0) (2 0)))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))) (recv n)) ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 56)
-  (parent 21)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) y) (mul (rec x) (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))) (recv n)) ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) y) (mul (rec x) (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) (rec y)))))
-    ((recv h) (send (exp (gen) y))))
-  (label 57)
-  (parent 21)
-  (unrealized (0 1) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul (rec x) x-0)))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 0) (1 0))
-    ((2 0) (3 0)) ((3 1) (0 1)))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w (mul (rec x) x-0))) (gen) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul (rec x) x-0)))
-      (send (cat (gen) (mul (rec x) x-0)))))
-  (label 58)
-  (parent 23)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) x))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 0) (1 0))
-    ((2 0) (3 0)) ((3 1) (0 1)))
-  (precur (3 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))) (recv n))
-    ((recv (exp (gen) x)) (send (exp (gen) x))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))))
-  (label 59)
-  (parent 23)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (rec x)))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 0) (1 0))
-    ((2 0) (3 0)) ((3 1) (0 1)))
-  (precur (3 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 2 init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (rec x)))
-      (send (cat (exp (gen) x-0) (rec x)))))
-  (label 60)
-  (parent 23)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 0) (1 0))
-    ((2 0) (3 0)) ((3 1) (0 1)) ((4 0) (3 0)))
-  (precur (3 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 61)
-  (parent 23)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 0) (1 0))
-    ((2 0) (3 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y h))
-  (precur (3 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) x-0 (rec y)))))
-    ((recv h) (send (exp (gen) y))))
-  (label 62)
-  (parent 23)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul (rec x) y)))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((2 1) (3 0)) ((3 1) (0 1)))
-  (absent (y h))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0))
-  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul (rec x) y)))
-    (gen) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul (rec x) y)))
-      (send (cat (gen) (mul (rec x) y)))))
-  (label 63)
-  (parent 24)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x) (rec x))))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((2 1) (3 0)) ((3 1) (0 1)))
-  (absent (y h))
-  (precur (3 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul y (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x) (rec x))))))
-  (label 64)
-  (parent 24)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((2 1) (3 0)) ((3 1) (0 1)) ((4 0) (3 0)))
-  (absent (y h))
-  (precur (3 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 65)
-  (parent 24)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((2 1) (3 0)) ((3 1) (0 1)))
-  (absent (y h))
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 2 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))))
-  (label 66)
-  (parent 24)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((2 1) (3 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y-0 h-0) (y h))
-  (precur (3 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))))
-    ((recv h-0) (send (exp (gen) y-0))))
-  (label 67)
-  (parent 24)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (gen)) (x x))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (gen) x))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (contracted (x-0 x) (w x)) (gen) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x)))
-      (recv n)) ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (gen) x)) (send (cat (gen) x))))
-  (label 68)
-  (parent 25)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) x)) (x x))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (gen) (mul x x)))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)))
-  (precur (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x))
-      (send (enc n (exp (gen) (mul x x)))) (recv n))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (gen) (mul x x))) (send (cat (gen) (mul x x)))))
-  (label 69)
-  (parent 25)
-  (unrealized (1 0) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 0) (0 1))
-    ((3 0) (2 0)))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x x-0)))) (recv n))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0))))
-    ((send (exp (gen) x-0))))
-  (label 70)
-  (parent 25)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (gen) (mul x y)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))) (recv n))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (gen) (mul x y))) (send (cat (gen) (mul x y))))
-    ((recv h) (send (exp (gen) y))))
-  (label 71)
-  (parent 25)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w w-0 expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) w))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) (mul (rec x) w (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) w)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w)))
-      (send (enc n (exp (gen) w))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (exp (gen) (mul (rec x) w (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) w (rec w-0))) w-0))))
-  (label 72)
-  (parent 25)
-  (unrealized (3 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (1 0)) ((1 1) (0 3)))
-  (precur (1 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization deleted (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul w x)))) (recv n))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 73)
-  (parent 26)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (gen)) (x x))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 0) (0 1))
-    ((3 0) (2 0)))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w (mul x (rec x-0))) (x-2 x-0)) (gen) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x)))
-      (recv n)) ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 74)
-  (parent 27)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) x-0)) (x x-0))
-  (deflistener (exp (gen) (mul x-0 x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) x-0 x-0)))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 0) (0 1))
-    ((3 0) (2 0)))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-1) (0 1))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x-0 x-0)))) (recv n))
-    ((recv (exp (gen) (mul x-0 x-0))) (send (exp (gen) (mul x-0 x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) x-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) x-0 x-0))))
-    ((send (exp (gen) x))))
-  (label 75)
-  (parent 27)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 0) (0 1))
-    ((3 0) (2 0)))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 3 init 1) (exp (gen) x-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x x-0)))) (recv n))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x)))
-    ((send (exp (gen) x-0))))
-  (label 76)
-  (parent 27)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) x-1)) (x x))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-  (defstrand init 1 (x x-0))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 0) (0 1))
-    ((3 0) (2 0)) ((4 0) (0 1)) ((4 0) (2 0)))
-  (precur (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-1))
-      (send (enc n (exp (gen) (mul x x-1)))) (recv n))
-    ((recv (exp (gen) (mul x x-1))) (send (exp (gen) (mul x x-1))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) x-1))))
-    ((send (exp (gen) x-0))) ((send (exp (gen) x-1))))
-  (label 77)
-  (parent 27)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-  (defstrand init 1 (x x-0))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 0) (0 1))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((4 1) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))) (recv n))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) y))))
-    ((send (exp (gen) x-0))) ((recv h) (send (exp (gen) y))))
-  (label 78)
-  (parent 27)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn) (w-0 expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) w x-0))) (x x))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) (mul (rec x) w x-0 (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w x-0 (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) w x-0)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w x-0)))
-      (send (enc n (exp (gen) (mul w x-0)))) (recv n))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) (mul w x-0))))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) (mul (rec x) w x-0 (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) w x-0 (rec w-0))) w-0))))
-  (label 79)
-  (parent 27)
-  (unrealized (4 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (gen)) (x x))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) y) (mul x (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w (mul x (rec y))) (y-0 y))
-    (gen) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x)))
-      (recv n)) ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul x (rec y))))
-      (send (cat (exp (gen) y) (mul x (rec y)))))
-    ((recv h) (send (exp (gen) y))))
-  (label 80)
-  (parent 28)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) x)) (x x))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) x x)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x))
-      (send (enc n (exp (gen) (mul x x)))) (recv n))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) x x)))
-      (send (cat (exp (gen) y) (mul (rec y) x x))))
-    ((recv h) (send (exp (gen) y))))
-  (label 81)
-  (parent 28)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (0 1))
-    ((3 1) (2 0)) ((4 0) (0 1)) ((4 0) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x-0))
-      (send (enc n (exp (gen) (mul x x-0)))) (recv n))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) x-0))))
-    ((recv h) (send (exp (gen) y))) ((send (exp (gen) x-0))))
-  (label 82)
-  (parent 28)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (0 1))
-    ((3 1) (2 0)))
-  (absent (y h))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 3 resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y))
-      (send (enc n (exp (gen) (mul x y)))) (recv n))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x)))
-    ((recv h) (send (exp (gen) y))))
-  (label 83)
-  (parent 28)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) y-0)) (x x))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (0 1))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((4 1) (2 0)))
-  (absent (y-0 h-0) (y h))
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) y-0))
-      (send (enc n (exp (gen) (mul x y-0)))) (recv n))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) y-0))))
-    ((recv h) (send (exp (gen) y))) ((recv h-0) (send (exp (gen) y-0))))
-  (label 84)
-  (parent 28)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn) (w-0 expr))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) w y))) (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))
-    (exp (gen) (mul (rec x) w y)) (0 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) w y)))
-      (send (enc n (exp (gen) (mul w y)))) (recv n))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))
-      (send (cat (exp (gen) (mul (rec x) w y (rec w-0))) w-0))))
-  (label 85)
-  (parent 28)
-  (unrealized (4 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 2) (1 2)) ((1 1) (2 0))
-    ((1 3) (0 3)) ((2 1) (0 1)) ((3 1) (2 0)))
-  (absent (y (gen)))
-  (precur (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y)))
-      (send n))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
-  (label 86)
-  (parent 32)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test
-    (contracted (x-0 x) (y-0 y) (w-0 (mul x w)) (w-1 (mul w y)) (y-1 y)
-      (w (mul w y))) (gen) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))) (send n))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
-  (label 87)
-  (parent 48)
-  (unrealized (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x x))) (y y))
-  (deflistener (cat (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) (mul w x x))))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y)))
-      (send (enc n (exp (gen) (mul w x x y)))) (recv n))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x x y)))) (send n))
-    ((recv (cat (gen) (mul w x x))) (send (cat (gen) (mul w x x))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))))
-  (label 88)
-  (parent 48)
-  (unrealized (0 1) (1 0) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 0) (2 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))) (send n))
-    ((recv (cat (gen) (mul x w x-0))) (send (cat (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0))))
-  (label 89)
-  (parent 48)
-  (unrealized (0 1) (1 0) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 1 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))) (send n))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 90)
-  (parent 48)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (precur (3 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))) (send n))
-    ((recv (cat (gen) (mul x w y))) (send (cat (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 91)
-  (parent 48)
-  (unrealized (0 1) (1 0) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y w))) (x x))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (1 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (precur (1 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization deleted (1 1))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y w)))
-      (send (enc n (exp (gen) (mul y w x)))) (recv n))
-    ((recv (cat (exp (gen) x) w))))
-  (label 92)
-  (parent 49)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (y-0 y) (w-0 (mul x (rec x-0) w)) (x-2 x-0)
-      (w-1 (mul w y)) (y-1 y) (w (mul w y))) (gen) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
-  (label 93)
-  (parent 51)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x-0))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x-0 x-0))) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul w x-0 x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-1) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul w x-0 x-0 y)))) (recv n))
-    ((recv (exp (gen) (mul w x-0 x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x-0 x-0 y)))) (send n))
-    ((recv (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w x-0 x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))))
-  (label 94)
-  (parent 51)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 3 init 1) (exp (gen) x-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))))
-  (label 95)
-  (parent 51)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (x-1 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-1 y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-1))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w y)))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 0) (2 0)))
-  (absent (y (exp (gen) (mul x w x-1))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-1 y)))
-      (send (enc n (exp (gen) (mul x w x-1 y)))) (recv n))
-    ((recv (exp (gen) (mul x w x-1))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-1 y)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w x-1))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul w y)))
-      (send (cat (exp (gen) x-1) (mul w y)))) ((send (exp (gen) x-1))))
-  (label 96)
-  (parent 51)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) (mul x w))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 97)
-  (parent 51)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w y))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 98)
-  (parent 51)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y h) (y-0 (exp (gen) (mul x w))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y-0) (w-0 (mul x (rec y) w)) (y-2 y)
-      (w-1 (mul w y-0)) (y-3 y-0) (w (mul w y-0))) (gen) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y-0)))) (send n))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul w y-0))) (send (cat (gen) (mul w y-0)))))
-  (label 99)
-  (parent 53)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x x))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y h) (y-0 (exp (gen) (mul w x x))))
-  (precur (4 0) (2 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y-0)))
-      (send (enc n (exp (gen) (mul w x x y-0)))) (recv n))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w x x y-0)))) (send n))
-    ((recv (cat (exp (gen) y) (mul (rec y) w x x)))
-      (send (cat (exp (gen) y) (mul (rec y) w x x))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul w y-0)))
-      (send (cat (exp (gen) x) (mul w y-0)))))
-  (label 100)
-  (parent 53)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (x-0 y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w y-0)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 0) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y-0)))
-      (send (enc n (exp (gen) (mul x w x-0 y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w x-0 y-0)))) (send n))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w x-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul w y-0)))
-      (send (cat (exp (gen) x-0) (mul w y-0))))
-    ((send (exp (gen) x-0))))
-  (label 101)
-  (parent 53)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) w))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y-0 (exp (gen) (mul x w))) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 1 resp 2) (exp (gen) y-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y-0)))) (send n))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w))))
-  (label 102)
-  (parent 53)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 3 resp 2) (exp (gen) y-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))) (send n))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0)))))
-  (label 103)
-  (parent 53)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y expn) (w expr) (y-0 y-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0 y-1))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y-0))) (y y-1))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w y-1)))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (absent (y-0 h-0) (y h) (y-1 (exp (gen) (mul x w y-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 y-1)))
-      (send (enc n (exp (gen) (mul x w y-0 y-1)))) (recv n))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) y-1))
-      (recv (enc n (exp (gen) (mul x w y-0 y-1)))) (send n))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w y-1)))
-      (send (cat (exp (gen) y-0) (mul w y-1))))
-    ((recv h-0) (send (exp (gen) y-0))))
-  (label 104)
-  (parent 53)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (0 1))
-    ((3 1) (2 0)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (2 0))
-  (operation nonce-test (added-listener x) (rec x) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))) (recv n)) ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x))))
-    ((recv x) (send x)))
-  (label 105)
-  (parent 54)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (0 1))
-    ((3 1) (2 0)))
-  (precur (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul (rec x) (rec x)) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))) (recv n)) ((recv (gen)) (send (gen)))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 106)
-  (parent 55)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 0) (1 0))
-    ((2 0) (3 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (precur (3 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (rec x)))
-      (send (cat (exp (gen) x-0) (rec x)))) ((recv x) (send x)))
-  (label 107)
-  (parent 60)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((2 1) (3 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y h))
-  (precur (3 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
-  (label 108)
-  (parent 66)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) x)) (x x))
-  (deflistener (exp (gen) (mul x x)))
-  (deflistener (cat (gen) (mul x x)))
-  (deflistener x)
-  (precedes ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (precur (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x x) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) x))
-      (send (enc n (exp (gen) (mul x x)))) (recv n))
-    ((recv (exp (gen) (mul x x))) (send (exp (gen) (mul x x))))
-    ((recv (cat (gen) (mul x x))) (send (cat (gen) (mul x x))))
-    ((recv x) (send x)))
-  (label 109)
-  (parent 69)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test (contracted (x-0 x) (w-0 (mul x w)) (w-1 w))
-    (gen) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (gen) w)) (send (cat (gen) w))))
-  (label 110)
-  (parent 72)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x))) (x x))
-  (deflistener (exp (gen) (mul w x x)))
-  (deflistener (cat (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (precur (3 0) (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x)))
-      (send (enc n (exp (gen) (mul w x x)))) (recv n))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) (mul w x x))))
-    ((recv (cat (gen) (mul w x x))) (send (cat (gen) (mul w x x))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 111)
-  (parent 72)
-  (unrealized (1 0) (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)) ((4 0) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0)))
-      (send (enc n (exp (gen) (mul x w x-0)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) (mul x w x-0))))
-    ((recv (cat (gen) (mul x w x-0))) (send (cat (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0))))
-  (label 112)
-  (parent 72)
-  (unrealized (1 0) (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)) ((4 1) (3 0)))
-  (absent (y h))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))) (recv n))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (gen) (mul x w y))) (send (cat (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv h) (send (exp (gen) y))))
-  (label 113)
-  (parent 72)
-  (unrealized (1 0) (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization deleted (1 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul w x)))) (recv n)))
-  (label 114)
-  (parent 73)
-  (unrealized)
-  (shape)
-  (maps ((0) ((x x) (h (exp (gen) w)) (n n))))
-  (origs (n (0 2))))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w-0 (mul x (rec x-0) w)) (x-2 x-0) (w-1 w))
-    (gen) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (gen) w)) (send (cat (gen) w))))
-  (label 115)
-  (parent 79)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0))) (x x-0))
-  (deflistener (exp (gen) (mul w x-0 x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) w))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-1) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x-0)))
-      (send (enc n (exp (gen) (mul w x-0 x-0)))) (recv n))
-    ((recv (exp (gen) (mul w x-0 x-0)))
-      (send (exp (gen) (mul w x-0 x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w x-0 x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w))))
-  (label 116)
-  (parent 79)
-  (unrealized (1 0) (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) w))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 3 init 1) (exp (gen) x-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0)))
-      (send (enc n (exp (gen) (mul x w x-0)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w))))
-  (label 117)
-  (parent 79)
-  (unrealized (1 0) (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-1))) (x x))
-  (deflistener (exp (gen) (mul x w x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) w))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-1)))
-      (send (enc n (exp (gen) (mul x w x-1)))) (recv n))
-    ((recv (exp (gen) (mul x w x-1))) (send (exp (gen) (mul x w x-1))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w x-1))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) w)) (send (cat (exp (gen) x-1) w)))
-    ((send (exp (gen) x-1))))
-  (label 118)
-  (parent 79)
-  (unrealized (1 0) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))) (recv n))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w y))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv h) (send (exp (gen) y))))
-  (label 119)
-  (parent 79)
-  (unrealized (1 0) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w-0 (mul x (rec y) w)) (y-0 y) (w-1 w)) (gen)
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (gen) w)) (send (cat (gen) w))))
-  (label 120)
-  (parent 85)
-  (unrealized (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x))) (x x))
-  (deflistener (exp (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 0 init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x)))
-      (send (enc n (exp (gen) (mul w x x)))) (recv n))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) (mul w x x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w x x)))
-      (send (cat (exp (gen) y) (mul (rec y) w x x))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 121)
-  (parent 85)
-  (unrealized (1 0) (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0)))
-      (send (enc n (exp (gen) (mul x w x-0)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w x-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0))))
-  (label 122)
-  (parent 85)
-  (unrealized (1 0) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (displaced 5 3 resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))) (recv n))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 123)
-  (parent 85)
-  (unrealized (1 0) (2 0))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (deflistener (exp (gen) (mul x w y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) w))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (y-0 h-0) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) (mul x w y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) w)) (send (cat (exp (gen) y-0) w)))
-    ((recv h-0) (send (exp (gen) y-0))))
-  (label 124)
-  (parent 85)
-  (unrealized (1 0) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))) (send n))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv y) (send y)))
-  (label 125)
-  (parent 87)
-  (unrealized (2 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x x))) (y y))
-  (deflistener (cat (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y (exp (gen) (mul w x x))))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y)))
-      (send (enc n (exp (gen) (mul w x x y)))) (recv n))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x x y)))) (send n))
-    ((recv (cat (gen) (mul w x x))) (send (cat (gen) (mul w x x))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))) ((recv y) (send y)))
-  (label 126)
-  (parent 88)
-  (unrealized (1 0) (2 0) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 0) (2 0)) ((5 1) (3 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))) (send n))
-    ((recv (cat (gen) (mul x w x-0))) (send (cat (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0)))
-    ((recv y) (send y)))
-  (label 127)
-  (parent 89)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (y (gen)))
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w (rec x))) (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y)))
-      (send n)) ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))))
-  (label 128)
-  (parent 90)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)))
-  (absent (x w) (y (exp (gen) w)))
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w) w (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))) (send n))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))))
-  (label 129)
-  (parent 90)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (2 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))) (send n))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv x) (send x)))
-  (label 130)
-  (parent 90)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (2 0)) ((5 1) (3 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (precur (3 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))) (send n))
-    ((recv (cat (gen) (mul x w y))) (send (cat (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))) ((recv y-0) (send y-0)))
-  (label 131)
-  (parent 91)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y w))) (x x))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (1 0)))
-  (precur (1 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation generalization forgot ((absent (y (exp (gen) (mul w x))))))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y w)))
-      (send (enc n (exp (gen) (mul y w x)))) (recv n))
-    ((recv (cat (exp (gen) x) w))))
-  (label 132)
-  (parent 92)
-  (seen 114)
-  (unrealized)
-  (comment "1 in cohort - 0 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul x w))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv y) (send y)))
-  (label 133)
-  (parent 93)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x-0))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x-0 x-0))) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul w x-0 x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul w x-0 x-0 y)))) (recv n))
-    ((recv (exp (gen) (mul w x-0 x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w x-0 x-0 y)))) (send n))
-    ((recv (cat (exp (gen) x) (mul (rec x) w x-0 x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w x-0 x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((recv y) (send y)))
-  (label 134)
-  (parent 94)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) (mul x w x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-0 y)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((recv y) (send y)))
-  (label 135)
-  (parent 95)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (x-1 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-1 y))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-1))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w y)))
-  (defstrand init 1 (x x-1))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((6 1) (4 0)))
-  (absent (y (exp (gen) (mul x w x-1))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-1 y)))
-      (send (enc n (exp (gen) (mul x w x-1 y)))) (recv n))
-    ((recv (exp (gen) (mul x w x-1))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w x-1 y)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w x-1))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul w y)))
-      (send (cat (exp (gen) x-1) (mul w y)))) ((send (exp (gen) x-1)))
-    ((recv y) (send y)))
-  (label 136)
-  (parent 96)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (y x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x) x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) x-0)) (y y))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) x-0)))
-  (precur (4 0) (2 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w (mul (rec x) x-0))) (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x) x-0)))
-      (send (enc n (exp (gen) (mul y x-0)))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y x-0)))) (send n))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0)))
-      (send (cat (exp (gen) y) (mul (rec x) x-0)))))
-  (label 137)
-  (parent 97)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w (rec x-0))))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (x-0 (mul (rec x) w)) (y (exp (gen) w)))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w))
-    (mul (rec x) w) (2 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w y (rec x-0))))
-      (send (enc n (exp (gen) (mul w y)))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))) (send n))
-    ((recv (cat (exp (gen) x) (mul (rec x) w)))
-      (send (cat (exp (gen) x) (mul (rec x) w)))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul w (rec x-0))))
-      (send (cat (exp (gen) y) (mul w (rec x-0))))))
-  (label 138)
-  (parent 97)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w x-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (x-0 (mul x w)) (y (exp (gen) (mul x w x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w)) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y x-0)))
-      (send (enc n (exp (gen) (mul x w y x-0)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y x-0)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w x-0)))
-      (send (cat (exp (gen) y) (mul w x-0)))))
-  (label 139)
-  (parent 97)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((6 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w y))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h) (send (exp (gen) y))) ((recv y-0) (send y-0)))
-  (label 140)
-  (parent 98)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0)))
-      (send (enc n (exp (gen) (mul x w y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y-0)))) (send n))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul w y-0))) (send (cat (gen) (mul w y-0))))
-    ((recv y-0) (send y-0)))
-  (label 141)
-  (parent 99)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul w x x))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w x x))))
-  (precur (4 0) (2 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y-0)))
-      (send (enc n (exp (gen) (mul w x x y-0)))) (recv n))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w x x y-0)))) (send n))
-    ((recv (cat (exp (gen) y) (mul (rec y) w x x)))
-      (send (cat (exp (gen) y) (mul (rec y) w x x))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul w y-0)))
-      (send (cat (exp (gen) x) (mul w y-0)))) ((recv y-0) (send y-0)))
-  (label 142)
-  (parent 100)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (x-0 y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w y-0)))
-  (defstrand init 1 (x x-0))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((6 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0 y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y-0)))
-      (send (enc n (exp (gen) (mul x w x-0 y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w x-0 y-0)))) (send n))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w x-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul w y-0)))
-      (send (cat (exp (gen) x-0) (mul w y-0)))) ((send (exp (gen) x-0)))
-    ((recv y-0) (send y-0)))
-  (label 143)
-  (parent 101)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y x y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x) y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) y-0)) (y y))
-  (deflistener (cat (exp (gen) y-0) (one)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) y-0)) (y-0 h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y-0) (w (mul (rec x) y-0))) (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x) y-0)))
-      (send (enc n (exp (gen) (mul y y-0)))) (recv n))
-    ((recv (exp (gen) y-0)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul y y-0)))) (send n))
-    ((recv (cat (exp (gen) y-0) (one)))
-      (send (cat (exp (gen) y-0) (one))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) y-0)))
-      (send (cat (exp (gen) y) (mul (rec x) y-0)))))
-  (label 144)
-  (parent 102)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (x (mul (rec y) w)) (y-0 (exp (gen) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w))
-    (mul (rec y) w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))) (send n))
-    ((recv (cat (exp (gen) y) (mul (rec y) w)))
-      (send (cat (exp (gen) y) (mul (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x))))))
-  (label 145)
-  (parent 102)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul x w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y-0 (mul x w)) (y (exp (gen) (mul x w y-0))) (y-0 h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w)) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y y-0)))) (send n))
-    ((recv (cat (exp (gen) y-0) (mul x w)))
-      (send (cat (exp (gen) y-0) (mul x w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0)))))
-  (label 146)
-  (parent 102)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y))) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (5 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y h) (y-0 (exp (gen) (mul x w y))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul x w y y-0)))) (send n))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0)))) ((recv y-0) (send y-0)))
-  (label 147)
-  (parent 103)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y expn) (w expr) (y-0 y-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0 y-1))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y-0))) (y y-1))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w y-1)))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (deflistener y-1)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (6 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((6 1) (4 0)))
-  (absent (y-0 h-0) (y h) (y-1 (exp (gen) (mul x w y-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0 y-1)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-1) (mul w y-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 y-1)))
-      (send (enc n (exp (gen) (mul x w y-0 y-1)))) (recv n))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) y-1))
-      (recv (enc n (exp (gen) (mul x w y-0 y-1)))) (send n))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) w y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w y-1)))
-      (send (cat (exp (gen) y-0) (mul w y-1))))
-    ((recv h-0) (send (exp (gen) y-0))) ((recv y-1) (send y-1)))
-  (label 148)
-  (parent 104)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (gen) (rec x)))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test (contracted (x-0 x) (w (rec x))) (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))) (recv n)) ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x)))))
-  (label 149)
-  (parent 110)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (gen) (mul w (rec x))))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (absent (x w))
-  (operation nonce-test (added-absence x w) w (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (gen) (mul w (rec x))))
-      (send (cat (gen) (mul w (rec x))))))
-  (label 150)
-  (parent 110)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (gen) w))
-  (deflistener x)
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test (added-listener x) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (gen) w)) (send (cat (gen) w))) ((recv x) (send x)))
-  (label 151)
-  (parent 110)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (precur (3 0) (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (w (mul (rec x) (rec x))) (x-0 x))
-    (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))) (recv n)) ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x))))))
-  (label 152)
-  (parent 111)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) x) (mul w (rec x) (rec x))))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (precur (3 0) (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (absent (x w))
-  (operation nonce-test (added-absence x w) w (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (exp (gen) x) (mul w (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w (rec x) (rec x))))))
-  (label 153)
-  (parent 111)
-  (unrealized (0 1) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x))) (x x))
-  (deflistener (exp (gen) (mul w x x)))
-  (deflistener (cat (gen) (mul w x x)))
-  (deflistener (cat (exp (gen) x) w))
-  (deflistener x)
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w x x) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x)))
-      (send (enc n (exp (gen) (mul w x x)))) (recv n))
-    ((recv (exp (gen) (mul w x x))) (send (exp (gen) (mul w x x))))
-    ((recv (cat (gen) (mul w x x))) (send (cat (gen) (mul w x x))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w)))
-    ((recv x) (send x)))
-  (label 154)
-  (parent 111)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)) ((4 0) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w (mul (rec x) (rec x-0))) (x-2 x-0)) (one)
-    (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))) (recv n)) ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 155)
-  (parent 112)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)) ((4 0) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul w x)))
-  (operation nonce-test (added-absence x-0 (mul w x)) (mul w x) (2 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x (rec x-0))))
-      (send (enc n (exp (gen) (mul w x)))) (recv n))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (gen) (mul w x))) (send (cat (gen) (mul w x))))
-    ((recv (cat (exp (gen) x) (mul w (rec x-0))))
-      (send (cat (exp (gen) x) (mul w (rec x-0)))))
-    ((send (exp (gen) x))))
-  (label 156)
-  (parent 112)
-  (unrealized (0 1) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)) ((4 0) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul x w)))
-  (operation nonce-test (added-absence x-0 (mul x w)) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 157)
-  (parent 112)
-  (unrealized (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) y) (mul (rec x) (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)) ((4 1) (3 0)))
-  (absent (y h))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (w (mul (rec x) (rec y))) (y-0 y)) (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))) (recv n)) ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) y) (mul (rec x) (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) (rec y)))))
-    ((recv h) (send (exp (gen) y))))
-  (label 158)
-  (parent 113)
-  (unrealized (0 1) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (w expr) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)) ((4 1) (3 0)))
-  (absent (x (mul w y)) (y h))
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul w y)) (mul w y) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))) (recv n))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x)))))
-    ((recv h) (send (exp (gen) y))))
-  (label 159)
-  (parent 113)
-  (unrealized (0 1) (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul w (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)) ((4 1) (3 0)))
-  (absent (y (mul x w)) (y h))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x w)) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul w (rec y))))
-      (send (cat (exp (gen) y) (mul w (rec y)))))
-    ((recv h) (send (exp (gen) y))))
-  (label 160)
-  (parent 113)
-  (unrealized (2 0) (3 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul (rec x) x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w (mul (rec x) x-0))) (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul (rec x) x-0)))
-      (send (cat (gen) (mul (rec x) x-0)))))
-  (label 161)
-  (parent 115)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (gen) (mul w (rec x-0))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul (rec x) w)))
-  (operation nonce-test (added-absence x-0 (mul (rec x) w))
-    (mul (rec x) w) (2 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w (rec x-0))))
-      (send (enc n (exp (gen) w))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w)))
-      (send (cat (exp (gen) x) (mul (rec x) w)))) ((send (exp (gen) x)))
-    ((recv (cat (gen) (mul w (rec x-0))))
-      (send (cat (gen) (mul w (rec x-0))))))
-  (label 162)
-  (parent 115)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul x w)))
-  (operation nonce-test (added-absence x-0 (mul x w)) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0)))
-      (send (enc n (exp (gen) (mul x w x-0)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul w x-0))) (send (cat (gen) (mul w x-0)))))
-  (label 163)
-  (parent 115)
-  (unrealized (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (w (mul x (rec x-0) (rec x-0))) (x-2 x-0)) (one)
-    (2 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))) (recv n))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) (rec x-0))))))
-  (label 164)
-  (parent 116)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x x-0))) (x x))
-  (deflistener (exp (gen) (mul w x x x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w x x)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x) (mul w x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul w x x)))
-  (operation nonce-test (added-absence x-0 (mul w x x)) (mul w x x)
-    (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x x-0)))
-      (send (enc n (exp (gen) (mul w x x x-0)))) (recv n))
-    ((recv (exp (gen) (mul w x x x-0)))
-      (send (exp (gen) (mul w x x x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w x x)))
-      (send (cat (exp (gen) x-0) (mul w x x)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x) (mul w x-0)))
-      (send (cat (exp (gen) x) (mul w x-0)))))
-  (label 165)
-  (parent 116)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul (rec x) w)))
-  (operation nonce-test (added-absence x-0 (mul (rec x) w))
-    (mul (rec x) w) (2 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w (rec x-0))))
-      (send (enc n (exp (gen) w))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w)))
-      (send (cat (exp (gen) x) (mul (rec x) w)))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0))))))
-  (label 166)
-  (parent 116)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (rec x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-1 x-0) (w (rec x-0))) (one)
-    (2 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))) (recv n))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (rec x-0)))
-      (send (cat (exp (gen) x) (rec x-0)))))
-  (label 167)
-  (parent 117)
-  (unrealized (0 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) w))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 w))
-  (operation nonce-test (added-absence x-0 w) w (2 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x (rec x-0))))
-      (send (enc n (exp (gen) (mul w x)))) (recv n))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w)))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (mul w (rec x-0))))
-      (send (cat (exp (gen) x) (mul w (rec x-0))))))
-  (label 168)
-  (parent 117)
-  (unrealized (0 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-0) w))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0)))
-      (send (enc n (exp (gen) (mul x w x-0)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((recv x) (send x)))
-  (label 169)
-  (parent 117)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-2 x) (x-3 x-0) (w (mul (rec x) x-0 (rec x-1)))
-      (x-4 x-1)) (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul (rec x) x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 170)
-  (parent 118)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 (rec x-1)))) (x x-1))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-1))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (absent (x-1 (mul (rec x) w x-0)))
-  (operation nonce-test (added-absence x-1 (mul (rec x) w x-0))
-    (mul (rec x) w x-0) (2 0))
-  (traces
-    ((send (exp (gen) x-1)) (recv (exp (gen) (mul w x-0 (rec x-1))))
-      (send (enc n (exp (gen) (mul w x-0)))) (recv n))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) (mul w x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-1))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-1)))))
-    ((send (exp (gen) x-0))))
-  (label 171)
-  (parent 118)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 x-1))) (x x))
-  (deflistener (exp (gen) (mul x w x-0 x-1)))
-  (deflistener (cat (exp (gen) x-1) (mul x w x-0)))
-  (defstrand init 1 (x x-1))
-  (deflistener (cat (exp (gen) x-0) (mul w x-1)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (absent (x-1 (mul x w x-0)))
-  (operation nonce-test (added-absence x-1 (mul x w x-0)) (mul x w x-0)
-    (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 x-1)))
-      (send (enc n (exp (gen) (mul x w x-0 x-1)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0 x-1)))
-      (send (exp (gen) (mul x w x-0 x-1))))
-    ((recv (cat (exp (gen) x-1) (mul x w x-0)))
-      (send (cat (exp (gen) x-1) (mul x w x-0))))
-    ((send (exp (gen) x-1)))
-    ((recv (cat (exp (gen) x-0) (mul w x-1)))
-      (send (cat (exp (gen) x-0) (mul w x-1))))
-    ((send (exp (gen) x-0))))
-  (label 172)
-  (parent 118)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (absent (x-1 (mul x (rec x-0) w)))
-  (operation nonce-test (added-absence x-1 (mul x (rec x-0) w))
-    (mul x (rec x-0) w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul w (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul w (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 173)
-  (parent 118)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (deflistener (cat (exp (gen) x-0) (one)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (x-2 x-0) (w (mul (rec x) x-0 (rec y))) (y-0 y))
-    (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) x-0)))
-      (send (enc n (exp (gen) x-0))) (recv n))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-0) (one)))
-      (send (cat (exp (gen) x-0) (one)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul (rec x) x-0 (rec y))))
-      (send (cat (exp (gen) y) (mul (rec x) x-0 (rec y)))))
-    ((recv h) (send (exp (gen) y))))
-  (label 174)
-  (parent 119)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w y)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w (rec x-0))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (x-0 (mul (rec x) w y)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec x) w y))
-    (mul (rec x) w y) (2 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w y (rec x-0))))
-      (send (enc n (exp (gen) (mul w y)))) (recv n))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w y)))
-      (send (cat (exp (gen) x) (mul (rec x) w y))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul w (rec x-0))))
-      (send (cat (exp (gen) y) (mul w (rec x-0)))))
-    ((recv h) (send (exp (gen) y))))
-  (label 175)
-  (parent 119)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y x-0))) (x x))
-  (deflistener (exp (gen) (mul x w y x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (x-0 (mul x w y)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x w y)) (mul x w y)
-    (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y x-0)))
-      (send (enc n (exp (gen) (mul x w y x-0)))) (recv n))
-    ((recv (exp (gen) (mul x w y x-0)))
-      (send (exp (gen) (mul x w y x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w y)))
-      (send (cat (exp (gen) x-0) (mul x w y)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w x-0)))
-      (send (cat (exp (gen) y) (mul w x-0))))
-    ((recv h) (send (exp (gen) y))))
-  (label 176)
-  (parent 119)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (y (mul x (rec x-0) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x (rec x-0) w))
-    (mul x (rec x-0) w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w (rec y))))
-      (send (cat (exp (gen) y) (mul w (rec y)))))
-    ((recv h) (send (exp (gen) y))))
-  (label 177)
-  (parent 119)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul (rec x) y)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul (rec x) y)))
-    (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul (rec x) y)))
-      (send (cat (gen) (mul (rec x) y)))))
-  (label 178)
-  (parent 120)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w (rec x))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (x (mul (rec y) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w))
-    (mul (rec y) w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w)))
-      (send (cat (exp (gen) y) (mul (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul w (rec x))))
-      (send (cat (gen) (mul w (rec x))))))
-  (label 179)
-  (parent 120)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y (mul x w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x w)) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))) (recv n))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
-  (label 180)
-  (parent 120)
-  (unrealized (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul y (rec x) (rec x))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (y-0 y) (w (mul y (rec x) (rec x))) (x-0 x)) (one)
-    (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul y (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul y (rec x) (rec x))))))
-  (label 181)
-  (parent 121)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (w expr) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (deflistener (exp (gen) (mul w x x y)))
-  (deflistener (cat (exp (gen) y) (mul w x x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y (mul w x x)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul w x x)) (mul w x x) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y)))
-      (send (enc n (exp (gen) (mul w x x y)))) (recv n))
-    ((recv (exp (gen) (mul w x x y))) (send (exp (gen) (mul w x x y))))
-    ((recv (cat (exp (gen) y) (mul w x x)))
-      (send (cat (exp (gen) y) (mul w x x))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))))
-  (label 182)
-  (parent 121)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w (rec x) (rec x))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (x (mul (rec y) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w))
-    (mul (rec y) w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w)))
-      (send (cat (exp (gen) y) (mul (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul w (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w (rec x) (rec x))))))
-  (label 183)
-  (parent 121)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-1 x) (y-0 y) (w (mul (rec x) y (rec x-0))) (x-2 x-0))
-    (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul (rec x) y (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul (rec x) y (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 184)
-  (parent 122)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (defstrand init 1 (x x))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (absent (x-0 (mul (rec y) w x)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul (rec y) w x))
-    (mul (rec y) w x) (2 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x (rec x-0))))
-      (send (enc n (exp (gen) (mul w x)))) (recv n))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w x)))
-      (send (cat (exp (gen) y) (mul (rec y) w x))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul w (rec x-0))))
-      (send (cat (exp (gen) x) (mul w (rec x-0)))))
-    ((send (exp (gen) x))))
-  (label 185)
-  (parent 122)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (deflistener (exp (gen) (mul x w x-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (absent (y (mul x w x-0)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y (mul x w x-0)) (mul x w x-0)
-    (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0 y)))
-      (send (exp (gen) (mul x w x-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w x-0)))
-      (send (cat (exp (gen) y) (mul x w x-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0))))
-  (label 186)
-  (parent 122)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)))
-  (absent (x-0 (mul x (rec y) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x-0 (mul x (rec y) w))
-    (mul x (rec y) w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 187)
-  (parent 122)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (contracted (x-0 x) (w (rec x))) (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))))
-  (label 188)
-  (parent 123)
-  (unrealized (0 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (w expr) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)))
-  (absent (x w) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x w) w (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))) (recv n))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))))
-  (label 189)
-  (parent 123)
-  (unrealized (0 1) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) w))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul x w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))) (recv n))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv x) (send x)))
-  (label 190)
-  (parent 123)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (y-0 h-0) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test
-    (contracted (x-0 x) (y-1 y) (w (mul (rec x) y (rec y-0))) (y-2 y-0))
-    (one) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul (rec x) y)))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul (rec x) y (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul (rec x) y (rec y-0)))))
-    ((recv h-0) (send (exp (gen) y-0))))
-  (label 191)
-  (parent 124)
-  (unrealized (0 1) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h h-0 base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (x (mul (rec y) w y-0)) (y-0 h-0) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-absence x (mul (rec y) w y-0))
-    (mul (rec y) w y-0) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))) (recv n))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w y-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x)))))
-    ((recv h-0) (send (exp (gen) y-0))))
-  (label 192)
-  (parent 124)
-  (unrealized (0 1) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (deflistener (exp (gen) (mul x w y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w y)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h-0) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (y-0 (mul x w y)) (y h-0) (y-0 h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x w y)) (mul x w y)
-    (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w y y-0)))
-      (send (exp (gen) (mul x w y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w y)))
-      (send (cat (exp (gen) y-0) (mul x w y))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h-0) (send (exp (gen) y))))
-  (label 193)
-  (parent 124)
-  (unrealized (0 1) (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec y-0))))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)))
-  (absent (y-0 (mul x (rec y) w)) (y-0 h-0) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-absence y-0 (mul x (rec y) w))
-    (mul x (rec y) w) (2 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w (rec y-0)))))
-    ((recv h-0) (send (exp (gen) y-0))))
-  (label 194)
-  (parent 124)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton plaindh
-  (vars (n text) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (gen)) (y y))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 3) (0 3)) ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (y (gen)))
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (gen)) (send (exp (gen) y)) (recv (enc n (exp (gen) y)))
-      (send n)) ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
-  (label 195)
-  (parent 128)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((0 2) (1 2)) ((1 1) (3 0))
-    ((1 3) (0 3)) ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)))
-  (absent (x w) (y (exp (gen) w)))
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))) (send n))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))) ((recv x) (send x)))
-  (label 196)
-  (parent 129)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (4 0))
-    ((1 3) (0 3)) ((2 1) (1 0)) ((3 0) (2 0)) ((4 1) (0 1))
-    ((5 1) (4 0)))
-  (absent (x-0 (mul (rec x) w)) (y (exp (gen) w)))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w y (rec x-0))))
-      (send (enc n (exp (gen) (mul w y)))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul w y)))) (send n))
-    ((recv (cat (exp (gen) x) (mul (rec x) w)))
-      (send (cat (exp (gen) x) (mul (rec x) w)))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul w (rec x-0))))
-      (send (cat (exp (gen) y) (mul w (rec x-0)))))
-    ((recv x-0) (send x-0)))
-  (label 197)
-  (parent 138)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y x-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w x-0))) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 1))
-    ((5 1) (4 0)))
-  (absent (x-0 (mul x w)) (y (exp (gen) (mul x w x-0))))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y x-0)))
-      (send (enc n (exp (gen) (mul x w y x-0)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y x-0)))) (send n))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w x-0)))
-      (send (cat (exp (gen) y) (mul w x-0)))) ((recv x-0) (send x-0)))
-  (label 198)
-  (parent 139)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) w)) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((0 2) (1 2)) ((1 1) (4 0))
-    ((1 3) (0 3)) ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (0 1))
-    ((5 1) (4 0)))
-  (absent (x (mul (rec y) w)) (y-0 (exp (gen) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) y-0))
-      (recv (enc n (exp (gen) (mul w y-0)))) (send n))
-    ((recv (cat (exp (gen) y) (mul (rec y) w)))
-      (send (cat (exp (gen) y) (mul (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x))))) ((recv x) (send x)))
-  (label 199)
-  (parent 145)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (defstrand resp 4 (n n) (h (exp (gen) (mul x w y-0))) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul x w)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((1 1) (4 0)) ((1 3) (0 3))
-    ((2 1) (1 0)) ((3 1) (2 0)) ((3 1) (5 0)) ((4 1) (0 1))
-    ((5 1) (4 0)))
-  (absent (y-0 (mul x w)) (y (exp (gen) (mul x w y-0))) (y-0 h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w y-0))) (send (exp (gen) y))
-      (recv (enc n (exp (gen) (mul x w y y-0)))) (send n))
-    ((recv (cat (exp (gen) y-0) (mul x w)))
-      (send (cat (exp (gen) y-0) (mul x w))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0)))) ((recv y-0) (send y-0)))
-  (label 200)
-  (parent 146)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (gen) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (operation nonce-test (added-listener x) (rec x) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))) (recv n)) ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (gen) (rec x))) (send (cat (gen) (rec x))))
-    ((recv x) (send x)))
-  (label 201)
-  (parent 149)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (gen) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (uniq-gen x)
-  (uniq-orig n)
-  (precur (3 0) (2 0))
-  (absent (x w))
-  (operation nonce-test (added-listener x) (mul w (rec x)) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (gen) (mul w (rec x))))
-      (send (cat (gen) (mul w (rec x))))) ((recv x) (send x)))
-  (label 202)
-  (parent 150)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (deflistener (cat (gen) (one)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul (rec x) (rec x)) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (rec x)))
-      (send (enc n (gen))) (recv n)) ((recv (gen)) (send (gen)))
-    ((recv (cat (gen) (one))) (send (cat (gen) (one))))
-    ((recv (cat (exp (gen) x) (mul (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 203)
-  (parent 152)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (deflistener (cat (exp (gen) x) (mul w (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x)
-  (uniq-orig n)
-  (absent (x w))
-  (operation nonce-test (added-listener x) (mul w (rec x) (rec x))
-    (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (gen) w)) (send (cat (gen) w)))
-    ((recv (cat (exp (gen) x) (mul w (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 204)
-  (parent 153)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (defstrand init 1 (x x))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)) ((4 0) (3 0)) ((5 1) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul w x)))
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (3 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x (rec x-0))))
-      (send (enc n (exp (gen) (mul w x)))) (recv n))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (gen) (mul w x))) (send (cat (gen) (mul w x))))
-    ((recv (cat (exp (gen) x) (mul w (rec x-0))))
-      (send (cat (exp (gen) x) (mul w (rec x-0)))))
-    ((send (exp (gen) x))) ((recv x-0) (send x-0)))
-  (label 205)
-  (parent 156)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 0) (2 0)) ((4 0) (5 0)) ((5 1) (3 0)))
-  (precur (3 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul x w)))
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-0)))))
-    ((send (exp (gen) x-0))) ((recv x-0) (send x-0)))
-  (label 206)
-  (parent 157)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (w expr) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)) ((4 1) (3 0)) ((5 1) (3 0)))
-  (absent (x (mul w y)) (y h))
-  (precur (3 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))) (recv n))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x)))))
-    ((recv h) (send (exp (gen) y))) ((recv x) (send x)))
-  (label 207)
-  (parent 159)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul w (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)) ((4 1) (5 0)) ((5 1) (3 0)))
-  (absent (y (mul x w)) (y h))
-  (precur (3 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w (rec y)) (3 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (gen) (mul x w))) (send (cat (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul w (rec y))))
-      (send (cat (exp (gen) y) (mul w (rec y)))))
-    ((recv h) (send (exp (gen) y))) ((recv y) (send y)))
-  (label 208)
-  (parent 160)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (gen) (mul w (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul (rec x) w)))
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w (rec x-0))))
-      (send (enc n (exp (gen) w))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w)))
-      (send (cat (exp (gen) x) (mul (rec x) w)))) ((send (exp (gen) x)))
-    ((recv (cat (gen) (mul w (rec x-0))))
-      (send (cat (gen) (mul w (rec x-0))))) ((recv x-0) (send x-0)))
-  (label 209)
-  (parent 162)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0))) (x x))
-  (deflistener (exp (gen) (mul x w x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (gen) (mul w x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul x w)))
-  (operation nonce-test (added-listener x-0) (mul w x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0)))
-      (send (enc n (exp (gen) (mul x w x-0)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0))) (send (exp (gen) (mul x w x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w)))
-      (send (cat (exp (gen) x-0) (mul x w)))) ((send (exp (gen) x-0)))
-    ((recv (cat (gen) (mul w x-0))) (send (cat (gen) (mul w x-0))))
-    ((recv x-0) (send x-0)))
-  (label 210)
-  (parent 163)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x x-0))) (x x))
-  (deflistener (exp (gen) (mul w x x x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul w x x)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x) (mul w x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul w x x)))
-  (operation nonce-test (added-listener x-0) (mul w x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x x-0)))
-      (send (enc n (exp (gen) (mul w x x x-0)))) (recv n))
-    ((recv (exp (gen) (mul w x x x-0)))
-      (send (exp (gen) (mul w x x x-0))))
-    ((recv (cat (exp (gen) x-0) (mul w x x)))
-      (send (cat (exp (gen) x-0) (mul w x x)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x) (mul w x-0)))
-      (send (cat (exp (gen) x) (mul w x-0)))) ((recv x-0) (send x-0)))
-  (label 211)
-  (parent 165)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 (mul (rec x) w)))
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0) (rec x-0))
-    (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w (rec x-0))))
-      (send (enc n (exp (gen) w))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) x) (mul (rec x) w)))
-      (send (cat (exp (gen) x) (mul (rec x) w)))) ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-0) (rec x-0)))))
-    ((recv x-0) (send x-0)))
-  (label 212)
-  (parent 166)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) x))
-  (deflistener (cat (exp (gen) x) (one)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (rec x-0)))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (rec x-0) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul x (rec x-0))))
-      (send (enc n (exp (gen) x))) (recv n))
-    ((recv (exp (gen) x)) (send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (one))) (send (cat (exp (gen) x) (one))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (rec x-0)))
-      (send (cat (exp (gen) x) (rec x-0)))) ((recv x-0) (send x-0)))
-  (label 213)
-  (parent 167)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) w))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0)
-  (uniq-orig n)
-  (absent (x-0 w))
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x (rec x-0))))
-      (send (enc n (exp (gen) (mul w x)))) (recv n))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w)))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x) (mul w (rec x-0))))
-      (send (cat (exp (gen) x) (mul w (rec x-0)))))
-    ((recv x-0) (send x-0)))
-  (label 214)
-  (parent 168)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 (rec x-1)))) (x x-1))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w x-0)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-1))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-1)
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)) ((6 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (absent (x-1 (mul (rec x) w x-0)))
-  (operation nonce-test (added-listener x-1) (mul w (rec x-1)) (4 0))
-  (traces
-    ((send (exp (gen) x-1)) (recv (exp (gen) (mul w x-0 (rec x-1))))
-      (send (enc n (exp (gen) (mul w x-0)))) (recv n))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) (mul w x-0))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w x-0)))
-      (send (cat (exp (gen) x) (mul (rec x) w x-0))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-1))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-1)))))
-    ((send (exp (gen) x-0))) ((recv x-1) (send x-1)))
-  (label 215)
-  (parent 171)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x expn) (w expr) (x-0 x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 x-1))) (x x))
-  (deflistener (exp (gen) (mul x w x-0 x-1)))
-  (deflistener (cat (exp (gen) x-1) (mul x w x-0)))
-  (defstrand init 1 (x x-1))
-  (deflistener (cat (exp (gen) x-0) (mul w x-1)))
-  (defstrand init 1 (x x-0))
-  (deflistener x-1)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (6 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)) ((6 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (absent (x-1 (mul x w x-0)))
-  (operation nonce-test (added-listener x-1) (mul w x-1) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 x-1)))
-      (send (enc n (exp (gen) (mul x w x-0 x-1)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0 x-1)))
-      (send (exp (gen) (mul x w x-0 x-1))))
-    ((recv (cat (exp (gen) x-1) (mul x w x-0)))
-      (send (cat (exp (gen) x-1) (mul x w x-0))))
-    ((send (exp (gen) x-1)))
-    ((recv (cat (exp (gen) x-0) (mul w x-1)))
-      (send (cat (exp (gen) x-0) (mul w x-1)))) ((send (exp (gen) x-0)))
-    ((recv x-1) (send x-1)))
-  (label 216)
-  (parent 172)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (x x-0 expn) (w expr) (x-1 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) x-1) (mul w (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (deflistener x-1)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (6 0)) ((6 1) (4 0)))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (uniq-orig n)
-  (absent (x-1 (mul x (rec x-0) w)))
-  (operation nonce-test (added-listener x-1) (mul w (rec x-1)) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) x-1) (mul w (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul w (rec x-1)))))
-    ((send (exp (gen) x-1))) ((recv x-1) (send x-1)))
-  (label 217)
-  (parent 173)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) w y)))
-  (defstrand init 1 (x x))
-  (deflistener (cat (exp (gen) y) (mul w (rec x-0))))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)) ((6 1) (4 0)))
-  (absent (x-0 (mul (rec x) w y)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w y (rec x-0))))
-      (send (enc n (exp (gen) (mul w y)))) (recv n))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) x) (mul (rec x) w y)))
-      (send (cat (exp (gen) x) (mul (rec x) w y))))
-    ((send (exp (gen) x)))
-    ((recv (cat (exp (gen) y) (mul w (rec x-0))))
-      (send (cat (exp (gen) y) (mul w (rec x-0)))))
-    ((recv h) (send (exp (gen) y))) ((recv x-0) (send x-0)))
-  (label 218)
-  (parent 175)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y x-0))) (x x))
-  (deflistener (exp (gen) (mul x w y x-0)))
-  (deflistener (cat (exp (gen) x-0) (mul x w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (6 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)) ((6 1) (4 0)))
-  (absent (x-0 (mul x w y)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w x-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y x-0)))
-      (send (enc n (exp (gen) (mul x w y x-0)))) (recv n))
-    ((recv (exp (gen) (mul x w y x-0)))
-      (send (exp (gen) (mul x w y x-0))))
-    ((recv (cat (exp (gen) x-0) (mul x w y)))
-      (send (cat (exp (gen) x-0) (mul x w y)))) ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w x-0)))
-      (send (cat (exp (gen) y) (mul w x-0))))
-    ((recv h) (send (exp (gen) y))) ((recv x-0) (send x-0)))
-  (label 219)
-  (parent 176)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x x-0 expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-  (defstrand init 1 (x x-0))
-  (deflistener (cat (exp (gen) y) (mul w (rec y))))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (6 0)) ((6 1) (4 0)))
-  (absent (y (mul x (rec x-0) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w (rec y)) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) w)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) w))))
-    ((send (exp (gen) x-0)))
-    ((recv (cat (exp (gen) y) (mul w (rec y))))
-      (send (cat (exp (gen) y) (mul w (rec y)))))
-    ((recv h) (send (exp (gen) y))) ((recv y) (send y)))
-  (label 220)
-  (parent 177)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (x (mul (rec y) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w)))
-      (send (cat (exp (gen) y) (mul (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul w (rec x))))
-      (send (cat (gen) (mul w (rec x))))) ((recv x) (send x)))
-  (label 221)
-  (parent 179)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y))) (x x))
-  (deflistener (exp (gen) (mul x w y)))
-  (deflistener (cat (exp (gen) y) (mul x w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (5 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (mul x w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y)))
-      (send (enc n (exp (gen) (mul x w y)))) (recv n))
-    ((recv (exp (gen) (mul x w y))) (send (exp (gen) (mul x w y))))
-    ((recv (cat (exp (gen) y) (mul x w)))
-      (send (cat (exp (gen) y) (mul x w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv y) (send y)))
-  (label 222)
-  (parent 180)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (w expr) (x y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x y))) (x x))
-  (deflistener (exp (gen) (mul w x x y)))
-  (deflistener (cat (exp (gen) y) (mul w x x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (5 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y (mul w x x)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x y)))
-      (send (enc n (exp (gen) (mul w x x y)))) (recv n))
-    ((recv (exp (gen) (mul w x x y))) (send (exp (gen) (mul w x x y))))
-    ((recv (cat (exp (gen) y) (mul w x x)))
-      (send (cat (exp (gen) y) (mul w x x))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))) ((recv y) (send y)))
-  (label 223)
-  (parent 182)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w (rec x)))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w (rec x) (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (x (mul (rec y) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x) (rec x))
-    (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w (rec x))))
-      (send (enc n (exp (gen) w))) (recv n))
-    ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (exp (gen) y) (mul (rec y) w)))
-      (send (cat (exp (gen) y) (mul (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul w (rec x) (rec x))))
-      (send (cat (exp (gen) x) (mul w (rec x) (rec x)))))
-    ((recv x) (send x)))
-  (label 224)
-  (parent 183)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y expn) (w expr) (x x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x (rec x-0)))) (x x-0))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w x)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x) (mul w (rec x-0))))
-  (defstrand init 1 (x x))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)) ((6 1) (4 0)))
-  (absent (x-0 (mul (rec y) w x)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (4 0))
-  (traces
-    ((send (exp (gen) x-0)) (recv (exp (gen) (mul w x (rec x-0))))
-      (send (enc n (exp (gen) (mul w x)))) (recv n))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w x)))
-      (send (cat (exp (gen) y) (mul (rec y) w x))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x) (mul w (rec x-0))))
-      (send (cat (exp (gen) x) (mul w (rec x-0)))))
-    ((send (exp (gen) x))) ((recv x-0) (send x-0)))
-  (label 225)
-  (parent 185)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x expn) (w expr) (x-0 y expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w x-0 y))) (x x))
-  (deflistener (exp (gen) (mul x w x-0 y)))
-  (deflistener (cat (exp (gen) y) (mul x w x-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w y)))
-  (defstrand init 1 (x x-0))
-  (deflistener y)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (6 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (4 0)) ((6 1) (4 0)))
-  (absent (y (mul x w x-0)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x x-0 y)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y) (mul w y) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w x-0 y)))
-      (send (enc n (exp (gen) (mul x w x-0 y)))) (recv n))
-    ((recv (exp (gen) (mul x w x-0 y)))
-      (send (exp (gen) (mul x w x-0 y))))
-    ((recv (cat (exp (gen) y) (mul x w x-0)))
-      (send (cat (exp (gen) y) (mul x w x-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul w y)))
-      (send (cat (exp (gen) x-0) (mul w y)))) ((send (exp (gen) x-0)))
-    ((recv y) (send y)))
-  (label 226)
-  (parent 186)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (x y expn) (w expr) (x-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) x-0) (mul w (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (deflistener x-0)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 0) (2 0))
-    ((5 0) (6 0)) ((6 1) (4 0)))
-  (absent (x-0 (mul x (rec y) w)) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y x-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x-0) (mul w (rec x-0)) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) x-0) (mul w (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul w (rec x-0)))))
-    ((send (exp (gen) x-0))) ((recv x-0) (send x-0)))
-  (label 227)
-  (parent 187)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul y (rec x)))) (x x))
-  (deflistener (exp (gen) y))
-  (deflistener (cat (exp (gen) y) (one)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (rec x)))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (rec x) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul y (rec x))))
-      (send (enc n (exp (gen) y))) (recv n))
-    ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (one))) (send (cat (exp (gen) y) (one))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (rec x)))
-      (send (cat (exp (gen) y) (rec x)))) ((recv x) (send x)))
-  (label 228)
-  (parent 188)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h base) (w expr) (y x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y (rec x)))) (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y) (mul w (rec x))))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (4 0)))
-  (absent (x w) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y (rec x))))
-      (send (enc n (exp (gen) (mul w y)))) (recv n))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y) (mul w (rec x))))
-      (send (cat (exp (gen) y) (mul w (rec x))))) ((recv x) (send x)))
-  (label 229)
-  (parent 189)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h h-0 base) (y expn) (w expr) (y-0 x expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y-0 (rec x)))) (x x))
-  (deflistener (exp (gen) (mul w y-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) w y-0)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec x))))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (deflistener x)
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)) ((6 1) (4 0)))
-  (absent (x (mul (rec y) w y-0)) (y-0 h-0) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen y y-0 x)
-  (uniq-orig n)
-  (operation nonce-test (added-listener x) (mul w (rec x)) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y-0 (rec x))))
-      (send (enc n (exp (gen) (mul w y-0)))) (recv n))
-    ((recv (exp (gen) (mul w y-0))) (send (exp (gen) (mul w y-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) w y-0)))
-      (send (cat (exp (gen) y) (mul (rec y) w y-0))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec x))))
-      (send (cat (exp (gen) y-0) (mul w (rec x)))))
-    ((recv h-0) (send (exp (gen) y-0))) ((recv x) (send x)))
-  (label 230)
-  (parent 192)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x expn) (w expr) (y y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) (mul w y y-0))) (x x))
-  (deflistener (exp (gen) (mul x w y y-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x w y)))
-  (defstrand resp 2 (h h) (y y-0))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (h h-0) (y y))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (6 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (4 0)) ((6 1) (4 0)))
-  (absent (y-0 (mul x w y)) (y h-0) (y-0 h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) (mul w y y-0)))
-      (send (enc n (exp (gen) (mul x w y y-0)))) (recv n))
-    ((recv (exp (gen) (mul x w y y-0)))
-      (send (exp (gen) (mul x w y y-0))))
-    ((recv (cat (exp (gen) y-0) (mul x w y)))
-      (send (cat (exp (gen) y-0) (mul x w y))))
-    ((recv h) (send (exp (gen) y-0)))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h-0) (send (exp (gen) y))) ((recv y-0) (send y-0)))
-  (label 231)
-  (parent 193)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton plaindh
-  (vars (n text) (h h-0 base) (x y expn) (w expr) (y-0 expn))
-  (defstrand init 4 (n n) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul x w)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) w)))
-  (defstrand resp 2 (h h) (y y))
-  (deflistener (cat (exp (gen) y-0) (mul w (rec y-0))))
-  (defstrand resp 2 (h h-0) (y y-0))
-  (deflistener y-0)
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 3)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (0 1)) ((5 1) (2 0))
-    ((5 1) (6 0)) ((6 1) (4 0)))
-  (absent (y-0 (mul x (rec y) w)) (y-0 h-0) (y h))
-  (precur (4 0) (2 0))
-  (uniq-gen x y y-0)
-  (uniq-orig n)
-  (operation nonce-test (added-listener y-0) (mul w (rec y-0)) (4 0))
-  (traces
-    ((send (exp (gen) x)) (recv (exp (gen) w))
-      (send (enc n (exp (gen) (mul x w)))) (recv n))
-    ((recv (exp (gen) (mul x w))) (send (exp (gen) (mul x w))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) w)))
-      (send (cat (exp (gen) y) (mul x (rec y) w))))
-    ((recv h) (send (exp (gen) y)))
-    ((recv (cat (exp (gen) y-0) (mul w (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul w (rec y-0)))))
-    ((recv h-0) (send (exp (gen) y-0))) ((recv y-0) (send y-0)))
-  (label 232)
-  (parent 194)
-  (unrealized (2 0) (6 0))
-  (comment "empty cohort"))
+(comment "CPSA 3.5.0")
+(comment "All input read from plaindh.scm")
+
+(defprotocol plaindh diffie-hellman
+  (defrole init
+    (vars (x rndx) (y expt) (n text))
+    (trace (send (exp (gen) x)) (recv (exp (gen) y))
+      (send (enc n (exp (gen) (mul x y)))) (recv n))
+    (uniq-orig n)
+    (uniq-gen x))
+  (defrole resp
+    (vars (y rndx) (x expt) (n text))
+    (trace (recv (exp (gen) x)) (send (exp (gen) y))
+      (recv (enc n (exp (gen) (mul y x)))) (send n))
+    (uniq-gen y)
+    (absent (y (exp (gen) x))))
+  (comment "Diffie-hellman key exchange followed by an encryption"))
+
+(defskeleton plaindh
+  (vars (n text) (x rndx) (y expt))
+  (defstrand init 4 (n n) (x x) (y y))
+  (uniq-gen x)
+  (uniq-orig n)
+  (traces
+    ((send (exp (gen) x)) (recv (exp (gen) y))
+      (send (enc n (exp (gen) (mul x y)))) (recv n)))
+  (label 0)
+  (unrealized)
+  (shape)
+  (maps ((0) ((x x) (y y) (n n))))
+  (origs (n (0 2))))
 
 (comment "Nothing left to do")
diff --git a/tst/priority_test.tst b/tst/priority_test.tst
--- a/tst/priority_test.tst
+++ b/tst/priority_test.tst
@@ -1,6 +1,6 @@
 (herald "Receive priority test protocol")
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from priority_test.scm")
 
 (defprotocol priority_test basic
diff --git a/tst/reflect.tst b/tst/reflect.tst
--- a/tst/reflect.tst
+++ b/tst/reflect.tst
@@ -1,6 +1,6 @@
 (herald reflect)
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from reflect.scm")
 
 (defprotocol reflect basic
diff --git a/tst/staticdh.scm b/tst/staticdh.scm
--- a/tst/staticdh.scm
+++ b/tst/staticdh.scm
@@ -3,7 +3,7 @@
 
 (defprotocol staticdh diffie-hellman
   (defrole init
-    (vars (b ca name) (h base) (x expn) (n text))
+    (vars (b ca name) (h base) (x rndx) (n text))
     (trace
        (recv (enc "cert" h b (privk ca)))
        (send (enc n (exp h x)))
@@ -11,14 +11,14 @@
     (uniq-orig n)
     (non-orig (privk ca) x))
   (defrole resp
-    (vars (a ca name) (h base) (y expn) (n text))
+    (vars (a ca name) (h base) (y rndx) (n text))
     (trace
        (recv (enc "cert" h a (privk ca)))
        (recv (enc n (exp h y)))
        (send n))
     (non-orig (privk ca) y))
   (defrole ca
-    (vars (p ca name) (x expn))
+    (vars (p ca name) (x rndx))
     (trace
        (send (enc "cert" (exp (gen) x) p (privk ca))))
     (non-orig x)
@@ -32,7 +32,7 @@
 
 (defprotocol staticdh1 diffie-hellman
   (defrole init
-    (vars (a b ca name) (h base) (x expn) (n text))
+    (vars (a b ca name) (h base) (x rndx) (n text))
     (trace
        (recv (enc "cert" (exp (gen) x) a (privk ca)))
        (recv (enc "cert" h b (privk ca)))
@@ -42,7 +42,7 @@
     (neq (a b))
     (non-orig (privk ca)))
   (defrole resp
-    (vars (a b ca name) (h base) (y expn) (n text))
+    (vars (a b ca name) (h base) (y rndx) (n text))
     (trace
        (recv (enc "cert" h a (privk ca)))
        (recv (enc "cert" (exp (gen) y) b (privk ca)))
@@ -51,7 +51,7 @@
     (neq (a b))
     (non-orig (privk ca)))
   (defrole ca
-    (vars (p ca name) (x expn) (n text))
+    (vars (p ca name) (x rndx) (n text))
     (trace
        (send (enc "cert" (exp (gen) x) p (privk ca))))
     (non-orig x)
diff --git a/tst/staticdh.tst b/tst/staticdh.tst
--- a/tst/staticdh.tst
+++ b/tst/staticdh.tst
@@ -1,11 +1,11 @@
 (herald "Static DH key exchange" (algebra diffie-hellman))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from staticdh.scm")
 
 (defprotocol staticdh1 diffie-hellman
   (defrole init
-    (vars (a b ca name) (h base) (x expn) (n text))
+    (vars (a b ca name) (h base) (x rndx) (n text))
     (trace (recv (enc "cert" (exp (gen) x) a (privk ca)))
       (recv (enc "cert" h b (privk ca))) (send (enc n (exp h x)))
       (recv n))
@@ -13,20 +13,20 @@
     (uniq-orig n)
     (neq (a b)))
   (defrole resp
-    (vars (a b ca name) (h base) (y expn) (n text))
+    (vars (a b ca name) (h base) (y rndx) (n text))
     (trace (recv (enc "cert" h a (privk ca)))
       (recv (enc "cert" (exp (gen) y) b (privk ca)))
       (recv (enc n (exp h y))) (send n))
     (non-orig (privk ca))
     (neq (a b)))
   (defrole ca
-    (vars (p ca name) (x expn))
+    (vars (p ca name) (x rndx))
     (trace (send (enc "cert" (exp (gen) x) p (privk ca))))
     (non-orig x)
     (fn-of (owner-of (p x)))))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca name) (h base) (x expn))
+  (vars (n text) (a b ca name) (h base) (x rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h h) (x x))
   (neq (a b))
   (non-orig (privk ca))
@@ -41,7 +41,7 @@
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca name) (h base) (x expn))
+  (vars (n text) (a b ca name) (h base) (x rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h h) (x x))
   (defstrand ca 1 (p a) (ca ca) (x x))
   (precedes ((1 0) (0 0)))
@@ -61,7 +61,7 @@
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca name) (x x-0 expn))
+  (vars (n text) (a b ca name) (x x-0 rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x-0)) (x x))
   (defstrand ca 1 (p a) (ca ca) (x x))
   (defstrand ca 1 (p b) (ca ca) (x x-0))
@@ -84,7 +84,7 @@
   (comment "2 in cohort - 2 not yet seen"))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca a-0 b-0 ca-0 name) (x x-0 y expn))
+  (vars (n text) (a b ca a-0 b-0 ca-0 name) (x x-0 y rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x-0)) (x x))
   (defstrand ca 1 (p a) (ca ca) (x x))
   (defstrand ca 1 (p b) (ca ca) (x x-0))
@@ -113,7 +113,7 @@
   (comment "4 in cohort - 4 not yet seen"))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca name) (x x-0 expn))
+  (vars (n text) (a b ca name) (x x-0 rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x-0)) (x x))
   (defstrand ca 1 (p a) (ca ca) (x x))
   (defstrand ca 1 (p b) (ca ca) (x x-0))
@@ -138,7 +138,7 @@
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca b-0 name) (y x expn))
+  (vars (n text) (a b ca b-0 name) (y x rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (x y))
   (defstrand ca 1 (p a) (ca ca) (x y))
   (defstrand ca 1 (p b) (ca ca) (x x))
@@ -166,7 +166,7 @@
   (comment "2 in cohort - 2 not yet seen"))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca b-0 ca-0 name) (y x expn))
+  (vars (n text) (a b ca b-0 ca-0 name) (y x rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (x y))
   (defstrand ca 1 (p a) (ca ca) (x y))
   (defstrand ca 1 (p b) (ca ca) (x x))
@@ -197,7 +197,7 @@
   (comment "2 in cohort - 2 not yet seen"))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca b-0 name) (y x expn))
+  (vars (n text) (a b ca b-0 name) (y x rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
   (defstrand ca 1 (p a) (ca ca) (x x))
   (defstrand ca 1 (p b) (ca ca) (x y))
@@ -225,7 +225,7 @@
   (comment "2 in cohort - 2 not yet seen"))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca b-0 ca-0 name) (y x expn))
+  (vars (n text) (a b ca b-0 ca-0 name) (y x rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) y)) (x x))
   (defstrand ca 1 (p a) (ca ca) (x x))
   (defstrand ca 1 (p b) (ca ca) (x y))
@@ -256,7 +256,7 @@
   (comment "2 in cohort - 2 not yet seen"))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca name) (x x-0 expn) (w expr))
+  (vars (n text) (a b ca name) (x x-0 rndx) (w expt))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x-0)) (x x))
   (defstrand ca 1 (p a) (ca ca) (x x))
   (defstrand ca 1 (p b) (ca ca) (x x-0))
@@ -286,7 +286,7 @@
   (comment "2 in cohort - 2 not yet seen"))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca name) (x x-0 expn))
+  (vars (n text) (a b ca name) (x x-0 rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (x x-0))
   (defstrand ca 1 (p a) (ca ca) (x x-0))
   (defstrand ca 1 (p b) (ca ca) (x x))
@@ -316,7 +316,7 @@
   (origs (n (0 2))))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca name) (x x-0 expn))
+  (vars (n text) (a b ca name) (x x-0 rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (x x-0))
   (defstrand ca 1 (p a) (ca ca) (x x-0))
   (defstrand ca 1 (p b) (ca ca) (x x))
@@ -348,7 +348,7 @@
   (origs (n (0 2))))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca name) (x x-0 expn))
+  (vars (n text) (a b ca name) (x x-0 rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (x x-0))
   (defstrand ca 1 (p a) (ca ca) (x x-0))
   (defstrand ca 1 (p b) (ca ca) (x x))
@@ -380,7 +380,7 @@
   (origs (n (0 2))))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca ca-0 name) (x x-0 expn))
+  (vars (n text) (a b ca ca-0 name) (x x-0 rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x)) (x x-0))
   (defstrand ca 1 (p a) (ca ca) (x x-0))
   (defstrand ca 1 (p b) (ca ca) (x x))
@@ -415,7 +415,7 @@
   (origs (n (0 2))))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca name) (x x-0 expn))
+  (vars (n text) (a b ca name) (x x-0 rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x-0)) (x x))
   (defstrand ca 1 (p a) (ca ca) (x x))
   (defstrand ca 1 (p b) (ca ca) (x x-0))
@@ -445,7 +445,7 @@
   (origs (n (0 2))))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca name) (x x-0 expn))
+  (vars (n text) (a b ca name) (x x-0 rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x-0)) (x x))
   (defstrand ca 1 (p a) (ca ca) (x x))
   (defstrand ca 1 (p b) (ca ca) (x x-0))
@@ -477,7 +477,7 @@
   (origs (n (0 2))))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca name) (x x-0 expn))
+  (vars (n text) (a b ca name) (x x-0 rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x-0)) (x x))
   (defstrand ca 1 (p a) (ca ca) (x x))
   (defstrand ca 1 (p b) (ca ca) (x x-0))
@@ -509,7 +509,7 @@
   (origs (n (0 2))))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca ca-0 name) (x x-0 expn))
+  (vars (n text) (a b ca ca-0 name) (x x-0 rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x-0)) (x x))
   (defstrand ca 1 (p a) (ca ca) (x x))
   (defstrand ca 1 (p b) (ca ca) (x x-0))
@@ -544,7 +544,7 @@
   (origs (n (0 2))))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca name) (x x-0 expn))
+  (vars (n text) (a b ca name) (x x-0 rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x-0)) (x x))
   (defstrand ca 1 (p a) (ca ca) (x x))
   (defstrand ca 1 (p b) (ca ca) (x x-0))
@@ -572,7 +572,7 @@
   (comment "empty cohort"))
 
 (defskeleton staticdh1
-  (vars (n text) (a b ca p ca-0 name) (x x-0 x-1 expn))
+  (vars (n text) (a b ca p ca-0 name) (x x-0 x-1 rndx))
   (defstrand init 4 (n n) (a a) (b b) (ca ca) (h (exp (gen) x-0)) (x x))
   (defstrand ca 1 (p a) (ca ca) (x x))
   (defstrand ca 1 (p b) (ca ca) (x x-0))
diff --git a/tst/station.scm b/tst/station.scm
--- a/tst/station.scm
+++ b/tst/station.scm
@@ -14,18 +14,20 @@
 
 (defprotocol station-to-station diffie-hellman
   (defrole init
-    (vars (x expn) (h base) (a b name))
+    (vars (x rndx) (y expt) (a b name))
     (trace
      (send (exp (gen) x))
-     (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-     (send (enc (enc (exp (gen) x) h (privk a)) (exp h x))))
+     (recv (cat (exp (gen) y)
+		(enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x)))))
+     (send (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))))
     (uniq-gen x))
   (defrole resp
-    (vars (y expn) (h base) (a b name))
+    (vars (y rndx) (x expt) (a b name))
     (trace
-     (recv h)
-     (send (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-     (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
+     (recv (exp (gen) x))
+     (send (cat (exp (gen) y)
+		(enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y)))))
+     (recv (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))))
     (uniq-gen y))
 )
 
@@ -43,31 +45,35 @@
 
 (defprotocol station-weak diffie-hellman
   (defrole weak-init
-    (vars (x expn) (h base) (a b name))
+    (vars (x rndx) (y expt) (a b name))
     (trace
      (send (exp (gen) x))
-     (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-     (send (enc (enc (exp (gen) x) h (privk a)) (exp h x))))
-  )
+     (recv (cat (exp (gen) y)
+		(enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul y x)))))
+     (send (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul y x)))))
+					;(uniq-gen x)
+    )
   (defrole weak-resp
-    (vars (y expn) (h base) (a b name))
+    (vars (y rndx) (x expt) (a b name))
     (trace
-     (recv h)
-     (send (cat (exp (gen) y) (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-     (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
-    (absent (y h))
+     (recv (exp (gen) x))
+     (send (cat (exp (gen) y)
+		(enc (enc (exp (gen) y) (exp (gen) x) (privk b)) (exp (gen) (mul x y)))))
+     (recv (enc (enc (exp (gen) x) (exp (gen) y) (privk a)) (exp (gen) (mul x y)))))
+					;    (uniq-gen y)
+     (absent (y (exp (gen) x)))
     )
 )
 
 (defskeleton station-weak
-  (vars (a b name) (x expn))
+  (vars (a b name) (x rndx))
   (defstrand weak-init 3 (a a) (b b) (x x))
   (uniq-gen x)
   (non-orig (privk b) (privk a))
 )
 
 (defskeleton station-weak
-  (vars (a b name) (y expn))
+  (vars (a b name) (y rndx))
   (defstrand weak-resp 3 (a a) (b b) (y y))
   (uniq-gen y)
   (non-orig (privk a) (privk b))
diff --git a/tst/station.tst b/tst/station.tst
--- a/tst/station.tst
+++ b/tst/station.tst
@@ -1,5262 +1,980 @@
 (herald "Station-to-station protocol" (algebra diffie-hellman))
 
-(comment "CPSA 3.4.0")
-(comment "All input read from station.scm")
-
-(defprotocol station-to-station diffie-hellman
-  (defrole init
-    (vars (x expn) (h base) (a b name))
-    (trace (send (exp (gen) x))
-      (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-      (send (enc (enc (exp (gen) x) h (privk a)) (exp h x))))
-    (uniq-gen x))
-  (defrole resp
-    (vars (y expn) (h base) (a b name))
-    (trace (recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-      (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
-    (uniq-gen y)
-    (absent (y h))))
-
-(defskeleton station-to-station
-  (vars (a b name) (h base) (x expn))
-  (defstrand init 3 (a a) (b b) (h h) (x x))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (traces
-    ((send (exp (gen) x))
-      (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-      (send (enc (enc (exp (gen) x) h (privk a)) (exp h x)))))
-  (label 0)
-  (unrealized (0 1))
-  (origs)
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (1 1)) ((1 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x x-0)
-  (operation encryption-test (added-strand init 3)
-    (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-      (exp (gen) (mul x x-0))) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0))))))
-  (label 1)
-  (parent 0)
-  (unrealized (1 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b name) (x y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (operation encryption-test (added-strand resp 2)
-    (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-      (exp (gen) (mul x y))) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))))
-  (label 2)
-  (parent 0)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (x x) (h (exp (gen) y)))))
-  (origs))
-
-(defskeleton station-to-station
-  (vars (a b name) (h base) (x expn))
-  (defstrand init 3 (a a) (b b) (h h) (x x))
-  (deflistener (exp h x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation encryption-test (added-listener (exp h x))
-    (enc (enc h (exp (gen) x) (privk b)) (exp h x)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-      (send (enc (enc (exp (gen) x) h (privk a)) (exp h x))))
-    ((recv (exp h x)) (send (exp h x))))
-  (label 3)
-  (parent 0)
-  (unrealized (0 1) (1 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((1 0) (2 0)) ((1 2) (0 1)) ((2 1) (1 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x x-0)
-  (operation encryption-test (added-listener (exp (gen) (mul x x-0)))
-    (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-      (exp (gen) (mul x x-0))) (1 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0)))))
-  (label 4)
-  (parent 1)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b name) (x expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation nonce-test (contracted (h (exp (gen) (rec x)))) (gen)
-    (1 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) (rec x))
-          (enc (enc (exp (gen) (rec x)) (exp (gen) x) (privk b))
-            (gen))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) (rec x)) (privk a)) (gen))))
-    ((recv (gen)) (send (gen))))
-  (label 5)
-  (parent 3)
-  (unrealized (0 1))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b name) (x expn))
-  (defstrand init 3 (a a) (b b) (h (gen)) (x x))
-  (deflistener (exp (gen) x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation nonce-test (displaced 2 0 init 1) (exp (gen) x-0) (1 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (gen)
-          (enc (enc (gen) (exp (gen) x) (privk b)) (exp (gen) x))))
-      (send (enc (enc (exp (gen) x) (gen) (privk a)) (exp (gen) x))))
-    ((recv (exp (gen) x)) (send (exp (gen) x))))
-  (label 6)
-  (parent 3)
-  (unrealized (0 1))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) (mul (rec x) x-0))) (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 0) (1 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x x-0)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (1 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) (mul (rec x) x-0))
-          (enc
-            (enc (exp (gen) (mul (rec x) x-0)) (exp (gen) x) (privk b))
-            (exp (gen) x-0))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) x-0)) (privk a))
-          (exp (gen) x-0))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0))))
-  (label 7)
-  (parent 3)
-  (unrealized (0 1))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (h base) (x y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) (mul (rec x) y))) (x x))
-  (deflistener (exp (gen) y))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (1 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) (mul (rec x) y))
-          (enc (enc (exp (gen) (mul (rec x) y)) (exp (gen) x) (privk b))
-            (exp (gen) y))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) y)) (privk a))
-          (exp (gen) y)))) ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y))))))
-  (label 8)
-  (parent 3)
-  (unrealized (0 1))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b name) (h base) (x expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h h) (x x))
-  (deflistener (exp h x))
-  (deflistener (cat (exp h (mul x (rec w))) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (precur (2 0))
-  (operation nonce-test (added-listener (cat (exp h (mul x (rec w))) w))
-    (exp h x) (1 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-      (send (enc (enc (exp (gen) x) h (privk a)) (exp h x))))
-    ((recv (exp h x)) (send (exp h x)))
-    ((recv (cat (exp h (mul x (rec w))) w))
-      (send (cat (exp h (mul x (rec w))) w))))
-  (label 9)
-  (parent 3)
-  (unrealized (0 1) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) (mul x x-0 (rec w))) w))
-  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x x-0)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x x-0 (rec w))) w))
-    (exp (gen) (mul x x-0)) (2 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) (mul x x-0 (rec w))) w))
-      (send (cat (exp (gen) (mul x x-0 (rec w))) w))))
-  (label 10)
-  (parent 4)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b name) (x expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) (mul (rec x) w))) (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (precur (2 0))
-  (operation nonce-test (contracted (h (exp (gen) (mul (rec x) w))))
-    (gen) (2 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) (mul (rec x) w))
-          (enc (enc (exp (gen) (mul (rec x) w)) (exp (gen) x) (privk b))
-            (exp (gen) w))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) w)) (privk a))
-          (exp (gen) w)))) ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (gen) w)) (send (cat (gen) w))))
-  (label 11)
-  (parent 9)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b name) (w expr) (x expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (displaced 3 0 init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) w)
-          (enc (enc (exp (gen) w) (exp (gen) x) (privk b))
-            (exp (gen) (mul w x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) w) (privk a))
-          (exp (gen) (mul w x)))))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 12)
-  (parent 9)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b name) (x expn) (w expr) (x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) (mul (rec x) w x-0)))
-    (x x))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 0) (2 0)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) (mul (rec x) w x-0))
-          (enc
-            (enc (exp (gen) (mul (rec x) w x-0)) (exp (gen) x)
-              (privk b)) (exp (gen) (mul w x-0)))))
-      (send
-        (enc
-          (enc (exp (gen) x) (exp (gen) (mul (rec x) w x-0)) (privk a))
-          (exp (gen) (mul w x-0)))))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) (mul w x-0))))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0))))
-  (label 13)
-  (parent 9)
-  (unrealized (0 1))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (h base) (x expn) (w expr) (y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) (mul (rec x) w y))) (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (2 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) (mul (rec x) w y))
-          (enc
-            (enc (exp (gen) (mul (rec x) w y)) (exp (gen) x) (privk b))
-            (exp (gen) (mul w y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) w y)) (privk a))
-          (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y))))))
-  (label 14)
-  (parent 9)
-  (unrealized (0 1))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x x-0)
-  (precur (3 0))
-  (operation nonce-test (contracted (x-1 x) (x-2 x-0) (w (mul x x-0)))
-    (gen) (3 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0)))))
-  (label 15)
-  (parent 10)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x)) (x x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x))))
-  (label 16)
-  (parent 10)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x))))
-  (label 17)
-  (parent 10)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
-    ((3 1) (2 0)) ((4 0) (3 0)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (3 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 18)
-  (parent 10)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x x-0 y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x x-0 (rec y))))
-  (defstrand resp 2 (b b-1) (h h) (y y))
-  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
-    ((3 1) (2 0)) ((4 1) (3 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x x-0 y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (3 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul x x-0 (rec y))))
-      (send (cat (exp (gen) y) (mul x x-0 (rec y)))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-1)) (exp h y))))))
-  (label 19)
-  (parent 10)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (operation encryption-test (added-strand init 3)
-    (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0))))))
-  (label 20)
-  (parent 11)
-  (unrealized (1 0) (2 0) (3 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b name) (x y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (gen) (mul x y)))
-  (defstrand resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation encryption-test (added-strand resp 2)
-    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (gen) (mul x y))) (send (cat (gen) (mul x y))))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))))
-  (label 21)
-  (parent 11)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (operation encryption-test (added-strand init 3)
-    (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x) x-0)) (send (cat (exp (gen) x) x-0)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0))))))
-  (label 22)
-  (parent 12)
-  (unrealized (2 0) (3 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b name) (x y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x) y))
-  (defstrand resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation encryption-test (added-strand resp 2)
-    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y)))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))))
-  (label 23)
-  (parent 12)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (operation encryption-test (displaced 3 4 init 3)
-    (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0))))))
-  (label 24)
-  (parent 13)
-  (unrealized (2 0) (3 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-1)) (x x))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-  (defstrand init 1 (x x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (4 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation encryption-test (added-strand init 3)
-    (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-1)
-          (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-1)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-1) (privk a))
-          (exp (gen) (mul x x-1)))))
-    ((recv (exp (gen) (mul x x-1))) (send (exp (gen) (mul x x-1))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) x-1))))
-    ((send (exp (gen) x-0)))
-    ((send (exp (gen) x-1))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-1) (privk b-0))
-            (exp (gen) (mul x x-1)))))
-      (send
-        (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-1))))))
-  (label 25)
-  (parent 13)
-  (unrealized (1 0) (2 0) (4 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b name) (x x-0 y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-  (defstrand init 1 (x x-0))
-  (defstrand resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 0) (2 0))
-    ((4 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0 y)
-  (operation encryption-test (added-strand resp 2)
-    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) y))))
-    ((send (exp (gen) x-0)))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))))
-  (label 26)
-  (parent 13)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x y x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 2) (0 1)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y x-0)
-  (operation encryption-test (added-strand init 3)
-    (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) x-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0))))))
-  (label 27)
-  (parent 14)
-  (unrealized (1 0) (2 0) (4 1))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b name) (x y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation encryption-test (displaced 4 3 resp 2)
-    (enc (exp (gen) y-0) (exp (gen) x) (privk b-0)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x)))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))))
-  (label 28)
-  (parent 14)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (h base) (x y y-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y-0)) (x x))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) y-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand resp 2 (b b) (h (exp (gen) x)) (y y-0))
-  (precedes ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0))
-    ((4 1) (2 0)))
-  (absent (y-0 (exp (gen) x)) (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y y-0)
-  (operation encryption-test (added-strand resp 2)
-    (enc (exp (gen) y-0) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y-0) (privk a))
-          (exp (gen) (mul x y-0)))))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) y-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y-0)))))))
-  (label 29)
-  (parent 14)
-  (unrealized (1 0) (2 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((3 2) (0 1)) ((4 1) (3 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (operation encryption-test (added-listener (exp (gen) (mul x x-0)))
-    (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-      (exp (gen) (mul x x-0))) (3 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0)))))
-  (label 30)
-  (parent 20)
-  (unrealized (1 0) (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((3 2) (0 1)) ((4 1) (3 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (operation encryption-test (added-listener (exp (gen) (mul x x-0)))
-    (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-      (exp (gen) (mul x x-0))) (3 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x) x-0)) (send (cat (exp (gen) x) x-0)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0)))))
-  (label 31)
-  (parent 22)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (4 0)) ((3 2) (0 1)) ((4 1) (3 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0)
-  (operation encryption-test (added-listener (exp (gen) (mul x x-0)))
-    (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-      (exp (gen) (mul x x-0))) (3 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0)))))
-  (label 32)
-  (parent 24)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-1)) (x x))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-  (defstrand init 1 (x x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-1))
-  (deflistener (exp (gen) (mul x x-1)))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 0) (5 0)) ((4 2) (0 1))
-    ((5 1) (4 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation encryption-test (added-listener (exp (gen) (mul x x-1)))
-    (enc (enc (exp (gen) x) (exp (gen) x-1) (privk b-0))
-      (exp (gen) (mul x x-1))) (4 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-1)
-          (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-1)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-1) (privk a))
-          (exp (gen) (mul x x-1)))))
-    ((recv (exp (gen) (mul x x-1))) (send (exp (gen) (mul x x-1))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) x-1))))
-    ((send (exp (gen) x-0)))
-    ((send (exp (gen) x-1))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-1) (privk b-0))
-            (exp (gen) (mul x x-1)))))
-      (send
-        (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-1)))))
-    ((recv (exp (gen) (mul x x-1))) (send (exp (gen) (mul x x-1)))))
-  (label 33)
-  (parent 25)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x y x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 0) (5 0)) ((4 2) (0 1))
-    ((5 1) (4 1)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y x-0)
-  (operation encryption-test (added-listener (exp (gen) (mul x x-0)))
-    (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1))
-      (exp (gen) (mul x x-0))) (4 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) x-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0)))))
-  (label 34)
-  (parent 27)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) (mul x x-0 (rec w))) w))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x x-0 (rec w))) w))
-    (exp (gen) (mul x x-0)) (4 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) (mul x x-0 (rec w))) w))
-      (send (cat (exp (gen) (mul x x-0 (rec w))) w))))
-  (label 35)
-  (parent 30)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) (mul x x-0 (rec w))) w))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x x-0 (rec w))) w))
-    (exp (gen) (mul x x-0)) (4 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x) x-0)) (send (cat (exp (gen) x) x-0)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) (mul x x-0 (rec w))) w))
-      (send (cat (exp (gen) (mul x x-0 (rec w))) w))))
-  (label 36)
-  (parent 31)
-  (unrealized (2 0) (5 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) (mul x x-0 (rec w))) w))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x x-0 (rec w))) w))
-    (exp (gen) (mul x x-0)) (4 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) (mul x x-0 (rec w))) w))
-      (send (cat (exp (gen) (mul x x-0 (rec w))) w))))
-  (label 37)
-  (parent 32)
-  (unrealized (2 0) (5 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-1)) (x x))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-  (defstrand init 1 (x x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-1))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) (mul x x-1 (rec w))) w))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x x-1 (rec w))) w))
-    (exp (gen) (mul x x-1)) (5 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-1)
-          (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-1)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-1) (privk a))
-          (exp (gen) (mul x x-1)))))
-    ((recv (exp (gen) (mul x x-1))) (send (exp (gen) (mul x x-1))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) x-1))))
-    ((send (exp (gen) x-0)))
-    ((send (exp (gen) x-1))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-1) (privk b-0))
-            (exp (gen) (mul x x-1)))))
-      (send
-        (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-1)))))
-    ((recv (exp (gen) (mul x x-1))) (send (exp (gen) (mul x x-1))))
-    ((recv (cat (exp (gen) (mul x x-1 (rec w))) w))
-      (send (cat (exp (gen) (mul x x-1 (rec w))) w))))
-  (label 38)
-  (parent 33)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x y x-0 expn) (w expr))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) (mul x x-0 (rec w))) w))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x y x-0)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul x x-0 (rec w))) w))
-    (exp (gen) (mul x x-0)) (5 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) x-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) (mul x x-0 (rec w))) w))
-      (send (cat (exp (gen) (mul x x-0 (rec w))) w))))
-  (label 39)
-  (parent 34)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "6 in cohort - 6 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (contracted (x-1 x) (x-2 x-0) (w (mul x x-0)))
-    (gen) (5 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0)))))
-  (label 40)
-  (parent 35)
-  (unrealized (1 0) (2 0) (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-1) (5 0))
-  (traces
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0))))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x))))
-  (label 41)
-  (parent 35)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 6 3 init 1) (exp (gen) x-1) (5 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x))))
-  (label 42)
-  (parent 35)
-  (unrealized (1 0) (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)) ((6 0) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (5 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 43)
-  (parent 35)
-  (unrealized (1 0) (2 0) (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x x-0 y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x x-0 (rec y))))
-  (defstrand resp 2 (b b-1) (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0 y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (5 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul x x-0 (rec y))))
-      (send (cat (exp (gen) y) (mul x x-0 (rec y)))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-1)) (exp h y))))))
-  (label 44)
-  (parent 35)
-  (unrealized (1 0) (2 0) (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (contracted (x-1 x) (x-2 x-0) (w (mul x x-0)))
-    (gen) (5 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x) x-0)) (send (cat (exp (gen) x) x-0)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0)))))
-  (label 45)
-  (parent 36)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-1) (5 0))
-  (traces
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x)))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x))))
-  (label 46)
-  (parent 36)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 6 3 init 1) (exp (gen) x-1) (5 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x) x-0)) (send (cat (exp (gen) x) x-0)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x))))
-  (label 47)
-  (parent 36)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)) ((6 0) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (5 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x) x-0)) (send (cat (exp (gen) x) x-0)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 48)
-  (parent 36)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x x-0 y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x x-0 (rec y))))
-  (defstrand resp 2 (b b-1) (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0 y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (5 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x) x-0)) (send (cat (exp (gen) x) x-0)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul x x-0 (rec y))))
-      (send (cat (exp (gen) y) (mul x x-0 (rec y)))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-1)) (exp h y))))))
-  (label 49)
-  (parent 36)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (contracted (x-1 x) (x-2 x-0) (w (mul x x-0)))
-    (gen) (5 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0)))))
-  (label 50)
-  (parent 37)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 6 0 init 1) (exp (gen) x-1) (5 0))
-  (traces
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x) x-0)) (send (cat (exp (gen) x) x-0)))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x))))
-  (label 51)
-  (parent 37)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0)
-  (operation nonce-test (displaced 6 3 init 1) (exp (gen) x-1) (5 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x))))
-  (label 52)
-  (parent 37)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)) ((6 0) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (5 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 53)
-  (parent 37)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x x-0 y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x x-0 (rec y))))
-  (defstrand resp 2 (b b-1) (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (5 0)) ((3 2) (0 1)) ((4 1) (3 1))
-    ((5 1) (4 0)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x x-0 y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (5 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul x x-0 (rec y))))
-      (send (cat (exp (gen) y) (mul x x-0 (rec y)))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-1)) (exp h y))))))
-  (label 54)
-  (parent 37)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-1)) (x x-0))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) x-0 x-1)))
-  (defstrand init 1 (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x-1))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (gen) (mul x-0 x-1)))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test
-    (contracted (x-2 x-0) (x-3 x-1) (w (mul x-0 x-1))) (gen) (6 0))
-  (traces
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x-1)
-          (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b))
-            (exp (gen) (mul x-0 x-1)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk a))
-          (exp (gen) (mul x-0 x-1)))))
-    ((recv (exp (gen) (mul x-0 x-1))) (send (exp (gen) (mul x-0 x-1))))
-    ((recv (cat (exp (gen) x) (mul (rec x) x-0 x-1)))
-      (send (cat (exp (gen) x) (mul (rec x) x-0 x-1))))
-    ((send (exp (gen) x)))
-    ((send (exp (gen) x-1))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b-0))
-            (exp (gen) (mul x-0 x-1)))))
-      (send
-        (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b))
-          (exp (gen) (mul x-0 x-1)))))
-    ((recv (exp (gen) (mul x-0 x-1))) (send (exp (gen) (mul x-0 x-1))))
-    ((recv (cat (gen) (mul x-0 x-1))) (send (cat (gen) (mul x-0 x-1)))))
-  (label 55)
-  (parent 38)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x-1))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) x-0 x-1)))
-  (defstrand init 1 (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-1)) (x x-0))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x-1) x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-2) (6 0))
-  (traces
-    ((send (exp (gen) x-1))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b))
-            (exp (gen) (mul x-0 x-1)))))
-      (send
-        (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x-0 x-1)))))
-    ((recv (exp (gen) (mul x-0 x-1))) (send (exp (gen) (mul x-0 x-1))))
-    ((recv (cat (exp (gen) x) (mul (rec x) x-0 x-1)))
-      (send (cat (exp (gen) x) (mul (rec x) x-0 x-1))))
-    ((send (exp (gen) x)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x-1)
-          (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x-0 x-1)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b))
-          (exp (gen) (mul x-0 x-1)))))
-    ((recv (exp (gen) (mul x-0 x-1))) (send (exp (gen) (mul x-0 x-1))))
-    ((recv (cat (exp (gen) x-1) x-0)) (send (cat (exp (gen) x-1) x-0))))
-  (label 56)
-  (parent 38)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 0) (6 0)) ((4 0) (2 0)) ((4 0) (6 0))
-    ((4 2) (0 1)) ((5 1) (4 1)) ((6 1) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test (displaced 7 3 init 1) (exp (gen) x-2) (6 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))))
-    ((send (exp (gen) x-1)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))))
-  (label 57)
-  (parent 38)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-1)) (x x-0))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) x-0 x-1)))
-  (defstrand init 1 (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x-1))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x-1) x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 x-1)
-  (operation nonce-test (displaced 7 4 init 1) (exp (gen) x-2) (6 0))
-  (traces
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x-1)
-          (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b))
-            (exp (gen) (mul x-0 x-1)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk a))
-          (exp (gen) (mul x-0 x-1)))))
-    ((recv (exp (gen) (mul x-0 x-1))) (send (exp (gen) (mul x-0 x-1))))
-    ((recv (cat (exp (gen) x) (mul (rec x) x-0 x-1)))
-      (send (cat (exp (gen) x) (mul (rec x) x-0 x-1))))
-    ((send (exp (gen) x)))
-    ((send (exp (gen) x-1))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b-0))
-            (exp (gen) (mul x-0 x-1)))))
-      (send
-        (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b))
-          (exp (gen) (mul x-0 x-1)))))
-    ((recv (exp (gen) (mul x-0 x-1))) (send (exp (gen) (mul x-0 x-1))))
-    ((recv (cat (exp (gen) x-1) x-0)) (send (cat (exp (gen) x-1) x-0))))
-  (label 58)
-  (parent 38)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x x-0 x-1 x-2 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-1)) (x x-0))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) x-0 x-1)))
-  (defstrand init 1 (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x-1))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x-2) (mul x-0 x-1 (rec x-2))))
-  (defstrand init 1 (x x-2))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)) ((7 0) (6 0)))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 x-1 x-2)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-2) (6 0))
-  (traces
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x-1)
-          (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b))
-            (exp (gen) (mul x-0 x-1)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk a))
-          (exp (gen) (mul x-0 x-1)))))
-    ((recv (exp (gen) (mul x-0 x-1))) (send (exp (gen) (mul x-0 x-1))))
-    ((recv (cat (exp (gen) x) (mul (rec x) x-0 x-1)))
-      (send (cat (exp (gen) x) (mul (rec x) x-0 x-1))))
-    ((send (exp (gen) x)))
-    ((send (exp (gen) x-1))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b-0))
-            (exp (gen) (mul x-0 x-1)))))
-      (send
-        (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b))
-          (exp (gen) (mul x-0 x-1)))))
-    ((recv (exp (gen) (mul x-0 x-1))) (send (exp (gen) (mul x-0 x-1))))
-    ((recv (cat (exp (gen) x-2) (mul x-0 x-1 (rec x-2))))
-      (send (cat (exp (gen) x-2) (mul x-0 x-1 (rec x-2)))))
-    ((send (exp (gen) x-2))))
-  (label 59)
-  (parent 38)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x x-0 x-1 y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-1)) (x x-0))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) x) (mul (rec x) x-0 x-1)))
-  (defstrand init 1 (x x))
-  (defstrand init 3 (a b) (b b-0) (h (exp (gen) x-0)) (x x-1))
-  (deflistener (exp (gen) (mul x-0 x-1)))
-  (deflistener (cat (exp (gen) y) (mul x-0 x-1 (rec y))))
-  (defstrand resp 2 (b b-1) (h h) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)) ((7 1) (6 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 x-1 y)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (6 0))
-  (traces
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x-1)
-          (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b))
-            (exp (gen) (mul x-0 x-1)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk a))
-          (exp (gen) (mul x-0 x-1)))))
-    ((recv (exp (gen) (mul x-0 x-1))) (send (exp (gen) (mul x-0 x-1))))
-    ((recv (cat (exp (gen) x) (mul (rec x) x-0 x-1)))
-      (send (cat (exp (gen) x) (mul (rec x) x-0 x-1))))
-    ((send (exp (gen) x)))
-    ((send (exp (gen) x-1))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b-0))
-            (exp (gen) (mul x-0 x-1)))))
-      (send
-        (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b))
-          (exp (gen) (mul x-0 x-1)))))
-    ((recv (exp (gen) (mul x-0 x-1))) (send (exp (gen) (mul x-0 x-1))))
-    ((recv (cat (exp (gen) y) (mul x-0 x-1 (rec y))))
-      (send (cat (exp (gen) y) (mul x-0 x-1 (rec y)))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-1)) (exp h y))))))
-  (label 60)
-  (parent 38)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (y x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) x x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen y x x-0)
-  (operation nonce-test (contracted (x-1 x) (x-2 x-0) (w (mul x x-0)))
-    (gen) (6 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) x x-0)))
-      (send (cat (exp (gen) y) (mul (rec y) x x-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0)))))
-  (label 61)
-  (parent 39)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (y x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) x x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen y x x-0)
-  (operation nonce-test (displaced 7 0 init 1) (exp (gen) x-1) (6 0))
-  (traces
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) x x-0)))
-      (send (cat (exp (gen) y) (mul (rec y) x x-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-1))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x))))
-  (label 62)
-  (parent 39)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (y x x-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) x x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen y x x-0)
-  (operation nonce-test (displaced 7 4 init 1) (exp (gen) x-1) (6 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) x x-0)))
-      (send (cat (exp (gen) y) (mul (rec y) x x-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x))))
-  (label 63)
-  (parent 39)
-  (unrealized (1 0) (2 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (y x x-0 x-1 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) x x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-  (defstrand init 1 (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)) ((7 0) (6 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen y x x-0 x-1)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (6 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) x x-0)))
-      (send (cat (exp (gen) y) (mul (rec y) x x-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
-      (send (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))))
-    ((send (exp (gen) x-1))))
-  (label 64)
-  (parent 39)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (x x-0 y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x x-0 (rec y))))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x x-0 (rec y))))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((3 1) (6 0)) ((4 0) (2 0)) ((4 0) (6 0))
-    ((4 2) (0 1)) ((5 1) (4 1)) ((6 1) (5 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen x x-0 y)
-  (operation nonce-test (displaced 7 3 resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul x x-0 (rec y))))
-      (send (cat (exp (gen) y) (mul x x-0 (rec y)))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul x x-0 (rec y))))
-      (send (cat (exp (gen) y) (mul x x-0 (rec y))))))
-  (label 65)
-  (parent 39)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 b-2 name) (h h-0 base) (y x x-0 y-0 expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul (rec y) x x-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (defstrand init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y-0) (mul x x-0 (rec y-0))))
-  (defstrand resp 2 (b b-2) (h h-0) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 0) (2 0)) ((4 0) (6 0)) ((4 2) (0 1))
-    ((5 1) (4 1)) ((6 1) (5 0)) ((7 1) (6 0)))
-  (absent (y-0 h-0) (y h))
-  (non-orig (privk a) (privk b))
-  (precur (6 0) (2 0))
-  (uniq-gen y x x-0 y-0)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (6 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul (rec y) x x-0)))
-      (send (cat (exp (gen) y) (mul (rec y) x x-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y-0) (mul x x-0 (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul x x-0 (rec y-0)))))
-    ((recv h-0)
-      (send
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) h-0 (privk b-2)) (exp h-0 y-0))))))
-  (label 66)
-  (parent 39)
-  (unrealized (1 0) (2 0) (5 0) (6 0))
-  (comment "empty cohort"))
-
-(comment "Nothing left to do")
-
-(defprotocol station-to-station diffie-hellman
-  (defrole init
-    (vars (x expn) (h base) (a b name))
-    (trace (send (exp (gen) x))
-      (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-      (send (enc (enc (exp (gen) x) h (privk a)) (exp h x))))
-    (uniq-gen x))
-  (defrole resp
-    (vars (y expn) (h base) (a b name))
-    (trace (recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-      (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
-    (uniq-gen y)
-    (absent (y h))))
-
-(defskeleton station-to-station
-  (vars (a b name) (h base) (y expn))
-  (defstrand resp 3 (a a) (b b) (h h) (y y))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (traces
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-      (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y)))))
-  (label 67)
-  (unrealized (0 2))
-  (origs)
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (operation encryption-test (added-strand init 3)
-    (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-      (exp (gen) (mul y x))) (0 2))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x))))))
-  (label 68)
-  (parent 67)
-  (unrealized (1 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b name) (h base) (y expn))
-  (defstrand resp 3 (a a) (b b) (h h) (y y))
-  (deflistener (exp h y))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (operation encryption-test (added-listener (exp h y))
-    (enc (enc h (exp (gen) y) (privk a)) (exp h y)) (0 2))
-  (traces
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-      (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
-    ((recv (exp h y)) (send (exp h y))))
-  (label 69)
-  (parent 67)
-  (unrealized (0 2) (1 0))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b name) (x y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x y)
-  (operation encryption-test (displaced 2 0 resp 2)
-    (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-      (exp (gen) (mul x y))) (1 1))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y))))))
-  (label 70)
-  (parent 68)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (y y) (h (exp (gen) x)))))
-  (origs))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (precedes ((0 1) (2 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (operation encryption-test (added-listener (exp (gen) (mul y x)))
-    (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-      (exp (gen) (mul y x))) (1 1))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x)))))
-  (label 71)
-  (parent 68)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b name) (y expn))
-  (defstrand resp 3 (a a) (b b) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y (gen)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (operation nonce-test (displaced 2 0 resp 2) (exp (gen) y-0) (1 0))
-  (traces
-    ((recv (gen))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (gen) (privk b)) (exp (gen) y))))
-      (recv (enc (enc (gen) (exp (gen) y) (privk a)) (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y))))
-  (label 72)
-  (parent 69)
-  (unrealized (0 2))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b name) (h base) (y expn) (w expr))
-  (defstrand resp 3 (a a) (b b) (h h) (y y))
-  (deflistener (exp h y))
-  (deflistener (cat (exp h (mul y (rec w))) w))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (precur (2 0))
-  (operation nonce-test (added-listener (cat (exp h (mul y (rec w))) w))
-    (exp h y) (1 0))
-  (traces
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-      (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
-    ((recv (exp h y)) (send (exp h y)))
-    ((recv (cat (exp h (mul y (rec w))) w))
-      (send (cat (exp h (mul y (rec w))) w))))
-  (label 73)
-  (parent 69)
-  (unrealized (0 2) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn) (w expr))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) (mul y x (rec w))) w))
-  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (precur (3 0))
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y x (rec w))) w))
-    (exp (gen) (mul y x)) (2 0))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) (mul y x (rec w))) w))
-      (send (cat (exp (gen) (mul y x (rec w))) w))))
-  (label 74)
-  (parent 71)
-  (unrealized (3 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b name) (w expr) (y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))
-  (absent (y (exp (gen) w)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (precur (2 0))
-  (operation nonce-test
-    (contracted (y-0 y) (h (exp (gen) w)) (w (mul w y))) (gen) (2 0))
-  (traces
-    ((recv (exp (gen) w))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) w) (privk b))
-            (exp (gen) (mul w y)))))
-      (recv
-        (enc (enc (exp (gen) w) (exp (gen) y) (privk a))
-          (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
-  (label 75)
-  (parent 73)
-  (unrealized (0 2) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b name) (w expr) (x y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (exp (gen) (mul w x y)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (defstrand init 1 (x x))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (0 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation nonce-test (added-strand init 1) (exp (gen) x) (2 0))
-  (traces
-    ((recv (exp (gen) (mul w x)))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) (mul w x)) (privk b))
-            (exp (gen) (mul w x y)))))
-      (recv
-        (enc (enc (exp (gen) (mul w x)) (exp (gen) y) (privk a))
-          (exp (gen) (mul w x y)))))
-    ((recv (exp (gen) (mul w x y))) (send (exp (gen) (mul w x y))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))) ((send (exp (gen) x))))
-  (label 76)
-  (parent 73)
-  (unrealized (0 2) (1 0) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b name) (w expr) (y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))
-  (absent (y (exp (gen) w)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y)
-  (operation nonce-test (displaced 3 0 resp 2) (exp (gen) y-0) (2 0))
-  (traces
-    ((recv (exp (gen) w))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) w) (privk b))
-            (exp (gen) (mul w y)))))
-      (recv
-        (enc (enc (exp (gen) w) (exp (gen) y) (privk a))
-          (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 77)
-  (parent 73)
-  (unrealized (0 2))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (h base) (w expr) (y y-0 expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) (mul w y))) (y y-0))
-  (deflistener (exp (gen) (mul w y y-0)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (0 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w y))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y y-0)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y) (2 0))
-  (traces
-    ((recv (exp (gen) (mul w y)))
-      (send
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) (exp (gen) (mul w y)) (privk b))
-            (exp (gen) (mul w y y-0)))))
-      (recv
-        (enc (enc (exp (gen) (mul w y)) (exp (gen) y-0) (privk a))
-          (exp (gen) (mul w y y-0)))))
-    ((recv (exp (gen) (mul w y y-0))) (send (exp (gen) (mul w y y-0))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y))))))
-  (label 78)
-  (parent 73)
-  (unrealized (0 2) (1 0) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (gen) (mul y x)))
-  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y x)
-  (precur (3 0))
-  (operation nonce-test (contracted (y-0 y) (x-0 x) (w (mul y x))) (gen)
-    (3 0))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (gen) (mul y x))) (send (cat (gen) (mul y x)))))
-  (label 79)
-  (parent 74)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x) y))
-  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x)
-  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
-  (label 80)
-  (parent 74)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (y x x-0 expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
-    ((3 1) (2 0)) ((4 0) (3 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x x-0)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul y x (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 81)
-  (parent 74)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
-    ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen x y)
-  (operation nonce-test (displaced 4 0 resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
-  (label 82)
-  (parent 74)
-  (unrealized (3 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (y x y-0 expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y-0) (mul y x (rec y-0))))
-  (defstrand resp 2 (b b-1) (h h) (y y-0))
-  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
-    ((3 1) (2 0)) ((4 1) (3 0)))
-  (absent (y-0 h) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (3 0))
-  (uniq-gen y x y-0)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) y-0) (mul y x (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul y x (rec y-0)))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) h (privk b-1)) (exp h y-0))))))
-  (label 83)
-  (parent 74)
-  (unrealized (2 0) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b name) (w expr) (y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y (exp (gen) w)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (precur (2 0))
-  (operation nonce-test (added-listener y) (mul w y) (2 0))
-  (traces
-    ((recv (exp (gen) w))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) w) (privk b))
-            (exp (gen) (mul w y)))))
-      (recv
-        (enc (enc (exp (gen) w) (exp (gen) y) (privk a))
-          (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv y) (send y)))
-  (label 84)
-  (parent 75)
-  (unrealized (0 2) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b name) (w expr) (x y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (exp (gen) (mul w x y)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (defstrand init 1 (x x))
-  (deflistener y)
-  (precedes ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (0 0))
-    ((4 1) (2 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation nonce-test (added-listener y) (mul w y) (2 0))
-  (traces
-    ((recv (exp (gen) (mul w x)))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) (mul w x)) (privk b))
-            (exp (gen) (mul w x y)))))
-      (recv
-        (enc (enc (exp (gen) (mul w x)) (exp (gen) y) (privk a))
-          (exp (gen) (mul w x y)))))
-    ((recv (exp (gen) (mul w x y))) (send (exp (gen) (mul w x y))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))) ((send (exp (gen) x)))
-    ((recv y) (send y)))
-  (label 85)
-  (parent 76)
-  (unrealized (0 2) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (precedes ((0 1) (2 0)) ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y x)
-  (operation encryption-test (added-strand init 3)
-    (enc (exp (gen) x) (exp (gen) y) (privk a)) (0 2))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x)))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x))))))
-  (label 86)
-  (parent 77)
-  (unrealized (2 0) (3 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (h base) (w expr) (y y-0 expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) (mul w y))) (y y-0))
-  (deflistener (exp (gen) (mul w y y-0)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand resp 2 (b b-0) (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (0 0))
-    ((4 1) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w y))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y y-0)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (2 0))
-  (traces
-    ((recv (exp (gen) (mul w y)))
-      (send
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) (exp (gen) (mul w y)) (privk b))
-            (exp (gen) (mul w y y-0)))))
-      (recv
-        (enc (enc (exp (gen) (mul w y)) (exp (gen) y-0) (privk a))
-          (exp (gen) (mul w y y-0)))))
-    ((recv (exp (gen) (mul w y y-0))) (send (exp (gen) (mul w y y-0))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((recv y-0) (send y-0)))
-  (label 87)
-  (parent 78)
-  (unrealized (0 2) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b name) (x y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (precedes ((0 1) (2 0)) ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x y)
-  (operation encryption-test (displaced 4 0 resp 2)
-    (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-      (exp (gen) (mul x y))) (3 1))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x)))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y))))))
-  (label 88)
-  (parent 86)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (precedes ((0 1) (2 0)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)) ((4 1) (3 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y x)
-  (operation encryption-test (added-listener (exp (gen) (mul y x)))
-    (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-      (exp (gen) (mul y x))) (3 1))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x)))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x)))))
-  (label 89)
-  (parent 86)
-  (unrealized (2 0) (4 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn) (w expr))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) (mul y x (rec w))) w))
-  (precedes ((0 1) (2 0)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)) ((4 1) (3 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen y x)
-  (operation nonce-test
-    (added-listener (cat (exp (gen) (mul y x (rec w))) w))
-    (exp (gen) (mul y x)) (4 0))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x)))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) (mul y x (rec w))) w))
-      (send (cat (exp (gen) (mul y x (rec w))) w))))
-  (label 90)
-  (parent 89)
-  (unrealized (2 0) (5 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (gen) (mul y x)))
-  (precedes ((0 1) (2 0)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)) ((4 1) (3 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen y x)
-  (operation nonce-test (contracted (y-0 y) (x-0 x) (w (mul y x))) (gen)
-    (5 0))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x)))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (gen) (mul y x))) (send (cat (gen) (mul y x)))))
-  (label 91)
-  (parent 90)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x) y))
-  (precedes ((0 1) (2 0)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)) ((4 1) (3 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen y x)
-  (operation nonce-test (displaced 6 3 init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x)))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
-  (label 92)
-  (parent 90)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (y x x-0 expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) x-0) (mul y x (rec x-0))))
-  (defstrand init 1 (x x-0))
-  (precedes ((0 1) (2 0)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)) ((4 1) (3 1)) ((5 1) (4 0))
-    ((6 0) (5 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen y x x-0)
-  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (5 0))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x)))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) x-0) (mul y x (rec x-0))))
-      (send (cat (exp (gen) x-0) (mul y x (rec x-0)))))
-    ((send (exp (gen) x-0))))
-  (label 93)
-  (parent 90)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 name) (x y expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (precedes ((0 1) (2 0)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)) ((4 1) (3 1)) ((5 1) (4 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen x y)
-  (operation nonce-test (displaced 6 0 resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x)))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
-  (label 94)
-  (parent 90)
-  (unrealized (2 0) (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-to-station
-  (vars (a b b-0 b-1 name) (h base) (y x y-0 expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y-0) (mul y x (rec y-0))))
-  (defstrand resp 2 (b b-1) (h h) (y y-0))
-  (precedes ((0 1) (2 0)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 0) (0 0)) ((3 2) (0 2)) ((4 1) (3 1)) ((5 1) (4 0))
-    ((6 1) (5 0)))
-  (absent (y-0 h) (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (5 0) (2 0))
-  (uniq-gen y x y-0)
-  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (5 0))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x)))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) y-0) (mul y x (rec y-0))))
-      (send (cat (exp (gen) y-0) (mul y x (rec y-0)))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) h (privk b-1)) (exp h y-0))))))
-  (label 95)
-  (parent 90)
-  (unrealized (2 0) (4 0) (5 0))
-  (comment "empty cohort"))
-
-(comment "Nothing left to do")
-
-(defprotocol station-weak diffie-hellman
-  (defrole weak-init
-    (vars (x expn) (h base) (a b name))
-    (trace (send (exp (gen) x))
-      (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-      (send (enc (enc (exp (gen) x) h (privk a)) (exp h x)))))
-  (defrole weak-resp
-    (vars (y expn) (h base) (a b name))
-    (trace (recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-      (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
-    (absent (y h))))
-
-(defskeleton station-weak
-  (vars (a b name) (h base) (x expn))
-  (defstrand weak-init 3 (a a) (b b) (h h) (x x))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (traces
-    ((send (exp (gen) x))
-      (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-      (send (enc (enc (exp (gen) x) h (privk a)) (exp h x)))))
-  (label 96)
-  (unrealized (0 1))
-  (origs)
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (1 1)) ((1 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-init 3)
-    (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-      (exp (gen) (mul x x-0))) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0))))))
-  (label 97)
-  (parent 96)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (x x) (h (exp (gen) x-0)))))
-  (origs))
-
-(defskeleton station-weak
-  (vars (a b name) (x y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-resp 2)
-    (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-      (exp (gen) (mul x y))) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))))
-  (label 98)
-  (parent 96)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (x x) (h (exp (gen) y)))))
-  (origs))
-
-(defskeleton station-weak
-  (vars (a b name) (h base) (x expn))
-  (defstrand weak-init 3 (a a) (b b) (h h) (x x))
-  (deflistener (exp h x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation encryption-test (added-listener (exp h x))
-    (enc (enc h (exp (gen) x) (privk b)) (exp h x)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-      (send (enc (enc (exp (gen) x) h (privk a)) (exp h x))))
-    ((recv (exp h x)) (send (exp h x))))
-  (label 99)
-  (parent 96)
-  (unrealized (0 1) (1 0))
-  (comment "5 in cohort - 5 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (x expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) (rec x))) (x x))
-  (deflistener (gen))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation nonce-test (contracted (h (exp (gen) (rec x)))) (gen)
-    (1 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) (rec x))
-          (enc (enc (exp (gen) (rec x)) (exp (gen) x) (privk b))
-            (gen))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) (rec x)) (privk a)) (gen))))
-    ((recv (gen)) (send (gen))))
-  (label 100)
-  (parent 99)
-  (unrealized (0 1))
-  (comment "empty cohort"))
-
-(defskeleton station-weak
-  (vars (a b name) (x expn))
-  (defstrand weak-init 3 (a a) (b b) (h (gen)) (x x))
-  (deflistener (exp (gen) x))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation nonce-test (displaced 2 0 weak-init 1) (exp (gen) x-0)
-    (1 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (gen)
-          (enc (enc (gen) (exp (gen) x) (privk b)) (exp (gen) x))))
-      (send (enc (enc (exp (gen) x) (gen) (privk a)) (exp (gen) x))))
-    ((recv (exp (gen) x)) (send (exp (gen) x))))
-  (label 101)
-  (parent 99)
-  (unrealized (0 1))
-  (comment "empty cohort"))
-
-(defskeleton station-weak
-  (vars (a b name) (x x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) (mul (rec x) x-0)))
-    (x x))
-  (deflistener (exp (gen) x-0))
-  (defstrand weak-init 1 (x x-0))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 0) (1 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation nonce-test (added-strand weak-init 1) (exp (gen) x-0)
-    (1 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) (mul (rec x) x-0))
-          (enc
-            (enc (exp (gen) (mul (rec x) x-0)) (exp (gen) x) (privk b))
-            (exp (gen) x-0))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) x-0)) (privk a))
-          (exp (gen) x-0))))
-    ((recv (exp (gen) x-0)) (send (exp (gen) x-0)))
-    ((send (exp (gen) x-0))))
-  (label 102)
-  (parent 99)
-  (unrealized (0 1))
-  (comment "empty cohort"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (h base) (x y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) (mul (rec x) y)))
-    (x x))
-  (deflistener (exp (gen) y))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (operation nonce-test (added-strand weak-resp 2) (exp (gen) y) (1 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) (mul (rec x) y))
-          (enc (enc (exp (gen) (mul (rec x) y)) (exp (gen) x) (privk b))
-            (exp (gen) y))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) y)) (privk a))
-          (exp (gen) y)))) ((recv (exp (gen) y)) (send (exp (gen) y)))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y))))))
-  (label 103)
-  (parent 99)
-  (unrealized (0 1))
-  (comment "empty cohort"))
-
-(defskeleton station-weak
-  (vars (a b name) (h base) (x expn) (w expr))
-  (defstrand weak-init 3 (a a) (b b) (h h) (x x))
-  (deflistener (exp h x))
-  (deflistener (cat (exp h (mul x (rec w))) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (precur (2 0))
-  (operation nonce-test (added-listener (cat (exp h (mul x (rec w))) w))
-    (exp h x) (1 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-      (send (enc (enc (exp (gen) x) h (privk a)) (exp h x))))
-    ((recv (exp h x)) (send (exp h x)))
-    ((recv (cat (exp h (mul x (rec w))) w))
-      (send (cat (exp h (mul x (rec w))) w))))
-  (label 104)
-  (parent 99)
-  (unrealized (0 1) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (x expn) (w expr))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) (mul (rec x) w)))
-    (x x))
-  (deflistener (exp (gen) w))
-  (deflistener (cat (gen) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen x)
-  (precur (2 0))
-  (operation nonce-test (contracted (h (exp (gen) (mul (rec x) w))))
-    (gen) (2 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) (mul (rec x) w))
-          (enc (enc (exp (gen) (mul (rec x) w)) (exp (gen) x) (privk b))
-            (exp (gen) w))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) w)) (privk a))
-          (exp (gen) w)))) ((recv (exp (gen) w)) (send (exp (gen) w)))
-    ((recv (cat (gen) w)) (send (cat (gen) w))))
-  (label 105)
-  (parent 104)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (w expr) (x expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) w)) (x x))
-  (deflistener (exp (gen) (mul w x)))
-  (deflistener (cat (exp (gen) x) w))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (displaced 3 0 weak-init 1) (exp (gen) x-0)
-    (2 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) w)
-          (enc (enc (exp (gen) w) (exp (gen) x) (privk b))
-            (exp (gen) (mul w x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) w) (privk a))
-          (exp (gen) (mul w x)))))
-    ((recv (exp (gen) (mul w x))) (send (exp (gen) (mul w x))))
-    ((recv (cat (exp (gen) x) w)) (send (cat (exp (gen) x) w))))
-  (label 106)
-  (parent 104)
-  (unrealized (0 1))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (x expn) (w expr) (x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) (mul (rec x) w x-0)))
-    (x x))
-  (deflistener (exp (gen) (mul w x-0)))
-  (deflistener (cat (exp (gen) x-0) w))
-  (defstrand weak-init 1 (x x-0))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 0) (2 0)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-strand weak-init 1) (exp (gen) x-0)
-    (2 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) (mul (rec x) w x-0))
-          (enc
-            (enc (exp (gen) (mul (rec x) w x-0)) (exp (gen) x)
-              (privk b)) (exp (gen) (mul w x-0)))))
-      (send
-        (enc
-          (enc (exp (gen) x) (exp (gen) (mul (rec x) w x-0)) (privk a))
-          (exp (gen) (mul w x-0)))))
-    ((recv (exp (gen) (mul w x-0))) (send (exp (gen) (mul w x-0))))
-    ((recv (cat (exp (gen) x-0) w)) (send (cat (exp (gen) x-0) w)))
-    ((send (exp (gen) x-0))))
-  (label 107)
-  (parent 104)
-  (unrealized (0 1))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (h base) (x expn) (w expr) (y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) (mul (rec x) w y)))
-    (x x))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-strand weak-resp 2) (exp (gen) y) (2 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) (mul (rec x) w y))
-          (enc
-            (enc (exp (gen) (mul (rec x) w y)) (exp (gen) x) (privk b))
-            (exp (gen) (mul w y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) (mul (rec x) w y)) (privk a))
-          (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w)))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y))))))
-  (label 108)
-  (parent 104)
-  (unrealized (0 1))
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-init 3)
-    (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0))))))
-  (label 109)
-  (parent 105)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (x y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (gen) (mul x y)))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-resp 2)
-    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (gen) (mul x y))) (send (cat (gen) (mul x y))))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))))
-  (label 110)
-  (parent 105)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-init 3)
-    (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x) x-0)) (send (cat (exp (gen) x) x-0)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0))))))
-  (label 111)
-  (parent 106)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (x y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x) y))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-resp 2)
-    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y)))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))))
-  (label 112)
-  (parent 106)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) x-0) x))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (3 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((3 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (displaced 3 4 weak-init 3)
-    (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0))))))
-  (label 113)
-  (parent 107)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-1)) (x x))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-  (defstrand weak-init 1 (x x-0))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-1))
-  (precedes ((0 0) (2 0)) ((0 0) (4 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-init 3)
-    (enc (exp (gen) x-1) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-1)
-          (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-1)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-1) (privk a))
-          (exp (gen) (mul x x-1)))))
-    ((recv (exp (gen) (mul x x-1))) (send (exp (gen) (mul x x-1))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) x-1))))
-    ((send (exp (gen) x-0)))
-    ((send (exp (gen) x-1))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-1) (privk b-0))
-            (exp (gen) (mul x x-1)))))
-      (send
-        (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-1))))))
-  (label 114)
-  (parent 107)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (x x-0 y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-  (defstrand weak-init 1 (x x-0))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-resp 2)
-    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) y))))
-    ((send (exp (gen) x-0)))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))))
-  (label 115)
-  (parent 107)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b b-0 b-1 name) (h base) (x y x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) x-0)))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (defstrand weak-init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 1)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 2) (0 1)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-init 3)
-    (enc (exp (gen) x-0) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) x-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0))))))
-  (label 116)
-  (parent 108)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (x y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (displaced 4 3 weak-resp 2)
-    (enc (exp (gen) y-0) (exp (gen) x) (privk b-0)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x)))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))))
-  (label 117)
-  (parent 108)
-  (unrealized (2 0))
-  (comment "empty cohort"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (h base) (x y y-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y-0)) (x x))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) y-0)))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y-0))
-  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)))
-  (absent (y-0 (exp (gen) x)) (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation encryption-test (added-strand weak-resp 2)
-    (enc (exp (gen) y-0) (exp (gen) x) (privk b)) (0 1))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y-0) (privk a))
-          (exp (gen) (mul x y-0)))))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) y-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y-0)))))))
-  (label 118)
-  (parent 108)
-  (unrealized (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (gen) (mul x x-0)))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (deflistener x)
-  (precedes ((0 0) (3 1)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 2) (0 1)) ((4 1) (2 0)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-listener x) (mul x x-0) (2 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0))))) ((recv x) (send x)))
-  (label 119)
-  (parent 109)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton station-weak
-  (vars (a b name) (x y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (gen) (mul x y)))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (deflistener x)
-  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (0 1)) ((4 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-listener x) (mul x y) (2 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (gen) (mul x y))) (send (cat (gen) (mul x y))))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))) ((recv x) (send x)))
-  (label 120)
-  (parent 110)
-  (unrealized (4 0))
-  (comment "empty cohort"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (cat (exp (gen) x) x-0))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-0))
-  (precedes ((0 0) (1 0)) ((0 0) (2 1)) ((1 1) (0 1)) ((2 2) (0 1)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen x)
-  (operation generalization deleted (1 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (cat (exp (gen) x) x-0)) (send (cat (exp (gen) x) x-0)))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0))))))
-  (label 121)
-  (parent 111)
-  (seen 97)
-  (unrealized)
-  (comment "1 in cohort - 0 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (x y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (cat (exp (gen) x) y))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen x)
-  (operation generalization deleted (1 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y)))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))))
-  (label 122)
-  (parent 112)
-  (seen 98)
-  (unrealized)
-  (comment "1 in cohort - 0 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (x x-0 x-1 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-1)) (x x))
-  (deflistener (exp (gen) (mul x x-1)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-  (defstrand weak-init 1 (x x-0))
-  (defstrand weak-init 3 (a b) (b b-0) (h (exp (gen) x)) (x x-1))
-  (deflistener x)
-  (precedes ((0 0) (4 1)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 2) (0 1)) ((5 1) (2 0)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-listener x) (mul x (rec x-0) x-1) (2 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-1)
-          (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-1)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-1) (privk a))
-          (exp (gen) (mul x x-1)))))
-    ((recv (exp (gen) (mul x x-1))) (send (exp (gen) (mul x x-1))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) x-1)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) x-1))))
-    ((send (exp (gen) x-0)))
-    ((send (exp (gen) x-1))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-1) (privk b-0))
-            (exp (gen) (mul x x-1)))))
-      (send
-        (enc (enc (exp (gen) x-1) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-1))))) ((recv x) (send x)))
-  (label 123)
-  (parent 114)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-weak
-  (vars (a b name) (x x-0 y expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (deflistener (exp (gen) (mul x y)))
-  (deflistener (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-  (defstrand weak-init 1 (x x-0))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 0) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-listener x) (mul x (rec x-0) y) (2 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul x y)))))
-    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
-    ((recv (cat (exp (gen) x-0) (mul x (rec x-0) y)))
-      (send (cat (exp (gen) x-0) (mul x (rec x-0) y))))
-    ((send (exp (gen) x-0)))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y)))))) ((recv x) (send x)))
-  (label 124)
-  (parent 115)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-weak
-  (vars (a b b-0 b-1 name) (h base) (x y x-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) x-0)) (x x))
-  (deflistener (exp (gen) (mul x x-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) x-0)))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (defstrand weak-init 3 (a b) (b b-1) (h (exp (gen) x)) (x x-0))
-  (deflistener x)
-  (precedes ((0 0) (4 1)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 2) (0 1)) ((5 1) (2 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-listener x) (mul x (rec y) x-0) (2 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) x-0)
-          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
-          (exp (gen) (mul x x-0)))))
-    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) x-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) x-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((send (exp (gen) x-0))
-      (recv
-        (cat (exp (gen) x)
-          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-1))
-            (exp (gen) (mul x x-0)))))
-      (send
-        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
-          (exp (gen) (mul x x-0))))) ((recv x) (send x)))
-  (label 125)
-  (parent 116)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (h base) (x y y-0 expn))
-  (defstrand weak-init 3 (a a) (b b) (h (exp (gen) y-0)) (x x))
-  (deflistener (exp (gen) (mul x y-0)))
-  (deflistener (cat (exp (gen) y) (mul x (rec y) y-0)))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (defstrand weak-resp 2 (b b) (h (exp (gen) x)) (y y-0))
-  (deflistener x)
-  (precedes ((0 0) (4 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))
-    ((3 1) (2 0)) ((4 1) (0 1)) ((5 1) (2 0)))
-  (absent (y-0 (exp (gen) x)) (y h))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen x)
-  (operation nonce-test (added-listener x) (mul x (rec y) y-0) (2 0))
-  (traces
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y-0)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y-0) (privk a))
-          (exp (gen) (mul x y-0)))))
-    ((recv (exp (gen) (mul x y-0))) (send (exp (gen) (mul x y-0))))
-    ((recv (cat (exp (gen) y) (mul x (rec y) y-0)))
-      (send (cat (exp (gen) y) (mul x (rec y) y-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) (exp (gen) x) (privk b))
-            (exp (gen) (mul x y-0)))))) ((recv x) (send x)))
-  (label 126)
-  (parent 118)
-  (unrealized (5 0))
-  (comment "empty cohort"))
-
-(comment "Nothing left to do")
-
-(defprotocol station-weak diffie-hellman
-  (defrole weak-init
-    (vars (x expn) (h base) (a b name))
-    (trace (send (exp (gen) x))
-      (recv (cat h (enc (enc h (exp (gen) x) (privk b)) (exp h x))))
-      (send (enc (enc (exp (gen) x) h (privk a)) (exp h x)))))
-  (defrole weak-resp
-    (vars (y expn) (h base) (a b name))
-    (trace (recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-      (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
-    (absent (y h))))
-
-(defskeleton station-weak
-  (vars (a b name) (h base) (y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h h) (y y))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (traces
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-      (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y)))))
-  (label 127)
-  (unrealized (0 2))
-  (origs)
-  (comment "3 in cohort - 3 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (y x expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand weak-init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (precedes ((0 1) (1 1)) ((1 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (operation encryption-test (added-strand weak-init 3)
-    (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-      (exp (gen) (mul y x))) (0 2))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x))))))
-  (label 128)
-  (parent 127)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (y y) (h (exp (gen) x)))))
-  (origs))
-
-(defskeleton station-weak
-  (vars (a b name) (y y-0 expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) y-0)) (y y))
-  (defstrand weak-resp 2 (b a) (h (exp (gen) y)) (y y-0))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y-0 (exp (gen) y)) (y (exp (gen) y-0)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (operation encryption-test (added-strand weak-resp 2)
-    (enc (enc (exp (gen) y-0) (exp (gen) y) (privk a))
-      (exp (gen) (mul y y-0))) (0 2))
-  (traces
-    ((recv (exp (gen) y-0))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) y-0) (privk b))
-            (exp (gen) (mul y y-0)))))
-      (recv
-        (enc (enc (exp (gen) y-0) (exp (gen) y) (privk a))
-          (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) y))
-      (send
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) (exp (gen) y) (privk a))
-            (exp (gen) (mul y y-0)))))))
-  (label 129)
-  (parent 127)
-  (unrealized)
-  (shape)
-  (maps ((0) ((a a) (b b) (y y) (h (exp (gen) y-0)))))
-  (origs))
-
-(defskeleton station-weak
-  (vars (a b name) (h base) (y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h h) (y y))
-  (deflistener (exp h y))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (operation encryption-test (added-listener (exp h y))
-    (enc (enc h (exp (gen) y) (privk a)) (exp h y)) (0 2))
-  (traces
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-      (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
-    ((recv (exp h y)) (send (exp h y))))
-  (label 130)
-  (parent 127)
-  (unrealized (0 2) (1 0))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (gen)) (y y))
-  (deflistener (exp (gen) y))
-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
-  (absent (y (gen)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (operation nonce-test (displaced 2 0 weak-resp 2) (exp (gen) y-0)
-    (1 0))
-  (traces
-    ((recv (gen))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (gen) (privk b)) (exp (gen) y))))
-      (recv (enc (enc (gen) (exp (gen) y) (privk a)) (exp (gen) y))))
-    ((recv (exp (gen) y)) (send (exp (gen) y))))
-  (label 131)
-  (parent 130)
-  (unrealized (0 2))
-  (comment "empty cohort"))
-
-(defskeleton station-weak
-  (vars (a b name) (h base) (y expn) (w expr))
-  (defstrand weak-resp 3 (a a) (b b) (h h) (y y))
-  (deflistener (exp h y))
-  (deflistener (cat (exp h (mul y (rec w))) w))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))
-  (absent (y h))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (precur (2 0))
-  (operation nonce-test (added-listener (cat (exp h (mul y (rec w))) w))
-    (exp h y) (1 0))
-  (traces
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b)) (exp h y))))
-      (recv (enc (enc h (exp (gen) y) (privk a)) (exp h y))))
-    ((recv (exp h y)) (send (exp h y)))
-    ((recv (cat (exp h (mul y (rec w))) w))
-      (send (cat (exp h (mul y (rec w))) w))))
-  (label 132)
-  (parent 130)
-  (unrealized (0 2) (2 0))
-  (comment "4 in cohort - 4 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (w expr) (y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))
-  (absent (y (exp (gen) w)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (precur (2 0))
-  (operation nonce-test
-    (contracted (y-0 y) (h (exp (gen) w)) (w (mul w y))) (gen) (2 0))
-  (traces
-    ((recv (exp (gen) w))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) w) (privk b))
-            (exp (gen) (mul w y)))))
-      (recv
-        (enc (enc (exp (gen) w) (exp (gen) y) (privk a))
-          (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y)))))
-  (label 133)
-  (parent 132)
-  (unrealized (0 2) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (w expr) (x y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (exp (gen) (mul w x y)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (defstrand weak-init 1 (x x))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (2 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y)
-  (operation nonce-test (added-strand weak-init 1) (exp (gen) x) (2 0))
-  (traces
-    ((recv (exp (gen) (mul w x)))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) (mul w x)) (privk b))
-            (exp (gen) (mul w x y)))))
-      (recv
-        (enc (enc (exp (gen) (mul w x)) (exp (gen) y) (privk a))
-          (exp (gen) (mul w x y)))))
-    ((recv (exp (gen) (mul w x y))) (send (exp (gen) (mul w x y))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))) ((send (exp (gen) x))))
-  (label 134)
-  (parent 132)
-  (unrealized (0 2) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (w expr) (y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (exp (gen) y) w))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))
-  (absent (y (exp (gen) w)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y)
-  (operation nonce-test (displaced 3 0 weak-resp 2) (exp (gen) y-0)
-    (2 0))
-  (traces
-    ((recv (exp (gen) w))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) w) (privk b))
-            (exp (gen) (mul w y)))))
-      (recv
-        (enc (enc (exp (gen) w) (exp (gen) y) (privk a))
-          (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (exp (gen) y) w)) (send (cat (exp (gen) y) w))))
-  (label 135)
-  (parent 132)
-  (unrealized (0 2))
-  (comment "2 in cohort - 2 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (h base) (w expr) (y y-0 expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) (mul w y))) (y y-0))
-  (deflistener (exp (gen) (mul w y y-0)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w y))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y-0)
-  (operation nonce-test (added-strand weak-resp 2) (exp (gen) y) (2 0))
-  (traces
-    ((recv (exp (gen) (mul w y)))
-      (send
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) (exp (gen) (mul w y)) (privk b))
-            (exp (gen) (mul w y y-0)))))
-      (recv
-        (enc (enc (exp (gen) (mul w y)) (exp (gen) y-0) (privk a))
-          (exp (gen) (mul w y y-0)))))
-    ((recv (exp (gen) (mul w y y-0))) (send (exp (gen) (mul w y y-0))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y))))))
-  (label 136)
-  (parent 132)
-  (unrealized (0 2) (2 0))
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (w expr) (y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) w)) (y y))
-  (deflistener (exp (gen) (mul w y)))
-  (deflistener (cat (gen) (mul w y)))
-  (deflistener y)
-  (precedes ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (2 0)))
-  (absent (y (exp (gen) w)))
-  (non-orig (privk a) (privk b))
-  (uniq-gen y)
-  (precur (2 0))
-  (operation nonce-test (added-listener y) (mul w y) (2 0))
-  (traces
-    ((recv (exp (gen) w))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) w) (privk b))
-            (exp (gen) (mul w y)))))
-      (recv
-        (enc (enc (exp (gen) w) (exp (gen) y) (privk a))
-          (exp (gen) (mul w y)))))
-    ((recv (exp (gen) (mul w y))) (send (exp (gen) (mul w y))))
-    ((recv (cat (gen) (mul w y))) (send (cat (gen) (mul w y))))
-    ((recv y) (send y)))
-  (label 137)
-  (parent 133)
-  (unrealized (0 2) (3 0))
-  (comment "empty cohort"))
-
-(defskeleton station-weak
-  (vars (a b name) (w expr) (x y expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) (mul w x))) (y y))
-  (deflistener (exp (gen) (mul w x y)))
-  (deflistener (cat (exp (gen) x) (mul w y)))
-  (defstrand weak-init 1 (x x))
-  (deflistener y)
-  (precedes ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (2 0))
-    ((4 1) (2 0)))
-  (absent (y (exp (gen) (mul w x))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y)
-  (operation nonce-test (added-listener y) (mul w y) (2 0))
-  (traces
-    ((recv (exp (gen) (mul w x)))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) (mul w x)) (privk b))
-            (exp (gen) (mul w x y)))))
-      (recv
-        (enc (enc (exp (gen) (mul w x)) (exp (gen) y) (privk a))
-          (exp (gen) (mul w x y)))))
-    ((recv (exp (gen) (mul w x y))) (send (exp (gen) (mul w x y))))
-    ((recv (cat (exp (gen) x) (mul w y)))
-      (send (cat (exp (gen) x) (mul w y)))) ((send (exp (gen) x)))
-    ((recv y) (send y)))
-  (label 138)
-  (parent 134)
-  (unrealized (0 2) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (y x expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (exp (gen) (mul y x)))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand weak-init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (precedes ((0 1) (2 0)) ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y)
-  (operation encryption-test (added-strand weak-init 3)
-    (enc (exp (gen) x) (exp (gen) y) (privk a)) (0 2))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x)))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x))))))
-  (label 139)
-  (parent 135)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (y y-0 expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) y-0)) (y y))
-  (deflistener (exp (gen) (mul y y-0)))
-  (deflistener (cat (exp (gen) y) y-0))
-  (defstrand weak-resp 2 (b a) (h (exp (gen) y)) (y y-0))
-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))
-    ((3 1) (0 2)))
-  (absent (y-0 (exp (gen) y)) (y (exp (gen) y-0)))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y)
-  (operation encryption-test (added-strand weak-resp 2)
-    (enc (exp (gen) y-0) (exp (gen) y) (privk a)) (0 2))
-  (traces
-    ((recv (exp (gen) y-0))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) y-0) (privk b))
-            (exp (gen) (mul y y-0)))))
-      (recv
-        (enc (enc (exp (gen) y-0) (exp (gen) y) (privk a))
-          (exp (gen) (mul y y-0)))))
-    ((recv (exp (gen) (mul y y-0))) (send (exp (gen) (mul y y-0))))
-    ((recv (cat (exp (gen) y) y-0)) (send (cat (exp (gen) y) y-0)))
-    ((recv (exp (gen) y))
-      (send
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) (exp (gen) y) (privk a))
-            (exp (gen) (mul y y-0)))))))
-  (label 140)
-  (parent 135)
-  (unrealized)
-  (comment "1 in cohort - 1 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (h base) (w expr) (y y-0 expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) (mul w y))) (y y-0))
-  (deflistener (exp (gen) (mul w y y-0)))
-  (deflistener (cat (exp (gen) y) (mul w y-0)))
-  (defstrand weak-resp 2 (b b-0) (h h) (y y))
-  (deflistener y-0)
-  (precedes ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (2 0))
-    ((4 1) (2 0)))
-  (absent (y h) (y-0 (exp (gen) (mul w y))))
-  (non-orig (privk a) (privk b))
-  (precur (2 0))
-  (uniq-gen y-0)
-  (operation nonce-test (added-listener y-0) (mul w y-0) (2 0))
-  (traces
-    ((recv (exp (gen) (mul w y)))
-      (send
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) (exp (gen) (mul w y)) (privk b))
-            (exp (gen) (mul w y y-0)))))
-      (recv
-        (enc (enc (exp (gen) (mul w y)) (exp (gen) y-0) (privk a))
-          (exp (gen) (mul w y y-0)))))
-    ((recv (exp (gen) (mul w y y-0))) (send (exp (gen) (mul w y y-0))))
-    ((recv (cat (exp (gen) y) (mul w y-0)))
-      (send (cat (exp (gen) y) (mul w y-0))))
-    ((recv h)
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) h (privk b-0)) (exp h y)))))
-    ((recv y-0) (send y-0)))
-  (label 141)
-  (parent 136)
-  (unrealized (0 2) (4 0))
-  (comment "empty cohort"))
-
-(defskeleton station-weak
-  (vars (a b b-0 name) (y x expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (deflistener (cat (exp (gen) y) x))
-  (defstrand weak-init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
-  (precedes ((0 1) (1 0)) ((0 1) (2 1)) ((1 1) (0 2)) ((2 2) (0 2)))
-  (absent (y (exp (gen) x)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen y)
-  (operation generalization deleted (1 0))
-  (traces
-    ((recv (exp (gen) x))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
-            (exp (gen) (mul y x)))))
-      (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x)))))
-    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x)))
-    ((send (exp (gen) x))
-      (recv
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
-            (exp (gen) (mul y x)))))
-      (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
-          (exp (gen) (mul y x))))))
-  (label 142)
-  (parent 139)
-  (seen 128)
-  (unrealized)
-  (comment "1 in cohort - 0 not yet seen"))
-
-(defskeleton station-weak
-  (vars (a b name) (y y-0 expn))
-  (defstrand weak-resp 3 (a a) (b b) (h (exp (gen) y-0)) (y y))
-  (deflistener (cat (exp (gen) y) y-0))
-  (defstrand weak-resp 2 (b a) (h (exp (gen) y)) (y y-0))
-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))
-  (absent (y-0 (exp (gen) y)) (y (exp (gen) y-0)))
-  (non-orig (privk a) (privk b))
-  (precur (1 0))
-  (uniq-gen y)
-  (operation generalization deleted (1 0))
-  (traces
-    ((recv (exp (gen) y-0))
-      (send
-        (cat (exp (gen) y)
-          (enc (enc (exp (gen) y) (exp (gen) y-0) (privk b))
-            (exp (gen) (mul y y-0)))))
-      (recv
-        (enc (enc (exp (gen) y-0) (exp (gen) y) (privk a))
-          (exp (gen) (mul y y-0)))))
-    ((recv (cat (exp (gen) y) y-0)) (send (cat (exp (gen) y) y-0)))
-    ((recv (exp (gen) y))
-      (send
-        (cat (exp (gen) y-0)
-          (enc (enc (exp (gen) y-0) (exp (gen) y) (privk a))
-            (exp (gen) (mul y y-0)))))))
-  (label 143)
-  (parent 140)
-  (seen 129)
-  (unrealized)
-  (comment "1 in cohort - 0 not yet seen"))
+(comment "CPSA 3.5.0")
+(comment "All input read from station.scm")
+
+(defprotocol station-to-station diffie-hellman
+  (defrole init
+    (vars (x rndx) (y expt) (a b name))
+    (trace (send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    (uniq-gen x))
+  (defrole resp
+    (vars (y rndx) (x expt) (a b name))
+    (trace (recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x)))))
+    (uniq-gen y)
+    (absent (y (exp (gen) x)))))
+
+(defskeleton station-to-station
+  (vars (a b name) (x rndx) (y expt))
+  (defstrand init 3 (a a) (b b) (x x) (y y))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x)
+  (traces
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y))))))
+  (label 0)
+  (unrealized (0 1))
+  (origs)
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton station-to-station
+  (vars (a b b-0 name) (x x-0 rndx))
+  (defstrand init 3 (a a) (b b) (x x-0) (y x))
+  (defstrand init 3 (a b) (b b-0) (x x) (y x-0))
+  (precedes ((0 0) (1 1)) ((1 2) (0 1)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x x-0)
+  (operation encryption-test (added-strand init 3)
+    (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (0 1))
+  (traces
+    ((send (exp (gen) x-0))
+      (recv
+        (cat (exp (gen) x)
+          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a))
+          (exp (gen) (mul x x-0)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) x-0)
+          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
+          (exp (gen) (mul x x-0))))))
+  (label 1)
+  (parent 0)
+  (unrealized (1 1))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton station-to-station
+  (vars (a b name) (y x rndx))
+  (defstrand init 3 (a a) (b b) (x x) (y y))
+  (defstrand resp 2 (b b) (y y) (x x))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x)
+  (operation encryption-test (added-strand resp 2)
+    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
+  (traces
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x)))))
+    ((recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))))
+  (label 2)
+  (parent 0)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (x x) (y y))))
+  (origs))
+
+(defskeleton station-to-station
+  (vars (a b b-0 name) (x x-0 rndx))
+  (defstrand init 3 (a a) (b b) (x x-0) (y x))
+  (defstrand init 3 (a b) (b b-0) (x x) (y x-0))
+  (deflistener (exp (gen) (mul x x-0)))
+  (precedes ((0 0) (2 0)) ((1 0) (2 0)) ((1 2) (0 1)) ((2 1) (1 1)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x x-0)
+  (operation encryption-test (added-listener (exp (gen) (mul x x-0)))
+    (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0))
+      (exp (gen) (mul x x-0))) (1 1))
+  (traces
+    ((send (exp (gen) x-0))
+      (recv
+        (cat (exp (gen) x)
+          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a))
+          (exp (gen) (mul x x-0)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) x-0)
+          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
+          (exp (gen) (mul x x-0)))))
+    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0)))))
+  (label 3)
+  (parent 1)
+  (unrealized (2 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton station-to-station
+  (vars (a b b-0 name) (x x-0 rndx) (w expt))
+  (defstrand init 3 (a a) (b b) (x x-0) (y x))
+  (defstrand init 3 (a b) (b b-0) (x x) (y x-0))
+  (deflistener (exp (gen) (mul x x-0)))
+  (deflistener (cat (exp (gen) (mul x x-0 (rec w))) w))
+  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x x-0)
+  (precur (3 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul x x-0 (rec w))) w))
+    (exp (gen) (mul x x-0)) (2 0))
+  (traces
+    ((send (exp (gen) x-0))
+      (recv
+        (cat (exp (gen) x)
+          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a))
+          (exp (gen) (mul x x-0)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) x-0)
+          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
+          (exp (gen) (mul x x-0)))))
+    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
+    ((recv (cat (exp (gen) (mul x x-0 (rec w))) w))
+      (send (cat (exp (gen) (mul x x-0 (rec w))) w))))
+  (label 4)
+  (parent 3)
+  (unrealized (3 0))
+  (comment "5 in cohort - 5 not yet seen"))
+
+(defskeleton station-to-station
+  (vars (a b b-0 name) (x x-0 rndx))
+  (defstrand init 3 (a a) (b b) (x x-0) (y x))
+  (defstrand init 3 (a b) (b b-0) (x x) (y x-0))
+  (deflistener (exp (gen) (mul x x-0)))
+  (deflistener (cat (gen) (mul x x-0)))
+  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x x-0)
+  (precur (3 0))
+  (operation nonce-test (contracted (x-1 x) (x-2 x-0) (w (mul x x-0)))
+    (gen) (3 0))
+  (traces
+    ((send (exp (gen) x-0))
+      (recv
+        (cat (exp (gen) x)
+          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a))
+          (exp (gen) (mul x x-0)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) x-0)
+          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
+          (exp (gen) (mul x x-0)))))
+    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
+    ((recv (cat (gen) (mul x x-0))) (send (cat (gen) (mul x x-0)))))
+  (label 5)
+  (parent 4)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton station-to-station
+  (vars (a b b-0 name) (x x-0 rndx))
+  (defstrand init 3 (a a) (b b) (x x-0) (y x))
+  (defstrand init 3 (a b) (b b-0) (x x) (y x-0))
+  (deflistener (exp (gen) (mul x x-0)))
+  (deflistener (cat (exp (gen) x-0) x))
+  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x x-0)
+  (operation nonce-test (displaced 4 0 init 1) (exp (gen) x-1) (3 0))
+  (traces
+    ((send (exp (gen) x-0))
+      (recv
+        (cat (exp (gen) x)
+          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a))
+          (exp (gen) (mul x x-0)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) x-0)
+          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
+          (exp (gen) (mul x x-0)))))
+    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
+    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x))))
+  (label 6)
+  (parent 4)
+  (unrealized (3 0))
+  (comment "empty cohort"))
+
+(defskeleton station-to-station
+  (vars (a b b-0 name) (x x-0 rndx))
+  (defstrand init 3 (a a) (b b) (x x) (y x-0))
+  (defstrand init 3 (a b) (b b-0) (x x-0) (y x))
+  (deflistener (exp (gen) (mul x x-0)))
+  (deflistener (cat (exp (gen) x-0) x))
+  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x x-0)
+  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-1) (3 0))
+  (traces
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) x-0)
+          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk a))
+          (exp (gen) (mul x x-0)))))
+    ((send (exp (gen) x-0))
+      (recv
+        (cat (exp (gen) x)
+          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b-0))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b))
+          (exp (gen) (mul x x-0)))))
+    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
+    ((recv (cat (exp (gen) x-0) x)) (send (cat (exp (gen) x-0) x))))
+  (label 7)
+  (parent 4)
+  (unrealized (3 0))
+  (comment "empty cohort"))
+
+(defskeleton station-to-station
+  (vars (a b b-0 name) (x x-0 x-1 rndx))
+  (defstrand init 3 (a a) (b b) (x x-0) (y x))
+  (defstrand init 3 (a b) (b b-0) (x x) (y x-0))
+  (deflistener (exp (gen) (mul x x-0)))
+  (deflistener (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
+  (defstrand init 1 (x x-1))
+  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
+    ((3 1) (2 0)) ((4 0) (3 0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x x-0 x-1)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-1) (3 0))
+  (traces
+    ((send (exp (gen) x-0))
+      (recv
+        (cat (exp (gen) x)
+          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a))
+          (exp (gen) (mul x x-0)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) x-0)
+          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
+          (exp (gen) (mul x x-0)))))
+    ((recv (exp (gen) (mul x x-0))) (send (exp (gen) (mul x x-0))))
+    ((recv (cat (exp (gen) x-1) (mul x x-0 (rec x-1))))
+      (send (cat (exp (gen) x-1) (mul x x-0 (rec x-1)))))
+    ((send (exp (gen) x-1))))
+  (label 8)
+  (parent 4)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton station-to-station
+  (vars (a b b-0 b-1 name) (x expt) (x-0 x-1 y rndx))
+  (defstrand init 3 (a a) (b b) (x x-1) (y x-0))
+  (defstrand init 3 (a b) (b b-0) (x x-0) (y x-1))
+  (deflistener (exp (gen) (mul x-0 x-1)))
+  (deflistener (cat (exp (gen) y) (mul x-0 x-1 (rec y))))
+  (defstrand resp 2 (b b-1) (y y) (x x))
+  (precedes ((0 0) (3 0)) ((1 0) (3 0)) ((1 2) (0 1)) ((2 1) (1 1))
+    ((3 1) (2 0)) ((4 1) (3 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x-0 x-1 y)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y) (3 0))
+  (traces
+    ((send (exp (gen) x-1))
+      (recv
+        (cat (exp (gen) x-0)
+          (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b))
+            (exp (gen) (mul x-0 x-1)))))
+      (send
+        (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk a))
+          (exp (gen) (mul x-0 x-1)))))
+    ((send (exp (gen) x-0))
+      (recv
+        (cat (exp (gen) x-1)
+          (enc (enc (exp (gen) x-1) (exp (gen) x-0) (privk b-0))
+            (exp (gen) (mul x-0 x-1)))))
+      (send
+        (enc (enc (exp (gen) x-0) (exp (gen) x-1) (privk b))
+          (exp (gen) (mul x-0 x-1)))))
+    ((recv (exp (gen) (mul x-0 x-1))) (send (exp (gen) (mul x-0 x-1))))
+    ((recv (cat (exp (gen) y) (mul x-0 x-1 (rec y))))
+      (send (cat (exp (gen) y) (mul x-0 x-1 (rec y)))))
+    ((recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-1))
+            (exp (gen) (mul x y)))))))
+  (label 9)
+  (parent 4)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(comment "Nothing left to do")
+
+(defprotocol station-to-station diffie-hellman
+  (defrole init
+    (vars (x rndx) (y expt) (a b name))
+    (trace (send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    (uniq-gen x))
+  (defrole resp
+    (vars (y rndx) (x expt) (a b name))
+    (trace (recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x)))))
+    (uniq-gen y)
+    (absent (y (exp (gen) x)))))
+
+(defskeleton station-to-station
+  (vars (a b name) (y rndx) (x expt))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y)
+  (traces
+    ((recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x))))))
+  (label 10)
+  (unrealized (0 2))
+  (origs)
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton station-to-station
+  (vars (a b b-0 name) (x y rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
+  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (operation encryption-test (added-strand init 3)
+    (enc (exp (gen) x) (exp (gen) y) (privk a)) (0 2))
+  (traces
+    ((recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y))))))
+  (label 11)
+  (parent 10)
+  (unrealized (1 1))
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton station-to-station
+  (vars (a b name) (y x rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b) (x x) (y y))
+  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y x)
+  (operation encryption-test (displaced 2 0 resp 2)
+    (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
+      (exp (gen) (mul y x))) (1 1))
+  (traces
+    ((recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x))))))
+  (label 12)
+  (parent 11)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (y y) (x x))))
+  (origs))
+
+(defskeleton station-to-station
+  (vars (a b b-0 name) (x y rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (precedes ((0 1) (2 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (operation encryption-test (added-listener (exp (gen) (mul x y)))
+    (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
+      (exp (gen) (mul x y))) (1 1))
+  (traces
+    ((recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y)))))
+  (label 13)
+  (parent 11)
+  (unrealized (2 0))
+  (comment "1 in cohort - 1 not yet seen"))
+
+(defskeleton station-to-station
+  (vars (a b b-0 name) (x y rndx) (w expt))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) (mul x y (rec w))) w))
+  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (precur (3 0))
+  (operation nonce-test
+    (added-listener (cat (exp (gen) (mul x y (rec w))) w))
+    (exp (gen) (mul x y)) (2 0))
+  (traces
+    ((recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) (mul x y (rec w))) w))
+      (send (cat (exp (gen) (mul x y (rec w))) w))))
+  (label 14)
+  (parent 13)
+  (unrealized (3 0))
+  (comment "5 in cohort - 5 not yet seen"))
+
+(defskeleton station-to-station
+  (vars (a b b-0 name) (x y rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (gen) (mul x y)))
+  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x y)
+  (precur (3 0))
+  (operation nonce-test (contracted (x-0 x) (y-0 y) (w (mul x y))) (gen)
+    (3 0))
+  (traces
+    ((recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (gen) (mul x y))) (send (cat (gen) (mul x y)))))
+  (label 15)
+  (parent 14)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton station-to-station
+  (vars (a b b-0 name) (y x rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
+  (deflistener (exp (gen) (mul y x)))
+  (deflistener (cat (exp (gen) x) y))
+  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen y x)
+  (operation nonce-test (displaced 4 1 init 1) (exp (gen) x-0) (3 0))
+  (traces
+    ((recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
+            (exp (gen) (mul y x)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x)))))
+    ((recv (exp (gen) (mul y x))) (send (exp (gen) (mul y x))))
+    ((recv (cat (exp (gen) x) y)) (send (cat (exp (gen) x) y))))
+  (label 16)
+  (parent 14)
+  (unrealized (3 0))
+  (comment "empty cohort"))
+
+(defskeleton station-to-station
+  (vars (a b b-0 name) (x y x-0 rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) x-0) (mul x y (rec x-0))))
+  (defstrand init 1 (x x-0))
+  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
+    ((3 1) (2 0)) ((4 0) (3 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x y x-0)
+  (operation nonce-test (added-strand init 1) (exp (gen) x-0) (3 0))
+  (traces
+    ((recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) x-0) (mul x y (rec x-0))))
+      (send (cat (exp (gen) x-0) (mul x y (rec x-0)))))
+    ((send (exp (gen) x-0))))
+  (label 17)
+  (parent 14)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(defskeleton station-to-station
+  (vars (a b b-0 name) (x y rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
+  (deflistener (exp (gen) (mul x y)))
+  (deflistener (cat (exp (gen) y) x))
+  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
+    ((3 1) (2 0)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x y)
+  (operation nonce-test (displaced 4 0 resp 2) (exp (gen) y-0) (3 0))
+  (traces
+    ((recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    ((recv (exp (gen) (mul x y))) (send (exp (gen) (mul x y))))
+    ((recv (cat (exp (gen) y) x)) (send (cat (exp (gen) y) x))))
+  (label 18)
+  (parent 14)
+  (unrealized (3 0))
+  (comment "empty cohort"))
+
+(defskeleton station-to-station
+  (vars (a b b-0 b-1 name) (x expt) (x-0 y y-0 rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x-0))
+  (defstrand init 3 (a a) (b b-0) (x x-0) (y y))
+  (deflistener (exp (gen) (mul x-0 y)))
+  (deflistener (cat (exp (gen) y-0) (mul x-0 y (rec y-0))))
+  (defstrand resp 2 (b b-1) (y y-0) (x x))
+  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((1 2) (0 2)) ((2 1) (1 1))
+    ((3 1) (2 0)) ((4 1) (3 0)))
+  (absent (y-0 (exp (gen) x)) (y (exp (gen) x-0)))
+  (non-orig (privk a) (privk b))
+  (precur (3 0))
+  (uniq-gen x-0 y y-0)
+  (operation nonce-test (added-strand resp 2) (exp (gen) y-0) (3 0))
+  (traces
+    ((recv (exp (gen) x-0))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x-0) (privk b))
+            (exp (gen) (mul x-0 y)))))
+      (recv
+        (enc (enc (exp (gen) x-0) (exp (gen) y) (privk a))
+          (exp (gen) (mul x-0 y)))))
+    ((send (exp (gen) x-0))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x-0) (privk b-0))
+            (exp (gen) (mul x-0 y)))))
+      (send
+        (enc (enc (exp (gen) x-0) (exp (gen) y) (privk a))
+          (exp (gen) (mul x-0 y)))))
+    ((recv (exp (gen) (mul x-0 y))) (send (exp (gen) (mul x-0 y))))
+    ((recv (cat (exp (gen) y-0) (mul x-0 y (rec y-0))))
+      (send (cat (exp (gen) y-0) (mul x-0 y (rec y-0)))))
+    ((recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y-0)
+          (enc (enc (exp (gen) y-0) (exp (gen) x) (privk b-1))
+            (exp (gen) (mul x y-0)))))))
+  (label 19)
+  (parent 14)
+  (unrealized (2 0) (3 0))
+  (comment "empty cohort"))
+
+(comment "Nothing left to do")
+
+(defprotocol station-weak diffie-hellman
+  (defrole weak-init
+    (vars (x rndx) (y expt) (a b name))
+    (trace (send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y))))))
+  (defrole weak-resp
+    (vars (y rndx) (x expt) (a b name))
+    (trace (recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x)))))
+    (absent (y (exp (gen) x)))))
+
+(defskeleton station-weak
+  (vars (a b name) (x rndx) (y expt))
+  (defstrand weak-init 3 (a a) (b b) (x x) (y y))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x)
+  (traces
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y))))))
+  (label 20)
+  (unrealized (0 1))
+  (origs)
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton station-weak
+  (vars (a b b-0 name) (x x-0 rndx))
+  (defstrand weak-init 3 (a a) (b b) (x x-0) (y x))
+  (defstrand weak-init 3 (a b) (b b-0) (x x) (y x-0))
+  (precedes ((0 0) (1 1)) ((1 2) (0 1)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x-0)
+  (operation encryption-test (added-strand weak-init 3)
+    (enc (exp (gen) x) (exp (gen) x-0) (privk b)) (0 1))
+  (traces
+    ((send (exp (gen) x-0))
+      (recv
+        (cat (exp (gen) x)
+          (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x-0) (exp (gen) x) (privk a))
+          (exp (gen) (mul x x-0)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) x-0)
+          (enc (enc (exp (gen) x-0) (exp (gen) x) (privk b-0))
+            (exp (gen) (mul x x-0)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) x-0) (privk b))
+          (exp (gen) (mul x x-0))))))
+  (label 21)
+  (parent 20)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (x x-0) (y x))))
+  (origs))
+
+(defskeleton station-weak
+  (vars (a b name) (y x rndx))
+  (defstrand weak-init 3 (a a) (b b) (x x) (y y))
+  (defstrand weak-resp 2 (b b) (y y) (x x))
+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen x)
+  (operation encryption-test (added-strand weak-resp 2)
+    (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
+  (traces
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x)))))
+    ((recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))))
+  (label 22)
+  (parent 20)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (x x) (y y))))
+  (origs))
+
+(comment "Nothing left to do")
+
+(defprotocol station-weak diffie-hellman
+  (defrole weak-init
+    (vars (x rndx) (y expt) (a b name))
+    (trace (send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y))))))
+  (defrole weak-resp
+    (vars (y rndx) (x expt) (a b name))
+    (trace (recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x)))))
+    (absent (y (exp (gen) x)))))
+
+(defskeleton station-weak
+  (vars (a b name) (y rndx) (x expt))
+  (defstrand weak-resp 3 (a a) (b b) (y y) (x x))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y)
+  (traces
+    ((recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul y x)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul y x))))))
+  (label 23)
+  (unrealized (0 2))
+  (origs)
+  (comment "2 in cohort - 2 not yet seen"))
+
+(defskeleton station-weak
+  (vars (a b b-0 name) (x y rndx))
+  (defstrand weak-resp 3 (a a) (b b) (y y) (x x))
+  (defstrand weak-init 3 (a a) (b b-0) (x x) (y y))
+  (precedes ((0 1) (1 1)) ((1 2) (0 2)))
+  (absent (y (exp (gen) x)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y)
+  (operation encryption-test (added-strand weak-init 3)
+    (enc (exp (gen) x) (exp (gen) y) (privk a)) (0 2))
+  (traces
+    ((recv (exp (gen) x))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b))
+            (exp (gen) (mul x y)))))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y)))))
+    ((send (exp (gen) x))
+      (recv
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) x) (privk b-0))
+            (exp (gen) (mul x y)))))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (privk a))
+          (exp (gen) (mul x y))))))
+  (label 24)
+  (parent 23)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (y y) (x x))))
+  (origs))
+
+(defskeleton station-weak
+  (vars (a b name) (y y-0 rndx))
+  (defstrand weak-resp 3 (a a) (b b) (y y-0) (x y))
+  (defstrand weak-resp 2 (b a) (y y) (x y-0))
+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))
+  (absent (y (exp (gen) y-0)) (y-0 (exp (gen) y)))
+  (non-orig (privk a) (privk b))
+  (uniq-gen y-0)
+  (operation encryption-test (added-strand weak-resp 2)
+    (enc (exp (gen) y) (exp (gen) y-0) (privk a)) (0 2))
+  (traces
+    ((recv (exp (gen) y))
+      (send
+        (cat (exp (gen) y-0)
+          (enc (enc (exp (gen) y-0) (exp (gen) y) (privk b))
+            (exp (gen) (mul y y-0)))))
+      (recv
+        (enc (enc (exp (gen) y) (exp (gen) y-0) (privk a))
+          (exp (gen) (mul y y-0)))))
+    ((recv (exp (gen) y-0))
+      (send
+        (cat (exp (gen) y)
+          (enc (enc (exp (gen) y) (exp (gen) y-0) (privk a))
+            (exp (gen) (mul y y-0)))))))
+  (label 25)
+  (parent 23)
+  (unrealized)
+  (shape)
+  (maps ((0) ((a a) (b b) (y y-0) (x y))))
+  (origs))
 
 (comment "Nothing left to do")
diff --git a/tst/station2.scm b/tst/station2.scm
--- a/tst/station2.scm
+++ b/tst/station2.scm
@@ -4,18 +4,18 @@
 
 (defprotocol station-to-station diffie-hellman
   (defrole init
-    (vars (x expn) (h base) (a b name))
+    (vars (x rndx) (y expt) (a b name))
     (trace
      (send (exp (gen) x))
-     (recv (enc h (exp (gen) x) (privk b)))
-     (send (enc (enc (exp (gen) x) h (exp h x)) (privk a))))
+     (recv (enc (exp (gen) y) (exp (gen) x) (privk b)))
+     (send (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul y x))) (privk a))))
     (uniq-gen x))
   (defrole resp
-    (vars (y expn) (h base) (a b name))
+    (vars (y rndx) (x expt) (a b name))
     (trace
-     (recv h)
-     (send (enc (exp (gen) y) h (privk b)))
-     (recv (enc (enc h (exp (gen) y) (exp h y)) (privk a))))
+     (recv (exp (gen) x))
+     (send (enc (exp (gen) y) (exp (gen) x) (privk b)))
+     (recv (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul x y))) (privk a))))
     (uniq-gen y))
 )
 
diff --git a/tst/station2.tst b/tst/station2.tst
--- a/tst/station2.tst
+++ b/tst/station2.tst
@@ -1,49 +1,58 @@
 (herald "Station-to-station protocol" (algebra diffie-hellman))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from station2.scm")
 
 (defprotocol station-to-station diffie-hellman
   (defrole init
-    (vars (x expn) (h base) (a b name))
-    (trace (send (exp (gen) x)) (recv (enc h (exp (gen) x) (privk b)))
-      (send (enc (enc (exp (gen) x) h (exp h x)) (privk a))))
+    (vars (x rndx) (y expt) (a b name))
+    (trace (send (exp (gen) x))
+      (recv (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul x y)))
+          (privk a))))
     (uniq-gen x))
   (defrole resp
-    (vars (y expn) (h base) (a b name))
-    (trace (recv h) (send (enc (exp (gen) y) h (privk b)))
-      (recv (enc (enc h (exp (gen) y) (exp h y)) (privk a))))
+    (vars (y rndx) (x expt) (a b name))
+    (trace (recv (exp (gen) x))
+      (send (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul y x)))
+          (privk a))))
     (uniq-gen y)
-    (absent (y h))))
+    (absent (y (exp (gen) x)))))
 
 (defskeleton station-to-station
-  (vars (a b name) (h base) (x expn))
-  (defstrand init 3 (a a) (b b) (h h) (x x))
+  (vars (a b name) (x rndx) (y expt))
+  (defstrand init 3 (a a) (b b) (x x) (y y))
   (non-orig (privk a) (privk b))
   (uniq-gen x)
   (traces
-    ((send (exp (gen) x)) (recv (enc h (exp (gen) x) (privk b)))
-      (send (enc (enc (exp (gen) x) h (exp h x)) (privk a)))))
+    ((send (exp (gen) x))
+      (recv (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul x y)))
+          (privk a)))))
   (label 0)
   (unrealized (0 1))
   (origs)
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton station-to-station
-  (vars (a b name) (x y expn))
-  (defstrand init 3 (a a) (b b) (h (exp (gen) y)) (x x))
-  (defstrand resp 2 (b b) (h (exp (gen) x)) (y y))
+  (vars (a b name) (y x rndx))
+  (defstrand init 3 (a a) (b b) (x x) (y y))
+  (defstrand resp 2 (b b) (y y) (x x))
   (precedes ((0 0) (1 0)) ((1 1) (0 1)))
   (absent (y (exp (gen) x)))
   (non-orig (privk a) (privk b))
-  (uniq-gen x y)
+  (uniq-gen y x)
   (operation encryption-test (added-strand resp 2)
     (enc (exp (gen) y) (exp (gen) x) (privk b)) (0 1))
   (traces
     ((send (exp (gen) x))
       (recv (enc (exp (gen) y) (exp (gen) x) (privk b)))
       (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul x y)))
+        (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul y x)))
           (privk a))))
     ((recv (exp (gen) x))
       (send (enc (exp (gen) y) (exp (gen) x) (privk b)))))
@@ -51,65 +60,74 @@
   (parent 0)
   (unrealized)
   (shape)
-  (maps ((0) ((a a) (b b) (x x) (h (exp (gen) y)))))
+  (maps ((0) ((a a) (b b) (x x) (y y))))
   (origs))
 
 (comment "Nothing left to do")
 
 (defprotocol station-to-station diffie-hellman
   (defrole init
-    (vars (x expn) (h base) (a b name))
-    (trace (send (exp (gen) x)) (recv (enc h (exp (gen) x) (privk b)))
-      (send (enc (enc (exp (gen) x) h (exp h x)) (privk a))))
+    (vars (x rndx) (y expt) (a b name))
+    (trace (send (exp (gen) x))
+      (recv (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (send
+        (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul x y)))
+          (privk a))))
     (uniq-gen x))
   (defrole resp
-    (vars (y expn) (h base) (a b name))
-    (trace (recv h) (send (enc (exp (gen) y) h (privk b)))
-      (recv (enc (enc h (exp (gen) y) (exp h y)) (privk a))))
+    (vars (y rndx) (x expt) (a b name))
+    (trace (recv (exp (gen) x))
+      (send (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul y x)))
+          (privk a))))
     (uniq-gen y)
-    (absent (y h))))
+    (absent (y (exp (gen) x)))))
 
 (defskeleton station-to-station
-  (vars (a b name) (h base) (y expn))
-  (defstrand resp 3 (a a) (b b) (h h) (y y))
-  (absent (y h))
+  (vars (a b name) (y rndx) (x expt))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (absent (y (exp (gen) x)))
   (non-orig (privk a) (privk b))
   (uniq-gen y)
   (traces
-    ((recv h) (send (enc (exp (gen) y) h (privk b)))
-      (recv (enc (enc h (exp (gen) y) (exp h y)) (privk a)))))
+    ((recv (exp (gen) x))
+      (send (enc (exp (gen) y) (exp (gen) x) (privk b)))
+      (recv
+        (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul y x)))
+          (privk a)))))
   (label 2)
   (unrealized (0 2))
   (origs)
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton station-to-station
-  (vars (a b b-0 name) (y x expn))
-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))
-  (defstrand init 3 (a a) (b b-0) (h (exp (gen) y)) (x x))
+  (vars (a b b-0 name) (x y rndx))
+  (defstrand resp 3 (a a) (b b) (y y) (x x))
+  (defstrand init 3 (a a) (b b-0) (x x) (y y))
   (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))
   (absent (y (exp (gen) x)))
   (non-orig (privk a) (privk b))
-  (uniq-gen y x)
+  (uniq-gen x y)
   (operation encryption-test (added-strand init 3)
-    (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul y x)))
+    (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul x y)))
       (privk a)) (0 2))
   (traces
     ((recv (exp (gen) x))
       (send (enc (exp (gen) y) (exp (gen) x) (privk b)))
       (recv
-        (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul y x)))
+        (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul x y)))
           (privk a))))
     ((send (exp (gen) x))
       (recv (enc (exp (gen) y) (exp (gen) x) (privk b-0)))
       (send
-        (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul y x)))
+        (enc (enc (exp (gen) x) (exp (gen) y) (exp (gen) (mul x y)))
           (privk a)))))
   (label 3)
   (parent 2)
   (unrealized)
   (shape)
-  (maps ((0) ((a a) (b b) (y y) (h (exp (gen) x)))))
+  (maps ((0) ((a a) (b b) (y y) (x x))))
   (origs))
 
 (comment "Nothing left to do")
diff --git a/tst/subsort_test.tst b/tst/subsort_test.tst
--- a/tst/subsort_test.tst
+++ b/tst/subsort_test.tst
@@ -2,7 +2,7 @@
   (comment "First, third, and fourth skeletons should have a shape,"
     "second should be dead."))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from subsort_test.scm")
 
 (defprotocol subsorttest basic
diff --git a/tst/test_small.scm b/tst/test_small.scm
--- a/tst/test_small.scm
+++ b/tst/test_small.scm
@@ -4,7 +4,7 @@
 
 (defprotocol test diffie-hellman
   (defrole init
-    (vars (hr base) (a b name) (xi expn))
+    (vars (hr base) (a b name) (xi rndx))
     (trace
      (recv (enc hr (privk b)))
      (send (enc (hash (exp hr xi)) (exp (gen) xi) (privk a))))
@@ -12,7 +12,7 @@
 ;    (non-orig (privk b))
 )
   (defrole resp
-    (vars (xr expn) (a b name) (hi base))
+    (vars (xr rndx) (a b name) (hi base))
     (trace
      (send (enc (exp (gen) xr) (privk b)))
      (recv (enc (hash (exp hi xr)) hi (privk a))))
diff --git a/tst/test_small.tst b/tst/test_small.tst
--- a/tst/test_small.tst
+++ b/tst/test_small.tst
@@ -1,23 +1,23 @@
 (herald "small test" (algebra diffie-hellman))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from test_small.scm")
 
 (defprotocol test diffie-hellman
   (defrole init
-    (vars (hr base) (a b name) (xi expn))
+    (vars (hr base) (a b name) (xi rndx))
     (trace (recv (enc hr (privk b)))
       (send (enc (hash (exp hr xi)) (exp (gen) xi) (privk a))))
     (uniq-gen xi)
     (absent (xi hr)))
   (defrole resp
-    (vars (xr expn) (a b name) (hi base))
+    (vars (xr rndx) (a b name) (hi base))
     (trace (send (enc (exp (gen) xr) (privk b)))
       (recv (enc (hash (exp hi xr)) hi (privk a))))
     (uniq-gen xr)))
 
 (defskeleton test
-  (vars (a b name) (hi base) (xr expn))
+  (vars (a b name) (hi base) (xr rndx))
   (defstrand resp 2 (a a) (b b) (hi hi) (xr xr))
   (non-orig (privk a) (privk b))
   (uniq-gen xr)
@@ -30,7 +30,7 @@
   (comment "1 in cohort - 1 not yet seen"))
 
 (defskeleton test
-  (vars (a b b-0 name) (xr xi expn))
+  (vars (a b b-0 name) (xr xi rndx))
   (defstrand resp 2 (a a) (b b) (hi (exp (gen) xi)) (xr xr))
   (defstrand init 2 (a a) (b b-0) (hr (exp (gen) xr)) (xi xi))
   (precedes ((0 0) (1 0)) ((1 1) (0 1)))
diff --git a/tst/unilateral.tst b/tst/unilateral.tst
--- a/tst/unilateral.tst
+++ b/tst/unilateral.tst
@@ -1,6 +1,6 @@
 (herald unilateral)
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from unilateral.scm")
 
 (defprotocol unilateral basic
diff --git a/tst/uniq-gen-test.tst b/tst/uniq-gen-test.tst
--- a/tst/uniq-gen-test.tst
+++ b/tst/uniq-gen-test.tst
@@ -1,7 +1,7 @@
 (herald "Unique generation test protocols."
   (comment "Skeletons 2, 4, and 7 should have no shapes."))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from uniq-gen-test.scm")
 
 (defprotocol uniqgentest basic
diff --git a/tst/woolam.tst b/tst/woolam.tst
--- a/tst/woolam.tst
+++ b/tst/woolam.tst
@@ -1,6 +1,6 @@
 (herald "Woo-Lam Protocol")
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from woolam.scm")
 
 (defprotocol woolam basic
diff --git a/tst/wrap_decrypt.tst b/tst/wrap_decrypt.tst
--- a/tst/wrap_decrypt.tst
+++ b/tst/wrap_decrypt.tst
@@ -1,6 +1,6 @@
 (herald wrap-decrypt (bound 10))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from wrap_decrypt.lsp")
 (comment "Strand count bounded at 10")
 
diff --git a/tst/yahalom.tst b/tst/yahalom.tst
--- a/tst/yahalom.tst
+++ b/tst/yahalom.tst
@@ -1,7 +1,7 @@
 (herald "Yahalom Protocol with Forwarding Removed"
   (algebra diffie-hellman) (bound 12))
 
-(comment "CPSA 3.4.0")
+(comment "CPSA 3.5.0")
 (comment "All input read from yahalom.scm")
 
 (defprotocol yahalom diffie-hellman