packages feed

cpsa 2.3.0 → 2.3.1

raw patch · 102 files changed

+23011/−41204 lines, 102 files

Files

ChangeLog view
@@ -1,3 +1,54 @@+2013-10-11  John D. Ramsdell  <ramsdell@mitre.org>++	* src/CPSA/Lib/Cohort.hs (prioritizeVertices): Reversed the sort+	predicate so that high numbered priorities are considered first.++2013-10-09  John D. Ramsdell  <ramsdell@mitre.org>++	* tst/epmo_acctnum.lisp: Stopped running this example as part of+	the standard test suite because it now takes nearly 5000 steps.++	* src/CPSA/Lib/Algebra.hs: Removed moreGeneral because the mgs+	filter alleviates the need for this function.++2013-10-08  John D. Ramsdell  <ramsdell@mitre.org>++	* src/CPSA/Lib/{Strand.hs,Cohort.hs} (mgs): Replaced filters with+	a most general homomorphism filter.++2013-10-05  John D. Ramsdell  <ramsdell@mitre.org>++	* src/CPSA/Lib/Cohort.hs (mga): Added a most general augmentation+	filter as the MGU filter added to transformingNode did not remove+	enough.++2013-10-01  Moses D. Liskov  <mliskov@mitre.org>++	* src/CPSA/Lib/Cohort.hs (transformingNode): Applied the MGU+	filter to the result of just one carried binding, not all of them.++2013-10-01  John D. Ramsdell  <ramsdell@mitre.org>++	* cpsa.cabal (Extra-Source-Files): Deleted Diffie-Hellman tests as+	support for DH never worked.++2013-09-23  John D. Ramsdell  <ramsdell@mitre.org>++	* src/sexpr.pl: Reverted back to the case in which tags are+	encoded as SWI-Prolog strings.++2013-09-11  John D. Ramsdell  <ramsdell@mitre.org>++	* src/CPSA/Lib/Algebra.hs: Removed heldBy from the interface.++	* src/CPSA/*/*.hs: Removed contexts from all datatypes.  This+	language extension is deprecated and will soon be removed.++2013-09-09  John D. Ramsdell  <ramsdell@mitre.org>++	* src/CPSA/DiffieHellman/Algebra.hs (groupChase):  Add missing+	case of chasing though group variables.+ 2013-07-23  John D. Ramsdell  <ramsdell@mitre.org>          * cpsa.cabal (Version):  Tagged as version 2.3.0
NEWS view
@@ -1,5 +1,16 @@ CPSA NEWS -- history of user-visible changes. +* Changes in version 2.3.1++** Bug in priority ordering fixed.+   This version reverses the sort predicate so that high numbered+   priorities are considered first.  Nodes of priority zero will never+   be solved.++** This version fixes a bug in cohort filtering.+   There may be changes to your output as the fix often produces more+   skeletons.+ * Changes in version 2.3.0  ** Priorities for influencing search order added
cpsa.cabal view
@@ -1,5 +1,5 @@ Name:			cpsa-Version:		2.3.0+Version:		2.3.1 Maintainer:		ramsdell@mitre.org Cabal-Version:		>= 1.6 License:		BSD3@@ -54,12 +54,12 @@   doc/README doc/Makefile doc/macros.tex doc/cpsaprimer.tex   doc/bcasyntax.tex doc/cpsaintroslides.tex doc/mitreslides.sty   doc/cpsaspec.tex doc/cpsadesign.tex doc/cpsaoverview.tex-  doc/cpsadha.tex doc/cpsadiagrams.mp doc/strands.mp doc/cmstrands.mp+  doc/cpsadiagrams.mp doc/strands.mp doc/cmstrands.mp   doc/carriers.mp doc/termtree.mp doc/blanchet.mp doc/mitrelogo.mp   doc/cpsa.bib doc/SDAG.lhs   src/index.html src/cpsacgi src/cpsacgi.py src/cpsa2svg src/cpsa.el   src/httpd_allow_execmem.te src/cpsaperm.scm src/cpsaops.scm-  src/preskel src/cpsa.pl src/pp.pl src/sexpr.pl src/perm.pl+  src/preskel src/cpsa.pl src/unsorted.pl src/pp.pl src/sexpr.pl src/perm.pl   src/prover9.pl src/zoom.js src/js2hs src/ghcmemlimit build.xml   src/cpsaextras/Main.scala src/cpsaextras/Pretty.scala   src/cpsaextras/Printer.scala src/cpsaextras/SExpr.scala@@ -68,11 +68,11 @@   tst/completeness-test.scm tst/completeness-test.tst tst/crushing.tst   tst/crushing.tst tst/dass.lisp tst/dass-mod.lisp tst/dass_simple.scm   tst/dass_simple.tst tst/denning-sacco.scm tst/denning-sacco.tst-  tst/deorig_contract.scm tst/deorig_contract.tst tst/dhke.scm-  tst/dhke.tst tst/deorig_simple.scm tst/deorig_simple.tst+  tst/deorig_contract.scm tst/deorig_contract.tst+  tst/deorig_simple.scm tst/deorig_simple.tst   tst/ds-short.lisp tst/deorig_mesg.scm tst/deorig_mesg.tst tst/dy.lsp-  tst/dy.tst tst/encsig.scm tst/encsig.tst tst/epmo_acctnum.scm-  tst/epmo_acctnum.tst tst/epmo.scm tst/epmo.tst tst/ffgg.scm+  tst/dy.tst tst/encsig.scm tst/encsig.tst tst/epmo_acctnum.lisp+  tst/epmo.scm tst/epmo.tst tst/ffgg.scm   tst/ffgg.tst tst/fragile_pruning.scm tst/fragile_pruning.tst   tst/isoreject.scm tst/isoreject.tst tst/kelly1.scm tst/kelly1.tst   tst/kelly64.lisp tst/kerb5.lisp tst/kerberos.scm tst/kerberos.tst@@ -97,8 +97,7 @@   tst/wonthull2.scm tst/wonthull2.tst tst/wonthull3.scm   tst/wonthull3.tst tst/wonthull.scm tst/wonthull.tst tst/woolam.scm   tst/woolam.tst tst/yahalom-6.3.6.scm tst/yahalom-6.3.6.tst-  tst/yahalom.scm tst/yahalom.tst tst/tor.scm tst/tor.tst-  tst/dh_cert.scm tst/dh_cert.tst tst/epmo_acctnum-key-hash.scm+  tst/yahalom.scm tst/yahalom.tst tst/epmo_acctnum-key-hash.scm   tst/epmo_acctnum-key-hash.tst tst/epmo-key-hash.scm   tst/epmo-key-hash.tst tst/wang.lisp tst/pkinit.scm tst/pkinit.tst   tst/print.scm tst/print.tst tst/epmo-hash.scm tst/epmo-hash.tst
doc/cpsadesign.pdf view

binary file changed (275297 → 275306 bytes)

− doc/cpsadha.tex 
@@ -1,480 +0,0 @@-\documentclass[12pt]{article}-\usepackage{url}-\usepackage{amssymb}-\usepackage{amsmath}-\input{macros}--\title{Simple Diffie-Hellman Algebra}-\author{John D. Ramsdell\\-  The MITRE Corporation\\ CPSA Version \version}--\hyphenation{pre-skel-e-ton}-\hyphenation{pro-to-skel-e-ton}-\hyphenation{pro-to-role}--\newcommand{\sdha}{\textsc{sdha}}-\newcommand{\gen}{\ensuremath{\cn{g}}}-\newcommand{\svars}{\fn{Vars}}-\newcommand{\sdom}{\fn{Dom}}-\newcommand{\sran}{\fn{Ran}}-\newcommand{\alga}{\alg{A}}-\newcommand{\base}{\ensuremath{\mathfrak B}}-\newcommand{\carpos}{\fn{carpos}}-\newcommand{\tr}{\ensuremath{\mathfrak C}}-\newcommand{\evt}{\fn{evt}}-\newcommand{\mesg}{\fn{mesg}}-\newcommand{\role}{\mathsf{r}}-\newcommand{\rl}{\fn{rl}}-\newcommand{\skel}{\mathsf{k}}-\newcommand{\nodes}{\fn{nodes}}-\newcommand{\lsn}{\fn{lsn}}-\newcommand{\pubmsg}{\mathbf{P}}-\newcommand{\excl}{\mathbf{X}}-\newcommand{\transpred}{\mathbf{T}}-\newcommand{\init}{\fn{init}}-\newcommand{\resp}{\fn{resp}}--\begin{document}-\maketitle-\cpsacopying--\emph{The current attempts to support an algebra for Diffie-Hellman-  are experimental and they all known to have flaws.}--A natural way to model protocols that use Diffie-Hellman is with an-algebra that includes a sort for exponents, one with members that form-an Abelian group.  Implementation experiments have shown that it is-difficult to implement such an algebra within the current {\cpsa}-framework without significant revisions to {\cpsa}.--This paper describes a simple Diffie-Hellman algebra in which the-exponent is not an Abelian group.  Instead, the algebra only captures-the commutative law of exponents.  The algebra requires few changes to-the basic formalism used by {\cpsa}~\cite{cpsaspec09}.  An atom that-originates in a trace need not be carried as long as it is in an-exponent of something carried.  Similarly, in a skeleton, an atom-assumed to be uniquely originating need not be carried as long as it-is in an exponent of something carried. (See Section~\ref{sec:strand-  spaces}).--The trade-off for ease of implementation is a loss of coverage.-Protocols that make use of the associativity or the inverses of-exponents cannot be correctly analyzed using this algebra.  In-particular, group Diffie-Hellman protocols typically cannot be-handled.  {\cpsa} with the simple Diffie-Hellman algebra can analyze-restricted Diffie-Hellman protocols, such as the basic Diffie-Hellman-Key Exchange Protocol.  This protocol serves as an example in this-paper.--$$\begin{array}{r@{{}:{}}l}-A\to B&\enc{\mbox{``i''}, \gen^x}{a^{-1}}\\-B\to A&(\enc{\gen^y}{b^{-1}}, \enc{a, b}{\gen^{xy}})\\-A\to B&\enc{\mbox{``i''}, a, b}{\gen^{xy}}-\end{array}$$-Alice~($A$) freshly generates an exponent~$x$, signs the exponentiated-value with her private uncompromised asymmetric key $a^{-1}$, and-sends it to Bob~($B$).  Bob freshly generates an exponent~$y$, signs-the exponentiated value with his private uncompromised asymmetric key-$b^{-1}$, and sends it to Alice along with the public signing keys-encrypted with the newly generated symmetric key~$\gen^{xy}$.  Alice-confirms the symmetric key by signing the public keys too.  Alice-ensures her messages cannot be confused with Bob's by adding the tag-constant ``i'' within her signed data.--\begin{figure}-\begingroup\footnotesize-\begin{verbatim}-(herald "Diffie-Hellman Key Exchange" (algebra diffie-hellman))--(defprotocol dhke diffie-hellman-  (defrole init (vars (a b akey) (x y expn))-    (trace-     (send (enc "i" (exp (gen) x) (invk a)))-     (recv (cat (enc (exp (gen) y) (invk b))-                (enc a b (exp (exp (gen) y) x))))-     (send (enc "i" a b (exp (exp (gen) y) x))))-    (uniq-orig  x))-  (defrole resp (vars (a b akey) (x y expn))-    (trace-     (recv (enc "i" (exp (gen) x) (invk a)))-     (send (cat (enc (exp (gen) y) (invk b))-                (enc a b (exp (exp (gen) x) y))))-     (recv (enc "i" a b (exp (exp (gen) x) y))))-    (uniq-orig y)))--(defskeleton dhke (vars (a b akey))-  (defstrand resp 3 (a a) (b b))-  (non-orig (invk a) (invk b)))-- (defskeleton dhke (vars (a b akey))-   (defstrand init 2 (a a) (b b))-   (non-orig (invk a) (invk b)))-\end{verbatim}-\endgroup-\caption{Diffie-Hellman Key Exchange {\cpsa} Input}\label{fig:dhke}-\end{figure}--The protocol in {\cpsa} syntax is presented in Figure~\ref{fig:dhke}.-{\cpsa} concludes there is key agreement from the perspective of both-Alice and Bob using this input.  Notice that $\gen^{xy}$ is written-\texttt{(exp (exp (gen) x) y)}.  There is no multiplication is this-algebra, and $\gen^{xy}$ is more accurately written as $(\gen^x)^y$.--\section{Order-Sorted Message Algebra}\label{sec:order-sorted mesg algs}--{\cpsa} models a message as an equivalence class of terms over a-signature.  In particular, {\cpsa} uses order-sorted quotient term-algebras~\cite{GoguenMeseguer92} for message algebras.  This formalism-enables the use of well-known algorithms for unification and matching-in the presence of equations~\cite[Chapter~8]{RobinsonVoronkov01}-while providing a sort system for classifying messages.--{\cpsa} provides a Diffie-Hellman algebra that extends the Basic-Crypto Algebra with two new sorts, \texttt{base} and \texttt{expn},-and two new operations, \texttt{(gen)}, a constant of sort-\texttt{base} for exponentiation, and \texttt{(exp $G$ $X$)}, the-exponentiation operation~\cite{cpsauser09}.--\begin{figure}-$$\begin{array}{ll@{{}\colon{}}ll}-\mbox{Sorts:}&\multicolumn{3}{l}{\mbox{$\top$, \srt{D}, \srt{A}, \srt{S}, and \srt{E}}}\\-\mbox{Subsorts:}&\multicolumn{3}{l}{\mbox{$\srt{D}<\top$,-$\srt{A}<\top$, $\srt{S}<\top$, and $\srt{E}<\top$}}\\-\mbox{Base Sorts:}&\multicolumn{3}{l}{\mbox{\srt{D}, \srt{A}, and \srt{E} (\srt{S} and-$\top$ omitted)}}\\-\mbox{Operations:}&(\cdot,\cdot)&\top\times\top\to\top& \mbox{Pairing}\\-&\enc{\cdot}{(\cdot)}&\top\times\srt{S}\to\top& \mbox{Symmetric encryption}\\-&\enc{\cdot}{(\cdot)}&\top\times\srt{A}\to\top& \mbox{Asymmetric encryption}\\-&\mbox{``\ldots''}&\top&\mbox{Tag constants}\\-&(\cdot)^{-1}&\srt{S}\to\srt{S}& \mbox{Symmetric key inverse}\\-&(\cdot)^{-1}&\srt{A}\to\srt{A}& \mbox{Asymmetric key inverse}\\-&\gen&\srt{S}&\mbox{Generator}\\-&{(\cdot)}^{(\cdot)}&\srt{S}\times\srt{E}\to\srt{S}&\mbox{Exponentiation}\\-\mbox{Equations:}&\multicolumn{3}{l}{(a^{-1})^{-1}\approx a\qquad-  s^{-1}\approx s\qquad (h^x)^y\approx (h^y)^x}\\-&\multicolumn{3}{l}{\mbox{where $a\colon\srt{A}$, $s,h\colon\srt{S}$, and $x,y\colon\srt{E}$}}-\end{array}$$-\caption{Simple Diffie-Hellman Algebra Signature and-  Equations}\label{fig:dh signature}-\end{figure}--This paper presents a very simple message algebra for analyzing-protocols using Diffie-Hellman, called the Simple Diffie-Hellman-Algebra (\sdha), that suffices for this document.  There are five-{\sdha} sorts: $\top$, the sort of all messages, and sorts for-data~(\srt{D}), asymmetric keys~(\srt{A}), symmetric keys~(\srt{S}),-and exponents~(\srt{E}).  Every symmetric key is a message (written-$\srt{S}<\top$), and so forth for the other non-$\top$ sorts.  The-operations used to form terms are given by the signature in-Figure~\ref{fig:dh signature}.  Notice that the encryption and key-inverse operations are overloaded.--There are two equations in {\sdha} associated with key inverse.  For-asymmetric key $a\colon\srt{A}$, $(a^{-1})^{-1}\approx a$, and for-symmetric key $s\colon\srt{S}$, $s^{-1}\approx s$.  The equation for-exponentiation is $(h^x)^y\approx (h^y)^x$, where $h\colon\srt{S}$ and-$x,y\colon\srt{E}$.  Unification and matching in this algebra produce a-finite number of most general unifiers, that is, the unification type-is finitary.  For example, $\{x\mapsto u,y\mapsto v\}$ and $\{x\mapsto-\gen^v,u\mapsto \gen^y\}$ unify $x^y$ and $u^v$.  Unification is-finitary because of an approximation.  To unify $a^{xy}$ and~$b^{wz}$,-we unify $a^{xy}$ with~$\gen^{uv}$ and $\gen^{vu}$ with~$b^{wz}$,-where~$u$ and~$v$ are freshly generated variables.  In other words,-for the purpose of unification only, the equation for exponentiation-is $(\gen^x)^y\approx (\gen^y)^x$.  Expository Haskell code for-unification and matching with just the equation for exponentiation is-presented in Appendix~\ref{sec:haskell}.--Origination assumption in roles and skeletons can only be applied to a-subset of the messages of an algebra---the atoms.  In {\sdha},-asymmetric keys and exponents are atoms, but symmetric keys are not.-(Similarly, in the implemented Diffie-Hellman algebra, messages of-sort \texttt{base} are not atoms.)--A message~$t_0$ is \emph{carried by}~$t_1$, written $t_0\sqsubseteq-t_1$ if~$t_0$ can be derived from~$t_1$ given the right set of keys,-that is $\sqsubseteq$ is the smallest reflexive, transitive relation-such that $t_0\sqsubseteq t_0$, $t_0\sqsubseteq (t_0, t_1)$,-$t_1\sqsubseteq (t_0, t_1)$, and $t_0\sqsubseteq\enc{t_0}{t_1}$.--The introduction of the Diffie-Hellman algebra requires a new relation-on messages.  A message~$t_0$ is \emph{held by}~$t_1$, written-$t_0\preceq t_1$ iff $t_1$ carries $t_0$ or $t_1$ is in the exponent-of a carried term.  That is $\preceq$ is the smallest reflexive,-transitive relation such that $t_0\preceq t_0$, $t_0\preceq (t_0,-t_1)$, $t_1\preceq (t_0, t_1)$, $t_0\preceq\enc{t_0}{t_1}$,-$t_1\preceq t_0^{t_1}$.--\section{Strand Spaces}\label{sec:strand spaces}--A run of a protocol is viewed as an exchange of messages by a finite-set of local sessions of the protocol.  Each local session is called a-\emph{strand}~\cite{ThayerEtal99}.  The behavior of a strand, its-\emph{trace}, is a non-empty sequence of messaging events.  An-\emph{event} is either a message transmission or a reception.  In the-Basic Crypto Algebra, a message originates in a trace if it is carried-by some event and the first event in which it is carried is a-transmission.  For Diffie-Hellman, a message \emph{originates} in a-trace if it is held by some event and the first event in which it is-held is a transmission.--A similar change was made for skeletons.  An atom assumed to be-uniquely originating need only be held by some term within a skeleton,-it no longer must be carried.--\section{Derivable Messages}\label{sec:pen deriv mesgs}--Suppose~$T$ is a set of messages.  Let $\to$ be a reduction relation-on sets of messages defined as follows:-$$\begin{array}{r@{{}\to{}}ll}-\{(t_0,t_1)\}\cup T&\{t_0,t_1\}\cup T\\-\{\enc{t_0}{t_1}\}\cup T&\{t_0,\enc{t_0}{t_1}\}\cup T-&\mbox{if $t_1^{-1}\in D(T)$ and $t_0\notin T$}-\end{array}$$-The minimum decryption set~$M(T)$ is the normal form of relation~$\to$,-i.e.\ $T\to^\ast M(T)$ and there is no~$T'$ such that $M(T)\to T'$.--A message~$t$ is \emph{derivable} from~$T$, iff $t\in D(T)$, where-$$\begin{array}{r@{{}={}}l}-D^0&M(T)\\-D^{n+1}&\left\{\begin{array}{c@{{}\mid{}}l}-(x,y)&x,y\in D^n\\-\enc{x}{y}&x,y\in D^n,y\colon\srt{A}\lor y\colon\srt{S}\\-x^y& x,y\in D^n, x\colon\srt{S}, y\colon\srt{E}-\end{array}\right\}\\-D(T)&\bigcup_{n\in\nat}D^n-\end{array}$$--\section{Conclusion}--In this algebra, one cannot analyze group Diffie-Hellman protocols, as-they make use of the associativity of exponents.  On the other hand,-this algebra appears to allow the analysis of the basic Diffie-Hellman-Key Exchange.  In terms of implementation, allowances have to be made-for the fact that unification may produce more than one most general-unifier.--\bibliography{cpsa}-\bibliographystyle{plain}--\appendix--\section{Unification and Matching in Haskell}\label{sec:haskell}--\begingroup\footnotesize-\begin{verbatim}--- Unification and matching in a simple Diffie-Hellman algebra--module SimpleDiffieHellman where---- Equational unification and matching in an algebra with the--- following equation is used to analyze protocols that make use of--- the Diffie-Hellman problem.------      exp(exp(x, y), z) = exp(exp(x, z), y)------ The module shows how to perform the unification and matching.--import Char(isDigit, isAlpha)---- TERMS---- Variables are just integers so that it is easy to freshly generate--- them.--type Var = Int--data Term                       -- A term is-    = V Var                     -- a variable, or a-    | F String [Term]           -- function symbol and a list of terms---- Equality modulo the equation: exp(exp(x, y), z) = exp(exp(x, z), y).-instance Eq Term where-    (V x) == (V y) = x == y-    (F "exp" [F "exp" [x, y], z]) == (F "exp" [F "exp" [x', y'], z']) =-         x == x' && y == y' && z == z' ||-         x == x' && y == z' && z == y'-    (F sym ts) == (F sym' ts') = sym == sym' && ts == ts'-    _ == _ = False---- SUBSTITUTIONS---- A substitution is a map from variables to terms-type Subst = [(Var, Term)]---- Apply a substitution to a term-subst :: Subst -> Term -> Term-subst s (V x) =-    case chase s (V x) of-      V y -> V y-      t -> subst s t-subst s (F sym ts) =-    F sym (map (subst s) ts)---- A substitution may contain an equivalence class of variables.  The--- chase function finds the canonical representitive of the--- equivalence class.-chase :: Subst -> Term -> Term-chase s (V x) =-    case lookup x s of-      Nothing -> V x-      Just t -> chase s t-chase _ t = t---- UNIFICATION---- This is the entry point-unify :: Term -> Term -> [Subst]-unify t t' =-    unify0 t t' []---- Chase variables to start unifying two terms-unify0 :: Term -> Term -> Subst -> [Subst]-unify0 t t' s =-    unify1 (chase s t) (chase s t') s---- Unification by case analysis-unify1 :: Term -> Term -> Subst -> [Subst]-unify1 (V x) (V y) s            -- Unify two variables-    | x == y = [s]              -- Nothing to do-    | x < y = [(y, V x) : s]    -- Substitute larger variable-    | otherwise = [(x, V y) : s] -- in preference to a smaller one-unify1 (V x) t s-    | occurs x t = []           -- Fail when x is in t-    | otherwise = [(x, t) : s]-unify1 t t'@(V _) s =-    unify1 t' t s--- Unify using the Diffie-Hellman equation.--- To make unification tractable, one makes use of the equation--- exp(exp(gen(), x), y) = exp(exp(gen(), y), x).-unify1 (F "exp" ts@[u, v]) (F "exp" ts'@[u', v']) s =-    unifyList ts ts' s ++     -- Ordinary unification-    -- Add an instances of the equation, and unify on both sides-    do-      s' <- unifyList ts left s-      unifyList ts' right s'-    where-      -- Generate a fresh variable by looking at the variables in use-      var = nextVar ([u, v,  u', v'] ++ terms s) -- Include  substitution-      var' = var + 1                -- Generate another variable-      left = [F "exp" [F "gen" [], V var], V var'] -- One side of equation-      right = [F "exp" [F "gen" [], V var'], V var] -- And the other-unify1 (F sym ts) (F sym' ts') s -- Unify ordinary compound terms-    | sym /= sym' = []           -- Fail on symbol clash-    | otherwise = unifyList ts ts' s--unifyList :: [Term] -> [Term] -> Subst -> [Subst]-unifyList [] [] s = [s]-unifyList (t:ts) (t':ts') s =-    do-      s <- unify0 t t' s-      unifyList ts ts' s-unifyList _ _ _ = []---- Find next unused variable in a list of terms-nextVar :: [Term] -> Var-nextVar [] = 0-nextVar ts =-    maximum (map nextVariable ts)-    where-      nextVariable (V x) = x + 1-      nextVariable (F _ ts) = nextVar ts---- Returns the terms in a substitution.-terms :: Subst -> [Term]-terms s =-    [ t' |-      (x, t) <- s,-      t' <- [V x, t] ]---- Does variable x occur in term t?-occurs :: Var -> Term -> Bool-occurs x (V y) = x == y-occurs x (F _ ts) = any (occurs x) ts---- MATCHING---- This is the entry point-match :: Term -> Term -> [Subst]-match t t' =-    match0 t t' []---- Matching by case analysis-match0 :: Term -> Term -> Subst -> [Subst]-match0 (V x) t s =-    case lookup x s of-      Nothing -> [(x, t) : s]-      Just t' -> if t == t' then [s] else []--- Match using the Diffie-Hellman equation-match0 (F "exp" [x, y]) (F "exp" [F "exp" [x', y'], z']) s =-    matchList [x, y] [F "exp" [x', y'], z'] s ++-    matchList [x, y] [F "exp" [x', z'], y'] s-match0 (F sym ts) (F sym' ts') s-    | sym /= sym' = []-    | otherwise = matchList ts ts' s-match0 _ _ _ = []--matchList :: [Term] -> [Term] -> Subst -> [Subst]-matchList [] [] s = [s]-matchList (t:ts) (t':ts') s =-    do-      s <- match0 t t' s-      matchList ts ts' s-matchList _ _ _ = []---- TERM ORDERING--instance Ord Term where-    compare (V x) (V y) = compare x y-    compare (F "exp" [F "exp" [x, y], z])-            (F "exp" [F "exp" [x', y'], z']) =-        case (compare y z, compare y' z') of-          (GT, GT) -> compare [F "exp" [x, z], y] [F "exp" [x', z'], y']-          (GT, _) -> compare [F "exp" [x, z], y] [F "exp" [x', y'], z']-          (_, GT) -> compare [F "exp" [x, y], z] [F "exp" [x', z'], y']-          _ -> compare [F "exp" [x, y], z] [F "exp" [x', y'], z']-    compare (F sym ts) (F sym' ts') =-        case compare sym sym' of-          EQ -> compare ts ts'-          c -> c-    compare (V _) (F _ _) = LT-    compare (F _ _) (V _) = GT---- TERM INPUT--instance Read Term where-    readsPrec _ s =-        readTerm s-        where-          readTerm s =-              [(V $ read (c:cs), t) | (c:cs, t) <- lex s,-                                      isDigit c] ++-              [(F (c:cs) ts, v)     | (c:cs, t) <- lex s,-                                      isAlpha c,-                                      ("(", u) <- lex t,-                                      (ts, v) <- readArgs u]-          readArgs s =-              [([], t)              | (")", t) <- lex s] ++-              [(x:xs, u)            | (x, t) <- reads s,-                                      (xs, u) <- readRest t]-          readRest s =-              [([], t)              | (")", t) <- lex s] ++-              [(x:xs, v)            | (",", t) <- lex s,-                                      (x, u) <- reads t,-                                      (xs, v) <- readRest u]---- TERM OUTPUT--instance Show Term where-    showsPrec _ (V x) =-        shows x-    showsPrec _ (F sym ts) =-        showString sym . showChar '(' . showArgs ts-        where-          showArgs [] = showChar ')'-          showArgs (x:xs) = shows x . showRest xs-          showRest [] = showChar ')'-          showRest (x:xs) = showChar ',' . shows x . showRest xs-\end{verbatim}-\endgroup-\end{document}
doc/cpsaintroslides.pdf view

binary file changed (93151 → 93151 bytes)

doc/cpsaoverview.pdf view

binary file changed (129004 → 129004 bytes)

doc/cpsaprimer.pdf view

binary file changed (273712 → 273718 bytes)

doc/cpsaspec.pdf view

binary file changed (410817 → 411100 bytes)

doc/cpsaspec.tex view
@@ -1665,6 +1665,11 @@ $C=\seq{\inbnd t_1,\outbnd t_1}$. \end{defn} +For regular augmentation and displacement, {\cpsa} removes solutions+that lead to skeletons that are less general than other solutions,+that is, when there is a homomorphism from a solution to the omitted+solution.+ \begin{defn}[Cohort Member]\label{def:cohort member} For unrealized node~$n$ in a skeleton~$k_0$, and a position~$p$ at~$n$, $k_0\reduction{n,p}k_1$ asserts that $k_1$ is a member of the
doc/macros.tex view
@@ -1,5 +1,5 @@ \newcommand{\cpsa}{\textsc{cpsa}}-\newcommand{\version}{2.3.0}+\newcommand{\version}{2.3.1} \newcommand{\cpsacopying}{\begingroup   \renewcommand{\thefootnote}{}\footnotetext{{\copyright} 2010 The     MITRE Corporation.  Permission to copy without fee all or part of
src/CPSA/Annotations/Annotations.hs view
@@ -27,8 +27,7 @@ -- for processing preskeletons.  annotations :: (Algebra t p g s e c, Monad m) => String -> g ->-         [Prot t p g s e c] -> SExpr Pos ->-         m ([Prot t p g s e c], SExpr Pos)+         [Prot t g] -> SExpr Pos -> m ([Prot t g], SExpr Pos) annotations name origin ps x@(L pos (S _ "defprotocol" : xs)) =     do       p <- loadProt name origin pos xs@@ -43,25 +42,25 @@  -- The Prot record contains information extraced from protocols for -- use when processing preskeletons.-data Algebra t p g s e c => Prot t p g s e c = Prot+data Prot t g = Prot     { pname :: String,          -- Protocol name       gen :: g,                 -- Generator for preskeletons-      roles :: [Role t p g s e c] }+      roles :: [Role t] }     deriving Show  -- The Role record contains information extraced from roles for use -- when processing preskeletons.-data Algebra t p g s e c => Role t p g s e c = Role+data Role t = Role     { rname :: String,          -- Role name       vars :: [t],              -- Declared variables       prin :: t,                -- Principal-      forms :: [Formula t p g s e c] } -- Annotations+      forms :: [Formula t] }    -- Annotations     deriving Show  -- Load a protocol.  On success, returns a Prot record.  loadProt :: (Algebra t p g s e c, Monad m) => String -> g ->-            Pos -> [SExpr Pos] -> m (Prot t p g s e c)+            Pos -> [SExpr Pos] -> m (Prot t g) loadProt nom origin pos (S _ name : S _ alg : x : xs)     | alg /= nom =         fail (shows pos $ "Expecting terms in algebra " ++ nom)@@ -78,12 +77,12 @@ -- its roles.  loadRoles :: (Algebra t p g s e c, Monad m) => g ->-             [SExpr Pos] -> m (g, [Role t p g s e c])+             [SExpr Pos] -> m (g, [Role t]) loadRoles origin xs =     mapAccumLM loadRole origin xs  loadRole :: (Algebra t p g s e c, Monad m) => g ->-            SExpr Pos -> m (g, Role t p g s e c)+            SExpr Pos -> m (g, Role t) loadRole gen (L pos (S _ "defrole" :                      S _ name : 	             L _ (S _ "vars" : vars) :@@ -100,7 +99,7 @@     fail (shows (annotation x) "Malformed role")  loadFormulas :: (Algebra t p g s e c, Monad m) => Pos -> [t] -> Int ->-                g -> [SExpr Pos] -> m (g, t, [Formula t p g s e c])+                g -> [SExpr Pos] -> m (g, t, [Formula t]) loadFormulas pos vars len gen (x : xs) =     do       prin <- loadTerm vars x@@ -116,7 +115,7 @@     fail (shows pos "Role missing annotations")  loadIndexedFormula :: (Algebra t p g s e c, Monad m) => [t] -> Int ->-                      g -> SExpr Pos -> m (g, (Int, Formula t p g s e c))+                      g -> SExpr Pos -> m (g, (Int, Formula t)) loadIndexedFormula _ len _ (L _ [N pos i, _])     | i < 0 || i >= len = fail (shows pos "Bad index for formula") loadIndexedFormula vars _ gen (L _ [N _ i, form]) =@@ -128,7 +127,7 @@  -- Ensure there are no formulas with the same index checkIndices :: (Algebra t p g s e c, Monad m) => Pos ->-                [(Int, Formula t p g s e c)] -> m ()+                [(Int, Formula t)] -> m () checkIndices _ [] = return () checkIndices pos ((i, _) : alist)     | any ((== i) . fst) alist =@@ -137,10 +136,10 @@  -- Load a preskeleton -data Algebra t p g s e c => Instance t p g s e c = Instance+data Instance t e = Instance     -- Role from which this was instantiated (Nothing for listeners)     { pos :: Pos,               -- Instance position-      role :: Maybe (Role t p g s e c),+      role :: Maybe (Role t),       env :: e,                 -- The environment       height :: Int }           -- Height of the instance     deriving Show@@ -153,16 +152,16 @@  type Pair = (Node, Node)        -- Precedes relation -data Algebra t p g s e c => Preskel t p g s e c = Preskel-    { protocol :: Prot t p g s e c,-      insts :: [Instance t p g s e c],+data Preskel t g e = Preskel+    { protocol :: Prot t g,+      insts :: [Instance t e],       traces :: [Trace],       orderings :: [Pair] }  -- Find protocol and then load preskeleton. -- Remove any old annotations, and add new ones. findPreskel :: (Algebra t p g s e c, Monad m) => Pos ->-               [Prot t p g s e c] -> [SExpr Pos] -> m (SExpr Pos)+               [Prot t g] -> [SExpr Pos] -> m (SExpr Pos) findPreskel pos ps (S _ name : xs) =     case L.find (\p -> name == pname p) ps of       Nothing -> fail (shows pos $ "Protocol " ++ name ++ " unknown")@@ -173,7 +172,7 @@ findPreskel pos _ _ = fail (shows pos "Malformed skeleton")  updatePreskel :: (Algebra t p g s e c, Monad m) => Pos ->-                 Prot t p g s e c -> [SExpr Pos] -> m [SExpr Pos]+                 Prot t g -> [SExpr Pos] -> m [SExpr Pos] updatePreskel pos prot (vs@(L _ (S _ "vars" : vars)) : xs)     | not (realized xs) || not (hasKey tracesKey xs) =         return (vs : xs)        -- Don't annotate@@ -193,8 +192,8 @@ realized xs =     null (assoc "unrealized" xs) && hasKey "unrealized" xs -loadPreskel :: (Algebra t p g s e c, Monad m) => Prot t p g s e c ->-               g -> [t] -> [SExpr Pos] -> m (Preskel t p g s e c)+loadPreskel :: (Algebra t p g s e c, Monad m) => Prot t g ->+               g -> [t] -> [SExpr Pos] -> m (Preskel t g e) loadPreskel prot gen kvars xs =     do       traces <- mapM loadTrace (assoc tracesKey xs)@@ -206,9 +205,9 @@                         traces = traces,                         orderings = orderings }) -loadInsts :: (Algebra t p g s e c, Monad m) => Prot t p g s e c ->-             g -> [t] -> [Instance t p g s e c] -> [SExpr Pos] ->-             m [Instance t p g s e c]+loadInsts :: (Algebra t p g s e c, Monad m) => Prot t g ->+             g -> [t] -> [Instance t e] -> [SExpr Pos] ->+             m [Instance t e] loadInsts prot gen kvars insts (L pos (S _ "defstrand" : x) : xs) =     case x of       S _ role : N _ height : env ->@@ -229,9 +228,9 @@ loadInsts _ _ _ insts _ =     return (reverse insts) -loadInst :: (Algebra t p g s e c, Monad m) => Pos -> Prot t p g s e c ->+loadInst :: (Algebra t p g s e c, Monad m) => Pos -> Prot t g ->             g -> [t] -> String -> Int -> [SExpr Pos] ->-            m (g, Instance t p g s e c)+            m (g, Instance t e) loadInst pos prot gen kvars role height env =     do       r <- lookupRole pos prot role@@ -243,7 +242,7 @@                                env = env, height = height })  lookupRole :: (Algebra t p g s e c, Monad m) => Pos ->-              Prot t p g s e c -> String -> m (Role t p g s e c)+              Prot t g -> String -> m (Role t) lookupRole pos prot role =     case L.find (\r -> role == rname r) (roles prot) of       Nothing ->@@ -314,11 +313,11 @@  -- Formula instantiation -type Annotations t p g s e c = Maybe (t, [Formula t p g s e c])+type Annotations t = Maybe (t, [Formula t])  -- Construct the annotations for an instance instAnnos :: (Algebra t p g s e c, Monad m) =>-             Instance t p g s e c -> m (Annotations t p g s e c)+             Instance t e -> m (Annotations t) -- A listener has no annotations instAnnos (Instance { role = Nothing }) = return Nothing instAnnos i@(Instance { pos = pos, role = Just r }) =@@ -351,7 +350,7 @@  -- Instantiate formula and ensure all the free variables have been mapped. transForm :: (Algebra t p g s e c, Monad m) => Pos -> [t] -> e ->-             Formula t p g s e c -> m (Formula t p g s e c)+             Formula t -> m (Formula t) transForm pos vars env f =     let f' = finstantiate env f in     case L.find (flip S.member (freeVars f')) vars of@@ -361,7 +360,7 @@                showsTerm vars var " is not mapped in a formula"  displayAnnos :: Algebra t p g s e c => [t] ->-                [Annotations t p g s e c] -> SExpr ()+                [Annotations t] -> SExpr () displayAnnos vars annos =     L () (S () annotationsKey : table)     where@@ -419,7 +418,7 @@     [((s, p), (s, p + 1)) | (s, n) <- zip [0..] strands, p <- nats (n - 1)]  before :: (Algebra t p g s e c, Monad m) => Pos ->-          Preskel t p g s e c -> m [(Node, [Node])]+          Preskel t g e -> m [(Node, [Node])] before pos k =     case isAcyclic graph nodes of       False -> fail (shows pos "Cycle found")@@ -439,11 +438,10 @@       node n = (n, L.sort (depends n))       depends n = [ n0 | (n0, n1) <- precedes, n == n1 ] -type Obligation t p g s e c = (Node, t, Formula t p g s e c)+type Obligation t = (Node, t, Formula t)  obligations :: (Algebra t p g s e c, Monad m) => Pos ->-               Preskel t p g s e c -> [Annotations t p g s e c] ->-               m [Obligation t p g s e c]+               Preskel t g e -> [Annotations t] -> m [Obligation t] obligations pos k annos =     do       depends <- before pos k@@ -451,8 +449,8 @@       -- filter out trivial obligations       return [ obl | Just obl@(_, _, f) <- obls, not (truth f) ] -obligation :: Algebra t p g s e c => [Annotations t p g s e c] ->-              (Node, [Node]) -> Maybe (Obligation t p g s e c)+obligation :: Algebra t p g s e c => [Annotations t] ->+              (Node, [Node]) -> Maybe (Obligation t) obligation annos (n@(s, p), ns) =     do       (t, fs) <- annos !! s                      -- t relies on (fs !! p)@@ -462,13 +460,11 @@                    let f = fs !! p ]               -- f is the guarantee       return (n, t, implies guar (fs !! p)) -displayObls :: Algebra t p g s e c => [t] ->-               [Obligation t p g s e c] -> SExpr ()+displayObls :: Algebra t p g s e c => [t] -> [Obligation t] -> SExpr () displayObls vars obls =     L () (S () obligationsKey : map (displayObl vars) obls) -displayObl :: Algebra t p g s e c => [t] ->-              Obligation t p g s e c -> SExpr ()+displayObl :: Algebra t p g s e c => [t] -> Obligation t -> SExpr () displayObl vars (n, t, f) =     L () [displayNode n, displayTerm ctx t, displayFormula vars f]     where
src/CPSA/Annotations/Formulas.hs view
@@ -23,40 +23,37 @@ -- variable bound by a forall or exists quantifier is freshly -- generated. -data Algebra t p g s e c => Formula t p g s e c-    = Predicate String [FTerm t p g s e c]-    | Not (Formula t p g s e c)-    | And [Formula t p g s e c]-    | Or [Formula t p g s e c]-    | Implies [Formula t p g s e c] -- Null list not allowed-    | Says t (Formula t p g s e c)-    | Forall [t] (Formula t p g s e c)-    | Exists [t] (Formula t p g s e c)+data Formula t+    = Predicate String [FTerm t]+    | Not (Formula t)+    | And [Formula t]+    | Or [Formula t]+    | Implies [Formula t] -- Null list not allowed+    | Says t (Formula t)+    | Forall [t] (Formula t)+    | Exists [t] (Formula t)       deriving (Eq, Show)  -- A formula term is an algebra term or an application of a function -- symbol to list of formula terms. -data Algebra t p g s e c => FTerm t p g s e c+data FTerm t     = AlgTerm t-    | Application String [FTerm t p g s e c]+    | Application String [FTerm t]       deriving (Eq, Show) -true :: Algebra t p g s e c => Formula t p g s e c+true :: Formula t true = And [] -truth :: Algebra t p g s e c => Formula t p g s e c -> Bool+truth :: Eq t => Formula t -> Bool truth f = f == true -says :: Algebra t p g s e c => t -> Formula t p g s e c ->-        Formula t p g s e c+says :: Eq t => t -> Formula t -> Formula t says t f     | truth f = true     | otherwise = Says t f -implies :: Algebra t p g s e c => [Formula t p g s e c] ->-           Formula t p g s e c -> Formula t p g s e c-+implies :: Eq t => [Formula t] -> Formula t -> Formula t implies antecedents consequence     | truth consequence = true     | null simp = consequence@@ -66,11 +63,10 @@  -- Free variables in a formula -freeVars :: Algebra t p g s e c => Formula t p g s e c -> S.Set t+freeVars :: Algebra t p g s e c => Formula t -> S.Set t freeVars f = freeVarsForm S.empty f -freeVarsForm :: Algebra t p g s e c => S.Set t ->-                Formula t p g s e c -> S.Set t+freeVarsForm :: Algebra t p g s e c => S.Set t -> Formula t -> S.Set t freeVarsForm s (Predicate _ ts) = foldl freeVarsFTerm s ts freeVarsForm s (Not f) = freeVarsForm s f freeVarsForm s (And fs) = foldl freeVarsForm s fs@@ -80,8 +76,7 @@ freeVarsForm s (Forall ts f) = foldl (flip S.delete) (freeVarsForm s f) ts freeVarsForm s (Exists ts f) = foldl (flip S.delete) (freeVarsForm s f) ts -freeVarsFTerm :: Algebra t p g s e c => S.Set t ->-                 FTerm t p g s e c -> S.Set t+freeVarsFTerm :: Algebra t p g s e c => S.Set t -> FTerm t -> S.Set t freeVarsFTerm s (AlgTerm t) = freeVarsTerm s t freeVarsFTerm s (Application _ ts) = foldl freeVarsFTerm s ts @@ -93,8 +88,7 @@ -- The implementations assumes the environment maps no bound -- variables. -finstantiate :: Algebra t p g s e c => e ->-                Formula t p g s e c -> Formula t p g s e c+finstantiate :: Algebra t p g s e c => e -> Formula t -> Formula t finstantiate env (Predicate sym ts) =     Predicate sym (map (tinstantiate env) ts) finstantiate env (Not f) =@@ -112,8 +106,7 @@ finstantiate env (Exists ts f) =     Exists ts (finstantiate env f) -tinstantiate :: Algebra t p g s e c => e ->-                FTerm t p g s e c -> FTerm t p g s e c+tinstantiate :: Algebra t p g s e c => e -> FTerm t -> FTerm t tinstantiate env (AlgTerm t) =     AlgTerm (instantiate env t) tinstantiate env (Application sym ts) =@@ -143,7 +136,7 @@ -- once, and no free variable is bound within a formula.  Use -- loadDecls to ensure vars are not keywords. loadFormula :: (Algebra t p g s e c, Monad m) => [t] -> g ->-               SExpr Pos -> m (g, Formula t p g s e c)+               SExpr Pos -> m (g, Formula t) loadFormula vars gen (L _ (S _ pred : xs)) -- Atomic formula     | notElem pred keywords =         do@@ -217,7 +210,7 @@ -}  loadFTerms :: (Algebra t p g s e c, Monad m) => [t] ->-              [SExpr Pos] -> m [FTerm t p g s e c]+              [SExpr Pos] -> m [FTerm t] loadFTerms vars xs =     foldM f [] (reverse xs)     where@@ -228,7 +221,7 @@  -- Load a formula term loadFTerm :: Algebra t p g s e c => [t] -> SExpr Pos ->-             EitherS (FTerm t p g s e c)+             EitherS (FTerm t) loadFTerm vars x =     case loadTerm vars x of       RightS t -> return (AlgTerm t)@@ -258,9 +251,9 @@ -- reverse order, so list append is the correct way to extend the list -- of variables that are in scope. loadQuantified :: (Algebra t p g s e c, Monad m) =>-                  ([t] -> Formula t p g s e c -> Formula t p g s e c) ->+                  ([t] -> Formula t -> Formula t) ->                   [t] -> g -> [SExpr Pos] -> SExpr Pos ->-                  m (g, Formula t p g s e c)+                  m (g, Formula t) loadQuantified build vars gen decls body =     do       (gen', vars') <- loadDecls gen decls@@ -283,7 +276,7 @@  -- Display a formula displayFormula :: Algebra t p g s e c => [t] ->-                  Formula t p g s e c -> SExpr ()+                  Formula t -> SExpr () displayFormula vars form =     displayForm ctx' form     where                       -- Add quantified vars last so they are@@ -291,8 +284,7 @@       ctx' = addToContext ctx (quantified form)  -- Collect the quantified variables-quantified :: Algebra t p g s e c =>-              Formula t p g s e c -> [t]+quantified :: Algebra t p g s e c => Formula t -> [t] quantified (Predicate _ _) = [] quantified (Not f) = quantified f quantified (And fs) = concatMap quantified fs@@ -302,8 +294,7 @@ quantified (Forall ts f) = ts ++ quantified f quantified (Exists ts f) = ts ++ quantified f -displayForm :: Algebra t p g s e c => c ->-               Formula t p g s e c -> SExpr ()+displayForm :: Algebra t p g s e c => c -> Formula t -> SExpr () displayForm ctx (Predicate sym ts) =     L () (S () sym : map (displayFTerm ctx) ts) displayForm ctx (Not f) =@@ -321,8 +312,7 @@ displayForm ctx (Exists ts f) =     L () [S () "exists", L () (displayVars ctx ts), displayForm ctx f] -displayFTerm :: Algebra t p g s e c => c ->-                FTerm t p g s e c -> SExpr ()+displayFTerm :: Algebra t p g s e c => c -> FTerm t -> SExpr () displayFTerm ctx (AlgTerm t) =     displayTerm ctx t displayFTerm ctx (Application sym ts) =
src/CPSA/Annotations/Main.hs view
@@ -67,8 +67,8 @@                     loop a  step :: Algebra t p g s e c => Handle ->-        String -> g -> Int -> [Prot t p g s e c] ->-        SExpr Pos -> IO [Prot t p g s e c]+        String -> g -> Int -> [Prot t g] ->+        SExpr Pos -> IO [Prot t g] step output name origin margin ps sexpr =     do       x <- tryIO (annotations name origin ps sexpr)
src/CPSA/Basic/Algebra.hs view
@@ -438,7 +438,6 @@     foldVars = foldVars     foldCarriedTerms = foldCarriedTerms     carriedBy = carriedBy-    heldBy = carriedBy     decryptionKey = decryptionKey     decompose = decompose     buildable = buildable@@ -682,31 +681,12 @@       F s u ->           F s (map (substChase subst) u) --- more general than relation--- s0 `lte` s1 if s1 = compose s2 s0 for some s2-moreGeneral :: (Gen, Subst) -> (Gen, Subst) -> Bool-moreGeneral (_, Subst s0) (_, Subst s1) =-    let dom = S.elems $ foldl idSet (M.keysSet s0) (M.elems s0)-        env = foldl (flip M.delete) s1 (M.keys s0) in-    loop dom (Env env)-    where-      loop [] _ = True-      loop (x : xs) env =-          maybe False (loop xs) (match (get x s0) (get x s1) env)-      get x env = M.findWithDefault (I x) x env--idSet :: Set Id -> Term -> Set Id-idSet set (I id) = S.insert id set-idSet set (C _) = set-idSet set (F _ u) = foldl idSet set u- instance C.Subst Term Gen Subst where    emptySubst = emptySubst    substitute = substitute    unify t t' (g, s) =        maybe [] (\s -> [(g, s)]) $ unify t t' s    compose = compose-   moreGeneral = moreGeneral  -- Matching and instantiation
src/CPSA/DiffieHellman/Algebra.hs view
@@ -179,6 +179,10 @@ isGroupVar t =     M.size t == 1 && head (M.elems t) == 1 +-- Assumes isGroupVar t == True!+getGroupVar :: Group -> Id+getGroupVar x = head $ M.keys x+ groupVar :: Id -> Term groupVar x = G $ M.singleton x 1 @@ -314,7 +318,7 @@ isVar (F s [I _]) =     -- Sorts: text, data, name, skey, and akey     s == Text || s == Data || s == Name || s == Skey || s == Akey || s == Base-isVar (G t) = isGroupVar t+isVar (G x) = isGroupVar x isVar _ = False  -- Extract the identifier from a variable@@ -326,7 +330,7 @@ varId (F Skey [I x]) = x varId (F Akey [I x]) = x varId (F Base [I x]) = x-varId (G t) | isGroupVar t = head $ M.keys t+varId (G x) | isGroupVar x = getGroupVar x varId _ = error "Algebra.varId: term not a variable with its sort"  isMesgVar :: Term -> Bool@@ -499,16 +503,6 @@         F Enc [t0, _] -> carriedBy t t0         _ -> False --- Is a term held by another term?-heldBy :: Term -> Term -> Bool-heldBy t t' =-    t == t' ||-      case t' of-        F Cat [t0, t1] -> heldBy t t0 || heldBy t t1-        F Enc [t0, _] -> heldBy t t0-        F Base [F Exp [_, t1]] -> t == t1 -- This can't be right.-        _ -> False- -- The key used to decrypt an encrypted term, otherwise Nothing. decryptionKey :: Term -> Maybe Term decryptionKey (F Enc [_, t]) = Just (inv t)@@ -647,7 +641,7 @@       bare (F Cat [t, t']) acc =           maybe Nothing (bare t') (bare t acc)       bare t@(F Enc [t', key]) acc =-          if target `heldBy` t' then+          if target `carriedBy` t' then               if derivable (inv key) then                   bare t' acc               else@@ -708,7 +702,6 @@     foldVars = foldVars     foldCarriedTerms = foldCarriedTerms     carriedBy = carriedBy-    heldBy = heldBy     decryptionKey = decryptionKey     decompose = decompose     buildable = buildable@@ -990,11 +983,14 @@ chaseExp s (I x) t1 =     case chase s (I x) of       F Exp [t0', G t1'] -> chaseExp s t0' (mul t1 t1')-      t0 -> F Exp [t0, G t1]+      t0 -> F Exp [t0, chaseGroup s t1] chaseExp s (F Exp [t0', G t1']) t1 =     chaseExp s t0' (mul t1 t1')-chaseExp _ t0 t1 = F Exp [t0, G t1]+chaseExp s t0 t1 = F Exp [t0, chaseGroup s t1] +chaseGroup :: Subst -> Group -> Term+chaseGroup (Subst s) x = G $ groupSubst s x+ -- Does x occur in t? occurs :: Id -> Term -> Bool occurs x (I y) = x == y@@ -1106,31 +1102,11 @@ groupChase :: Subst -> Group -> Group groupChase (Subst subst) t = groupSubst subst t --- more general than relation--- s0 `lte` s1 if s1 = compose s2 s0 for some s2-moreGeneral :: (Gen, Subst) -> (Gen, Subst) -> Bool-moreGeneral (gen0, Subst s0) (gen1, Subst s1) =-    let dom = S.elems $ foldl idSet (M.keysSet s0) (M.elems s0)-        env = foldl (flip M.delete) s1 (M.keys s0) in-    loop dom (mash gen0 gen1, Env (S.empty, env))-    where-      loop [] _ = True-      loop (x : xs) env =-          maybe False (loop xs) (match (get x s0) (get x s1) env)-      get x env = M.findWithDefault (I x) x env--idSet :: Set Id -> Term -> Set Id-idSet set (I id) = S.insert id set-idSet set (C _) = set-idSet set (F _ u) = foldl idSet set u-idSet set (G t) = S.union (M.keysSet t) set- instance C.Subst Term Gen Subst where    emptySubst = emptySubst    substitute = substitute    unify t t' s = maybe [] (: []) $ unify t t' s    compose = compose-   moreGeneral = moreGeneral  -- Matching and instantiation
src/CPSA/DiffieHellmanNoReciprocal/Algebra.hs view
@@ -425,25 +425,6 @@         F Enc [t0, _] -> carriedBy t t0         _ -> False --- Is a term held by another term?-heldBy :: Term -> Term -> Bool-heldBy t t' =-    t == t' ||-      case t' of-        F Cat [t0, t1] -> heldBy t t0 || heldBy t t1-        F Enc [t0, _] -> heldBy t t0-        F Base [F Exp [_, t1]] -> expnHeldBy t t1-        _ -> False--expnHeldBy :: Term -> Term -> Bool-expnHeldBy (G t) (G t')-    | t == t' =-        True-expnHeldBy (G t) (G t')-    | isGroupVar t =-        elem (head (M.keys t)) (M.keys t')-expnHeldBy _ _ = False- -- The key used to decrypt an encrypted term, otherwise Nothing. decryptionKey :: Term -> Maybe Term decryptionKey (F Enc [_, t]) = Just (inv t)@@ -558,7 +539,7 @@       bare (F Cat [t, t']) acc =           maybe Nothing (bare t') (bare t acc)       bare t@(F Enc [t', key]) acc =-          if target `heldBy` t' then+          if target `carriedBy` t' then               if derivable (inv key) then                   bare t' acc               else@@ -619,7 +600,6 @@     foldVars = foldVars     foldCarriedTerms = foldCarriedTerms     carriedBy = carriedBy-    heldBy = heldBy     decryptionKey = decryptionKey     decompose = decompose     buildable = buildable@@ -1027,30 +1007,11 @@             t' | t == t' -> t'                | otherwise -> loop t' --- more general than relation--- s0 `lte` s1 if s1 = compose s2 s0 for some s2-moreGeneral :: GenSubst -> GenSubst -> Bool-moreGeneral (_, Subst s0) (_, Subst s1) =-    let dom = S.elems $ foldl idSet (M.keysSet s0) (M.elems s0) in-    loop dom emptyEnv-    where-      loop [] _ = True-      loop (x : xs) env =-          any (loop xs) (match (get x s0) (get x s1) env)-      get x env = M.findWithDefault (I x) x env--idSet :: Set Id -> Term -> Set Id-idSet set (I id) = S.insert id set-idSet set (C _) = set-idSet set (F _ u) = foldl idSet set u-idSet set (G t) = S.union (M.keysSet t) set- instance C.Subst Term Gen Subst where    emptySubst = emptySubst    substitute = substitute    unify t t' s = maybe [] (: []) $ unify t t' s    compose = compose-   moreGeneral = moreGeneral  -- Matching and instantiation
src/CPSA/Lib/Algebra.hs view
@@ -49,11 +49,6 @@     -- extracted from the other term?     carriedBy :: t -> t -> Bool -    -- Is a term held by another term?  This is the carried relation-    -- for typical algebras, but for Diffie-Hellman, a term is held if-    -- it is in the exponent of a carried term.-    heldBy :: t -> t -> Bool-     -- Returns the key used to decrypt an encryption term, otherwise     -- Nothing.     decryptionKey :: t -> Maybe t@@ -151,8 +146,6 @@     substitute :: s -> t -> t     unify :: t -> t -> (g, s) -> [(g, s)]     compose :: s -> s -> s-    moreGeneral :: (g, s) -> (g, s) -> Bool  -- more general than relation-    -- (g0, s0) `moreGeneral` (g1, s1) if s1 = compose s2 s0 for some s2  -- Environments
src/CPSA/Lib/Cohort.hs view
@@ -44,7 +44,7 @@     where       ts = S.toList s -zi :: Algebra t p g s e c => Instance t p g s e c -> String+zi :: Algebra t p g s e c => Instance t e -> String zi inst =     show (map f e)     where@@ -67,11 +67,6 @@ useSolvedFilter :: Bool useSolvedFilter = True -- False --- Filter COWS function output so that it returns only MGUs.  Turn off--- to checking that an algebra's MGU filter is working.-useMguFilter :: Bool-useMguFilter = True -- False- -- Use pruning during generalization. usePruningDuringGeneralization :: Bool usePruningDuringGeneralization = False -- True@@ -88,7 +83,7 @@     buildable knowns unknowns term  -- Returns the nodes in a preskeleton that are not realized.-unrealized :: Algebra t p g s e c => Preskel t p g s e c -> [Node]+unrealized :: Algebra t p g s e c => Preskel t g s e -> [Node] unrealized k =     foldl unrealizedInStrand [] (strands k)     where@@ -105,8 +100,8 @@                   True -> (acc, ns')                   False -> (graphNode n : acc, ns') -addSendingBefore :: Algebra t p g s e c => Set (Vertex t p g s e c) ->-                    Vertex t p g s e c  -> Set (Vertex t p g s e c)+addSendingBefore :: Algebra t p g s e c => Set (Vertex t e) ->+                    Vertex t e  -> Set (Vertex t e) addSendingBefore s n =     foldl addSending s (preds n)     where@@ -121,7 +116,7 @@ -- Returns that atoms that cannot be guess when determining if a -- term is derivable from some other terms, and the atoms that -- uniquely originate in this skeleton.-avoid :: Algebra t p g s e c => Preskel t p g s e c -> (Set t, [t])+avoid :: Algebra t p g s e c => Preskel t g s e -> (Set t, [t]) avoid k =     (S.unions [ns, as, us], L.nub ((kpnon k) ++ u))     where@@ -155,7 +150,7 @@ -- (s, p) = v and n -- subst  = sigma solved :: Algebra t p g s e c => t -> p -> [t] -> Set t ->-          Preskel t p g s e c -> Node -> s -> Bool+          Preskel t g s e -> Node -> s -> Bool solved ct pos eks escape k (s, p) subst =     -- Condition 1     isAncestorInSet escape' t pos ||@@ -180,7 +175,7 @@       (a, _) = avoid k  maybeSolved :: Algebra t p g s e c => t -> p -> [t] -> Set t ->-               Preskel t p g s e c -> Node -> s -> Bool+               Preskel t g s e -> Node -> s -> Bool maybeSolved ct pos eks escape k n subst =     not useSolvedFilter || solved ct pos eks escape k n subst @@ -194,8 +189,8 @@ -- Abort if there is an unrealized node without a test, otherwise -- return a list of skeletons that solve one test.  If the skeleton is -- realized, try to generalize it, but only when noIsoChk is false.-reduce :: Algebra t p g s e c => Mode -> Preskel t p g s e c ->-          [Preskel t p g s e c]+reduce :: Algebra t p g s e c => Mode -> Preskel t g s e ->+          [Preskel t g s e] reduce mode k =     maybe (whenRealized k) id (findTest mode k u a)     where@@ -203,23 +198,23 @@       whenRealized k =           if noGeneralization mode then [] else maximize k -prioritizeVertices :: Algebra t p g s e c => Preskel t p g s e c ->-                      [Vertex t p g s e c] -> [Vertex t p g s e c]+prioritizeVertices :: Algebra t p g s e c => Preskel t g s e ->+                      [Vertex t e] -> [Vertex t e] prioritizeVertices k vs =      map fst $ filter keep $ L.sortBy prios $ map addPrio vs      where        addPrio v = (v, priority k (sid $ strand v, pos v))-       prios (_, p) (_, p') = compare p p'+       prios (_, p) (_, p') = compare p' p        keep (_, p) = p >= minPriority -priority :: Algebra t p g s e c => Preskel t p g s e c -> Node -> Int+priority :: Algebra t p g s e c => Preskel t g s e -> Node -> Int priority k (s, i) =   case lookup (s, i) (kpriority k) of     Just p -> p     Nothing -> rpriority (role $ insts k !! s) !! i  nodeOrder :: Algebra t p g s e c => Mode ->-             Preskel t p g s e c -> [Vertex t p g s e c]+             Preskel t g s e -> [Vertex t e] nodeOrder mode k =     concatMap (nodeVisitOrder mode) (strandVisitOrder mode (strands  k)) @@ -231,7 +226,7 @@         reverse ss     -- Visit recently added strands first (default)  nodeVisitOrder :: Algebra t p g s e c => Mode ->-                  Strand t p g s e c -> [Vertex t p g s e c]+                  Strand t e -> [Vertex t e] nodeVisitOrder mode s =     if reverseNodeOrder mode == rsearch (role $ inst s) then         nodes s                -- Visit earliest nodes first (default)@@ -239,8 +234,8 @@         reverse $ nodes s       -- Visit latest nodes first  -- Look for a test node in a strand-findTest :: Algebra t p g s e c => Mode -> Preskel t p g s e c ->-              [t] -> Set t -> Maybe [Preskel t p g s e c]+findTest :: Algebra t p g s e c => Mode -> Preskel t g s e ->+              [t] -> Set t -> Maybe [Preskel t g s e] findTest mode k u a =     loop (prioritizeVertices k $ nodeOrder mode k)     where@@ -258,9 +253,9 @@                     Just $ testNode mode k u ts der (graphNode n) t  -- Look for a critical term that makes this node a test node.-testNode :: Algebra t p g s e c => Mode -> Preskel t p g s e c ->+testNode :: Algebra t p g s e c => Mode -> Preskel t g s e ->             [t] -> Set t -> (t -> Bool) -> Node -> t ->-            [Preskel t p g s e c]+            [Preskel t g s e] testNode mode k u ts derivable n t =     loop cts     where@@ -277,11 +272,11 @@                       | otherwise = solveNode k ct p eks n t escape       cts =                     -- Potential critical messages           if nonceFirstOrder mode then-              map f (filter (flip heldBy t) u) +++              map f (filter (flip carriedBy t) u) ++               filter g (map h (encryptions t))           else               filter g (map h (encryptions t)) ++-              map f (filter (flip heldBy t) u)+              map f (filter (flip carriedBy t) u)       f ct = (ct, [])           -- A nonce tests has no eks       g (_, []) = False         -- An encryption test must have       g _ = True                -- at least one non-derivable key@@ -312,27 +307,66 @@ -- Solve critical message at position pos at node n. -- ct = t @ pos -- t  = msg(k, n)-solveNode :: Algebra t p g s e c => Preskel t p g s e c ->+solveNode :: Algebra t p g s e c => Preskel t g s e ->              t -> p -> [t] -> Node -> t -> Set t ->-             [Preskel t p g s e c]+             [Preskel t g s e] solveNode k ct pos eks n t escape =-    cons ++ augs ++ lsns+    mgs $ cons ++ augs ++ lsns     where       cons = contractions k ct pos eks n t escape cause       augs = augmentations k ct pos eks n escape cause       lsns = addListeners k ct pos eks n t escape cause       cause = Cause (dir eks) n ct escape +-- Filter out all but the skeletons with the most general homomorphisms.++mgs :: Algebra t p g s e c => [(Preskel t g s e, [Sid])] -> [Preskel t g s e]+mgs cohort =+  reverse $ map fst $ loop cohort []+  where+    loop [] acc = acc+    loop (kphi : cohort) acc+      | any (f kphi) cohort || any (f kphi) acc =+        loop cohort acc+      | otherwise = loop cohort (kphi : acc)+    f (k, phi) (k', phi') =+      any (not. null . homomorphism k' k)+          (composeFactors (strandids k) (strandids k') phi phi')++-- Given two permutations p and p', with ranges r and r', this+-- function returns the list of permutations p'' such that+--+--    p'' o p' = p.+--+-- This function assumes p' is injective and the returns permutations+-- that also must be.++composeFactors :: [Int] -> [Int] -> [Int] -> [Int] -> [[Int]]+composeFactors r r' p p' =+  perms (zip p' p) (filter (flip notElem p) r) r'++-- The correctness of this function depends on the fact that the+-- length of range is at most one so that the result is always+-- injective.++perms :: [(Int, Int)] -> [Int] -> [Int] -> [[Int]]+perms _ _ [] = [[]]+perms alist range (s:domain) =+  case lookup s alist of+    Just s' -> [ s':ss | ss <- perms alist range domain ]+    Nothing -> [ s':ss | s' <- range, ss <- perms alist range domain ]+ -- Contractions  -- Contract the critical message at the given position.-contractions :: Algebra t p g s e c => Preskel t p g s e c ->+contractions :: Algebra t p g s e c => Preskel t g s e ->                 t -> p -> [t] -> Node -> t -> Set t ->-                Cause t p g s e c -> [Preskel t p g s e c]+                Cause t -> [(Preskel t g s e, [Sid])] contractions k ct pos eks n t escape cause =-    [ k | let anc = ancestors t pos,-          subst <- mgus $ solve escape anc (gen k, emptySubst),-          (k, n, subst') <- contract k n cause subst,+    [ (k, phi) |+          let anc = ancestors t pos,+          subst <- solve escape anc (gen k, emptySubst),+          (k, n, phi, subst') <- contract k n cause subst,           maybeSolved ct pos eks escape k n subst' ]  solve :: Algebra t p g s e c => Set t -> [t] -> (g, s) -> [(g, s)]@@ -361,49 +395,36 @@       f substs p =           [ s | subst <- substs, s <- solve escape' (ancestors t' p) subst ] --- Filter out non-most general unifiers-mgus :: Algebra t p g s e c => [(g, s)] -> [(g, s)]-mgus substs =-    if useMguFilter then-        loop substs []-    else-        substs-    where-      loop [] acc = acc-      loop (subst : substs) acc-          | any (f subst) substs || any (f subst) acc =-              loop substs acc-          | otherwise = loop substs (subst : acc)-      f subst subst' = moreGeneral subst' subst- dir :: [a] -> Direction dir [] = Nonce dir _ = Encryption  -- Augmentations -augmentations :: Algebra t p g s e c => Preskel t p g s e c ->+augmentations :: Algebra t p g s e c => Preskel t g s e ->                 t -> p -> [t] -> Node -> Set t ->-                Cause t p g s e c -> [Preskel t p g s e c]+                Cause t -> [(Preskel t g s e, [Sid])] augmentations k ct pos eks n escape cause =     [ k' | r <- roles (protocol k),            k' <- roleAugs k ct pos eks n escape cause targets r ]     where       targets = S.toList (targetTerms ct escape) -roleAugs :: Algebra t p g s e c => Preskel t p g s e c ->-            t -> p -> [t] -> Node -> Set t -> Cause t p g s e c ->-            [t] -> Role t p g s e c -> [Preskel t p g s e c]+roleAugs :: Algebra t p g s e c => Preskel t g s e ->+            t -> p -> [t] -> Node -> Set t -> Cause t ->+            [t] -> Role t -> [(Preskel t g s e, [Sid])] roleAugs k ct pos eks n escape cause targets role =-    [ k' | (subst', inst) <- transformingNode ct escape targets role subst,-           (k', n', subst'') <-+    [ (k', phi) |+           (subst', inst) <-+               transformingNode ct escape targets role subst,+           (k', n', phi, subst'') <-                augment k n cause role subst' inst,            maybeSolved ct pos eks escape k' n' subst'' ]     where       subst = cloneRoleVars (gen k) role  -- Generate a fresh set of role variables-cloneRoleVars :: Algebra t p g s e c => g -> Role t p g s e c -> (g, s)+cloneRoleVars :: Algebra t p g s e c => g -> Role t -> (g, s) cloneRoleVars gen role =     grow (rvars role) gen emptyEnv     where@@ -415,8 +436,8 @@             [] -> error "Cohort.grow: Internal error"  transformingNode :: Algebra t p g s e c => t -> Set t ->-                    [t] -> Role t p g s e c -> (g, s) ->-                    [((g, s), Instance t p g s e c)]+                    [t] -> Role t -> (g, s) ->+                    [((g, s), Instance t e)] transformingNode ct escape targets role subst =     loop 1 [] [] (rtrace role)     where@@ -428,11 +449,7 @@           loop (ht + 1) (Out t : past) acc' c           where             substs = carriedBindings targets t subst-            substs' =-                if useMguFilter then-                    mgus $ cowt ct escape past substs-                else-                    cowt ct escape past substs+            substs' = cowt ct escape past substs             acc' = maybeAug ct escape role ht substs' acc t  -- Terms considered for binding with the carried terms in an outbound@@ -460,7 +477,7 @@ -- Ensure the critical term is carried only within the escape set of -- every term in the past using fold from cows. cowt :: Algebra t p g s e c => t -> Set t ->-        Trace t p g s e c -> [(g, s)] -> [(g, s)]+        Trace t -> [(g, s)] -> [(g, s)] cowt ct escape c substs =     nubSnd $ concatMap (cowt0 ct escape c) substs @@ -471,7 +488,7 @@  -- Handle one substitution at a time. cowt0 :: Algebra t p g s e c => t -> Set t ->-         Trace t p g s e c -> (g, s) -> [(g, s)]+         Trace t -> (g, s) -> [(g, s)] cowt0 ct escape c subst =     if all (f subst) c then     -- Substitution works         [subst]@@ -483,7 +500,7 @@  -- Apply fold to each message in the trace. foldn :: Algebra t p g s e c => t -> Set t ->-         Trace t p g s e c -> [(g, s)] -> [(g, s)]+         Trace t -> [(g, s)] -> [(g, s)] foldn _ _ [] substs = substs foldn ct escape (evt : c) substs =     foldn ct escape c (concatMap (fold ct escape (evtTerm evt)) substs)@@ -492,9 +509,9 @@ -- was found, otherwise, add a candidate augmentation to the -- accumulator. maybeAug :: Algebra t p g s e c => t -> Set t ->-            Role t p g s e c -> Int -> [(g, s)] ->-            [((g, s), Instance t p g s e c)] -> t ->-            [((g, s), Instance t p g s e c)]+            Role t -> Int -> [(g, s)] ->+            [((g, s), Instance t e)] -> t ->+            [((g, s), Instance t e)] maybeAug ct escape role ht substs acc t =     foldl f acc $ L.filter testNotSolved substs     where@@ -512,12 +529,13 @@  -- Listener augmentations -addListeners :: Algebra t p g s e c => Preskel t p g s e c ->+addListeners :: Algebra t p g s e c => Preskel t g s e ->                 t -> p -> [t] -> Node -> t -> Set t ->-                Cause t p g s e c -> [Preskel t p g s e c]+                Cause t -> [(Preskel t g s e, [Sid])] addListeners k ct pos eks n t escape cause =-    [ k' | t' <- filter (/= t) (S.toList (escapeKeys eks escape)),-           (k', n', subst) <- addListener k n cause t',+    [ (k', phi) |+           t' <- filter (/= t) (S.toList (escapeKeys eks escape)),+           (k', n', phi, subst) <- addListener k n cause t',            maybeSolved ct pos eks escape k' n' subst ]  escapeKeys :: Algebra t p g s e c => [t] -> Set t -> Set t@@ -529,8 +547,8 @@  -- Maximize a realized skeleton if possible -maximize :: Algebra t p g s e c => Preskel t p g s e c ->-            [Preskel t p g s e c]+maximize :: Algebra t p g s e c => Preskel t g s e ->+            [Preskel t g s e] maximize k =     take 1 gens                 -- Return at most the first answer     where@@ -542,15 +560,15 @@ -- preskeleton k' using the given strand mapping.  Returns the -- skeleton associated with k' if it refines k. -specialization :: Algebra t p g s e c => Preskel t p g s e c ->-                  Preskel t p g s e c -> [Sid] ->-                  [Preskel t p g s e c]+specialization :: Algebra t p g s e c => Preskel t g s e ->+                  Preskel t g s e -> [Sid] ->+                  [Preskel t g s e] specialization k k' mapping     | not (preskelWellFormed k') = []     | otherwise =         do           k'' <- toSkeleton usePruningDuringGeneralization k'-          case realized k'' && gist k /= gist k'' &&+          case realized k'' && not (isomorphic (gist k) (gist k'')) &&                refines k'' (pov k'') (prob k'') &&                refines k (Just k') mapping of             True -> [k'']
src/CPSA/Lib/Displayer.hs view
@@ -17,14 +17,14 @@  -- Display of protocols -displayProt :: Algebra t p g s e c => Prot t p g s e c -> SExpr ()+displayProt :: Algebra t p g s e c => Prot t g -> SExpr () displayProt p =     L () (S () "defprotocol" : S () (pname p) : S () (alg p) : rs)     where       rs = foldl f (pcomment p) (reverse (roles p))       f rs r = displayRole r : rs -displayRole :: Algebra t p g s e c => Role t p g s e c -> SExpr ()+displayRole :: Algebra t p g s e c => Role t -> SExpr () displayRole r =     L () (S () "defrole" :           S () (rname r) :@@ -58,7 +58,7 @@     L () (S () key : value) : rest  displayTrace :: Algebra t p g s e c => c ->-                Trace t p g s e c -> [SExpr ()]+                Trace t -> [SExpr ()] displayTrace ctx trace =     map displayDt trace     where@@ -67,7 +67,7 @@  -- Display of preskeletons -displayPreskel :: Algebra t p g s e c => Preskel t p g s e c ->+displayPreskel :: Algebra t p g s e c => Preskel t g s e ->                   [SExpr ()] -> SExpr () displayPreskel k rest =     L () (S () "defskeleton" :@@ -80,7 +80,7 @@       f i rest = displayInst ctx i : rest  -- Display the remainder of a preskeleton-displayRest :: Algebra t p g s e c => Preskel t p g s e c ->+displayRest :: Algebra t p g s e c => Preskel t g s e ->                c -> [SExpr ()] -> [SExpr ()] displayRest k ctx rest =     displayOptional "precedes" (displayOrdering (orderings k))@@ -100,7 +100,7 @@     L () [displayNode n, N () p]  displayInst :: Algebra t p g s e c => c ->-               Instance t p g s e c -> SExpr ()+               Instance t e -> SExpr () displayInst ctx s =     case listenerTerm s of       Just t -> L () [S () "deflistener", displayTerm ctx t]@@ -131,7 +131,7 @@ displayNode (s, p) = L () [N () s, N () p]  -- Display the reason the preskeleton was created-displayOperation :: Algebra t p g s e c => Preskel t p g s e c ->+displayOperation :: Algebra t p g s e c => Preskel t g s e ->                     c -> [SExpr ()] -> [SExpr ()] displayOperation k ctx rest =     case operation k of
src/CPSA/Lib/Loader.hs view
@@ -28,15 +28,15 @@ -- nom, and its variable generator is provided.  loadSExprs :: (Algebra t p g s e c, Monad m) => String -> g ->-              [SExpr Pos] -> m [Preskel t p g s e c]+              [SExpr Pos] -> m [Preskel t g s e] loadSExprs nom origin xs =     do       (_, ks) <- foldM (loadSExpr nom origin) ([], []) xs       return (reverse ks)  loadSExpr :: (Algebra t p g s e c, Monad m) => String -> g ->-             ([Prot t p g s e c], [Preskel t p g s e c]) -> SExpr Pos ->-             m ([Prot t p g s e c], [Preskel t p g s e c])+             ([Prot t g], [Preskel t g s e]) -> SExpr Pos ->+             m ([Prot t g], [Preskel t g s e]) loadSExpr nom origin (ps, ks) (L pos (S _ "defprotocol" : xs)) =     do       p <- loadProt nom origin pos xs@@ -54,7 +54,7 @@ -- load a protocol  loadProt :: (Algebra t p g s e c, Monad m) => String -> g ->-            Pos -> [SExpr Pos] -> m (Prot t p g s e c)+            Pos -> [SExpr Pos] -> m (Prot t g) loadProt nom origin pos (S _ name : S _ alg : x : xs)     | alg /= nom =         fail (shows pos $ "Expecting terms in algebra " ++ nom)@@ -75,7 +75,7 @@ loadProt _ _ pos _ = fail (shows pos "Malformed protocol")  loadRoles :: (Algebra t p g s e c, Monad m) => g -> [SExpr Pos] ->-             m (g, [Role t p g s e c], [SExpr ()])+             m (g, [Role t], [SExpr ()]) loadRoles gen (L pos (S _ "defrole" : x) : xs) =     do       (gen, r) <- loadRole gen pos x@@ -87,7 +87,7 @@       return (gen, [], comment)  loadRole :: (Algebra t p g s e c, Monad m) => g -> Pos ->-            [SExpr Pos] -> m (g, Role t p g s e c)+            [SExpr Pos] -> m (g, Role t) loadRole gen pos (S _ name : 	          L _ (S _ "vars" : vars) :                   L _ (S _ "trace" : evt : c) :@@ -144,7 +144,7 @@ -- the trace, and every variable that occurs in each atom -- declared to be non-originating occurs in some term in the trace, -- and the atom must never be carried by any term in the trace.-roleWellFormed :: (Monad m, Algebra t p g s e c) => Role t p g s e c -> m ()+roleWellFormed :: (Monad m, Algebra t p g s e c) => Role t -> m () roleWellFormed role =     do       failwith "a variable in non-orig is not in trace"@@ -193,7 +193,7 @@     shows $ displayTerm (addToContext emptyContext [t]) t  -- Ensure a trace is not a prefix of a listener-notListenerPrefix :: Algebra t p g s e c => Trace t p g s e c -> Bool+notListenerPrefix :: Algebra t p g s e c => Trace t -> Bool notListenerPrefix (In t : Out t' : _) | t == t' = False notListenerPrefix _ = True @@ -234,11 +234,11 @@       f _ = False  loadTrace :: (Algebra t p g s e c, Monad m) => [t] ->-             [SExpr Pos] -> m (Trace t p g s e c)+             [SExpr Pos] -> m (Trace t) loadTrace vars xs = mapM (loadEvt vars) xs  loadEvt :: (Algebra t p g s e c, Monad m) => [t] ->-          SExpr Pos -> m (Event t p g s e c)+          SExpr Pos -> m (Event t) loadEvt vars (L _ [S _ "recv", t]) =     do       t <- loadTerm vars t@@ -296,8 +296,8 @@ -- Find protocol and then load a preskeleton.  findPreskel :: (Algebra t p g s e c, Monad m) => Pos ->-               [Prot t p g s e c] -> [SExpr Pos] ->-               m (Preskel t p g s e c)+               [Prot t g] -> [SExpr Pos] ->+               m (Preskel t g s e) findPreskel pos ps (S _ name : xs) =     case L.find (\p -> name == pname p) ps of       Nothing -> fail (shows pos $ "Protocol " ++ name ++ " unknown")@@ -305,8 +305,8 @@ findPreskel pos _ _ = fail (shows pos "Malformed skeleton")  loadPreskel :: (Algebra t p g s e c, Monad m) => Pos ->-               Prot t p g s e c -> [SExpr Pos] ->-               m (Preskel t p g s e c)+               Prot t g -> [SExpr Pos] ->+               m (Preskel t g s e) loadPreskel pos p (L _ (S _ "vars" : vars) : xs) =     do       (gen, kvars) <- loadVars (pgen p) vars@@ -314,8 +314,8 @@ loadPreskel pos _ _ = fail (shows pos "Malformed skeleton")  loadInsts :: (Algebra t p g s e c, Monad m) => Pos ->-             Prot t p g s e c -> [t] -> g -> [Instance t p g s e c] ->-             [SExpr Pos] -> m (Preskel t p g s e c)+             Prot t g -> [t] -> g -> [Instance t e] ->+             [SExpr Pos] -> m (Preskel t g s e) loadInsts top p kvars gen insts (L pos (S _ "defstrand" : x) : xs) =     case x of       S _ role : N _ height : env ->@@ -350,8 +350,8 @@               [L () (S () "comment" : map strip comment)]  loadInst :: (Algebra t p g s e c, Monad m) => Pos ->-            Prot t p g s e c -> [t] -> g -> String -> Int ->-            [SExpr Pos] -> m (g, Instance t p g s e c)+            Prot t g -> [t] -> g -> String -> Int ->+            [SExpr Pos] -> m (g, Instance t e) loadInst pos p kvars gen role height env =     do       r <- lookupRole pos p role@@ -364,7 +364,7 @@               return (mkInstance gen' r env' height)  lookupRole :: (Algebra t p g s e c, Monad m) => Pos ->-              Prot t p g s e c -> String -> m (Role t p g s e c)+              Prot t g -> String -> m (Role t) lookupRole pos p role =     case L.find (\r -> role == rname r) (roles p) of       Nothing ->@@ -383,16 +383,16 @@ loadMaplet _ _ _ x = fail (shows (annotation x) "Malformed maplet")  loadListener :: (Algebra t p g s e c, Monad m) => [t] -> g ->-                SExpr Pos -> m (g, Instance t p g s e c)+                SExpr Pos -> m (g, Instance t e) loadListener kvars gen x =     do       t <- loadTerm kvars x       return (mkListener gen t)  loadRest :: (Algebra t p g s e c, Monad m) => Pos -> [t] ->-            Prot t p g s e c -> g -> [Instance t p g s e c] ->+            Prot t g -> g -> [Instance t e] ->             [SExpr Pos] -> [SExpr Pos] -> [SExpr Pos] -> [SExpr Pos] ->-            [SExpr Pos] -> [SExpr ()] -> m (Preskel t p g s e c)+            [SExpr Pos] -> [SExpr ()] -> m (Preskel t g s e) loadRest pos vars p gen insts orderings nr ar ur pl comment =     do       case null insts of@@ -460,7 +460,7 @@     fail (shows (annotation x) "Malformed priority")  addInstOrigs :: Algebra t p g s e c => ([t], [t], [t]) ->-                Instance t p g s e c -> ([t], [t], [t])+                Instance t e -> ([t], [t], [t]) addInstOrigs (nr, ar, ur) i =     (foldl (flip adjoin) nr $ inheritRnon i,      foldl (flip adjoin) ar $ inheritRpnon i,
src/CPSA/Lib/Protocol.hs view
@@ -36,62 +36,58 @@  -- Message events and traces -data Algebra t p g s e c => Event t p g s e c+data Event t     = In !t                      -- Inbound message     | Out !t                     -- Outbound messasge       deriving (Show, Eq, Ord)  -- Dispatch to function based on direction.-evt :: Algebra t p g s e c => (t -> a) -> (t -> a) ->-       Event t p g s e c -> a+evt :: (t -> a) -> (t -> a) -> Event t -> a evt inDir outDir evt =     case evt of       In t -> inDir t       Out t -> outDir t  -- Extract the term in an event (evt id id).-evtTerm :: Algebra t p g s e c => Event t p g s e c -> t+evtTerm :: Event t -> t evtTerm (In t) = t evtTerm (Out t) = t  -- Map the term in an event.-evtMap :: Algebra t p g s e c => (t -> t) ->-          Event t p g s e c -> Event t p g s e c+evtMap :: (t -> t) -> Event t -> Event t evtMap f (In t) = In (f t) evtMap f (Out t) = Out (f t)  -- A trace is a list of events.  The terms in the trace are -- stored in causal order.-type Trace t p g s e c = [Event t p g s e c]+type Trace t = [Event t]  -- The set of terms in a trace.-tterms :: Algebra t p g s e c => Trace t p g s e c -> [t]+tterms :: Eq t => Trace t -> [t] tterms c =     foldl (\ts evt -> adjoin (evtTerm evt) ts) [] c --- Is the term held by an event, and is the first one outgoing?-originates :: Algebra t p g s e c => t -> Trace t p g s e c -> Bool-originates _ [] = False         -- Term is not held-originates t (Out t' : c) = t `heldBy` t' || originates t c-originates t (In t' : c) = not (t `heldBy` t') && originates t c+-- Is the term carried by an event, and is the first one outgoing?+originates :: Algebra t p g s e c => t -> Trace t -> Bool+originates _ [] = False         -- Term is not carried+originates t (Out t' : c) = t `carriedBy` t' || originates t c+originates t (In t' : c) = not (t `carriedBy` t') && originates t c  -- At what position does a term originate in a trace?-originationPos :: Algebra t p g s e c => t ->-                  Trace t p g s e c -> Maybe Int+originationPos :: Algebra t p g s e c => t -> Trace t -> Maybe Int originationPos t c =     loop 0 c     where-      loop _ [] = Nothing       -- Term is not held+      loop _ [] = Nothing       -- Term is not carried       loop pos (Out t' : c)-          | t `heldBy` t' = Just pos -- Found it+          | t `carriedBy` t' = Just pos -- Found it           | otherwise = loop (pos + 1) c       loop pos (In t' : c)-          | t `heldBy` t' = Nothing -- Term does not originate+          | t `carriedBy` t' = Nothing -- Term does not originate           | otherwise = loop (pos + 1) c  -- At what position is a term acquired in a trace?-acquiredPos :: Algebra t p g s e c => t ->-               Trace t p g s e c -> Maybe Int+acquiredPos :: Algebra t p g s e c => t -> Trace t -> Maybe Int acquiredPos t c =     loop 0 c     where@@ -105,8 +101,7 @@           | otherwise = loop (pos + 1) c  -- At what position do all of the variables in a term occur in a trace?-usedPos :: Algebra t p g s e c => t ->-           Trace t p g s e c -> Maybe Int+usedPos :: Algebra t p g s e c => t -> Trace t -> Maybe Int usedPos t c =     loop 0 (varsInTerms [t]) c     where@@ -120,7 +115,7 @@ -- Data flow analysis of a trace.  -- Return the minimal sets of parameters computed using traceFlow-flow :: Algebra t p g s e c => Trace t p g s e c -> [[t]]+flow :: Algebra t p g s e c => Trace t -> [[t]] flow c =     toList $ filter minimal inits     where@@ -135,12 +130,12 @@ type FlowRule t = (Set t, Set t) -> Set (Set t, Set t)  -- Analyze events in a trace sequentially-traceFlow :: Algebra t p g s e c => Trace t p g s e c -> FlowRule t+traceFlow :: Algebra t p g s e c => Trace t -> FlowRule t traceFlow [] a = S.singleton a traceFlow (d : c) a = comb (traceFlow c) (evtFlow d) a  -- Dispatch to algebra specific data flow routines-evtFlow :: Algebra t p g s e c => Event t p g s e c -> FlowRule t+evtFlow :: Algebra t p g s e c => Event t -> FlowRule t evtFlow (In t) = inFlow t evtFlow (Out t) = outFlow t @@ -150,11 +145,11 @@     S.fold h S.empty (g x)     where h a s = S.union (f a) s -data Algebra t p g s e c => Role t p g s e c = Role+data Role t = Role     { rname :: !String,       rvars :: ![t],            -- Set of role variables                                 -- Events in causal order-      rtrace :: ![Event t p g s e c],+      rtrace :: ![Event t],       -- Set of non-originating atoms, possibly with a trace length       rnon :: ![(Maybe Int, t)], -- that says when to inherit the atom       rpnon :: ![(Maybe Int, t)], -- that says when to inherit the atom@@ -177,9 +172,9 @@ -- contain duplicate terms.  -- Create a role-mkRole :: Algebra t p g s e c => String -> [t] -> Trace t p g s e c ->+mkRole :: Algebra t p g s e c => String -> [t] -> Trace t ->           [(Maybe Int, t)] -> [(Maybe Int, t)] -> [t] ->-          [SExpr ()] -> [(Int, Int)] -> Bool -> Role t p g s e c+          [SExpr ()] -> [(Int, Int)] -> Bool -> Role t mkRole name vars trace non pnon unique comment priority rev =     Role { rname = name,            rvars = L.nub vars,  -- Every variable here must@@ -226,18 +221,18 @@  -- Protocols -data Algebra t p g s e c => Prot t p g s e c+data Prot t g     = Prot { pname :: !String,  -- Name of the protocol              alg :: !String,    -- Name of the algebra              pgen :: !g,        -- Initial variable generator-             roles :: ![Role t p g s e c],+             roles :: ![Role t],              varsAllAtoms :: !Bool,   -- Are all role variables atoms?              pcomment :: [SExpr ()] }  -- Comments from the input     deriving Show  -- Callers should ensure every role has a distinct name. mkProt :: Algebra t p g s e c => String -> String ->-          g -> [Role t p g s e c] -> [SExpr ()] -> Prot t p g s e c+          g -> [Role t] -> [SExpr ()] -> Prot t g mkProt name alg gen roles comment =     Prot { pname = name, alg = alg, pgen = gen,            roles = roles, pcomment = comment,
src/CPSA/Lib/Reduction.hs view
@@ -34,10 +34,10 @@       if useFlush then hFlush h else return ()  -- A labeled and linked preskeleton-data Algebra t p g s e c => LPreskel t p g s e c-    = LPreskel { content :: Preskel t p g s e c,+data LPreskel t g s e+    = LPreskel { content :: Preskel t g s e,                  label :: Int,-                 parent :: Maybe (LPreskel t p g s e c) }+                 parent :: Maybe (LPreskel t g s e) }       deriving Show  -- A skeleton that has been seen before need not be reanalyzed.@@ -45,46 +45,46 @@ -- returns it.  What follows is the data structure used to store -- information in the seen history used for the isomorphism check. -- The integer is the label of the seen skeleton.-type IPreskel t p g s e c = (Gist t p g s e c, Int)+type IPreskel t g s e = (Gist t g, Int)  -- Is the skeleton summarized by gist g isomorphic to one with the -- given label?-wasSeen :: Algebra t p g s e c => Gist t p g s e c ->-           IPreskel t p g s e c -> Bool-wasSeen g (g', _) = g == g'+wasSeen :: Algebra t p g s e c => Gist t g ->+           IPreskel t g s e -> Bool+wasSeen g (g', _) = isomorphic g g'  -- A seen history as a list. -newtype Algebra t p g s e c => Seen t p g s e c = Seen [IPreskel t p g s e c]+newtype Seen t g s e = Seen [IPreskel t g s e]  -- Create a singleton seen history-hist :: Algebra t p g s e c => IPreskel t p g s e c -> Seen t p g s e c+hist :: Algebra t p g s e c => IPreskel t g s e -> Seen t g s e hist ik = Seen [ik]  -- Add an element to the seen history.-remember :: Algebra t p g s e c => IPreskel t p g s e c ->-            Seen t p g s e c -> Seen t p g s e c+remember :: Algebra t p g s e c => IPreskel t g s e ->+            Seen t g s e -> Seen t g s e remember ik (Seen seen) = Seen (ik : seen)  -- Find an element of the seen history that satisfies a predicate.-recall :: Algebra t p g s e c => (IPreskel t p g s e c -> Bool) ->-          Seen t p g s e c -> Maybe (IPreskel t p g s e c)+recall :: Algebra t p g s e c => (IPreskel t g s e -> Bool) ->+          Seen t g s e -> Maybe (IPreskel t g s e) recall f (Seen seen) = L.find f seen  -- Create an empty seen history-void :: Algebra t p g s e c => Seen t p g s e c+void :: Algebra t p g s e c => Seen t g s e void = Seen []  -- Merge two seen histories.-merge :: Algebra t p g s e c => Seen t p g s e c ->-         Seen t p g s e c -> Seen t p g s e c+merge :: Algebra t p g s e c => Seen t g s e ->+         Seen t g s e -> Seen t g s e merge (Seen xs) (Seen ys) = Seen (xs ++ ys)  -- Contains the result of applying the cohort reduction rule.  The -- last position is used to hold the reverse of the labels of the -- seen children-data Algebra t p g s e c => Reduct t p g s e c  =-    Reduct !(LPreskel t p g s e c) !Int !Bool ![Preskel t p g s e c] ![Int]+data Reduct t g s e  =+    Reduct !(LPreskel t g s e) !Int !Bool ![Preskel t g s e] ![Int]  parMap :: (a -> b) -> [a] -> [b] parMap _ [] = []@@ -103,7 +103,7 @@  -- Entry point for analysis solve :: Algebra t p g s e c => Options -> Handle ->-         [Preskel t p g s e c] -> Int -> IO ()+         [Preskel t g s e] -> Int -> IO () solve _ h [] _ =                -- Done     hClose h solve p h (k : ks) n =@@ -117,7 +117,7 @@                        "Input cannot be made into a skeleton--nothing to do")               solve p h ks (n + 1)         [k'] ->-            if (gist k) == (gist k') then -- Input was a skeleton+            if isomorphic (gist k) (gist k') then -- Input was a skeleton                 let lk' = LPreskel k' n Nothing in                 begin p h ks (n + optLimit p) (n + 1)                          (hist (gist k', n)) [lk']@@ -133,15 +133,15 @@  -- Begin by collapsing the point-of-view skeleton as much as possible. begin :: Algebra t p g s e c => Options -> Handle ->-         [Preskel t p g s e c] -> Int -> Int -> Seen t p g s e c ->-         [LPreskel t p g s e c] -> IO ()+         [Preskel t g s e] -> Int -> Int -> Seen t g s e ->+         [LPreskel t g s e] -> IO () begin p h ks m n seen todo =     search p h ks m n seen todo []  -- Apply collapse until all possibilities are exhausted. search :: Algebra t p g s e c => Options -> Handle ->-            [Preskel t p g s e c] -> Int -> Int -> Seen t p g s e c ->-            [LPreskel t p g s e c] -> [LPreskel t p g s e c] -> IO ()+            [Preskel t g s e] -> Int -> Int -> Seen t g s e ->+            [LPreskel t g s e] -> [LPreskel t g s e] -> IO () search p h ks m n seen [] done =     mode p h ks m n seen (reverse done) search p h ks m n seen (lk:todo) done =@@ -153,8 +153,8 @@  -- Select reduction mode, noIsoChk or normal mode :: Algebra t p g s e c => Options -> Handle ->-        [Preskel t p g s e c] -> Int -> Int -> Seen t p g s e c ->-        [LPreskel t p g s e c] -> IO ()+        [Preskel t g s e] -> Int -> Int -> Seen t g s e ->+        [LPreskel t g s e] -> IO () mode p h ks m n seen todo =     if optNoIsoChk p then         fast p h ks m n todo     -- Peform no isomorphism checks@@ -176,8 +176,8 @@ -- todo holds unreduced skeletons -- tobig holds skeletons that have exceed the strand bound. breadth :: Algebra t p g s e c => Options -> Handle ->-           [Preskel t p g s e c] -> Int -> Int -> Seen t p g s e c ->-           [LPreskel t p g s e c] -> [LPreskel t p g s e c] -> IO ()+           [Preskel t g s e] -> Int -> Int -> Seen t g s e ->+           [LPreskel t g s e] -> [LPreskel t g s e] -> IO () breadth p h ks _ n _ [] [] =       -- Empty todo list and tobig list     do       wrt p h (comment "Nothing left to do")@@ -191,9 +191,9 @@  -- Function step handles one skeleton in one level of the tree. step :: Algebra t p g s e c => Options -> Handle ->-        [Preskel t p g s e c] -> Int -> Seen t p g s e c -> Int ->-        Seen t p g s e c -> [LPreskel t p g s e c] ->-        [LPreskel t p g s e c] -> [Reduct t p g s e c] -> IO ()+        [Preskel t g s e] -> Int -> Seen t g s e -> Int ->+        Seen t g s e -> [LPreskel t g s e] ->+        [LPreskel t g s e] -> [Reduct t g s e] -> IO () step p h ks m oseen n seen todo tobig [] = -- Empty reducts     breadth p h ks m n (merge seen oseen) (reverse todo) tobig step p h _ m _ n _ todo tobig reducts@@ -224,8 +224,8 @@           step p h ks m oseen n' seen' todo' tobig reducts  -- Expands one branch in the derivation tree.-branch :: Algebra t p g s e c => Options -> Seen t p g s e c ->-          LPreskel t p g s e c -> Reduct t p g s e c+branch :: Algebra t p g s e c => Options -> Seen t g s e ->+          LPreskel t g s e -> Reduct t g s e branch p seen lk =     Reduct lk (length kids) cols                (seqList $ reverse unseen) (seqList dups)@@ -243,33 +243,33 @@            reverseNodeOrder = optTryYoungNodesFirst p}  -- Is preskeleton the result of a collapsing operation?-collapsed :: Algebra t p g s e c => Preskel t p g s e c -> Bool+collapsed :: Algebra t p g s e c => Preskel t g s e -> Bool collapsed k =     case operation k of       Collapsed _ _ -> True       _ -> False -duplicates :: Algebra t p g s e c => Seen t p g s e c ->-              ([Preskel t p g s e c], [Int]) ->-                  Preskel t p g s e c -> ([Preskel t p g s e c], [Int])+duplicates :: Algebra t p g s e c => Seen t g s e ->+              ([Preskel t g s e], [Int]) ->+                  Preskel t g s e -> ([Preskel t g s e], [Int]) duplicates seen (unseen, dups) kid =     case recall (wasSeen $ gist kid) seen of       Just (_, label) -> (unseen, label : dups)       Nothing -> (kid : unseen, dups)  -- Make a todo list for dump-mktodo :: Algebra t p g s e c => [Reduct t p g s e c] ->-          [LPreskel t p g s e c] -> [LPreskel t p g s e c] ->-          [LPreskel t p g s e c]+mktodo :: Algebra t p g s e c => [Reduct t g s e] ->+          [LPreskel t g s e] -> [LPreskel t g s e] ->+          [LPreskel t g s e] mktodo reducts todo tobig =     map (\(Reduct lk _ _ _ _) -> lk) reducts ++ reverse todo ++ reverse tobig  type Next t p g s e c =-    (Int, Seen t p g s e c, [LPreskel t p g s e c], [Int])+    (Int, Seen t g s e, [LPreskel t g s e], [Int])  -- Update state variables used by step.-next :: Algebra t p g s e c => LPreskel t p g s e c ->-        Next t p g s e c -> Preskel t p g s e c ->+next :: Algebra t p g s e c => LPreskel t g s e ->+        Next t p g s e c -> Preskel t g s e ->         Next t p g s e c next p (n, seen, todo, dups) k =     let g = gist k in@@ -283,8 +283,8 @@  -- This function reduces without checking for isomorphisms fast :: Algebra t p g s e c => Options -> Handle ->-        [Preskel t p g s e c] -> Int -> Int ->-        [LPreskel t p g s e c] -> IO ()+        [Preskel t g s e] -> Int -> Int ->+        [LPreskel t g s e] -> IO () fast p h ks _ n [] =            -- Empty todo list     do       wrt p h (comment "Nothing left to do")@@ -308,15 +308,15 @@       let (n', todo') = foldl (children lk) (n, []) ks'       fast p h ks m n' (todo ++ reverse todo') -children :: Algebra t p g s e c => LPreskel t p g s e c ->-            (Int, [LPreskel t p g s e c]) ->-            Preskel t p g s e c -> (Int, [LPreskel t p g s e c])+children :: Algebra t p g s e c => LPreskel t g s e ->+            (Int, [LPreskel t g s e]) ->+            Preskel t g s e -> (Int, [LPreskel t g s e]) children p (n, todo) k =        -- Label a preskeleton here     (n + 1, LPreskel k n (Just p) : todo)  -- Print partial results in a form that works with analysis tools dump :: Algebra t p g s e c => Options -> Handle ->-        [LPreskel t p g s e c] -> String -> IO ()+        [LPreskel t g s e] -> String -> IO () dump _ h [] msg =     do       hClose h@@ -330,7 +330,7 @@ -- Add a label, maybe a parent, a list of seen preskeletons isomorphic -- to some members of this skeleton's cohort, and a list of unrealized -- nodes.  If it's a shape, note this fact.  Add a comment if present.-commentPreskel :: Algebra t p g s e c => LPreskel t p g s e c ->+commentPreskel :: Algebra t p g s e c => LPreskel t g s e ->                   [Int] -> [Node] -> Bool -> String -> SExpr () commentPreskel lk seen unrealized shape msg =     displayPreskel k $@@ -377,7 +377,7 @@     addKeyValues key (f x) rest  -- Prints structure preserving maps (homomorphisms)-maps :: Algebra t p g s e c => Preskel t p g s e c -> [SExpr ()]+maps :: Algebra t p g s e c => Preskel t g s e -> [SExpr ()] maps k =     map (amap $ strandMap k) (envMaps k)     where@@ -391,7 +391,7 @@       ctx k = addToContext emptyContext (kvars k)  -- Prints the nodes of origination for each uniquely originating atom-origs :: Algebra t p g s e c => Preskel t p g s e c -> [SExpr ()]+origs :: Algebra t p g s e c => Preskel t g s e -> [SExpr ()] origs k =     [ L () [displayTerm ctx t, displayNode n]       | (t, ns) <- korig k, n <- ns ]
src/CPSA/Lib/Strand.hs view
@@ -10,9 +10,9 @@     role, env, trace, height, listenerTerm, Sid, Node, mkPreskel,     firstSkeleton, Pair, Preskel, gen, protocol, insts, orderings,     pov, knon, kpnon, kunique, korig, kpriority, kcomment, nstrands, kvars,-    kterms, uniqOrig, preskelWellFormed, verbosePreskelWellFormed,+    strandids, kterms, uniqOrig, preskelWellFormed, verbosePreskelWellFormed,     Strand, inst, sid, nodes, Vertex, strand, pos, preds, event,-    graphNode, strands, vertex, Gist, gist, contract, augment,+    graphNode, strands, vertex, Gist, gist, isomorphic, contract, augment,     inheritRnon, inheritRpnon, inheritRunique, addListener, Cause     (..), Direction (..), Method (..), Operation (..), operation,     prob, homomorphism, toSkeleton, generalize, collapse) where@@ -54,7 +54,7 @@ zl :: Show a => [a] -> [a] zl a = z (length a) a -zi :: Algebra t p g s e c => Instance t p g s e c -> String+zi :: Algebra t p g s e c => Instance t e -> String zi inst =     show (map f e)     where@@ -117,15 +117,15 @@  type Sid = Int                  -- Strand Identifier -data Algebra t p g s e c => Instance t p g s e c = Instance-    { role :: Role t p g s e c, -- Role from which this was+data Instance t e = Instance+    { role :: Role t, -- Role from which this was                                 -- instantiated        env :: !e,                -- The environment used to build this                                 -- instance's trace from its role's                                 -- trace -      trace :: ![Event t p g s e c], -- Instance's trace+      trace :: ![Event t], -- Instance's trace        height :: !Int }          -- Height of the instance     deriving Show@@ -134,8 +134,8 @@ -- specifies how to map some variables in the role's trace.  Unmapped -- variables are instantiated with fresh variables to avoid naming -- conflicts.-mkInstance :: Algebra t p g s e c => g -> Role t p g s e c ->-              e -> Int -> (g, Instance t p g s e c)+mkInstance :: Algebra t p g s e c => g -> Role t ->+              e -> Int -> (g, Instance t e) mkInstance gen role env height =     let trace = rtrace role         rheight = length trace in@@ -167,8 +167,8 @@  -- Build an instance from a role and a trace.  Returns the empty list -- if the trace is not an instance of the given role.-bldInstance :: Algebra t p g s e c => Role t p g s e c ->-               Trace t p g s e c -> g -> [(g, Instance t p g s e c)]+bldInstance :: Algebra t p g s e c => Role t ->+               Trace t -> g -> [(g, Instance t e)] bldInstance _ [] _ = error "Strand.bldInstance: Bad trace" bldInstance role trace gen =     loop (rtrace role) trace (gen, emptyEnv) -- Loop builds env@@ -185,8 +185,8 @@             loop c c' env       loop _ _ _ = [] -makeInstance :: Algebra t p g s e c => Role t p g s e c -> e ->-                Trace t p g s e c -> Instance t p g s e c+makeInstance :: Algebra t p g s e c => Role t -> e ->+                Trace t -> Instance t e makeInstance role env trace =     Instance { role = role,                env = specialize env,@@ -196,7 +196,7 @@ -- This is the only place a role is generated with an empty name. -- This is what marks a strand as a listener. mkListener :: Algebra t p g s e c => g -> t ->-              (g, Instance t p g s e c)+              (g, Instance t e) mkListener gen term =     (gen'', Instance { role = mkRole "" vars [In rterm, Out rterm]                               [] [] [] [] [] False,@@ -213,13 +213,13 @@       msg = "Strand.mkListener: cannot generate an environment."  -- Add to set s the variables that are in the range of instance i-addIvars :: Algebra t p g s e c => Set t -> Instance t p g s e c -> Set t+addIvars :: Algebra t p g s e c => Set t -> Instance t e -> Set t addIvars s i =     foldl g s (reify (rvars (role i)) (env i))     where       g s (_, t) = foldVars (flip S.insert) s t -listenerTerm :: Algebra t p g s e c => Instance t p g s e c -> Maybe t+listenerTerm :: Algebra t p g s e c => Instance t e -> Maybe t listenerTerm inst =     case rname (role inst) of       "" -> Just $ evtTerm (trace inst !! 0) -- Get first term in trace@@ -361,13 +361,13 @@  -- Preskeletons -data Algebra t p g s e c => Preskel t p g s e c = Preskel+data Preskel t g s e = Preskel     { gen :: !g,-      protocol :: Prot t p g s e c,-      insts :: ![Instance t p g s e c],-      strands :: ![Strand t p g s e c],+      protocol :: Prot t g,+      insts :: ![Instance t e],+      strands :: ![Strand t e],       orderings :: ![Pair],-      edges :: ![Edge t p g s e c],+      edges :: ![Edge t e],       knon :: ![t],             -- A list of atoms       kpnon :: ![t],            -- A list of atoms       kunique :: ![t],          -- A list of atoms@@ -378,12 +378,12 @@                                 -- The value associated with a term                                 -- is a list of the nodes at which it                                 -- originates--the term's provenance.-      pov :: Maybe (Preskel t p g s e c), -- Point of view, the+      pov :: Maybe (Preskel t g s e), -- Point of view, the                                           -- original problem statement.       strandids :: ![Sid],       tc :: [Pair],             -- Transitive closure of orderings                                 -- Used only during generalization-      operation :: Operation t p g s e c,+      operation :: Operation t s,       prob :: [Sid] }        -- A map from the strands in the original     deriving Show               -- problem statement, the pov, into                                 -- these strands.@@ -391,25 +391,25 @@ -- The pov skeleton is the only skeleton that should have Nothing in -- its pov field. -type Strand t p g s e c-    = GraphStrand (Event t p g s e c) (Instance t p g s e c)+type Strand t e+    = GraphStrand (Event t) (Instance t e) -type Vertex t p g s e c-    = GraphNode (Event t p g s e c) (Instance t p g s e c)+type Vertex t e+    = GraphNode (Event t) (Instance t e) -type Edge t p g s e c-    = GraphEdge (Event t p g s e c) (Instance t p g s e c)+type Edge t e+    = GraphEdge (Event t) (Instance t e)  -- Data structure for tracking the causes for the creation of -- preskeletons. -data Algebra t p g s e c => Cause t p g s e c+data Cause t     = Cause Direction Node t (Set t)     deriving Show  data Direction = Encryption | Nonce deriving Show -data Algebra t p g s e c => Method t p g s e c+data Method t     = Deleted Node     | Weakened Pair     | Separated t@@ -419,22 +419,22 @@ -- the loader, a contraction, a regular augmentation, a listener -- augmentation, or a mininization.  The augmentation includes a role -- name and instance height.-data Algebra t p g s e c => Operation t p g s e c+data Operation t s     = New-    | Contracted s (Cause t p g s e c)-    | Displaced Int Int String Int (Cause t p g s e c)-    | AddedStrand String Int (Cause t p g s e c)-    | AddedListener t (Cause t p g s e c)-    | Generalized (Method t p g s e c)+    | Contracted s (Cause t)+    | Displaced Int Int String Int (Cause t)+    | AddedStrand String Int (Cause t)+    | AddedListener t (Cause t)+    | Generalized (Method t)     | Collapsed Int Int       deriving Show  -- Create a preskeleton.  The point of view field is not filled in. -- This version is exported for use by the loader.  This preskeleton -- must be consumed by firstSkeleton.-mkPreskel :: Algebra t p g s e c => g -> Prot t p g s e c ->-             [Instance t p g s e c] -> [Pair] -> [t] -> [t] -> [t] ->-             [(Node, Int)] -> [SExpr ()] -> Preskel t p g s e c+mkPreskel :: Algebra t p g s e c => g -> Prot t g ->+             [Instance t e] -> [Pair] -> [t] -> [t] -> [t] ->+             [(Node, Int)] -> [SExpr ()] -> Preskel t g s e mkPreskel gen protocol insts orderings non pnon unique prio comment =     k { kcomment = comment }     where@@ -444,17 +444,17 @@  -- Strand functions -strandInst :: Algebra t p g s e c => Preskel t p g s e c ->-              Sid -> Instance t p g s e c+strandInst :: Algebra t p g s e c => Preskel t g s e ->+              Sid -> Instance t e strandInst k strand = insts k !! strand -nstrands :: Algebra t p g s e c => Preskel t p g s e c -> Int+nstrands :: Algebra t p g s e c => Preskel t g s e -> Int nstrands k = length (strandids k)  -- Convert the preskeleton made by the loader into the first skeleton -- used in the search.-firstSkeleton :: Algebra t p g s e c => Preskel t p g s e c ->-                 [Preskel t p g s e c]+firstSkeleton :: Algebra t p g s e c => Preskel t g s e ->+                 [Preskel t g s e] firstSkeleton k =     do       k <- wellFormedPreskel k@@ -465,10 +465,10 @@ -- preds field of each instance in this function.  The maybe uniquely -- originating term data is also filled in.  This version is used -- within this module.-newPreskel :: Algebra t p g s e c => g -> Prot t p g s e c ->-             [Instance t p g s e c] -> [Pair] -> [t] -> [t] -> [t] ->-             [(Node, Int)] -> Operation t p g s e c -> [Sid] ->-             Maybe (Preskel t p g s e c) -> Preskel t p g s e c+newPreskel :: Algebra t p g s e c => g -> Prot t g ->+             [Instance t e] -> [Pair] -> [t] -> [t] -> [t] ->+             [(Node, Int)] -> Operation t s -> [Sid] ->+             Maybe (Preskel t g s e) -> Preskel t g s e newPreskel gen protocol insts orderings non pnon unique prio oper prob pov =     let orderings' = L.nub orderings         unique' = L.nub unique@@ -498,8 +498,8 @@             checkVars k         else k -checkVars :: Algebra t p g s e c => Preskel t p g s e c ->-             Preskel t p g s e c+checkVars :: Algebra t p g s e c => Preskel t g s e ->+             Preskel t g s e checkVars k =     foldl f k rolevars     where@@ -510,19 +510,19 @@             error ("Strand.checkVars: role var in skel " ++ show k)         | otherwise = k -vertex  :: Algebra t p g s e c => Preskel t p g s e c -> Node ->-           Vertex t p g s e c+vertex  :: Algebra t p g s e c => Preskel t g s e -> Node ->+           Vertex t e vertex k (s, i) =     nodes (strands k !! s) !! i -originationNodes :: Algebra t p g s e c => [Strand t p g s e c] ->+originationNodes :: Algebra t p g s e c => [Strand t e] ->                     t -> (t, [Node]) originationNodes strands u =     (u, [ (sid strand, p) |           strand <- reverse strands,           p <- M.maybeToList $ originationPos u (trace (inst strand)) ]) -uniqOrig :: Algebra t p g s e c => Preskel t p g s e c -> [t]+uniqOrig :: Algebra t p g s e c => Preskel t g s e -> [t] uniqOrig k =     do       (t, [_]) <- reverse (korig k)@@ -537,7 +537,7 @@ -- instance is mapped to a term that originates on the instance's -- strand. -preskelWellFormed :: Algebra t p g s e c => Preskel t p g s e c -> Bool+preskelWellFormed :: Algebra t p g s e c => Preskel t g s e -> Bool preskelWellFormed k =     varSubset (knon k) terms &&     varSubset (kpnon k) terms &&@@ -548,11 +548,11 @@     where       terms = kterms k       nonCheck t = all (not . carriedBy t) terms-      uniqueCheck t = any (heldBy t) terms+      uniqueCheck t = any (carriedBy t) terms  -- Do notation friendly preskeleton well formed check. wellFormedPreskel :: (Monad m, Algebra t p g s e c) =>-                     Preskel t p g s e c -> m (Preskel t p g s e c)+                     Preskel t g s e -> m (Preskel t g s e) wellFormedPreskel k     | preskelWellFormed k = return k     | otherwise = fail "preskeleton not well formed"@@ -560,7 +560,7 @@ -- A version of preskelWellFormed that explains why a preskeleton is -- not well formed. verbosePreskelWellFormed :: (Monad m, Algebra t p g s e c) =>-                            Preskel t p g s e c -> m ()+                            Preskel t g s e -> m () verbosePreskelWellFormed k =     do       failwith "a variable in non-orig is not in some trace"@@ -579,8 +579,8 @@           failwith (showString "non-orig " $ showst t " carried")                        $ all (not . carriedBy t) terms       uniqueCheck t =-          failwith (showString "uniq-orig " $ showst t " not held")-                       $ any (heldBy t) terms+          failwith (showString "uniq-orig " $ showst t " not carried")+                       $ any (carriedBy t) terms  failwith :: Monad m => String -> Bool -> m () failwith msg test =@@ -593,11 +593,11 @@     shows $ displayTerm (addToContext emptyContext [t]) t  -- Do the nodes in the orderings have the right direction?-wellOrdered :: Algebra t p g s e c => Preskel t p g s e c -> Bool+wellOrdered :: Algebra t p g s e c => Preskel t g s e -> Bool wellOrdered k =     all pairWellOrdered (edges k) -pairWellOrdered :: Algebra t p g s e c => Edge t p g s e c -> Bool+pairWellOrdered :: Algebra t p g s e c => Edge t e -> Bool pairWellOrdered (n0, n1) =     case (event n0, event n1) of       (Out _, In _) -> True@@ -605,11 +605,11 @@  -- The terms used in the strands in this preskeleton. -- Should this return a set, or a multiset?-kterms :: Algebra t p g s e c => Preskel t p g s e c -> [t]+kterms :: Algebra t p g s e c => Preskel t g s e -> [t] kterms k = iterms (insts k)  -- The terms used in a list of instances.-iterms :: Algebra t p g s e c => [Instance t p g s e c] -> [t]+iterms :: Algebra t p g s e c => [Instance t e] -> [t] iterms insts =     foldl addSTerms [] insts     where@@ -620,7 +620,7 @@ -- Use depth first search to detect cycles.  A graph with no node with -- an indegree of zero is cyclic and must not be checked with depth -- first search.-acyclicOrder :: Algebra t p g s e c => Preskel t p g s e c -> Bool+acyclicOrder :: Algebra t p g s e c => Preskel t g s e -> Bool acyclicOrder k =     all (not . backEdge numbering) edges     where@@ -633,13 +633,13 @@  -- Variables in this preskeleton, excluding ones in roles, and ones -- that only occur in a cause.-kvars :: Algebra t p g s e c => Preskel t p g s e c -> [t]+kvars :: Algebra t p g s e c => Preskel t g s e -> [t] kvars k =     S.elems $ foldl addIvars S.empty (insts k)  -- Ensure each role unique origination assumption mapped by an -- instance originates in the instance's strand.-roleOrigCheck :: Algebra t p g s e c => Preskel t p g s e c -> Bool+roleOrigCheck :: Algebra t p g s e c => Preskel t g s e -> Bool roleOrigCheck k =     all strandRoleOrig (strands k) -- Check each strand     where@@ -672,9 +672,9 @@ -- frequently, so an specialized data structure is used.  The gist of -- a skeleton is all that is needed for the test for equivalence. -data Algebra t p g s e c => Gist t p g s e c = Gist+data Gist t g = Gist     { ggen :: g,-      gtraces :: [(Int, Trace t p g s e c)],+      gtraces :: [(Int, Trace t)],       gorderings :: [Pair],       gnon :: [t],             -- A list of non-originating terms       gpnon :: [t],      -- A list of penetrator non-originating terms@@ -687,8 +687,8 @@       nunique :: !Int }        -- Number of uniquely-originating terms     deriving Show -gist :: Algebra t p g s e c => Preskel t p g s e c ->-        Gist t p g s e c+gist :: Algebra t p g s e c => Preskel t g s e ->+        Gist t g gist k =     Gist { ggen = gen k,            gtraces = gtraces,@@ -728,11 +728,8 @@ -- appropriate one in the other preskeleton.  Finally, check to see if -- the renaming works in the nr and ur terms. -instance Algebra t p g s e c => Eq (Gist t p g s e c) where-    g == g' = isomorphic g g'--isomorphic :: Algebra t p g s e c => Gist t p g s e c ->-              Gist t p g s e c -> Bool+isomorphic :: Algebra t p g s e c => Gist t g ->+              Gist t g -> Bool isomorphic g g' =     nvars g == nvars g' &&     ntraces g == ntraces g' &&@@ -744,8 +741,8 @@  -- Extend a permutation while extending a substitution -- Extend by matching later strands first-permutations :: Algebra t p g s e c => Gist t p g s e c ->-                Gist t p g s e c -> [((g, e), [Sid])]+permutations :: Algebra t p g s e c => Gist t g ->+                Gist t g -> [((g, e), [Sid])] permutations g g' =     map rev $ perms (ggen g', emptyEnv)                     (reverse $ gtraces g)@@ -763,8 +760,8 @@       rev (env, xs) = (env, reverse xs)  -- Length of matched traces must agree.-jibeTraces :: Algebra t p g s e c => Trace t p g s e c ->-              Trace t p g s e c -> (g, e) -> [(g, e)]+jibeTraces :: Algebra t p g s e c => Trace t ->+              Trace t -> (g, e) -> [(g, e)] jibeTraces [] [] ge = [ge] jibeTraces (In t : c) (In t' : c') ge =     do@@ -801,8 +798,8 @@       interleave x (y:ys) = (x:y:ys) : map (y:) (interleave x ys) -} -tryPerm :: Algebra t p g s e c => Gist t p g s e c ->-           Gist t p g s e c -> ((g, e), [Sid]) -> Bool+tryPerm :: Algebra t p g s e c => Gist t g ->+           Gist t g -> ((g, e), [Sid]) -> Bool tryPerm g g' (env, perm) =     checkOrigs g g' env &&     containsMapped (permutePair perm) (gorderings g') (gorderings g)@@ -819,8 +816,8 @@ permuteNode :: [Sid] -> Node -> Node permuteNode perm (strand, pos) = (perm !! strand, pos) -checkOrigs :: Algebra t p g s e c => Gist t p g s e c ->-              Gist t p g s e c -> (g, e) -> Bool+checkOrigs :: Algebra t p g s e c => Gist t g ->+              Gist t g -> (g, e) -> Bool checkOrigs g g' env =     not (null          [ env''' |@@ -846,14 +843,14 @@ -- substitution.  Thus if skel (k, n, empty) = [(k', n', sigma)], then -- phi,sigma is a homomorphism from k to k', n' = phi(n). -type PRS t p g s e c = (Preskel t p g s e c, -- Parent-                        Preskel t p g s e c, -- Potential cohort member+type PRS t p g s e c = (Preskel t g s e, -- Parent+                        Preskel t g s e, -- Potential cohort member                         Node,   -- Image of test node in member                         [Sid],  -- Strand map part of homomorphism                         s)      -- Substition part of homomorphism  -- Extract the protential cohort member from a PRS.-skel :: Algebra t p g s e c => PRS t p g s e c -> Preskel t p g s e c+skel :: Algebra t p g s e c => PRS t p g s e c -> Preskel t g s e skel (_, k, _, _, _) = k  -- Returns the preskeletons that result from applying a substitution.@@ -887,14 +884,14 @@       (acc'', x') <- f acc' x       return (acc'', x':xs') -substInst :: Algebra t p g s e c => s -> g -> Instance t p g s e c ->-             [(g, Instance t p g s e c)]+substInst :: Algebra t p g s e c => s -> g -> Instance t e ->+             [(g, Instance t e)] substInst subst gen i =     bldInstance (role i) (map (evtMap $ substitute subst) (trace i)) gen  substOper :: Algebra t p g s e c => s ->-             Operation t p g s e c ->-             Operation t p g s e c+             Operation t s ->+             Operation t s substOper _ New = New substOper subst (Contracted s cause) =     Contracted (compose subst s) (substCause subst cause)@@ -907,8 +904,8 @@ substOper _ m@(Collapsed _ _) = m  substCause :: Algebra t p g s e c => s ->-              Cause t p g s e c ->-              Cause t p g s e c+              Cause t ->+              Cause t substCause subst (Cause dir n t escape) =     Cause dir n (substitute subst t) (S.map (substitute subst) escape) @@ -1045,7 +1042,7 @@       prs <- ksubst False prs subst       hull prune prs -deOrig :: Algebra t p g s e c => Preskel t p g s e c -> t -> Node -> [(g, s)]+deOrig :: Algebra t p g s e c => Preskel t g s e -> t -> Node -> [(g, s)] deOrig k u (s, i) =     [ (g, s) |       let tr = trace $ strandInst k s,@@ -1056,7 +1053,7 @@       not $ originates (substitute s u) (map (evtMap $ substitute s) tr) ]  -- Consider inbound messages only-inbnd :: Algebra t p g s e c => Event t p g s e c -> [t]+inbnd :: Algebra t p g s e c => Event t -> [t] inbnd (In t) = [t] inbnd (Out _) = [] @@ -1095,7 +1092,7 @@   | otherwise = prune prs maybePrune False prs = reduce prs -origNode :: Algebra t p g s e c => Preskel t p g s e c ->+origNode :: Algebra t p g s e c => Preskel t g s e ->             t -> Maybe Node origNode k t =     case lookup t (korig k) of@@ -1104,7 +1101,7 @@       Just [n] -> Just n       Just _ -> error "Strand.origNode: not a hulled skeleton" -addOrderings :: Algebra t p g s e c => Preskel t p g s e c ->+addOrderings :: Algebra t p g s e c => Preskel t g s e ->                 [Pair] -> t -> [Pair] addOrderings k orderings t =     case origNode k t of@@ -1119,16 +1116,16 @@  -- At what position is a term gained in a trace? gainedPos :: Algebra t p g s e c => t ->-             Trace t p g s e c -> Maybe Int+             Trace t -> Maybe Int gainedPos t c =     loop 0 c     where       loop _ [] = Nothing       -- Term is not carried       loop pos (Out t' : c)-          | t `heldBy` t' = Nothing -- Term is not gained+          | t `carriedBy` t' = Nothing -- Term is not gained           | otherwise = loop (pos + 1) c       loop pos (In t' : c)-          | t `heldBy` t' = Just pos -- Found it+          | t `carriedBy` t' = Just pos -- Found it           | otherwise = loop (pos + 1) c  -- Redundant Strand Elimination (also known as pruning)@@ -1190,8 +1187,8 @@       prs <- ksubst True prs (gen', substitution env')       compress True prs s s' -matchTraces :: Algebra t p g s e c => Trace t p g s e c ->-               Trace t p g s e c -> (g, e) -> [(g, e)]+matchTraces :: Algebra t p g s e c => Trace t ->+               Trace t -> (g, e) -> [(g, e)] matchTraces [] _ env = [env]    -- Pattern can be shorter matchTraces (In t : c) (In t' : c') env =     do@@ -1205,7 +1202,7 @@  -- Make sure a substitution does not take a unique out of the set of -- uniques, and the same for nons and pnons.-origCheck :: Algebra t p g s e c => Preskel t p g s e c -> e -> Bool+origCheck :: Algebra t p g s e c => Preskel t g s e -> e -> Bool origCheck k env =     check (kunique k) && check (knon k) && check (kpnon k)     where@@ -1216,8 +1213,8 @@  -- Ensure that if (s, p) precedes (s", p"), then (s', p) precedes (s", p") -- and if (s", p") precedes (s, p), then (s", p") precedes (s', p)-precedesCheck :: Algebra t p g s e c => Preskel t p g s e c ->-                 Sid -> Sid -> Edge t p g s e c -> Bool+precedesCheck :: Algebra t p g s e c => Preskel t g s e ->+                 Sid -> Sid -> Edge t e -> Bool precedesCheck k s s' (gn0, gn1)     | s == sid (strand gn0) = graphPrecedes (vertex k (s', pos gn0)) gn1     | s == sid (strand gn1) = graphPrecedes gn0 (vertex k (s', pos gn1))@@ -1237,7 +1234,7 @@                  s0 == s ]  -- Another experiment-unboundCheck :: Algebra t p g s e c => Preskel t p g s e c ->+unboundCheck :: Algebra t p g s e c => Preskel t g s e ->               Sid -> Sid -> e -> Bool unboundCheck k s s' env =     all (flip S.member unbound) (map (instantiate env) (S.elems unbound))@@ -1248,7 +1245,7 @@       others = kvarsBut k s s'       unbound = S.difference this others -kvarsBut :: Algebra t p g s e c => Preskel t p g s e c ->+kvarsBut :: Algebra t p g s e c => Preskel t g s e ->             Sid -> Sid -> Set t kvarsBut k s s' =     loop S.empty (insts k) 0@@ -1319,10 +1316,10 @@                      prs <- reduce prs,                      prs' <- purge prs s s',                      prs'' <- purge prs s' s,-                     gist (skel prs') == gist (skel prs'')]+                     isomorphic (gist (skel prs')) (gist (skel prs''))]  -- See if two strands match.-thinStrandMatch :: Algebra t p g s e c => Preskel t p g s e c ->+thinStrandMatch :: Algebra t p g s e c => Preskel t g s e ->                    Sid -> Sid -> (g, e) -> [(g, e)] thinStrandMatch k s s' env =   do@@ -1334,7 +1331,7 @@     matchTraces (trace i) (trace i') env  -- Do the identity, renaming, and origination check.-thinStrandCheck :: Algebra t p g s e c => Preskel t p g s e c ->+thinStrandCheck :: Algebra t p g s e c => Preskel t g s e ->                    Sid -> (g, e) -> [(g, e)] thinStrandCheck k s env =   do@@ -1394,9 +1391,9 @@                prs <- reduce prs,                prs' <- compressMany prs ps,                prs'' <- compressMany prs (swap ps),-               gist (skel prs') == gist (skel prs'')]+               isomorphic (gist (skel prs')) (gist (skel prs''))] -thinManyMatch :: Algebra t p g s e c => Preskel t p g s e c ->+thinManyMatch :: Algebra t p g s e c => Preskel t g s e ->                 [(Sid, Sid)] -> [(g, e)] thinManyMatch k ps =     do@@ -1466,10 +1463,10 @@           return (k0, k'', n, phi, hsubst)  -- Answers for cohorts-type Ans t p g s e c = (Preskel t p g s e c, Node, s)+type Ans t p g s e c = (Preskel t g s e, Node, [Sid], s)  ans :: Algebra t p g s e c => PRS t p g s e c -> Ans t p g s e c-ans (_, k, n, _, subst) = (k, n, subst)+ans (_, k, n, phi, subst) = (k, n, phi, subst)  -- Homomorphism Filter @@ -1480,8 +1477,8 @@     | otherwise = []  -- Ensure origination nodes a preserved as required to be a homomorphism-validateMappingSubst :: Algebra t p g s e c => Preskel t p g s e c ->-                        [Sid] -> s -> Preskel t p g s e c -> Bool+validateMappingSubst :: Algebra t p g s e c => Preskel t g s e ->+                        [Sid] -> s -> Preskel t g s e -> Bool validateMappingSubst k phi subst k' =     useNoOrigPreservation || all check (korig k)     where@@ -1493,18 +1490,18 @@ -- Returns the skeleton associated with a preskeleton or nothing when -- there isn't one.  Manufacture a node and a term, and then drop them -- afterwards.-toSkeleton :: Algebra t p g s e c => Bool -> Preskel t p g s e c ->-              [Preskel t p g s e c]+toSkeleton :: Algebra t p g s e c => Bool -> Preskel t g s e ->+              [Preskel t g s e] toSkeleton prune k =     do       prs <- skeletonize prune (k, k, (0, 0), strandids k, emptySubst)-      (k', _, _) <- homomorphismFilter prs+      (k', _, _, _) <- homomorphismFilter prs       return k'  -- Contraction -contract :: Algebra t p g s e c => Preskel t p g s e c -> Node ->-            Cause t p g s e c -> (g, s) -> [Ans t p g s e c]+contract :: Algebra t p g s e c => Preskel t g s e -> Node ->+            Cause t -> (g, s) -> [Ans t p g s e c] contract k n cause subst =     do       prs <- ksubst False (k, k { operation = Contracted emptySubst cause },@@ -1515,9 +1512,9 @@ -- Regular Augmentation  -- First argument determines if displacement is used.-augment :: Algebra t p g s e c => Preskel t p g s e c ->-           Node -> Cause t p g s e c -> Role t p g s e c ->-           (g, s) -> Instance t p g s e c -> [Ans t p g s e c]+augment :: Algebra t p g s e c => Preskel t g s e ->+           Node -> Cause t -> Role t ->+           (g, s) -> Instance t e -> [Ans t p g s e c] augment k0 n cause role subst inst =     do       prs <- augmentAndDisplace k0 n cause role subst inst@@ -1527,18 +1524,18 @@ -- add an instance and one ordered pair.  Displacements add an ordered -- pair and may add nodes. -augmentAndDisplace :: Algebra t p g s e c => Preskel t p g s e c ->-                      Node -> Cause t p g s e c -> Role t p g s e c ->-                      (g, s) -> Instance t p g s e c -> [PRS t p g s e c]+augmentAndDisplace :: Algebra t p g s e c => Preskel t g s e ->+                      Node -> Cause t -> Role t ->+                      (g, s) -> Instance t e -> [PRS t p g s e c] augmentAndDisplace k0 n cause role subst inst =     do       prs <- substAndAugment k0 n cause role subst inst       augDisplace prs ++ skeletonize usePruningWhileSolving prs  -- Apply the substitution and apply augmentation operator.-substAndAugment :: Algebra t p g s e c => Preskel t p g s e c ->-                   Node -> Cause t p g s e c -> Role t p g s e c ->-                   (g, s) -> Instance t p g s e c -> [PRS t p g s e c]+substAndAugment :: Algebra t p g s e c => Preskel t g s e ->+                   Node -> Cause t -> Role t ->+                   (g, s) -> Instance t e -> [PRS t p g s e c] substAndAugment k n cause role subst inst =     do       let operation' = AddedStrand (rname role) (height inst) cause@@ -1549,7 +1546,7 @@ -- Apply the augmentation operator by adding an instance and one -- ordered pair. aug :: Algebra t p g s e c => PRS t p g s e c ->-       Instance t p g s e c -> [PRS t p g s e c]+       Instance t e -> [PRS t p g s e c] aug (k0, k, n, phi, hsubst) inst =     do       let insts' = (insts k) ++ [inst]@@ -1565,21 +1562,21 @@       return (k0, k', n, phi, hsubst)  -- Inherit non-originating atoms if the traces is long enough-inheritRnon :: Algebra t p g s e c => Instance t p g s e c -> [t]+inheritRnon :: Algebra t p g s e c => Instance t e -> [t] inheritRnon i =     inherit i (rnorig (role i))  -- Inherit penenetrator non-originating atoms if the traces is long enough-inheritRpnon :: Algebra t p g s e c => Instance t p g s e c -> [t]+inheritRpnon :: Algebra t p g s e c => Instance t e -> [t] inheritRpnon i =     inherit i (rpnorig (role i))  -- Inherit uniquely originating atoms if the traces is long enough-inheritRunique :: Algebra t p g s e c => Instance t p g s e c -> [t]+inheritRunique :: Algebra t p g s e c => Instance t e -> [t] inheritRunique i =     inherit i (ruorig (role i)) -inherit :: Algebra t p g s e c => Instance t p g s e c -> [(t, Int)] -> [t]+inherit :: Algebra t p g s e c => Instance t e -> [(t, Int)] -> [t] inherit i rorigs =     map (instantiate (env i) . fst) $ filter f rorigs     where@@ -1606,7 +1603,7 @@  -- See if two strands unify.  They can be of differing heights.  The -- second strand returned may be longer.-unifyStrands :: Algebra t p g s e c => Preskel t p g s e c ->+unifyStrands :: Algebra t p g s e c => Preskel t g s e ->                 Sid -> Sid -> [(Sid, Sid, (g, s))] unifyStrands k s s' =     let i = strandInst k s@@ -1620,8 +1617,8 @@  -- Unify traces where the first trace is allowed to be shorter than -- the second trace.-unifyTraces :: Algebra t p g s e c => Trace t p g s e c ->-               Trace t p g s e c -> (g, s) -> [(g, s)]+unifyTraces :: Algebra t p g s e c => Trace t ->+               Trace t -> (g, s) -> [(g, s)] unifyTraces [] _ subst = [subst] unifyTraces (In t : c) (In t' : c') subst =     do@@ -1633,16 +1630,16 @@       unifyTraces c c' s unifyTraces _ _ _ = [] -addedToDisplaced :: Algebra t p g s e c => Operation t p g s e c ->-                    Int -> Int -> Operation t p g s e c+addedToDisplaced :: Algebra t p g s e c => Operation t s ->+                    Int -> Int -> Operation t s addedToDisplaced (AddedStrand role height cause) s s' =     Displaced s s' role height cause addedToDisplaced _ _ _ = error "Strand.addedToDisplaced: Bad operation"  -- Listener Augmentation -addListener :: Algebra t p g s e c => Preskel t p g s e c -> Node ->-               Cause t p g s e c -> t -> [Ans t p g s e c]+addListener :: Algebra t p g s e c => Preskel t g s e -> Node ->+               Cause t -> t -> [Ans t p g s e c] addListener k n cause t =     do       k' <- wellFormedPreskel k'@@ -1664,8 +1661,8 @@ -- homomorphism between the two skeletons using the given -- strand mapping function. -homomorphism :: Algebra t p g s e c => Preskel t p g s e c ->-                Preskel t p g s e c -> [Sid] -> [e]+homomorphism :: Algebra t p g s e c => Preskel t g s e ->+                Preskel t g s e -> [Sid] -> [e] homomorphism k k' mapping =     do       (_, env) <- findReplacement k k' mapping@@ -1673,20 +1670,20 @@         True -> [env]         False -> [] -findReplacement :: Algebra t p g s e c => Preskel t p g s e c ->-                   Preskel t p g s e c -> [Sid] -> [(g, e)]+findReplacement :: Algebra t p g s e c => Preskel t g s e ->+                   Preskel t g s e -> [Sid] -> [(g, e)] findReplacement k k' mapping =     foldM (matchStrand k k' mapping) (gen k', emptyEnv) (strandids k) -matchStrand :: Algebra t p g s e c => Preskel t p g s e c ->-               Preskel t p g s e c -> [Sid] -> (g, e) -> Sid -> [(g, e)]+matchStrand :: Algebra t p g s e c => Preskel t g s e ->+               Preskel t g s e -> [Sid] -> (g, e) -> Sid -> [(g, e)] matchStrand k k' mapping env s =     matchTraces (trace (strandInst k s)) (trace (strandInst k' s')) env     where       s' = mapping !! s -validateEnv :: Algebra t p g s e c => Preskel t p g s e c ->-               Preskel t p g s e c -> [Sid] -> e -> Bool+validateEnv :: Algebra t p g s e c => Preskel t g s e ->+               Preskel t g s e -> [Sid] -> e -> Bool validateEnv k k' mapping env =     all (flip elem (knon k')) (map (instantiate env) (knon k)) &&     all (flip elem (kpnon k')) (map (instantiate env) (kpnon k)) &&@@ -1694,8 +1691,8 @@     validateEnvOrig k k' mapping env &&     all (flip elem (tc k')) (permuteOrderings mapping (orderings k)) -validateEnvOrig :: Algebra t p g s e c => Preskel t p g s e c ->-                   Preskel t p g s e c -> [Sid] -> e -> Bool+validateEnvOrig :: Algebra t p g s e c => Preskel t g s e ->+                   Preskel t g s e -> [Sid] -> e -> Bool validateEnvOrig k k' mapping env =     useNoOrigPreservation || all check (korig k)     where@@ -1709,16 +1706,16 @@ -- candidate to k.  The preskeleton need not be well formed, as that -- test is applied elsewhere. -type Candidate t p g s e c = (Preskel t p g s e c, [Sid])+type Candidate t p g s e c = (Preskel t g s e, [Sid]) -addIdentity :: Algebra t p g s e c => Preskel t p g s e c ->+addIdentity :: Algebra t p g s e c => Preskel t g s e ->                Candidate t p g s e c addIdentity k = (k, strandids k)  separateVariablesLimit :: Int separateVariablesLimit = 1024 -generalize :: Algebra t p g s e c => Preskel t p g s e c ->+generalize :: Algebra t p g s e c => Preskel t g s e ->               [Candidate t p g s e c] generalize k = deleteNodes k ++                weakenOrderings k ++@@ -1739,7 +1736,7 @@ 6. update prob upon instance deletion -} -deleteNodes :: Algebra t p g s e c => Preskel t p g s e c ->+deleteNodes :: Algebra t p g s e c => Preskel t g s e ->                [Candidate t p g s e c] deleteNodes k =     do@@ -1747,8 +1744,8 @@       node <- nodes strand       deleteNode k node -deleteNode :: Algebra t p g s e c => Preskel t p g s e c ->-              Vertex t p g s e c -> [(Preskel t p g s e c, [Sid])]+deleteNode :: Algebra t p g s e c => Preskel t g s e ->+              Vertex t e -> [(Preskel t g s e, [Sid])] deleteNode k n     | p == 0 && elem s (prob k) = []     | p == 0 =@@ -1795,9 +1792,9 @@           | s == s1 && i <= i1 = []           | otherwise = [p] -deleteNodeRest :: Algebra t p g s e c => Preskel t p g s e c ->-                  g -> Node -> [Instance t p g s e c] -> [Pair] ->-                  [Sid] -> Preskel t p g s e c+deleteNodeRest :: Algebra t p g s e c => Preskel t g s e ->+                  g -> Node -> [Instance t e] -> [Pair] ->+                  [Sid] -> Preskel t g s e deleteNodeRest k gen n insts' orderings prob =     newPreskel gen (protocol k) insts' orderings non' pnon' unique'                    prio' (Generalized (Deleted n)) prob (pov k)@@ -1807,9 +1804,9 @@       pnon' = filter mentionedIn (kpnon k)       mentionedIn t = varSubset [t] terms       terms = iterms insts'-      -- Drop uniques that aren't held anywhere-      unique' = filter heldIn (kunique k)-      heldIn t = any (heldBy t) terms+      -- Drop uniques that aren't carried anywhere+      unique' = filter carriedIn (kunique k)+      carriedIn t = any (carriedBy t) terms       -- Drop unused priorities       prio' = filter within (kpriority k)       within ((s, i), _) =@@ -1827,17 +1824,17 @@ -- same strand.  The preskeleton constructor function performs a -- transitive reduction on the generated ordering. -weakenOrderings :: Algebra t p g s e c => Preskel t p g s e c ->+weakenOrderings :: Algebra t p g s e c => Preskel t g s e ->                    [Candidate t p g s e c] weakenOrderings k =     map (weakenOrdering k) (orderings k) -weakenOrdering :: Algebra t p g s e c => Preskel t p g s e c ->+weakenOrdering :: Algebra t p g s e c => Preskel t g s e ->                   Pair -> Candidate t p g s e c weakenOrdering k p =     weaken k p (L.delete p (tc k)) -weaken :: Algebra t p g s e c => Preskel t p g s e c ->+weaken :: Algebra t p g s e c => Preskel t g s e ->           Pair -> [Pair] -> Candidate t p g s e c weaken k p orderings =     addIdentity k'@@ -1851,14 +1848,14 @@ -- Delete each non-originating term that is not specified by a -- role.  Do the same for each uniquely-originating term. -forgetAssumption :: Algebra t p g s e c => Preskel t p g s e c ->+forgetAssumption :: Algebra t p g s e c => Preskel t g s e ->                     [Candidate t p g s e c] forgetAssumption k =     forgetNonTerm k ++ forgetPnonTerm k ++ forgetUniqueTerm k  -- Non-originating terms -forgetNonTerm :: Algebra t p g s e c => Preskel t p g s e c ->+forgetNonTerm :: Algebra t p g s e c => Preskel t g s e ->                  [Candidate t p g s e c] forgetNonTerm k =     map (addIdentity . delNon) (skelNons k)@@ -1867,7 +1864,7 @@           k { knon = L.delete t (knon k),               operation = Generalized (Forgot t) } -skelNons :: Algebra t p g s e c => Preskel t p g s e c -> [t]+skelNons :: Algebra t p g s e c => Preskel t g s e -> [t] skelNons k =     filter (flip notElem ru) (knon k)     where@@ -1875,7 +1872,7 @@  -- Penetrator non-originating terms -forgetPnonTerm :: Algebra t p g s e c => Preskel t p g s e c ->+forgetPnonTerm :: Algebra t p g s e c => Preskel t g s e ->                  [Candidate t p g s e c] forgetPnonTerm k =     map (addIdentity . delPnon) (skelPnons k)@@ -1884,7 +1881,7 @@           k { kpnon = L.delete t (kpnon k),               operation = Generalized (Forgot t) } -skelPnons :: Algebra t p g s e c => Preskel t p g s e c -> [t]+skelPnons :: Algebra t p g s e c => Preskel t g s e -> [t] skelPnons k =     filter (flip notElem ru) (kpnon k)     where@@ -1892,7 +1889,7 @@  -- Uniquely-originating terms -forgetUniqueTerm :: Algebra t p g s e c => Preskel t p g s e c ->+forgetUniqueTerm :: Algebra t p g s e c => Preskel t g s e ->                     [Candidate t p g s e c] forgetUniqueTerm k =     map (addIdentity . delUniq) (skelUniques k)@@ -1901,7 +1898,7 @@           k { kunique = L.delete t (kunique k),               operation = Generalized (Forgot t) } -skelUniques :: Algebra t p g s e c => Preskel t p g s e c -> [t]+skelUniques :: Algebra t p g s e c => Preskel t g s e -> [t] skelUniques k =     filter (flip notElem ru) (kunique k)     where@@ -1936,7 +1933,7 @@ --      to the unique's of K' --    add K' to the list of generated preskeletons -separateVariables :: Algebra t p g s e c => Preskel t p g s e c ->+separateVariables :: Algebra t p g s e c => Preskel t g s e ->                      [Candidate t p g s e c] separateVariables k =     do@@ -1951,7 +1948,7 @@ -- Returns a list of pairs.  For each occurrence of a preskeleton -- variable in every instance, there is a pair where the first element -- is the variable, and the second as the location at which it occurs.-extractPlaces :: Algebra t p g s e c => Preskel t p g s e c ->+extractPlaces :: Algebra t p g s e c => Preskel t g s e ->                  [(t, Location t p g s e c)] extractPlaces k =     [ (var, (sid s, v, p)) |@@ -1960,13 +1957,13 @@       var <- foldVars (flip adjoin) [] t,       p <- places var t ] -instAssocs :: Algebra t p g s e c => Instance t p g s e c -> [(t, t)]+instAssocs :: Algebra t p g s e c => Instance t e -> [(t, t)] instAssocs i =     reify (rvars (role i)) (env i)  -- For each variable, generate candidates by generating a fresh -- variable for subsets of the locations associated with the variable.-separateVariable :: Algebra t p g s e c => Preskel t p g s e c ->+separateVariable :: Algebra t p g s e c => Preskel t g s e ->                     [(t, Location t p g s e c)] -> t ->                     [Candidate t p g s e c] separateVariable k ps t =@@ -1995,7 +1992,7 @@       [] -> error "Strand.matchAlways: bad match"  -- Change the given locations and create the resulting preskeleton-changeLocations :: Algebra t p g s e c => Preskel t p g s e c ->+changeLocations :: Algebra t p g s e c => Preskel t g s e ->                    e -> g -> t -> [Location t p g s e c] ->                    [Candidate t p g s e c] changeLocations k env gen t locs =@@ -2014,7 +2011,7 @@       unique' = concatMap inheritRunique insts'  changeStrands :: Algebra t p g s e c => [Location t p g s e c] -> t ->-                 g -> [Strand t p g s e c] -> (g, [Instance t p g s e c])+                 g -> [Strand t e] -> (g, [Instance t e]) changeStrands locs copy gen strands =     case foldMapM (changeStrand locs copy) gen strands of       i : _ -> i@@ -2023,7 +2020,7 @@ -- Create an new environment incorporating changes, and from that, -- create the new strand. changeStrand :: Algebra t p g s e c => [Location t p g s e c] ->-                t -> g -> Strand t p g s e c -> [(g, Instance t p g s e c)]+                t -> g -> Strand t e -> [(g, Instance t e)] changeStrand locs copy gen s =     bldInstance (role i) trace'  gen'     where@@ -2055,14 +2052,14 @@  -- Collapse a shape by unifying strands. -collapse :: Algebra t p g s e c => Preskel t p g s e c ->-            [Preskel t p g s e c]+collapse :: Algebra t p g s e c => Preskel t g s e ->+            [Preskel t g s e] collapse k =     [k' | s <- strandids k, s' <- nats s,           k' <- collapseStrands k s s'] -collapseStrands :: Algebra t p g s e c => Preskel t p g s e c ->-                   Sid -> Sid -> [Preskel t p g s e c]+collapseStrands :: Algebra t p g s e c => Preskel t g s e ->+                   Sid -> Sid -> [Preskel t g s e] collapseStrands k s s' =     do       (s, s', subst) <- unifyStrands k s s'
src/CPSA/Logic/Logic.hs view
@@ -17,11 +17,11 @@ z x y = unsafePerformIO (print x >> return y) --} -type State t p g s e c = ([Prot t p g s e c], [Preskel t p g s e c])+type State t g c = ([Prot t g c], [Preskel t g c])  logic :: (Algebra t p g s e c, Monad m) => String -> g ->-         State t p g s e c -> Maybe (SExpr Pos) ->-         m (State t p g s e c, Maybe (SExpr ()))+         State t g c -> Maybe (SExpr Pos) ->+         m (State t g c, Maybe (SExpr ())) logic _ _ (ps, ks) Nothing =    -- Nothing signifies end-of-file     displayFormula ps (reverse ks) logic name gen (ps, []) (Just sexpr) = -- Looking for POV skeleton@@ -30,8 +30,8 @@     loadOtherPreskel name gen ps ks sexpr  loadPOV :: (Algebra t p g s e c, Monad m) => String -> g ->-           [Prot t p g s e c] -> SExpr Pos ->-           m (State t p g s e c, Maybe (SExpr ()))+           [Prot t g c] -> SExpr Pos ->+           m (State t g c, Maybe (SExpr ())) loadPOV name origin ps (L pos (S _ "defprotocol" : xs)) =     do       p <- loadProt name origin pos xs@@ -46,8 +46,8 @@ loadPOV _ _ ps _ = return ((ps, []), Nothing)  loadOtherPreskel :: (Algebra t p g s e c, Monad m) => String -> g ->-                    [Prot t p g s e c] -> [Preskel t p g s e c] ->-                    SExpr Pos -> m (State t p g s e c, Maybe (SExpr ()))+                    [Prot t g c] -> [Preskel t g c] ->+                    SExpr Pos -> m (State t g c, Maybe (SExpr ())) loadOtherPreskel name origin ps ks (L pos (S _ "defprotocol" : xs)) =     do                     -- Found next protocol.  Print this formula       p <- loadProt name origin pos xs@@ -68,15 +68,15 @@ -- The Prot record contains information extraced from protocols for -- use when processing preskeletons.  A protocol includes a role for -- all listeners.-data Algebra t p g s e c => Prot t p g s e c = Prot+data Prot t g c = Prot     { pname :: String,          -- Protocol name       pgen :: g,                -- Generator for preskeletons-      roles :: [Role t p g s e c] }+      roles :: [Role t c] }     deriving Show  -- The Role record contains information extraced from roles for use -- when processing preskeletons.-data Algebra t p g s e c => Role t p g s e c = Role+data Role t c = Role     { rname :: String,          -- Role name       vars :: [t],       ctx :: c }@@ -85,7 +85,7 @@ -- Load a protocol.  On success, returns a Prot record.  loadProt :: (Algebra t p g s e c, Monad m) => String -> g ->-            Pos -> [SExpr Pos] -> m (Prot t p g s e c)+            Pos -> [SExpr Pos] -> m (Prot t g c) loadProt nom origin pos (S _ name : S _ alg : x : xs)     | alg /= nom =         fail (shows pos $ "Expecting terms in algebra " ++ nom)@@ -103,7 +103,7 @@ -- its roles.  loadRoles :: (Algebra t p g s e c, Monad m) => g ->-             [SExpr Pos] -> m (g, [Role t p g s e c])+             [SExpr Pos] -> m (g, [Role t c]) loadRoles origin xs =     mapAccumLM loadRole origin $ stripComments xs @@ -125,7 +125,7 @@       return (z'', y : ys)  loadRole :: (Algebra t p g s e c, Monad m) => g ->-            SExpr Pos -> m (g, Role t p g s e c)+            SExpr Pos -> m (g, Role t c) loadRole gen (L _ (S _ "defrole" :                      S _ name : 	             L _ (S _ "vars" : vars) :@@ -145,7 +145,7 @@ listenerName = ""  makeListenerRole :: (Algebra t p g s e c, Monad m) => Pos -> g ->-                    m (g, Role t p g s e c)+                    m (g, Role t c) makeListenerRole pos gen =     do       (gen', t) <- makeVar pos gen "x"@@ -165,7 +165,7 @@ -- Find a protocol  findProt :: (Algebra t p g s e c, Monad m) => Pos ->-            [Prot t p g s e c] -> [SExpr Pos] -> m (Prot t p g s e c)+            [Prot t g c] -> [SExpr Pos] -> m (Prot t g c) findProt pos ps (S _ name : _) =     case L.find (\p -> name == pname p) ps of       Nothing -> fail (shows pos $ "Protocol " ++ name ++ " unknown")@@ -174,9 +174,9 @@  -- Load a preskeleton -data Algebra t p g s e c => Instance t p g s e c = Instance+data Instance t c = Instance     { pos :: Pos,               -- Instance position-      role :: Role t p g s e c, -- Role from which this was instantiated+      role :: Role t c,         -- Role from which this was instantiated       env :: [(t, t)],          -- The environment       height :: Int,            -- Height of the instance       strand :: t }             -- Variable associated with the instance@@ -188,11 +188,11 @@  type Pair = (Node, Node)        -- Precedes relation -data Algebra t p g s e c => Preskel t p g s e c = Preskel-    { protocol :: Prot t p g s e c,+data Preskel t g c = Preskel+    { protocol :: Prot t g c,       kgen :: g,                -- Final generator       kvars :: [t],             -- Variables excluding strand vars-      insts :: [Instance t p g s e c],+      insts :: [Instance t c],       orderings :: [Pair],       nons :: [t],       uniqs :: [t],@@ -202,8 +202,8 @@       homomorphisms :: [SExpr Pos], -- Loaded later       kctx :: c } -loadPreskel :: (Algebra t p g s e c, Monad m) => Pos -> Prot t p g s e c ->-               g -> c -> [SExpr Pos] -> m (Preskel t p g s e c)+loadPreskel :: (Algebra t p g s e c, Monad m) => Pos -> Prot t g c ->+               g -> c -> [SExpr Pos] -> m (Preskel t g c) loadPreskel _ prot gen ctx (S _ _ : L _ (S _ "vars" : vars) : xs) =     do       (gen', kvars) <- loadVars gen vars@@ -229,9 +229,8 @@                         kctx = kctx }) loadPreskel pos _ _ _ _ = fail (shows pos "Malformed skeleton") -loadInsts :: (Algebra t p g s e c, Monad m) => Prot t p g s e c ->-             g -> [t] -> [Instance t p g s e c] -> [SExpr Pos] ->-             m (g, [Instance t p g s e c])+loadInsts :: (Algebra t p g s e c, Monad m) => Prot t g c ->+             g -> [t] -> [Instance t c] -> [SExpr Pos] -> m (g, [Instance t c]) loadInsts prot gen kvars insts (L pos (S _ "defstrand" : x) : xs) =     case x of       S _ role : N _ height : env ->@@ -251,9 +250,8 @@ loadInsts _ gen _ insts _ =     return (gen, reverse insts) -loadInst :: (Algebra t p g s e c, Monad m) => Pos -> Prot t p g s e c ->-            g -> [t] -> String -> Int -> [SExpr Pos] ->-            m (g, Instance t p g s e c)+loadInst :: (Algebra t p g s e c, Monad m) => Pos -> Prot t g c ->+            g -> [t] -> String -> Int -> [SExpr Pos] -> m (g, Instance t c) loadInst pos prot gen kvars role height env =     do       r <- lookupRole pos prot role@@ -265,7 +263,7 @@                                strand = t })  lookupRole :: (Algebra t p g s e c, Monad m) => Pos ->-              Prot t p g s e c -> String -> m (Role t p g s e c)+              Prot t g c -> String -> m (Role t c) lookupRole pos prot role =     case L.find (\r -> role == rname r) (roles prot) of       Nothing ->@@ -282,8 +280,7 @@ loadMaplet _ _ x = fail (shows (annotation x) "Malformed maplet")  loadListener :: (Algebra t p g s e c, Monad m) => Pos ->-                Prot t p g s e c -> [t] -> g -> SExpr Pos ->-                m (g, Instance t p g s e c)+                Prot t g c -> [t] -> g -> SExpr Pos -> m (g, Instance t c) loadListener pos prot kvars gen x =     do       r <- lookupRole pos prot listenerName@@ -372,13 +369,13 @@ -- A homomorphism is a list of length two, a strand map as a list of -- natural numbers, and a substition. -loadMaps :: (Algebra t p g s e c, Monad m) => Preskel t p g s e c ->-            Preskel t p g s e c -> [SExpr Pos] -> m [[SExpr ()]]+loadMaps :: (Algebra t p g s e c, Monad m) => Preskel t g c ->+            Preskel t g c -> [SExpr Pos] -> m [[SExpr ()]] loadMaps pov k maps =     mapM (loadMap pov k) maps -loadMap :: (Algebra t p g s e c, Monad m) => Preskel t p g s e c ->-            Preskel t p g s e c -> SExpr Pos -> m [SExpr ()]+loadMap :: (Algebra t p g s e c, Monad m) => Preskel t g c ->+            Preskel t g c -> SExpr Pos -> m [SExpr ()] loadMap pov k (L _ [L _ strandMap, L _ algebraMap]) =     do       let zs = map strand $ insts pov@@ -447,8 +444,8 @@ -- Formula printing  displayFormula :: (Algebra t p g s e c, Monad m) =>-                  [Prot t p g s e c] -> [Preskel t p g s e c] ->-                  m (State t p g s e c, Maybe (SExpr ()))+                  [Prot t g c] -> [Preskel t g c] ->+                  m (State t g c, Maybe (SExpr ())) displayFormula ps [] =     return ((ps, []), Nothing) displayFormula ps (k : ks) =@@ -456,8 +453,8 @@       sexpr <- form k ks       return ((ps, []), Just sexpr) -form :: (Algebra t p g s e c, Monad m) => Preskel t p g s e c ->-        [Preskel t p g s e c] -> m (SExpr ())+form :: (Algebra t p g s e c, Monad m) => Preskel t g c ->+        [Preskel t g c] -> m (SExpr ()) form k ks =                     -- k is the POV skeleton     do                          -- ks is the list of shapes       (vars, conj) <- skel k@@ -467,7 +464,7 @@  -- Convert one skeleton into a declaration and a conjunction.  The -- declaration is used as the bound variables in a quantifier.-skel :: (Algebra t p g s e c, Monad m) => Preskel t p g s e c ->+skel :: (Algebra t p g s e c, Monad m) => Preskel t g c ->         m ([SExpr ()], [SExpr ()]) skel k =     do@@ -492,8 +489,8 @@ nat (v : vs) = v : nat vs  -- Creates the atomic formulas used to describe an instance of a role-strandForm :: Algebra t p g s e c => Preskel t p g s e c ->-              Instance t p g s e c -> SExpr ()+strandForm :: Algebra t p g s e c => Preskel t g c ->+              Instance t c -> SExpr () strandForm k inst =     conjoin $ map f $ env inst     where@@ -511,7 +508,7 @@ quote x = x  -- Creates the atomic formula used to describe a node ordering relation-precForm :: Algebra t p g s e c => Preskel t p g s e c -> Pair -> SExpr ()+precForm :: Algebra t p g s e c => Preskel t g c -> Pair -> SExpr () precForm k ((s, i), (s', i')) =     L () [S () "prec",           displayTerm (kctx k) t,@@ -522,7 +519,7 @@       t = strand $ insts k !! s       t' = strand $ insts k !! s' -origForm :: Algebra t p g s e c => Preskel t p g s e c ->+origForm :: Algebra t p g s e c => Preskel t g c ->             (t, Node) -> SExpr () origForm k (t, (s, i)) =     L () [S () "orig",@@ -535,8 +532,8 @@ -- Creates a formula associated with a shape.  It is a disjunction of -- existentially quantified formulas that describe the homomorphism -- and the shape as a skeleton.-shape :: (Algebra t p g s e c, Monad m) => Preskel t p g s e c ->-         Preskel t p g s e c -> m (SExpr ())+shape :: (Algebra t p g s e c, Monad m) => Preskel t g c ->+         Preskel t g c -> m (SExpr ()) shape pov k =     do       (vars, conj) <- skel k
src/CPSA/Logic/Main.hs view
@@ -68,8 +68,8 @@                     loop a  step :: Algebra t p g s e c => Handle ->-        String -> g -> Int -> State t p g s e c ->-        Maybe (SExpr Pos) -> IO (State t p g s e c)+        String -> g -> Int -> State t g c ->+        Maybe (SExpr Pos) -> IO (State t g c) step output _ _ margin state@([], []) (Just sexpr@(L _ (S _ cmt : _)))      | cmt == "herald" || cmt == "comment" =          do@@ -88,8 +88,8 @@         Left err ->             abort (show err) -after :: Algebra t p g s e c => Handle -> Int -> State t p g s e c ->-         Maybe (SExpr Pos) -> IO (State t p g s e c)+after :: Algebra t p g s e c => Handle -> Int -> State t g c ->+         Maybe (SExpr Pos) -> IO (State t g c) after output margin state (Just sexpr@(L _ (S _ "defprotocol" : _))) =     do       writeLnSEexpr output margin sexpr
src/CPSA/Parameters/Flow.hs view
@@ -54,11 +54,11 @@ mapRole _ x = return (strip x)  loadTrace :: (Algebra t p g s e c, Monad m) => [t] ->-             [SExpr Pos] -> m [Event t p g s e c]+             [SExpr Pos] -> m [Event t] loadTrace vars xs = mapM (loadEvt vars) xs  loadEvt :: (Algebra t p g s e c, Monad m) => [t] ->-          SExpr Pos -> m (Event t p g s e c)+          SExpr Pos -> m (Event t) loadEvt vars (L _ [S _ "recv", t]) =     do       t <- loadTerm vars t
src/CPSA/SimpleDiffieHellman/Algebra.hs view
@@ -60,9 +60,6 @@ cloneId :: Gen -> Id -> (Gen, Id) cloneId gen x = freshId gen (idName x) -mash :: Gen -> Gen -> Gen-mash (Gen i) (Gen j) = Gen (max i j)- -- The Simple Diffie-Hellman Order-Sorted Signature is  -- Sorts: mesg, text, data, name, skey, akey, string, base, and expn@@ -366,7 +363,7 @@     foldVars f acc t foldVars _ _ t = error $ "Algebra.foldVars: Bad term " ++ show t --- Fold f through a term applying it to each term that is held by the+-- Fold f through a term applying it to each term that is carried by the -- term. -- -- Semantics change: this used to fold f through a term applying it to@@ -393,19 +390,6 @@         F Enc [t0, _] -> carriedBy t t0         _ -> False --- Is a term held by another term?-heldBy :: Term -> Term -> Bool-heldBy t t' =-    t == t' ||-      case t' of-        F Cat [t0, t1] -> heldBy t t0 || heldBy t t1-        F Enc [t0, _] -> heldBy t t0-        F Base [t0] -> expnHeldBy t t0-        _ -> False-    where-      expnHeldBy t (F Exp [t0, t1]) = t == F Expn [t1] || expnHeldBy t t0-      expnHeldBy _ _ = False- -- The key used to decrypt an encrypted term, otherwise Nothing. decryptionKey :: Term -> Maybe Term decryptionKey (F Enc [_, t]) = Just (inv t)@@ -506,7 +490,7 @@       bare (F Cat [t, t']) acc =           maybe Nothing (bare t') (bare t acc)       bare t@(F Enc [t', key]) acc =-          if target `heldBy` t' then+          if target `carriedBy` t' then               if derivable (inv key) then                   bare t' acc               else@@ -515,7 +499,7 @@               Just acc       -- A base value is protector if the target is one of its exponents       bare t@(F Base [_]) acc-           | target `heldBy` t = Just (S.insert t acc)+           | target `carriedBy` t = Just (S.insert t acc)            | otherwise = Just acc       bare _ acc = Just acc @@ -581,7 +565,6 @@     foldVars = foldVars     foldCarriedTerms = foldCarriedTerms     carriedBy = carriedBy-    heldBy = heldBy     decryptionKey = decryptionKey     decompose = decompose     buildable = buildable@@ -625,8 +608,9 @@           F s (C.replaceNth (loop path (u !! i)) i u)       loop _ _ = error "Algebra.replace: Bad path to variable" --- Returns the places a term is held by another term.+-- Returns the places a term is carried by another term. --+-- !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -- Semantics change: this used to return the places a term is carried -- by another term. carriedPlaces :: Term -> Term -> [Place]@@ -868,30 +852,11 @@       F s u ->           F s (map (substChase subst) u) --- more general than relation--- s0 `lte` s1 if s1 = compose s2 s0 for some s2-moreGeneral :: GenSubst -> GenSubst -> Bool-moreGeneral (g0, Subst s0) (g1, Subst s1) =-    let dom = S.elems $ foldl idSet (M.keysSet s0) (M.elems s0)-        env = foldl (flip M.delete) s1 (M.keys s0) in-    loop dom (mash g0 g1, Env env)-    where-      loop [] _ = True-      loop (x : xs) env =-          any (loop xs) (match (get x s0) (get x s1) env)-      get x env = M.findWithDefault (I x) x env--idSet :: Set Id -> Term -> Set Id-idSet set (I id) = S.insert id set-idSet set (C _) = set-idSet set (F _ u) = foldl idSet set u- instance C.Subst Term Gen Subst where    emptySubst = emptySubst    substitute = substitute    unify = unify    compose = compose-   moreGeneral = moreGeneral  -- Matching and instantiation
src/cpsa.pl view
@@ -144,7 +144,7 @@ %% %% Var ::= Atom. %%-%% Tag ::= String as a Prolog atom.+%% Tag ::= String  sexpr_to_cpsa([comment|X], c(X)). sexpr_to_cpsa([herald, Name|Alist], h(Name, Alist)).@@ -198,6 +198,8 @@  sexpr_to_term(Term, Term) :- 	atom(Term).+sexpr_to_term(Term, Term) :-+	string(Term). sexpr_to_term([cat, Sterm], Term) :- 	sexpr_to_term(Sterm, Term). sexpr_to_term([cat, Sterm1, Sterm2|Sterms], cat(Term1, Term)) :-@@ -365,6 +367,8 @@  term_to_sexpr(Term, Term) :- 	atom(Term).+term_to_sexpr(Term, Term) :-+	string(Term). term_to_sexpr(cat(Term1, Term2), [cat, Sterm1|Sterms]) :- 	term_to_sexpr(Term1, Sterm1), 	term_to_sexprs(Term2, Sterms).
src/sexpr.pl view
@@ -4,10 +4,10 @@ %% generates pretty printer trees for S-expressions for use with the %% exports of the pretty printer module pp. -%% Known to work in SWI-Prolog, but not with GNU Prolog.  Atoms and-%% integers in S-expressions are mapped to Prolog atoms and numbers in-%% the obvious way.  Strings in S-expressions are mapped into Prolog-%% atoms that include the opening and closing quote.+%% Known to work in SWI-Prolog, but not with GNU Prolog.  The program+%% makes use of the non-standard atomic data type string to represent+%% strings in S-expressions.  Atoms and integers in S-expressions are+%% mapped to Prolog standard atoms and numbers.  %% Copyright (c) 2009 The MITRE Corporation %%@@ -71,9 +71,9 @@ 	sexpr_number(C, S).  sexpr(S) -->-	sexpr_string_start(C),+	sexpr_string_start, 	!,-	sexpr_string(C, S).+	sexpr_string(S).  sexpr(S) --> 	sexpr_symbol(S).@@ -107,23 +107,23 @@ 	sexpr_digit(C), 	sexpr_digits(L). -% Parse a string with the opening and closing quote.+% Parse a string minus the opening quote. -sexpr_string(C, S) -->+sexpr_string(S) --> 	sexpr_string_rest(L),-	{ atom_codes(S, [C|L]) }.+	{ string_to_list(S, L) }.  sexpr_string_rest(L) -->-	sexpr_string_start(C),+	sexpr_string_start, 	!,-	{ L = [C] }.+	{ L = [] }.  sexpr_string_rest([C|L]) --> 	[C], 	sexpr_string_rest(L). -sexpr_string_start(C) -->-	sexpr_quote(C).+sexpr_string_start -->+	sexpr_quote.  % Symbols @@ -183,7 +183,7 @@ 	[C], 	{ code_type(C, digit) }. -sexpr_quote(C) -->+sexpr_quote --> 	[C], 	{ sexpr_token(C, quote) }. @@ -316,6 +316,14 @@ atom_to_pretty([], Pretty) :- 	!, 	pp:atm('()', Pretty).+atom_to_pretty(Thing, Pretty) :-+	string(Thing),+	!,+	atom_codes('"', Quote),+	string_to_list(Thing, Codes),+	append(Quote, Codes, X),+	append(X, Quote, String),+	pp:atm(String, Pretty). atom_to_pretty(Thing, Pretty) :- 	atomic(Thing), 	pp:atm(Thing, Pretty).
+ src/unsorted.pl view
@@ -0,0 +1,252 @@+% -*- mode: prolog -*-++%% Unsorted CPSA terms++%% Copyright (c) 2013 The MITRE Corporation+%%+%% This program is free software: you can redistribute it and/or+%% modify it under the terms of the BSD License as published by the+%% University of California.++:- module(unsorted, [to_unsorted/3, from_unsorted/3, unify/3, unify/4]).++:- use_module(cpsa).++%% An unsorted term has inclusion operations inserted to preserve sort+%% constraints within an unsorted algebra.  It also replaces the privk+%% operation in favor of invk o pubk.++%% Term ::= Tag | Var | name(Var) | text(Var) | data(Var) | akey(Akey)+%%       |  skey(Skey) | cat(Term, Term) | enc(Term, Term) | hash(Term).+%% Akey ::= Var | invk(Akey) | pubk(Var) | pubk(Tag, Var).+%% Skey ::= Var | ltk(Var, Var).++%% to_unsorted(+Decls, +Term, -Uterm)+to_unsorted(Decls, Term, Uterm) :-+    % Add inclusion operation to each variable that needs one+    decls_as_pairs(Decls, VarMap),+    to_unsorted_term(VarMap, Term, Uterm).++% Note that the operation privk is eliminated in favor of invk o pubk.+to_unsorted_term(_, Term, Term) :-+    string(Term),		% Case of tags+    !.+to_unsorted_term(VarMap, Term, Uterm) :-+    atom(Term),			% Case of variables+    lookup(Term, VarMap, Uterm).+to_unsorted_term(VarMap, invk(Term), akey(invk(Uterm))) :-+    to_unsorted_term(VarMap, Term, akey(Uterm)).+to_unsorted_term(VarMap, pubk(Term), akey(pubk(Uterm))) :-+    to_unsorted_term(VarMap, Term, name(Uterm)).+to_unsorted_term(VarMap, pubk(Term0, Term1), akey(pubk(Uterm0, Uterm1))) :-+    string(Uterm0),		% Case of pubk(tag, name var)+    to_unsorted_term(VarMap, Term0, Uterm0),+    to_unsorted_term(VarMap, Term1, name(Uterm1)).+to_unsorted_term(VarMap, privk(Term), Uterm) :-+    to_unsorted_term(VarMap, invk(pubk(Term)), Uterm).+to_unsorted_term(VarMap, privk(Term0, Term1), Uterm) :-+    to_unsorted_term(VarMap, invk(pubk(Term0, Term1)), Uterm).+to_unsorted_term(VarMap, ltk(Term0, Term1), skey(ltk(Uterm0, Uterm1))) :-+    to_unsorted_term(VarMap, Term0, name(Uterm0)),+    to_unsorted_term(VarMap, Term1, name(Uterm1)).+to_unsorted_term(VarMap, cat(Term0, Term1), cat(Uterm0, Uterm1)) :-+    to_unsorted_term(VarMap, Term0, Uterm0),+    to_unsorted_term(VarMap, Term1, Uterm1).+to_unsorted_term(VarMap, enc(Term0, Term1), enc(Uterm0, Uterm1)) :-+    to_unsorted_term(VarMap, Term0, Uterm0),+    to_unsorted_term(VarMap, Term1, Uterm1).+to_unsorted_term(VarMap, hash(Term), hash(Uterm)) :-+    to_unsorted_term(VarMap, Term, Uterm).++% Adds inclusion operations to variables other than those of sort mesg.+decls_as_pairs([], []).+decls_as_pairs([d(Sort, Vars)|Decls], VarMap) :-+    decl_as_pairs(Vars, Sort, Decls, VarMap).++decl_as_pairs([], _, Decls, VarMap) :-+    decls_as_pairs(Decls, VarMap).+decl_as_pairs(_, mesg, Decls, VarMap) :-+    !,+    decls_as_pairs(Decls, VarMap).+decl_as_pairs([Var|Vars], Sort, Decls, [(Var, Term)|VarMap]) :-+    Term =.. [Sort, Var],+    decl_as_pairs(Vars, Sort, Decls, VarMap).++% Lookup value in an association list+lookup(Key, [(Key, Value)|_], Value) :-+    !.+lookup(Key, [_|Map], Value) :-+    lookup(Key, Map, Value).++% From unsorted translates back to the order-sorted algebra+% representation and also produces the appropriate variable+% declaration.++%% from_unsorted(+Uterm, -Term, -Decls).+from_unsorted(InTerm, OutTerm, Decls) :-+    from_unsorted_term(InTerm, [], OutTerm, Map),+    pairs_as_decls(Map, [], Decls).++% Convert an association list representation to a list of declarations.+pairs_as_decls([], Decls, Decls).+% Case when sort decls has already been constructed+pairs_as_decls([(_, Value)|Map], Decls, Decls) :-+    member(d(Value, _), Decls),+    !,+    pairs_as_decls(Map, Decls, Decls).+% Construct one sort decl+pairs_as_decls([(Var, Value)|Map], Decls, [d(Value, [Var|Vars])|Decls]) :-+    select(Value, Map, Vars).++% Collect vars of a given sort.+select(_, [], []).+select(Value, [(Var, Value)|Map], [Var|Vars]) :-+    !,+    select(Value, Map, Vars).+select(Value, [_|Map], Vars) :-+    select(Value, Map, Vars).++%% The core of the translation is here.++%% from_unsorted_term(+InTerm, +InMap, -OutTerm, -OutMap).+from_unsorted_term(Term, Map, Term, Map) :-+    string(Term),		% Tags+    !.+from_unsorted_term(Term, InMap, Term, OutMap) :-+    atom(Term),			% Variables of sort mesg+    extend_map(Term, mesg, InMap, OutMap).+from_unsorted_term(name(Term), InMap, Term, OutMap) :-+    atom(Term),			% Variables of sort name+    extend_map(Term, name, InMap, OutMap).+from_unsorted_term(text(Term), InMap, Term, OutMap) :-+    atom(Term),			% Variables of sort text+    extend_map(Term, text, InMap, OutMap).+from_unsorted_term(data(Term), InMap, Term, OutMap) :-+    atom(Term),			% Variables of sort data+    extend_map(Term, data, InMap, OutMap).+from_unsorted_term(skey(InTerm), InMap, OutTerm, OutMap) :-+    from_unsorted_skey_term(InTerm, InMap, OutTerm, OutMap).+from_unsorted_term(akey(InTerm), InMap, OutTerm, OutMap) :-+    from_unsorted_akey_term(InTerm, InMap, OutTerm, OutMap).+from_unsorted_term(cat(InTerm0, InTerm1), InMap, % Pairs+		   cat(OutTerm0, OutTerm1), OutMap) :-+    from_unsorted_term(InTerm0, InMap, OutTerm0, Map),+    from_unsorted_term(InTerm1, Map, OutTerm1, OutMap).+from_unsorted_term(enc(InTerm0, InTerm1), InMap, % Encryption+		   enc(OutTerm0, OutTerm1), OutMap) :-+    from_unsorted_term(InTerm0, InMap, OutTerm0, Map),+    from_unsorted_term(InTerm1, Map, OutTerm1, OutMap).++% Terms of sort skey+from_unsorted_skey_term(Term, InMap, Term, OutMap) :-+    atom(Term), 		% Variables of sort skey+    extend_map(Term, skey, InMap, OutMap).+% ltk: long term keys+from_unsorted_skey_term(ltk(InTerm0, InTerm1), InMap,+			ltk(OutTerm0, OutTerm1), OutMap) :-+    from_unsorted_term(name(InTerm0), InMap, OutTerm0, Map),+    from_unsorted_term(name(InTerm1), Map, OutTerm1, OutMap).++% Terms of sort akey+from_unsorted_akey_term(Term, InMap, Term, OutMap) :-+    atom(Term), 		% Variables of sort akey+    extend_map(Term, akey, InMap, OutMap).+from_unsorted_akey_term(invk(pubk(InTerm)), InMap, privk(OutTerm), OutMap) :-+    !,				% privk+    from_unsorted_term(name(InTerm), InMap, OutTerm, OutMap).+from_unsorted_akey_term(pubk(InTerm), InMap, pubk(OutTerm), OutMap) :-+    from_unsorted_term(name(InTerm), InMap, OutTerm, OutMap). % pubk+from_unsorted_akey_term(invk(InTerm), InMap, invk(OutTerm), OutMap) :-+    from_unsorted_akey_term(InTerm, InMap, OutTerm, OutMap). % invk++% Extend a mapping or fail with an inconsistent mapping.+%% extend_map(+Key, +Value, +Map, -NewMap).+extend_map(Key, Value, Map, Map) :-+    lookup(Key, Map, Result),+    !,+    Result = Value.	   % Fails when key is mapped to another value+% Extend Map when Key is not mapped+extend_map(Key, Value, Map, [(Key, Value)|Map]).++%% Unification of unsorted terms given the equation invk(invk(k)) = k.++%% unify(+Term0, +Term1, -Subst).+unify(Term0, Term1, Subst) :-+    unify(Term0, Term1, [], Subst).++%% This version extends a substition.+%% unify(+Term0, +Term1, +InSubst, -OutSubst).+unify(Term0, Term1, InSubst, OutSubst) :-+    chase(Term0, InSubst, Term2),+    chase(Term1, InSubst, Term3),+    unify_aux(Term2, Term3, InSubst, OutSubst).++%% Find the canonical variable within an equivalence class.+%% This version of the chase handles the equation invk(invk(k)) = k.+chase(Term, _, Term) :-+    string(Term),		% Tag+    !.+chase(InTerm, Subst, OutTerm) :-+    atom(InTerm),		% Variable+    !,+    chase_var(InTerm, Subst, OutTerm).+chase(invk(InTerm), Subst, OutTerm) :-+    !,+    chase_invk(InTerm, Subst, OutTerm).+chase(Term, _, Term).++chase_var(InTerm, Subst, OutTerm) :-+    lookup(InTerm, Subst, Term),+    !,+    chase(Term, Subst, OutTerm).+chase_var(Term, _, Term).++chase_invk(Term, _, Term) :-+    string(Term),		% This should never happen+    !.+chase_invk(InTerm, Subst, OutTerm) :-+    atom(InTerm),+    !,+    chase_invk_var(InTerm, Subst, OutTerm).+chase_invk(invk(InTerm), Subst, OutTerm) :-+    !,+    chase(InTerm, Subst, OutTerm).+chase_invk(Term, _, invk(Term)).++chase_invk_var(InTerm, Subst, OutTerm) :-+    lookup(InTerm, Subst, Term),+    !,+    chase_invk(Term, Subst, OutTerm).+chase_invk_var(Term, _, invk(Term)).++%% The remainder of unification assumes that the chase has been+%% applied to the two terms.++unify_aux(Term, Term, Subst, Subst).+unify_aux(Term0, _, Subst, Subst) :-+    string(Term0),+    !,+    fail.+unify_aux(Term0, Term1, InSubst, OutSubst) :-+    atom(Term0),+    !,+    extend_map(Term0, Term1, InSubst, OutSubst).+unify_aux(Term0, Term1, InSubst, OutSubst) :-+    atom(Term1),+    !,+    unify_aux(Term1, Term0, InSubst, OutSubst).+%% Clauses that handle the equation+unify_aux(invk(Term0), pubk(Term1), InSubst, OutSubst) :-+    unify_aux(Term0, invk(pubk(Term1)), InSubst, OutSubst).+unify_aux(pubk(Term0), invk(Term1), InSubst, OutSubst) :-+    unify_aux(Term1, invk(pubk(Term0)), InSubst, OutSubst).+%% Clause that handles other function symbols+unify_aux(Term0, Term1, InSubst, OutSubst) :-+    Term0 =.. [Fun|Terms0],+    Term1 =.. [Fun|Terms1],+    unify_list(Terms0, Terms1, InSubst, OutSubst).++unify_list([], [], Subst, Subst).+unify_list([Term0|Terms0], [Term1|Terms1], InSubst, OutSubst) :-+    unify(Term0, Term1, InSubst, Subst),+    unify_list(Terms0, Terms1, Subst, OutSubst).
tst/DH_hack.tst view
@@ -1,6 +1,6 @@ (herald "DH Hack" (bound 15)) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from DH_hack.scm") (comment "Strand count bounded at 15")
tst/blanchet.tst view
@@ -1,7 +1,7 @@ (herald "Blanchet's Simple Example Protocol"   (comment "There is a flaw in this protocol by design")) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from blanchet.scm")  (defprotocol blanchet basic
tst/completeness-test.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from completeness-test.scm")  (defprotocol completeness-test basic
tst/crushing.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from crushing.scm")  (defprotocol crushing basic
tst/dass_simple.tst view
@@ -1,6 +1,6 @@ (herald "Distributed Authentication Security Service Protocol Variants") -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from dass_simple.scm")  (defprotocol dass-simple basic
tst/denning-sacco.tst view
@@ -1,6 +1,6 @@ (herald "Denning-Sacco Protocol") -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from denning-sacco.scm")  (defprotocol denning-sacco basic@@ -91,10 +91,10 @@   (comment "2 in cohort - 2 not yet seen"))  (defskeleton denning-sacco-  (vars (ta text) (a b ks b-0 name) (k skey))+  (vars (ta text) (a b ks a-0 name) (k skey))   (defstrand resp 1 (ta ta) (a a) (b b) (ks ks) (k k))   (defstrand init 3 (ta ta) (a a) (b b) (ks ks) (k k))-  (defstrand keyserver 2 (a b) (b b-0) (ks ks))+  (defstrand keyserver 2 (a a-0) (b b) (ks ks))   (precedes ((1 2) (0 0)) ((2 1) (1 1)))   (non-orig (privk a) (privk b) (privk ks))   (uniq-orig k)@@ -110,20 +110,20 @@       (send         (enc (enc a b k ta (privk a)) (enc b (pubk b) (privk ks))           (enc a (pubk a) (privk ks)) (pubk b))))-    ((recv (cat b b-0))+    ((recv (cat a-0 b))       (send-        (cat (enc b-0 (pubk b-0) (privk ks))-          (enc b (pubk b) (privk ks))))))+        (cat (enc b (pubk b) (privk ks))+          (enc a-0 (pubk a-0) (privk ks))))))   (label 3)   (parent 2)   (unrealized (1 1))   (comment "4 in cohort - 4 not yet seen"))  (defskeleton denning-sacco-  (vars (ta text) (a b ks a-0 name) (k skey))+  (vars (ta text) (a b ks b-0 name) (k skey))   (defstrand resp 1 (ta ta) (a a) (b b) (ks ks) (k k))   (defstrand init 3 (ta ta) (a a) (b b) (ks ks) (k k))-  (defstrand keyserver 2 (a a-0) (b b) (ks ks))+  (defstrand keyserver 2 (a b) (b b-0) (ks ks))   (precedes ((1 2) (0 0)) ((2 1) (1 1)))   (non-orig (privk a) (privk b) (privk ks))   (uniq-orig k)@@ -139,25 +139,25 @@       (send         (enc (enc a b k ta (privk a)) (enc b (pubk b) (privk ks))           (enc a (pubk a) (privk ks)) (pubk b))))-    ((recv (cat a-0 b))+    ((recv (cat b b-0))       (send-        (cat (enc b (pubk b) (privk ks))-          (enc a-0 (pubk a-0) (privk ks))))))+        (cat (enc b-0 (pubk b-0) (privk ks))+          (enc b (pubk b) (privk ks))))))   (label 4)   (parent 2)   (unrealized (1 1))   (comment "4 in cohort - 4 not yet seen"))  (defskeleton denning-sacco-  (vars (ta text) (b ks b-0 name) (k skey))+  (vars (ta text) (b ks a name) (k skey))   (defstrand resp 1 (ta ta) (a b) (b b) (ks ks) (k k))   (defstrand init 3 (ta ta) (a b) (b b) (ks ks) (k k))-  (defstrand keyserver 2 (a b) (b b-0) (ks ks))+  (defstrand keyserver 2 (a a) (b b) (ks ks))   (precedes ((1 2) (0 0)) ((2 1) (1 1)))   (non-orig (privk b) (privk ks))   (uniq-orig k)   (operation encryption-test (displaced 3 2 keyserver 2)-    (enc a (pubk a) (privk ks)) (1 1))+    (enc a-0 (pubk a-0) (privk ks)) (1 1))   (traces     ((recv        (enc (enc b b k ta (privk b)) (enc b (pubk b) (privk ks))@@ -168,10 +168,9 @@       (send         (enc (enc b b k ta (privk b)) (enc b (pubk b) (privk ks))           (enc b (pubk b) (privk ks)) (pubk b))))-    ((recv (cat b b-0))+    ((recv (cat a b))       (send-        (cat (enc b-0 (pubk b-0) (privk ks))-          (enc b (pubk b) (privk ks))))))+        (cat (enc b (pubk b) (privk ks)) (enc a (pubk a) (privk ks))))))   (label 5)   (parent 3)   (unrealized)@@ -180,11 +179,11 @@   (origs (k (1 2))))  (defskeleton denning-sacco-  (vars (ta text) (a b ks b-0 b-1 name) (k skey))+  (vars (ta text) (a b ks a-0 a-1 name) (k skey))   (defstrand resp 1 (ta ta) (a a) (b b) (ks ks) (k k))   (defstrand init 3 (ta ta) (a a) (b b) (ks ks) (k k))-  (defstrand keyserver 2 (a b) (b b-0) (ks ks))-  (defstrand keyserver 2 (a a) (b b-1) (ks ks))+  (defstrand keyserver 2 (a a-0) (b b) (ks ks))+  (defstrand keyserver 2 (a a-1) (b a) (ks ks))   (precedes ((1 2) (0 0)) ((2 1) (1 1)) ((3 1) (1 1)))   (non-orig (privk a) (privk b) (privk ks))   (uniq-orig k)@@ -200,14 +199,14 @@       (send         (enc (enc a b k ta (privk a)) (enc b (pubk b) (privk ks))           (enc a (pubk a) (privk ks)) (pubk b))))-    ((recv (cat b b-0))+    ((recv (cat a-0 b))       (send-        (cat (enc b-0 (pubk b-0) (privk ks))-          (enc b (pubk b) (privk ks)))))-    ((recv (cat a b-1))+        (cat (enc b (pubk b) (privk ks))+          (enc a-0 (pubk a-0) (privk ks)))))+    ((recv (cat a-1 a))       (send-        (cat (enc b-1 (pubk b-1) (privk ks))-          (enc a (pubk a) (privk ks))))))+        (cat (enc a (pubk a) (privk ks))+          (enc a-1 (pubk a-1) (privk ks))))))   (label 6)   (parent 3)   (unrealized)@@ -216,43 +215,41 @@   (origs (k (1 2))))  (defskeleton denning-sacco-  (vars (ta text) (b ks b-0 name) (k skey))-  (defstrand resp 1 (ta ta) (a b-0) (b b) (ks ks) (k k))-  (defstrand init 3 (ta ta) (a b-0) (b b) (ks ks) (k k))-  (defstrand keyserver 2 (a b) (b b-0) (ks ks))+  (vars (ta text) (b ks a name) (k skey))+  (defstrand resp 1 (ta ta) (a a) (b b) (ks ks) (k k))+  (defstrand init 3 (ta ta) (a a) (b b) (ks ks) (k k))+  (defstrand keyserver 2 (a a) (b b) (ks ks))   (precedes ((1 2) (0 0)) ((2 1) (1 1)))-  (non-orig (privk b) (privk ks) (privk b-0))+  (non-orig (privk b) (privk ks) (privk a))   (uniq-orig k)   (operation encryption-test (displaced 3 2 keyserver 2)-    (enc a (pubk a) (privk ks)) (1 1))+    (enc a-0 (pubk a-0) (privk ks)) (1 1))   (traces     ((recv-       (enc (enc b-0 b k ta (privk b-0)) (enc b (pubk b) (privk ks))-         (enc b-0 (pubk b-0) (privk ks)) (pubk b))))-    ((send (cat b-0 b))+       (enc (enc a b k ta (privk a)) (enc b (pubk b) (privk ks))+         (enc a (pubk a) (privk ks)) (pubk b))))+    ((send (cat a b))       (recv-        (cat (enc b (pubk b) (privk ks))-          (enc b-0 (pubk b-0) (privk ks))))+        (cat (enc b (pubk b) (privk ks)) (enc a (pubk a) (privk ks))))       (send-        (enc (enc b-0 b k ta (privk b-0)) (enc b (pubk b) (privk ks))-          (enc b-0 (pubk b-0) (privk ks)) (pubk b))))-    ((recv (cat b b-0))+        (enc (enc a b k ta (privk a)) (enc b (pubk b) (privk ks))+          (enc a (pubk a) (privk ks)) (pubk b))))+    ((recv (cat a b))       (send-        (cat (enc b-0 (pubk b-0) (privk ks))-          (enc b (pubk b) (privk ks))))))+        (cat (enc b (pubk b) (privk ks)) (enc a (pubk a) (privk ks))))))   (label 7)   (parent 3)   (unrealized)   (shape)-  (maps ((0) ((a b-0) (b b) (ks ks) (k k) (ta ta))))+  (maps ((0) ((a a) (b b) (ks ks) (k k) (ta ta))))   (origs (k (1 2))))  (defskeleton denning-sacco-  (vars (ta text) (a b ks b-0 a-0 name) (k skey))+  (vars (ta text) (a b ks a-0 b-0 name) (k skey))   (defstrand resp 1 (ta ta) (a a) (b b) (ks ks) (k k))   (defstrand init 3 (ta ta) (a a) (b b) (ks ks) (k k))-  (defstrand keyserver 2 (a b) (b b-0) (ks ks))-  (defstrand keyserver 2 (a a-0) (b a) (ks ks))+  (defstrand keyserver 2 (a a-0) (b b) (ks ks))+  (defstrand keyserver 2 (a a) (b b-0) (ks ks))   (precedes ((1 2) (0 0)) ((2 1) (1 1)) ((3 1) (1 1)))   (non-orig (privk a) (privk b) (privk ks))   (uniq-orig k)@@ -268,14 +265,14 @@       (send         (enc (enc a b k ta (privk a)) (enc b (pubk b) (privk ks))           (enc a (pubk a) (privk ks)) (pubk b))))-    ((recv (cat b b-0))+    ((recv (cat a-0 b))       (send-        (cat (enc b-0 (pubk b-0) (privk ks))-          (enc b (pubk b) (privk ks)))))-    ((recv (cat a-0 a))+        (cat (enc b (pubk b) (privk ks))+          (enc a-0 (pubk a-0) (privk ks)))))+    ((recv (cat a b-0))       (send-        (cat (enc a (pubk a) (privk ks))-          (enc a-0 (pubk a-0) (privk ks))))))+        (cat (enc b-0 (pubk b-0) (privk ks))+          (enc a (pubk a) (privk ks))))))   (label 8)   (parent 3)   (unrealized)@@ -284,41 +281,43 @@   (origs (k (1 2))))  (defskeleton denning-sacco-  (vars (ta text) (b ks a name) (k skey))-  (defstrand resp 1 (ta ta) (a a) (b b) (ks ks) (k k))-  (defstrand init 3 (ta ta) (a a) (b b) (ks ks) (k k))-  (defstrand keyserver 2 (a a) (b b) (ks ks))+  (vars (ta text) (b ks b-0 name) (k skey))+  (defstrand resp 1 (ta ta) (a b-0) (b b) (ks ks) (k k))+  (defstrand init 3 (ta ta) (a b-0) (b b) (ks ks) (k k))+  (defstrand keyserver 2 (a b) (b b-0) (ks ks))   (precedes ((1 2) (0 0)) ((2 1) (1 1)))-  (non-orig (privk b) (privk ks) (privk a))+  (non-orig (privk b) (privk ks) (privk b-0))   (uniq-orig k)   (operation encryption-test (displaced 3 2 keyserver 2)-    (enc a-0 (pubk a-0) (privk ks)) (1 1))+    (enc a (pubk a) (privk ks)) (1 1))   (traces     ((recv-       (enc (enc a b k ta (privk a)) (enc b (pubk b) (privk ks))-         (enc a (pubk a) (privk ks)) (pubk b))))-    ((send (cat a b))+       (enc (enc b-0 b k ta (privk b-0)) (enc b (pubk b) (privk ks))+         (enc b-0 (pubk b-0) (privk ks)) (pubk b))))+    ((send (cat b-0 b))       (recv-        (cat (enc b (pubk b) (privk ks)) (enc a (pubk a) (privk ks))))+        (cat (enc b (pubk b) (privk ks))+          (enc b-0 (pubk b-0) (privk ks))))       (send-        (enc (enc a b k ta (privk a)) (enc b (pubk b) (privk ks))-          (enc a (pubk a) (privk ks)) (pubk b))))-    ((recv (cat a b))+        (enc (enc b-0 b k ta (privk b-0)) (enc b (pubk b) (privk ks))+          (enc b-0 (pubk b-0) (privk ks)) (pubk b))))+    ((recv (cat b b-0))       (send-        (cat (enc b (pubk b) (privk ks)) (enc a (pubk a) (privk ks))))))+        (cat (enc b-0 (pubk b-0) (privk ks))+          (enc b (pubk b) (privk ks))))))   (label 9)   (parent 4)   (unrealized)   (shape)-  (maps ((0) ((a a) (b b) (ks ks) (k k) (ta ta))))+  (maps ((0) ((a b-0) (b b) (ks ks) (k k) (ta ta))))   (origs (k (1 2))))  (defskeleton denning-sacco-  (vars (ta text) (a b ks a-0 b-0 name) (k skey))+  (vars (ta text) (a b ks b-0 a-0 name) (k skey))   (defstrand resp 1 (ta ta) (a a) (b b) (ks ks) (k k))   (defstrand init 3 (ta ta) (a a) (b b) (ks ks) (k k))-  (defstrand keyserver 2 (a a-0) (b b) (ks ks))-  (defstrand keyserver 2 (a a) (b b-0) (ks ks))+  (defstrand keyserver 2 (a b) (b b-0) (ks ks))+  (defstrand keyserver 2 (a a-0) (b a) (ks ks))   (precedes ((1 2) (0 0)) ((2 1) (1 1)) ((3 1) (1 1)))   (non-orig (privk a) (privk b) (privk ks))   (uniq-orig k)@@ -334,14 +333,14 @@       (send         (enc (enc a b k ta (privk a)) (enc b (pubk b) (privk ks))           (enc a (pubk a) (privk ks)) (pubk b))))-    ((recv (cat a-0 b))-      (send-        (cat (enc b (pubk b) (privk ks))-          (enc a-0 (pubk a-0) (privk ks)))))-    ((recv (cat a b-0))+    ((recv (cat b b-0))       (send         (cat (enc b-0 (pubk b-0) (privk ks))-          (enc a (pubk a) (privk ks))))))+          (enc b (pubk b) (privk ks)))))+    ((recv (cat a-0 a))+      (send+        (cat (enc a (pubk a) (privk ks))+          (enc a-0 (pubk a-0) (privk ks))))))   (label 10)   (parent 4)   (unrealized)@@ -350,15 +349,15 @@   (origs (k (1 2))))  (defskeleton denning-sacco-  (vars (ta text) (b ks a name) (k skey))+  (vars (ta text) (b ks b-0 name) (k skey))   (defstrand resp 1 (ta ta) (a b) (b b) (ks ks) (k k))   (defstrand init 3 (ta ta) (a b) (b b) (ks ks) (k k))-  (defstrand keyserver 2 (a a) (b b) (ks ks))+  (defstrand keyserver 2 (a b) (b b-0) (ks ks))   (precedes ((1 2) (0 0)) ((2 1) (1 1)))   (non-orig (privk b) (privk ks))   (uniq-orig k)   (operation encryption-test (displaced 3 2 keyserver 2)-    (enc a-0 (pubk a-0) (privk ks)) (1 1))+    (enc a (pubk a) (privk ks)) (1 1))   (traces     ((recv        (enc (enc b b k ta (privk b)) (enc b (pubk b) (privk ks))@@ -369,9 +368,10 @@       (send         (enc (enc b b k ta (privk b)) (enc b (pubk b) (privk ks))           (enc b (pubk b) (privk ks)) (pubk b))))-    ((recv (cat a b))+    ((recv (cat b b-0))       (send-        (cat (enc b (pubk b) (privk ks)) (enc a (pubk a) (privk ks))))))+        (cat (enc b-0 (pubk b-0) (privk ks))+          (enc b (pubk b) (privk ks))))))   (label 11)   (parent 4)   (unrealized)@@ -380,11 +380,11 @@   (origs (k (1 2))))  (defskeleton denning-sacco-  (vars (ta text) (a b ks a-0 a-1 name) (k skey))+  (vars (ta text) (a b ks b-0 b-1 name) (k skey))   (defstrand resp 1 (ta ta) (a a) (b b) (ks ks) (k k))   (defstrand init 3 (ta ta) (a a) (b b) (ks ks) (k k))-  (defstrand keyserver 2 (a a-0) (b b) (ks ks))-  (defstrand keyserver 2 (a a-1) (b a) (ks ks))+  (defstrand keyserver 2 (a b) (b b-0) (ks ks))+  (defstrand keyserver 2 (a a) (b b-1) (ks ks))   (precedes ((1 2) (0 0)) ((2 1) (1 1)) ((3 1) (1 1)))   (non-orig (privk a) (privk b) (privk ks))   (uniq-orig k)@@ -400,14 +400,14 @@       (send         (enc (enc a b k ta (privk a)) (enc b (pubk b) (privk ks))           (enc a (pubk a) (privk ks)) (pubk b))))-    ((recv (cat a-0 b))+    ((recv (cat b b-0))       (send-        (cat (enc b (pubk b) (privk ks))-          (enc a-0 (pubk a-0) (privk ks)))))-    ((recv (cat a-1 a))+        (cat (enc b-0 (pubk b-0) (privk ks))+          (enc b (pubk b) (privk ks)))))+    ((recv (cat a b-1))       (send-        (cat (enc a (pubk a) (privk ks))-          (enc a-1 (pubk a-1) (privk ks))))))+        (cat (enc b-1 (pubk b-1) (privk ks))+          (enc a (pubk a) (privk ks))))))   (label 12)   (parent 4)   (unrealized)
tst/deorig_contract.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from deorig_contract.scm")  (defprotocol deorig-contract basic
tst/deorig_mesg.tst view
@@ -1,6 +1,6 @@ (herald deorig-mesg) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from deorig_mesg.scm")  (defprotocol deorig-mesg basic
tst/deorig_simple.tst view
@@ -1,6 +1,6 @@ (herald deorig-simple) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from deorig_simple.scm")  (defprotocol deorig-simple basic
− tst/dh_cert.scm 
@@ -1,51 +0,0 @@-(herald "Diffie-Hellman with Certificate" (algebra diffie-hellman))--(defmacro (cert p ps-ltv)-  (enc "cert" p (exp (gen) ps-ltv) (privk "certify" ca)))--(defmacro (hash x) (enc "hash" x))--(defprotocol dh-cert diffie-hellman-  (defrole ca-    (vars (p ca name) (ps-ltv expn))-    (trace (send (cert p ps-ltv)))-    (uniq-orig ps-ltv))-  (defrole init-    (vars (a b ca name) (as-ltv bs-ltv x expn) (gB gy base) (hk akey))-    (trace (send (cat (exp (gen) as-ltv) (cert a as-ltv) (exp (gen) x)))-      (recv (cat gB (cert b bs-ltv) gy))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv) (cert a as-ltv) (exp (gen) x))-          (cat gB (cert b bs-ltv) gy)-          (hash (cat (exp gB x) (exp gy as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv) (cert a as-ltv) (exp (gen) x))-          (cat gB (cert b bs-ltv) gy)-          (hash (cat (exp gB x) (exp gy as-ltv))))))-    (uniq-orig as-ltv x))-  (defrole resp-    (vars (a b ca name) (bs-ltv as-ltv y expn) (gB gA gx base)-      (hk akey))-    (trace (recv (cat gA (cert a as-ltv) gx))-      (send (cat (exp (gen) bs-ltv) (cert b bs-ltv) (exp (gen) y)))-      (recv-        (enc "tag1" (cat gA (cert a as-ltv) gx)-          (cat (exp (gen) bs-ltv) (cert b bs-ltv) (exp (gen) y))-          (hash (cat (exp gx bs-ltv) (exp gA y)))))-      (send-        (enc "tag2" (cat gA (cert a as-ltv) gx)-          (cat (exp (gen) bs-ltv) (cert b bs-ltv) (exp (gen) y))-          (hash (cat (exp gx bs-ltv) (exp gA y))))))-    (uniq-orig bs-ltv y)))--(defskeleton dh-cert-  (vars (ca name))-  (defstrand init 4 (ca ca))-  (non-orig (privk ca)))--(defskeleton dh-cert-  (vars (ca name))-  (defstrand resp 4 (ca ca))-  (non-orig (privk ca)))
− tst/dh_cert.tst 
@@ -1,2205 +0,0 @@-(herald "Diffie-Hellman with Certificate" (algebra diffie-hellman))--(comment "CPSA 2.3.0")-(comment "All input read from dh_cert.scm")--(defprotocol dh-cert diffie-hellman-  (defrole ca-    (vars (p ca name) (ps-ltv expn))-    (trace-      (send (enc "cert" p (exp (gen) ps-ltv) (privk "certify" ca))))-    (uniq-orig ps-ltv))-  (defrole init-    (vars (a b ca name) (as-ltv bs-ltv x expn) (gB gy base))-    (trace-      (send-        (cat (exp (gen) as-ltv)-          (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-          (exp (gen) x)))-      (recv-        (cat gB (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          gy))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) gB-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp gB x) (exp gy as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) gB-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp gB x) (exp gy as-ltv))))))-    (uniq-orig as-ltv x))-  (defrole resp-    (vars (a b ca name) (bs-ltv as-ltv y expn) (gA gx base))-    (trace-      (recv-        (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-          gx))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            gx) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y) (enc "hash" (cat (exp gx bs-ltv) (exp gA y)))))-      (send-        (enc "tag2"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            gx) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y) (enc "hash" (cat (exp gx bs-ltv) (exp gA y))))))-    (uniq-orig bs-ltv y)))--(defskeleton dh-cert-  (vars (ca a b name) (gB gy base) (as-ltv bs-ltv x expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB gB) (gy gy) (as-ltv as-ltv)-    (bs-ltv bs-ltv) (x x))-  (non-orig (privk ca))-  (uniq-orig as-ltv x)-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat gB (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          gy))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) gB-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp gB x) (exp gy as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) gB-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp gB x) (exp gy as-ltv)))))))-  (label 0)-  (unrealized (0 3))-  (origs (x (0 0)) (as-ltv (0 0)))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv x y expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (exp (gen) bs-ltv))-    (gy (exp (gen) y)) (as-ltv as-ltv) (bs-ltv bs-ltv) (x x))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (exp (gen) as-ltv))-    (gx (exp (gen) x)) (bs-ltv bs-ltv) (as-ltv as-ltv) (y y))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 3) (0 3)))-  (non-orig (privk ca))-  (uniq-orig as-ltv bs-ltv x y)-  (operation encryption-test (added-strand resp 4)-    (enc "tag2"-      (cat (exp (gen) as-ltv)-        (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-        (exp (gen) x)) (exp (gen) bs-ltv)-      (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-      (exp (gen) y)-      (enc "hash"-        (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y))))-    (0 3))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y))))))-    ((recv-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (send-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))))-  (label 1)-  (parent 0)-  (unrealized (1 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (gB gy base) (as-ltv bs-ltv x expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB gB) (gy gy) (as-ltv as-ltv)-    (bs-ltv bs-ltv) (x x))-  (deflistener (enc "hash" (cat (exp gB x) (exp gy as-ltv))))-  (precedes ((1 1) (0 3)))-  (non-orig (privk ca))-  (uniq-orig as-ltv x)-  (operation encryption-test-    (added-listener (enc "hash" (cat (exp gB x) (exp gy as-ltv))))-    (enc "tag2"-      (cat (exp (gen) as-ltv)-        (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-        (exp (gen) x)) gB-      (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-      (enc "hash" (cat (exp gB x) (exp gy as-ltv)))) (0 3))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat gB (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          gy))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) gB-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp gB x) (exp gy as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) gB-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp gB x) (exp gy as-ltv))))))-    ((recv (enc "hash" (cat (exp gB x) (exp gy as-ltv))))-      (send (enc "hash" (cat (exp gB x) (exp gy as-ltv))))))-  (label 2)-  (parent 0)-  (unrealized (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv x y expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (exp (gen) bs-ltv))-    (gy (exp (gen) y)) (as-ltv as-ltv) (bs-ltv bs-ltv) (x x))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (exp (gen) as-ltv))-    (gx (exp (gen) x)) (bs-ltv bs-ltv) (as-ltv as-ltv) (y y))-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)) ((1 3) (0 3)))-  (non-orig (privk ca))-  (uniq-orig as-ltv bs-ltv x y)-  (operation encryption-test (displaced 2 0 init 3)-    (enc "tag1"-      (cat (exp (gen) as-ltv)-        (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-        (exp (gen) x)) (exp (gen) bs-ltv)-      (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-      (exp (gen) y)-      (enc "hash"-        (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y))))-    (1 2))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y))))))-    ((recv-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (send-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))))-  (label 3)-  (parent 1)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv x y expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (exp (gen) bs-ltv))-    (gy (exp (gen) y)) (as-ltv as-ltv) (bs-ltv bs-ltv) (x x))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (exp (gen) as-ltv))-    (gx (exp (gen) x)) (bs-ltv bs-ltv) (as-ltv as-ltv) (y y))-  (deflistener-    (enc "hash"-      (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y))))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 3) (0 3)) ((2 1) (1 2)))-  (non-orig (privk ca))-  (uniq-orig as-ltv bs-ltv x y)-  (operation encryption-test-    (added-listener-      (enc "hash"-        (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y))))-    (enc "tag1"-      (cat (exp (gen) as-ltv)-        (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-        (exp (gen) x)) (exp (gen) bs-ltv)-      (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-      (exp (gen) y)-      (enc "hash"-        (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y))))-    (1 2))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y))))))-    ((recv-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (send-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y))))))-    ((recv-       (enc "hash"-         (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y))))-      (send-        (enc "hash"-          (cat (exp (exp (gen) bs-ltv) x)-            (exp (exp (gen) as-ltv) y))))))-  (label 4)-  (parent 1)-  (unrealized (2 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (gB gy base) (as-ltv bs-ltv x expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB gB) (gy gy) (as-ltv as-ltv)-    (bs-ltv bs-ltv) (x x))-  (deflistener (enc "hash" (cat (exp gB x) (exp gy as-ltv))))-  (deflistener (cat (exp gB x) (exp gy as-ltv)))-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)))-  (non-orig (privk ca))-  (uniq-orig as-ltv x)-  (operation encryption-test-    (added-listener (cat (exp gB x) (exp gy as-ltv)))-    (enc "hash" (cat (exp gB x) (exp gy as-ltv))) (1 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat gB (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          gy))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) gB-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp gB x) (exp gy as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) gB-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp gB x) (exp gy as-ltv))))))-    ((recv (enc "hash" (cat (exp gB x) (exp gy as-ltv))))-      (send (enc "hash" (cat (exp gB x) (exp gy as-ltv)))))-    ((recv (cat (exp gB x) (exp gy as-ltv)))-      (send (cat (exp gB x) (exp gy as-ltv)))))-  (label 5)-  (parent 2)-  (unrealized (2 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv x y expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (exp (gen) bs-ltv))-    (gy (exp (gen) y)) (as-ltv as-ltv) (bs-ltv bs-ltv) (x x))-  (non-orig (privk ca))-  (uniq-orig as-ltv bs-ltv x y)-  (operation generalization deleted (1 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))))-  (label 6)-  (parent 3)-  (unrealized)-  (origs (as-ltv (0 0)) (x (0 0)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv x y expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (exp (gen) bs-ltv))-    (gy (exp (gen) y)) (as-ltv as-ltv) (bs-ltv bs-ltv) (x x))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (exp (gen) as-ltv))-    (gx (exp (gen) x)) (bs-ltv bs-ltv) (as-ltv as-ltv) (y y))-  (deflistener-    (enc "hash"-      (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y))))-  (deflistener-    (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y)))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (3 0)) ((1 3) (0 3))-    ((2 1) (1 2)) ((3 1) (2 0)))-  (non-orig (privk ca))-  (uniq-orig as-ltv bs-ltv x y)-  (operation encryption-test-    (added-listener-      (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y)))-    (enc "hash"-      (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y)))-    (2 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y))))))-    ((recv-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (send-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y))))))-    ((recv-       (enc "hash"-         (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y))))-      (send-        (enc "hash"-          (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y)))))-    ((recv (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y)))-      (send-        (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y)))))-  (label 7)-  (parent 4)-  (unrealized (3 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (gy base) (as-ltv bs-ltv expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (gen)) (gy gy)-    (as-ltv as-ltv) (bs-ltv bs-ltv) (x as-ltv))-  (deflistener (enc "hash" (cat (exp (gen) as-ltv) (exp gy as-ltv))))-  (deflistener (cat (exp (gen) as-ltv) (exp gy as-ltv)))-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)))-  (non-orig (privk ca))-  (uniq-orig as-ltv)-  (operation encryption-test (displaced 3 0 init 1) (exp (gen) x) (2 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) as-ltv)))-      (recv-        (cat (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) as-ltv)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp (gen) as-ltv) (exp gy as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) as-ltv)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp (gen) as-ltv) (exp gy as-ltv))))))-    ((recv (enc "hash" (cat (exp (gen) as-ltv) (exp gy as-ltv))))-      (send (enc "hash" (cat (exp (gen) as-ltv) (exp gy as-ltv)))))-    ((recv (cat (exp (gen) as-ltv) (exp gy as-ltv)))-      (send (cat (exp (gen) as-ltv) (exp gy as-ltv)))))-  (label 8)-  (parent 5)-  (seen 14)-  (unrealized (2 0))-  (comment "3 in cohort - 2 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (gy base) (as-ltv bs-ltv x expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (gen)) (gy gy)-    (as-ltv as-ltv) (bs-ltv bs-ltv) (x x))-  (deflistener (enc "hash" (cat (exp (gen) x) (exp gy as-ltv))))-  (deflistener (cat (exp (gen) x) (exp gy as-ltv)))-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)))-  (non-orig (privk ca))-  (uniq-orig as-ltv x)-  (operation encryption-test (displaced 3 0 init 1) (exp (gen) x) (2 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp (gen) x) (exp gy as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp (gen) x) (exp gy as-ltv))))))-    ((recv (enc "hash" (cat (exp (gen) x) (exp gy as-ltv))))-      (send (enc "hash" (cat (exp (gen) x) (exp gy as-ltv)))))-    ((recv (cat (exp (gen) x) (exp gy as-ltv)))-      (send (cat (exp (gen) x) (exp gy as-ltv)))))-  (label 9)-  (parent 5)-  (seen 14)-  (unrealized (2 0))-  (comment "3 in cohort - 2 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (gB gy base) (as-ltv bs-ltv x expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB gB) (gy gy) (as-ltv as-ltv)-    (bs-ltv bs-ltv) (x x))-  (deflistener (enc "hash" (cat (exp gB x) (exp gy as-ltv))))-  (deflistener (cat (exp gB x) (exp gy as-ltv)))-  (deflistener x)-  (precedes ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (2 0)))-  (non-orig (privk ca))-  (uniq-orig as-ltv x)-  (operation encryption-test (added-listener x) (exp gB x) (2 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat gB (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          gy))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) gB-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp gB x) (exp gy as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) gB-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp gB x) (exp gy as-ltv))))))-    ((recv (enc "hash" (cat (exp gB x) (exp gy as-ltv))))-      (send (enc "hash" (cat (exp gB x) (exp gy as-ltv)))))-    ((recv (cat (exp gB x) (exp gy as-ltv)))-      (send (cat (exp gB x) (exp gy as-ltv)))) ((recv x) (send x)))-  (label 10)-  (parent 5)-  (unrealized (2 0) (3 0))-  (comment "empty cohort"))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv x y expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (exp (gen) bs-ltv))-    (gy (exp (gen) y)) (as-ltv as-ltv) (bs-ltv bs-ltv) (x x))-  (non-orig (privk ca))-  (uniq-orig as-ltv x y)-  (operation generalization forgot bs-ltv)-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))))-  (label 11)-  (parent 6)-  (unrealized)-  (origs (as-ltv (0 0)) (x (0 0)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv x y expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (exp (gen) bs-ltv))-    (gy (exp (gen) y)) (as-ltv as-ltv) (bs-ltv bs-ltv) (x x))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (exp (gen) as-ltv))-    (gx (exp (gen) x)) (bs-ltv bs-ltv) (as-ltv as-ltv) (y y))-  (deflistener-    (enc "hash"-      (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y))))-  (deflistener-    (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y)))-  (deflistener bs-ltv)-  (precedes ((0 0) (1 0)) ((1 1) (0 1)) ((1 1) (4 0)) ((1 3) (0 3))-    ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (3 0)))-  (non-orig (privk ca))-  (uniq-orig as-ltv bs-ltv x y)-  (operation encryption-test (added-listener bs-ltv)-    (exp (exp (gen) bs-ltv) x) (3 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y))))))-    ((recv-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (send-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y))))))-    ((recv-       (enc "hash"-         (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y))))-      (send-        (enc "hash"-          (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y)))))-    ((recv (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y)))-      (send-        (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y))))-    ((recv bs-ltv) (send bs-ltv)))-  (label 12)-  (parent 7)-  (unrealized (3 0) (4 0))-  (comment "empty cohort"))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv x y expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (exp (gen) bs-ltv))-    (gy (exp (gen) y)) (as-ltv as-ltv) (bs-ltv bs-ltv) (x x))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (exp (gen) as-ltv))-    (gx (exp (gen) x)) (bs-ltv bs-ltv) (as-ltv as-ltv) (y y))-  (deflistener-    (enc "hash"-      (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y))))-  (deflistener-    (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y)))-  (deflistener x)-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((1 1) (3 0))-    ((1 3) (0 3)) ((2 1) (1 2)) ((3 1) (2 0)) ((4 1) (3 0)))-  (non-orig (privk ca))-  (uniq-orig as-ltv bs-ltv x y)-  (operation encryption-test (added-listener x)-    (exp (exp (gen) bs-ltv) x) (3 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y))))))-    ((recv-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (send-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y))))))-    ((recv-       (enc "hash"-         (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y))))-      (send-        (enc "hash"-          (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y)))))-    ((recv (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y)))-      (send-        (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y))))-    ((recv x) (send x)))-  (label 13)-  (parent 7)-  (unrealized (3 0) (4 0))-  (comment "empty cohort"))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (gen)) (gy (gen))-    (as-ltv as-ltv) (bs-ltv bs-ltv) (x as-ltv))-  (deflistener (enc "hash" (cat (exp (gen) as-ltv) (exp (gen) as-ltv))))-  (deflistener (cat (exp (gen) as-ltv) (exp (gen) as-ltv)))-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)))-  (non-orig (privk ca))-  (uniq-orig as-ltv)-  (operation encryption-test (displaced 3 0 init 1) (exp (gen) as-ltv)-    (2 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) as-ltv)))-      (recv-        (cat (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) as-ltv)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)-          (enc "hash" (cat (exp (gen) as-ltv) (exp (gen) as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) as-ltv)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)-          (enc "hash" (cat (exp (gen) as-ltv) (exp (gen) as-ltv))))))-    ((recv (enc "hash" (cat (exp (gen) as-ltv) (exp (gen) as-ltv))))-      (send (enc "hash" (cat (exp (gen) as-ltv) (exp (gen) as-ltv)))))-    ((recv (cat (exp (gen) as-ltv) (exp (gen) as-ltv)))-      (send (cat (exp (gen) as-ltv) (exp (gen) as-ltv)))))-  (label 14)-  (parent 8)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (gy base) (as-ltv bs-ltv expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (gen)) (gy gy)-    (as-ltv as-ltv) (bs-ltv bs-ltv) (x as-ltv))-  (deflistener (enc "hash" (cat (exp (gen) as-ltv) (exp gy as-ltv))))-  (deflistener (cat (exp (gen) as-ltv) (exp gy as-ltv)))-  (deflistener as-ltv)-  (precedes ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (2 0)))-  (non-orig (privk ca))-  (uniq-orig as-ltv)-  (operation encryption-test (added-listener as-ltv) (exp gy as-ltv)-    (2 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) as-ltv)))-      (recv-        (cat (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) as-ltv)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp (gen) as-ltv) (exp gy as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) as-ltv)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp (gen) as-ltv) (exp gy as-ltv))))))-    ((recv (enc "hash" (cat (exp (gen) as-ltv) (exp gy as-ltv))))-      (send (enc "hash" (cat (exp (gen) as-ltv) (exp gy as-ltv)))))-    ((recv (cat (exp (gen) as-ltv) (exp gy as-ltv)))-      (send (cat (exp (gen) as-ltv) (exp gy as-ltv))))-    ((recv as-ltv) (send as-ltv)))-  (label 15)-  (parent 8)-  (unrealized (3 0))-  (comment "empty cohort"))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv x expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (gen)) (gy (gen))-    (as-ltv as-ltv) (bs-ltv bs-ltv) (x x))-  (deflistener (enc "hash" (cat (exp (gen) x) (exp (gen) as-ltv))))-  (deflistener (cat (exp (gen) x) (exp (gen) as-ltv)))-  (precedes ((0 0) (2 0)) ((1 1) (0 3)) ((2 1) (1 0)))-  (non-orig (privk ca))-  (uniq-orig as-ltv x)-  (operation encryption-test (displaced 3 0 init 1) (exp (gen) as-ltv)-    (2 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)-          (enc "hash" (cat (exp (gen) x) (exp (gen) as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)-          (enc "hash" (cat (exp (gen) x) (exp (gen) as-ltv))))))-    ((recv (enc "hash" (cat (exp (gen) x) (exp (gen) as-ltv))))-      (send (enc "hash" (cat (exp (gen) x) (exp (gen) as-ltv)))))-    ((recv (cat (exp (gen) x) (exp (gen) as-ltv)))-      (send (cat (exp (gen) x) (exp (gen) as-ltv)))))-  (label 16)-  (parent 9)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (gy base) (as-ltv bs-ltv x expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (gen)) (gy gy)-    (as-ltv as-ltv) (bs-ltv bs-ltv) (x x))-  (deflistener (enc "hash" (cat (exp (gen) x) (exp gy as-ltv))))-  (deflistener (cat (exp (gen) x) (exp gy as-ltv)))-  (deflistener as-ltv)-  (precedes ((0 0) (3 0)) ((1 1) (0 3)) ((2 1) (1 0)) ((3 1) (2 0)))-  (non-orig (privk ca))-  (uniq-orig as-ltv x)-  (operation encryption-test (added-listener as-ltv) (exp gy as-ltv)-    (2 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp (gen) x) (exp gy as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp (gen) x) (exp gy as-ltv))))))-    ((recv (enc "hash" (cat (exp (gen) x) (exp gy as-ltv))))-      (send (enc "hash" (cat (exp (gen) x) (exp gy as-ltv)))))-    ((recv (cat (exp (gen) x) (exp gy as-ltv)))-      (send (cat (exp (gen) x) (exp gy as-ltv))))-    ((recv as-ltv) (send as-ltv)))-  (label 17)-  (parent 9)-  (unrealized (3 0))-  (comment "empty cohort"))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv x y expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (exp (gen) bs-ltv))-    (gy (exp (gen) y)) (as-ltv as-ltv) (bs-ltv bs-ltv) (x x))-  (non-orig (privk ca))-  (uniq-orig as-ltv x)-  (operation generalization forgot y)-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))))-  (label 18)-  (parent 11)-  (unrealized)-  (origs (as-ltv (0 0)) (x (0 0)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (gen)) (gy (gen))-    (as-ltv as-ltv) (bs-ltv bs-ltv) (x as-ltv))-  (deflistener (cat (exp (gen) as-ltv) (exp (gen) as-ltv)))-  (precedes ((0 0) (1 0)) ((1 1) (0 3)))-  (non-orig (privk ca))-  (uniq-orig as-ltv)-  (operation generalization deleted (1 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) as-ltv)))-      (recv-        (cat (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) as-ltv)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)-          (enc "hash" (cat (exp (gen) as-ltv) (exp (gen) as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) as-ltv)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)-          (enc "hash" (cat (exp (gen) as-ltv) (exp (gen) as-ltv))))))-    ((recv (cat (exp (gen) as-ltv) (exp (gen) as-ltv)))-      (send (cat (exp (gen) as-ltv) (exp (gen) as-ltv)))))-  (label 19)-  (parent 14)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv x expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (gen)) (gy (gen))-    (as-ltv as-ltv) (bs-ltv bs-ltv) (x x))-  (deflistener (cat (exp (gen) x) (exp (gen) as-ltv)))-  (precedes ((0 0) (1 0)) ((1 1) (0 3)))-  (non-orig (privk ca))-  (uniq-orig as-ltv x)-  (operation generalization deleted (1 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)-          (enc "hash" (cat (exp (gen) x) (exp (gen) as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)-          (enc "hash" (cat (exp (gen) x) (exp (gen) as-ltv))))))-    ((recv (cat (exp (gen) x) (exp (gen) as-ltv)))-      (send (cat (exp (gen) x) (exp (gen) as-ltv)))))-  (label 20)-  (parent 16)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv x y bs-ltv-0 expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (exp (gen) bs-ltv))-    (gy (exp (gen) y)) (as-ltv as-ltv) (bs-ltv bs-ltv-0) (x x))-  (non-orig (privk ca))-  (uniq-orig as-ltv x)-  (operation generalization separated bs-ltv-0)-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv-0) (privk "certify" ca))-          (exp (gen) y)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv-0) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv-0) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))))-  (label 21)-  (parent 18)-  (unrealized)-  (shape)-  (maps-    ((0)-      ((ca ca) (a a) (b b) (as-ltv as-ltv) (bs-ltv bs-ltv-0) (x x)-        (gB (exp (gen) bs-ltv)) (gy (exp (gen) y)))))-  (origs (as-ltv (0 0)) (x (0 0))))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (gen)) (gy (gen))-    (as-ltv as-ltv) (bs-ltv bs-ltv) (x as-ltv))-  (non-orig (privk ca))-  (uniq-orig as-ltv)-  (operation generalization deleted (1 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) as-ltv)))-      (recv-        (cat (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) as-ltv)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)-          (enc "hash" (cat (exp (gen) as-ltv) (exp (gen) as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) as-ltv)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)-          (enc "hash" (cat (exp (gen) as-ltv) (exp (gen) as-ltv)))))))-  (label 22)-  (parent 19)-  (seen 23)-  (unrealized)-  (origs (as-ltv (0 0)))-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (as-ltv bs-ltv x expn))-  (defstrand init 4 (a a) (b b) (ca ca) (gB (gen)) (gy (gen))-    (as-ltv as-ltv) (bs-ltv bs-ltv) (x x))-  (non-orig (privk ca))-  (uniq-orig as-ltv x)-  (operation generalization deleted (1 0))-  (traces-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)-          (enc "hash" (cat (exp (gen) x) (exp (gen) as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (gen)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) (gen)-          (enc "hash" (cat (exp (gen) x) (exp (gen) as-ltv)))))))-  (label 23)-  (parent 20)-  (unrealized)-  (shape)-  (maps-    ((0)-      ((ca ca) (a a) (b b) (as-ltv as-ltv) (bs-ltv bs-ltv) (x x)-        (gB (gen)) (gy (gen)))))-  (origs (as-ltv (0 0)) (x (0 0))))--(comment "Nothing left to do")--(defprotocol dh-cert diffie-hellman-  (defrole ca-    (vars (p ca name) (ps-ltv expn))-    (trace-      (send (enc "cert" p (exp (gen) ps-ltv) (privk "certify" ca))))-    (uniq-orig ps-ltv))-  (defrole init-    (vars (a b ca name) (as-ltv bs-ltv x expn) (gB gy base))-    (trace-      (send-        (cat (exp (gen) as-ltv)-          (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-          (exp (gen) x)))-      (recv-        (cat gB (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          gy))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) gB-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp gB x) (exp gy as-ltv)))))-      (recv-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) gB-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca)) gy-          (enc "hash" (cat (exp gB x) (exp gy as-ltv))))))-    (uniq-orig as-ltv x))-  (defrole resp-    (vars (a b ca name) (bs-ltv as-ltv y expn) (gA gx base))-    (trace-      (recv-        (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-          gx))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            gx) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y) (enc "hash" (cat (exp gx bs-ltv) (exp gA y)))))-      (send-        (enc "tag2"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            gx) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y) (enc "hash" (cat (exp gx bs-ltv) (exp gA y))))))-    (uniq-orig bs-ltv y)))--(defskeleton dh-cert-  (vars (ca a b name) (gA gx base) (bs-ltv as-ltv y expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA gA) (gx gx) (bs-ltv bs-ltv)-    (as-ltv as-ltv) (y y))-  (non-orig (privk ca))-  (uniq-orig bs-ltv y)-  (traces-    ((recv-       (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         gx))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            gx) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y) (enc "hash" (cat (exp gx bs-ltv) (exp gA y)))))-      (send-        (enc "tag2"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            gx) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash" (cat (exp gx bs-ltv) (exp gA y)))))))-  (label 24)-  (unrealized (0 2))-  (origs (y (0 1)) (bs-ltv (0 1)))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (bs-ltv as-ltv y x expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (exp (gen) as-ltv))-    (gx (exp (gen) x)) (bs-ltv bs-ltv) (as-ltv as-ltv) (y y))-  (defstrand init 3 (a a) (b b) (ca ca) (gB (exp (gen) bs-ltv))-    (gy (exp (gen) y)) (as-ltv as-ltv) (bs-ltv bs-ltv) (x x))-  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))-  (non-orig (privk ca))-  (uniq-orig bs-ltv as-ltv y x)-  (operation encryption-test (added-strand init 3)-    (enc "tag1"-      (cat (exp (gen) as-ltv)-        (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-        (exp (gen) x)) (exp (gen) bs-ltv)-      (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-      (exp (gen) y)-      (enc "hash"-        (cat (exp (exp (gen) bs-ltv) x) (exp (exp (gen) as-ltv) y))))-    (0 2))-  (traces-    ((recv-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (send-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y))))))-    ((send-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (recv-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (send-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))))-  (label 25)-  (parent 24)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (gA gx base) (bs-ltv as-ltv y expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA gA) (gx gx) (bs-ltv bs-ltv)-    (as-ltv as-ltv) (y y))-  (deflistener (enc "hash" (cat (exp gx bs-ltv) (exp gA y))))-  (precedes ((1 1) (0 2)))-  (non-orig (privk ca))-  (uniq-orig bs-ltv y)-  (operation encryption-test-    (added-listener (enc "hash" (cat (exp gx bs-ltv) (exp gA y))))-    (enc "tag1"-      (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca)) gx)-      (exp (gen) bs-ltv)-      (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-      (exp (gen) y) (enc "hash" (cat (exp gx bs-ltv) (exp gA y))))-    (0 2))-  (traces-    ((recv-       (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         gx))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            gx) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y) (enc "hash" (cat (exp gx bs-ltv) (exp gA y)))))-      (send-        (enc "tag2"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            gx) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y) (enc "hash" (cat (exp gx bs-ltv) (exp gA y))))))-    ((recv (enc "hash" (cat (exp gx bs-ltv) (exp gA y))))-      (send (enc "hash" (cat (exp gx bs-ltv) (exp gA y))))))-  (label 26)-  (parent 24)-  (unrealized (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (bs-ltv as-ltv y x expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (exp (gen) as-ltv))-    (gx (exp (gen) x)) (bs-ltv bs-ltv) (as-ltv as-ltv) (y y))-  (non-orig (privk ca))-  (uniq-orig bs-ltv as-ltv y x)-  (operation generalization deleted (1 0))-  (traces-    ((recv-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (send-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))))-  (label 27)-  (parent 25)-  (unrealized)-  (origs (y (0 1)) (bs-ltv (0 1)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (gA gx base) (bs-ltv as-ltv y expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA gA) (gx gx) (bs-ltv bs-ltv)-    (as-ltv as-ltv) (y y))-  (deflistener (enc "hash" (cat (exp gx bs-ltv) (exp gA y))))-  (deflistener (cat (exp gx bs-ltv) (exp gA y)))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk ca))-  (uniq-orig bs-ltv y)-  (operation encryption-test-    (added-listener (cat (exp gx bs-ltv) (exp gA y)))-    (enc "hash" (cat (exp gx bs-ltv) (exp gA y))) (1 0))-  (traces-    ((recv-       (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         gx))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            gx) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y) (enc "hash" (cat (exp gx bs-ltv) (exp gA y)))))-      (send-        (enc "tag2"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            gx) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y) (enc "hash" (cat (exp gx bs-ltv) (exp gA y))))))-    ((recv (enc "hash" (cat (exp gx bs-ltv) (exp gA y))))-      (send (enc "hash" (cat (exp gx bs-ltv) (exp gA y)))))-    ((recv (cat (exp gx bs-ltv) (exp gA y)))-      (send (cat (exp gx bs-ltv) (exp gA y)))))-  (label 28)-  (parent 26)-  (unrealized (2 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (bs-ltv as-ltv y x expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (exp (gen) as-ltv))-    (gx (exp (gen) x)) (bs-ltv bs-ltv) (as-ltv as-ltv) (y y))-  (non-orig (privk ca))-  (uniq-orig bs-ltv y x)-  (operation generalization forgot as-ltv)-  (traces-    ((recv-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (send-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))))-  (label 29)-  (parent 27)-  (unrealized)-  (origs (y (0 1)) (bs-ltv (0 1)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (gA base) (bs-ltv as-ltv y expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA gA) (gx (gen))-    (bs-ltv bs-ltv) (as-ltv as-ltv) (y y))-  (deflistener (enc "hash" (cat (exp (gen) bs-ltv) (exp gA y))))-  (deflistener (cat (exp (gen) bs-ltv) (exp gA y)))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk ca))-  (uniq-orig bs-ltv y)-  (operation encryption-test (displaced 3 0 resp 2) (exp (gen) bs-ltv)-    (2 0))-  (traces-    ((recv-       (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (gen)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp gA y)))))-      (send-        (enc "tag2"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp gA y))))))-    ((recv (enc "hash" (cat (exp (gen) bs-ltv) (exp gA y))))-      (send (enc "hash" (cat (exp (gen) bs-ltv) (exp gA y)))))-    ((recv (cat (exp (gen) bs-ltv) (exp gA y)))-      (send (cat (exp (gen) bs-ltv) (exp gA y)))))-  (label 30)-  (parent 28)-  (unrealized (2 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (gA base) (bs-ltv as-ltv expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA gA) (gx (gen))-    (bs-ltv bs-ltv) (as-ltv as-ltv) (y bs-ltv))-  (deflistener (enc "hash" (cat (exp (gen) bs-ltv) (exp gA bs-ltv))))-  (deflistener (cat (exp (gen) bs-ltv) (exp gA bs-ltv)))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk ca))-  (uniq-orig bs-ltv)-  (operation encryption-test (displaced 3 0 resp 2) (exp (gen) bs-ltv)-    (2 0))-  (traces-    ((recv-       (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (gen)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) bs-ltv)))-      (recv-        (enc "tag1"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) bs-ltv)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp gA bs-ltv)))))-      (send-        (enc "tag2"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) bs-ltv)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp gA bs-ltv))))))-    ((recv (enc "hash" (cat (exp (gen) bs-ltv) (exp gA bs-ltv))))-      (send (enc "hash" (cat (exp (gen) bs-ltv) (exp gA bs-ltv)))))-    ((recv (cat (exp (gen) bs-ltv) (exp gA bs-ltv)))-      (send (cat (exp (gen) bs-ltv) (exp gA bs-ltv)))))-  (label 31)-  (parent 28)-  (seen 34)-  (unrealized (2 0))-  (comment "3 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (gA gx base) (bs-ltv as-ltv y expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA gA) (gx gx) (bs-ltv bs-ltv)-    (as-ltv as-ltv) (y y))-  (deflistener (enc "hash" (cat (exp gx bs-ltv) (exp gA y))))-  (deflistener (cat (exp gx bs-ltv) (exp gA y)))-  (deflistener bs-ltv)-  (precedes ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (2 0)))-  (non-orig (privk ca))-  (uniq-orig bs-ltv y)-  (operation encryption-test (added-listener bs-ltv) (exp gx bs-ltv)-    (2 0))-  (traces-    ((recv-       (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         gx))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            gx) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y) (enc "hash" (cat (exp gx bs-ltv) (exp gA y)))))-      (send-        (enc "tag2"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            gx) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y) (enc "hash" (cat (exp gx bs-ltv) (exp gA y))))))-    ((recv (enc "hash" (cat (exp gx bs-ltv) (exp gA y))))-      (send (enc "hash" (cat (exp gx bs-ltv) (exp gA y)))))-    ((recv (cat (exp gx bs-ltv) (exp gA y)))-      (send (cat (exp gx bs-ltv) (exp gA y))))-    ((recv bs-ltv) (send bs-ltv)))-  (label 32)-  (parent 28)-  (unrealized (2 0) (3 0))-  (comment "empty cohort"))--(defskeleton dh-cert-  (vars (ca a b name) (bs-ltv as-ltv y x expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (exp (gen) as-ltv))-    (gx (exp (gen) x)) (bs-ltv bs-ltv) (as-ltv as-ltv) (y y))-  (non-orig (privk ca))-  (uniq-orig bs-ltv y)-  (operation generalization forgot x)-  (traces-    ((recv-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (exp (gen) x)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (send-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))))-  (label 33)-  (parent 29)-  (unrealized)-  (origs (y (0 1)) (bs-ltv (0 1)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (bs-ltv as-ltv expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (gen)) (gx (gen))-    (bs-ltv bs-ltv) (as-ltv as-ltv) (y bs-ltv))-  (deflistener (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) bs-ltv))))-  (deflistener (cat (exp (gen) bs-ltv) (exp (gen) bs-ltv)))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk ca))-  (uniq-orig bs-ltv)-  (operation encryption-test (displaced 3 0 resp 2) (exp (gen) y) (2 0))-  (traces-    ((recv-       (cat (gen) (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (gen)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) bs-ltv)))-      (recv-        (enc "tag1"-          (cat (gen)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) bs-ltv)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) bs-ltv)))))-      (send-        (enc "tag2"-          (cat (gen)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) bs-ltv)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) bs-ltv))))))-    ((recv (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) bs-ltv))))-      (send (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) bs-ltv)))))-    ((recv (cat (exp (gen) bs-ltv) (exp (gen) bs-ltv)))-      (send (cat (exp (gen) bs-ltv) (exp (gen) bs-ltv)))))-  (label 34)-  (parent 30)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (bs-ltv as-ltv y expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (gen)) (gx (gen))-    (bs-ltv bs-ltv) (as-ltv as-ltv) (y y))-  (deflistener (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) y))))-  (deflistener (cat (exp (gen) bs-ltv) (exp (gen) y)))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk ca))-  (uniq-orig bs-ltv y)-  (operation encryption-test (displaced 3 0 resp 2) (exp (gen) y) (2 0))-  (traces-    ((recv-       (cat (gen) (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (gen)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat (gen)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) y)))))-      (send-        (enc "tag2"-          (cat (gen)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) y))))))-    ((recv (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) y))))-      (send (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) y)))))-    ((recv (cat (exp (gen) bs-ltv) (exp (gen) y)))-      (send (cat (exp (gen) bs-ltv) (exp (gen) y)))))-  (label 35)-  (parent 30)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (gA base) (bs-ltv as-ltv y expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA gA) (gx (gen))-    (bs-ltv bs-ltv) (as-ltv as-ltv) (y y))-  (deflistener (enc "hash" (cat (exp (gen) bs-ltv) (exp gA y))))-  (deflistener (cat (exp (gen) bs-ltv) (exp gA y)))-  (deflistener y)-  (precedes ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (2 0)))-  (non-orig (privk ca))-  (uniq-orig bs-ltv y)-  (operation encryption-test (added-listener y) (exp gA y) (2 0))-  (traces-    ((recv-       (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (gen)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp gA y)))))-      (send-        (enc "tag2"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp gA y))))))-    ((recv (enc "hash" (cat (exp (gen) bs-ltv) (exp gA y))))-      (send (enc "hash" (cat (exp (gen) bs-ltv) (exp gA y)))))-    ((recv (cat (exp (gen) bs-ltv) (exp gA y)))-      (send (cat (exp (gen) bs-ltv) (exp gA y)))) ((recv y) (send y)))-  (label 36)-  (parent 30)-  (unrealized (3 0))-  (comment "empty cohort"))--(defskeleton dh-cert-  (vars (ca a b name) (gA base) (bs-ltv as-ltv expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA gA) (gx (gen))-    (bs-ltv bs-ltv) (as-ltv as-ltv) (y bs-ltv))-  (deflistener (enc "hash" (cat (exp (gen) bs-ltv) (exp gA bs-ltv))))-  (deflistener (cat (exp (gen) bs-ltv) (exp gA bs-ltv)))-  (deflistener bs-ltv)-  (precedes ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (2 0)))-  (non-orig (privk ca))-  (uniq-orig bs-ltv)-  (operation encryption-test (added-listener bs-ltv) (exp gA bs-ltv)-    (2 0))-  (traces-    ((recv-       (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (gen)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) bs-ltv)))-      (recv-        (enc "tag1"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) bs-ltv)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp gA bs-ltv)))))-      (send-        (enc "tag2"-          (cat gA (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) bs-ltv)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp gA bs-ltv))))))-    ((recv (enc "hash" (cat (exp (gen) bs-ltv) (exp gA bs-ltv))))-      (send (enc "hash" (cat (exp (gen) bs-ltv) (exp gA bs-ltv)))))-    ((recv (cat (exp (gen) bs-ltv) (exp gA bs-ltv)))-      (send (cat (exp (gen) bs-ltv) (exp gA bs-ltv))))-    ((recv bs-ltv) (send bs-ltv)))-  (label 37)-  (parent 31)-  (unrealized (3 0))-  (comment "empty cohort"))--(defskeleton dh-cert-  (vars (ca a b name) (bs-ltv as-ltv y x as-ltv-0 expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (exp (gen) as-ltv))-    (gx (exp (gen) x)) (bs-ltv bs-ltv) (as-ltv as-ltv-0) (y y))-  (non-orig (privk ca))-  (uniq-orig bs-ltv y)-  (operation generalization separated as-ltv-0)-  (traces-    ((recv-       (cat (exp (gen) as-ltv)-         (enc "cert" a (exp (gen) as-ltv-0) (privk "certify" ca))-         (exp (gen) x)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv-0) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))-      (send-        (enc "tag2"-          (cat (exp (gen) as-ltv)-            (enc "cert" a (exp (gen) as-ltv-0) (privk "certify" ca))-            (exp (gen) x)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash"-            (cat (exp (exp (gen) bs-ltv) x)-              (exp (exp (gen) as-ltv) y)))))))-  (label 38)-  (parent 33)-  (unrealized)-  (shape)-  (maps-    ((0)-      ((ca ca) (a a) (b b) (bs-ltv bs-ltv) (as-ltv as-ltv-0) (y y)-        (gA (exp (gen) as-ltv)) (gx (exp (gen) x)))))-  (origs (y (0 1)) (bs-ltv (0 1))))--(defskeleton dh-cert-  (vars (ca a b name) (bs-ltv as-ltv expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (gen)) (gx (gen))-    (bs-ltv bs-ltv) (as-ltv as-ltv) (y bs-ltv))-  (deflistener (cat (exp (gen) bs-ltv) (exp (gen) bs-ltv)))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk ca))-  (uniq-orig bs-ltv)-  (operation generalization deleted (1 0))-  (traces-    ((recv-       (cat (gen) (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (gen)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) bs-ltv)))-      (recv-        (enc "tag1"-          (cat (gen)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) bs-ltv)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) bs-ltv)))))-      (send-        (enc "tag2"-          (cat (gen)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) bs-ltv)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) bs-ltv))))))-    ((recv (cat (exp (gen) bs-ltv) (exp (gen) bs-ltv)))-      (send (cat (exp (gen) bs-ltv) (exp (gen) bs-ltv)))))-  (label 39)-  (parent 34)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (bs-ltv as-ltv y expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (gen)) (gx (gen))-    (bs-ltv bs-ltv) (as-ltv as-ltv) (y y))-  (deflistener (cat (exp (gen) bs-ltv) (exp (gen) y)))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk ca))-  (uniq-orig bs-ltv y)-  (operation generalization deleted (1 0))-  (traces-    ((recv-       (cat (gen) (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (gen)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat (gen)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) y)))))-      (send-        (enc "tag2"-          (cat (gen)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) y))))))-    ((recv (cat (exp (gen) bs-ltv) (exp (gen) y)))-      (send (cat (exp (gen) bs-ltv) (exp (gen) y)))))-  (label 40)-  (parent 35)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (bs-ltv as-ltv expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (gen)) (gx (gen))-    (bs-ltv bs-ltv) (as-ltv as-ltv) (y bs-ltv))-  (non-orig (privk ca))-  (uniq-orig bs-ltv)-  (operation generalization deleted (1 0))-  (traces-    ((recv-       (cat (gen) (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (gen)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) bs-ltv)))-      (recv-        (enc "tag1"-          (cat (gen)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) bs-ltv)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) bs-ltv)))))-      (send-        (enc "tag2"-          (cat (gen)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) bs-ltv)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) bs-ltv)))))))-  (label 41)-  (parent 39)-  (seen 42)-  (unrealized)-  (origs (bs-ltv (0 1)))-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dh-cert-  (vars (ca a b name) (bs-ltv as-ltv y expn))-  (defstrand resp 4 (a a) (b b) (ca ca) (gA (gen)) (gx (gen))-    (bs-ltv bs-ltv) (as-ltv as-ltv) (y y))-  (non-orig (privk ca))-  (uniq-orig bs-ltv y)-  (operation generalization deleted (1 0))-  (traces-    ((recv-       (cat (gen) (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-         (gen)))-      (send-        (cat (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)))-      (recv-        (enc "tag1"-          (cat (gen)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) y)))))-      (send-        (enc "tag2"-          (cat (gen)-            (enc "cert" a (exp (gen) as-ltv) (privk "certify" ca))-            (gen)) (exp (gen) bs-ltv)-          (enc "cert" b (exp (gen) bs-ltv) (privk "certify" ca))-          (exp (gen) y)-          (enc "hash" (cat (exp (gen) bs-ltv) (exp (gen) y)))))))-  (label 42)-  (parent 40)-  (unrealized)-  (shape)-  (maps-    ((0)-      ((ca ca) (a a) (b b) (bs-ltv bs-ltv) (as-ltv as-ltv) (y y)-        (gA (gen)) (gx (gen)))))-  (origs (bs-ltv (0 1)) (y (0 1))))--(comment "Nothing left to do")
− tst/dhke.scm 
@@ -1,105 +0,0 @@-(herald "Diffie-Hellman Key Exchange" (algebra diffie-hellman))--;; The Diffie-Hellman problem is given (exp (gen) x), and (exp (gen)-;; y), compute the value of (exp (exp (gen) x) y) which is also (exp-;; (exp (gen) y) x).--(defprotocol dhke diffie-hellman-  (defrole init (vars (a b name) (x y expn))-    (trace-     (send (enc "i" (exp (gen) x) (privk a)))-     (recv (cat (enc (exp (gen) y) (privk b)) (enc a b (exp (exp (gen) y) x))))-     (send (enc "i" a b (exp (exp (gen) y) x))))-    (uniq-orig  x))-  (defrole resp (vars (a b name) (x y expn))-    (trace-     (recv (enc "i" (exp (gen) x) (privk a)))-     (send (cat (enc (exp (gen) y) (privk b)) (enc a b (exp (exp (gen) x) y))))-     (recv (enc "i" a b (exp (exp (gen) x) y))))-    (uniq-orig y)))--(defskeleton dhke (vars (a b name))-  (defstrand resp 3 (a a) (b b))-  (non-orig (privk a) (privk b)))-- (defskeleton dhke (vars (a b name))-   (defstrand init 2 (a a) (b b))-   (non-orig (privk a) (privk b)))--(defprotocol dh-mim diffie-hellman-  (defrole init-    (vars (x y expn) (n text))-    (trace-     (send (exp (gen) x))-     (recv (exp (gen) y))-     (send (enc n (exp (exp (gen) y) x))))-    (uniq-orig n x))-  (defrole resp-    (vars (x y expn) (n text))-    (trace-     (recv (exp (gen) x))-     (send (exp (gen) y))-     (recv (enc n (exp (exp (gen) x) y))))-    (uniq-orig y))-  (comment "Diffie-Hellman without signatures"-	   "has a man-in-the-middle attack"))--(defskeleton dh-mim-  (vars (n text))-  (defstrand init 3 (n n))-  (deflistener n)-  (uniq-orig n))--;; Protocols using variables of sort base--(defprotocol dhke-with-base-vars diffie-hellman-  (defrole init (vars (a b name) (g base) (x expn))-    (trace-     (send (enc "i" (exp (gen) x) (privk a)))-     (recv (cat (enc g (privk b)) (enc a b (exp g x))))-     (send (enc "i" a b (exp g x))))-    (uniq-orig  x))-  (defrole resp (vars (a b name) (h base) (y expn))-    (trace-     (recv (enc "i" h (privk a)))-     (send (cat (enc (exp (gen) y) (privk b)) (enc a b (exp h y))))-     (recv (enc "i" a b (exp h y))))-    (uniq-orig y)))--(defskeleton dhke-with-base-vars (vars (a b name))-  (defstrand resp 3 (a a) (b b))-  (non-orig (privk a) (privk b)))-- (defskeleton dhke-with-base-vars (vars (a b name))-   (defstrand init 2 (a a) (b b))-   (non-orig (privk a) (privk b)))--(defprotocol dh-mim-with-base-vars diffie-hellman-  (defrole init-    (vars (x expn) (hy base) (n text))-    (trace-     (send (exp (gen) x))-     (recv hy)-     (send (enc n (exp hy x))))-    (uniq-orig n x))-  (defrole resp-    (vars (y expn) (hx base) (n text))-    (trace-     (recv hx)-     (send (exp (gen) y))-     (recv (enc n (exp hx y))))-    (uniq-orig y))-  (comment "Diffie-Hellman without signatures"-	   "has a man-in-the-middle attack"))--(defskeleton dh-mim-with-base-vars-  (vars (n text))-  (defstrand init 3 (n n))-  (defstrand resp 3 (n n))-  (uniq-orig n))--(defskeleton dh-mim-with-base-vars-  (vars (n text))-  (defstrand init 3 (n n))-  (deflistener n)-  (uniq-orig n))
− tst/dhke.tst 
@@ -1,980 +0,0 @@-(herald "Diffie-Hellman Key Exchange" (algebra diffie-hellman))--(comment "CPSA 2.3.0")-(comment "All input read from dhke.scm")--(defprotocol dhke diffie-hellman-  (defrole init-    (vars (a b name) (x y expn))-    (trace (send (enc "i" (exp (gen) x) (privk a)))-      (recv-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y))))-      (send (enc "i" a b (exp (exp (gen) x) y))))-    (uniq-orig x))-  (defrole resp-    (vars (a b name) (x y expn))-    (trace (recv (enc "i" (exp (gen) x) (privk a)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y))))-      (recv (enc "i" a b (exp (exp (gen) x) y))))-    (uniq-orig y)))--(defskeleton dhke-  (vars (a b name) (x y expn))-  (defstrand resp 3 (a a) (b b) (x x) (y y))-  (non-orig (privk a) (privk b))-  (uniq-orig y)-  (traces-    ((recv (enc "i" (exp (gen) x) (privk a)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y))))-      (recv (enc "i" a b (exp (exp (gen) x) y)))))-  (label 0)-  (unrealized (0 0))-  (origs (y (0 1)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dhke-  (vars (a b name) (x y expn))-  (defstrand resp 3 (a a) (b b) (x x) (y y))-  (defstrand init 1 (a a) (x x))-  (precedes ((1 0) (0 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig x y)-  (operation encryption-test (added-strand init 1)-    (enc "i" (exp (gen) x) (privk a)) (0 0))-  (traces-    ((recv (enc "i" (exp (gen) x) (privk a)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y))))-      (recv (enc "i" a b (exp (exp (gen) x) y))))-    ((send (enc "i" (exp (gen) x) (privk a)))))-  (label 1)-  (parent 0)-  (unrealized (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dhke-  (vars (a b name) (x y expn))-  (defstrand resp 3 (a a) (b b) (x x) (y y))-  (defstrand init 3 (a a) (b b) (x x) (y y))-  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))-  (non-orig (privk a) (privk b))-  (uniq-orig x y)-  (operation encryption-test (displaced 1 2 init 3)-    (enc "i" a b (exp (exp (gen) x) y)) (0 2))-  (traces-    ((recv (enc "i" (exp (gen) x) (privk a)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y))))-      (recv (enc "i" a b (exp (exp (gen) x) y))))-    ((send (enc "i" (exp (gen) x) (privk a)))-      (recv-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y))))-      (send (enc "i" a b (exp (exp (gen) x) y)))))-  (label 2)-  (parent 1)-  (unrealized)-  (shape)-  (maps ((0) ((a a) (b b) (x x) (y y))))-  (origs (x (1 0)) (y (0 1))))--(defskeleton dhke-  (vars (a b name) (x y expn))-  (defstrand resp 3 (a a) (b b) (x x) (y y))-  (defstrand init 1 (a a) (x x))-  (deflistener (exp (exp (gen) x) y))-  (precedes ((0 1) (2 0)) ((1 0) (0 0)) ((2 1) (0 2)))-  (non-orig (privk a) (privk b))-  (uniq-orig x y)-  (operation encryption-test (added-listener (exp (exp (gen) x) y))-    (enc "i" a b (exp (exp (gen) x) y)) (0 2))-  (traces-    ((recv (enc "i" (exp (gen) x) (privk a)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y))))-      (recv (enc "i" a b (exp (exp (gen) x) y))))-    ((send (enc "i" (exp (gen) x) (privk a))))-    ((recv (exp (exp (gen) x) y)) (send (exp (exp (gen) x) y))))-  (label 3)-  (parent 1)-  (unrealized (2 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dhke-  (vars (a b name) (x y expn))-  (defstrand resp 3 (a a) (b b) (x x) (y y))-  (defstrand init 1 (a a) (x x))-  (deflistener (exp (exp (gen) x) y))-  (deflistener x)-  (precedes ((0 1) (2 0)) ((1 0) (0 0)) ((1 0) (3 0)) ((2 1) (0 2))-    ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig x y)-  (operation encryption-test (added-listener x) (exp (exp (gen) x) y)-    (2 0))-  (traces-    ((recv (enc "i" (exp (gen) x) (privk a)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y))))-      (recv (enc "i" a b (exp (exp (gen) x) y))))-    ((send (enc "i" (exp (gen) x) (privk a))))-    ((recv (exp (exp (gen) x) y)) (send (exp (exp (gen) x) y)))-    ((recv x) (send x)))-  (label 4)-  (parent 3)-  (unrealized (3 0))-  (comment "empty cohort"))--(defskeleton dhke-  (vars (a b name) (x y expn))-  (defstrand resp 3 (a a) (b b) (x x) (y y))-  (defstrand init 1 (a a) (x x))-  (deflistener (exp (exp (gen) x) y))-  (deflistener y)-  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((2 1) (0 2)) ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig x y)-  (operation encryption-test (added-listener y) (exp (exp (gen) x) y)-    (2 0))-  (traces-    ((recv (enc "i" (exp (gen) x) (privk a)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y))))-      (recv (enc "i" a b (exp (exp (gen) x) y))))-    ((send (enc "i" (exp (gen) x) (privk a))))-    ((recv (exp (exp (gen) x) y)) (send (exp (exp (gen) x) y)))-    ((recv y) (send y)))-  (label 5)-  (parent 3)-  (unrealized (3 0))-  (comment "empty cohort"))--(comment "Nothing left to do")--(defprotocol dhke diffie-hellman-  (defrole init-    (vars (a b name) (x y expn))-    (trace (send (enc "i" (exp (gen) x) (privk a)))-      (recv-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y))))-      (send (enc "i" a b (exp (exp (gen) x) y))))-    (uniq-orig x))-  (defrole resp-    (vars (a b name) (x y expn))-    (trace (recv (enc "i" (exp (gen) x) (privk a)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y))))-      (recv (enc "i" a b (exp (exp (gen) x) y))))-    (uniq-orig y)))--(defskeleton dhke-  (vars (a b name) (x y expn))-  (defstrand init 2 (a a) (b b) (x x) (y y))-  (non-orig (privk a) (privk b))-  (uniq-orig x)-  (traces-    ((send (enc "i" (exp (gen) x) (privk a)))-      (recv-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y))))))-  (label 6)-  (unrealized (0 1))-  (origs (x (0 0)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dhke-  (vars (a b a-0 name) (x y x-0 expn))-  (defstrand init 2 (a a) (b b) (x x) (y y))-  (defstrand resp 2 (a a-0) (b b) (x x-0) (y y))-  (precedes ((1 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig x y)-  (operation encryption-test (added-strand resp 2)-    (enc (exp (gen) y) (privk b)) (0 1))-  (traces-    ((send (enc "i" (exp (gen) x) (privk a)))-      (recv-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y)))))-    ((recv (enc "i" (exp (gen) x-0) (privk a-0)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a-0 b (exp (exp (gen) y) x-0))))))-  (label 7)-  (parent 6)-  (unrealized (0 1))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dhke-  (vars (a b name) (x y expn))-  (defstrand init 2 (a a) (b b) (x x) (y y))-  (defstrand resp 2 (a a) (b b) (x x) (y y))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig x y)-  (operation encryption-test (displaced 2 1 resp 2)-    (enc a b (exp (exp (gen) x) y)) (0 1))-  (traces-    ((send (enc "i" (exp (gen) x) (privk a)))-      (recv-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y)))))-    ((recv (enc "i" (exp (gen) x) (privk a)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y))))))-  (label 8)-  (parent 7)-  (unrealized)-  (shape)-  (maps ((0) ((a a) (b b) (x x) (y y))))-  (origs (y (1 1)) (x (0 0))))--(defskeleton dhke-  (vars (a b a-0 name) (x y x-0 expn))-  (defstrand init 2 (a a) (b b) (x x) (y y))-  (defstrand resp 2 (a a-0) (b b) (x x-0) (y y))-  (deflistener (exp (exp (gen) x) y))-  (precedes ((0 0) (2 0)) ((1 1) (2 0)) ((2 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig x y)-  (operation encryption-test (added-listener (exp (exp (gen) x) y))-    (enc a b (exp (exp (gen) x) y)) (0 1))-  (traces-    ((send (enc "i" (exp (gen) x) (privk a)))-      (recv-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y)))))-    ((recv (enc "i" (exp (gen) x-0) (privk a-0)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a-0 b (exp (exp (gen) y) x-0)))))-    ((recv (exp (exp (gen) x) y)) (send (exp (exp (gen) x) y))))-  (label 9)-  (parent 7)-  (unrealized (2 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dhke-  (vars (a b a-0 name) (x y x-0 expn))-  (defstrand init 2 (a a) (b b) (x x) (y y))-  (defstrand resp 2 (a a-0) (b b) (x x-0) (y y))-  (deflistener (exp (exp (gen) x) y))-  (deflistener x)-  (precedes ((0 0) (3 0)) ((1 1) (2 0)) ((2 1) (0 1)) ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig x y)-  (operation encryption-test (added-listener x) (exp (exp (gen) x) y)-    (2 0))-  (traces-    ((send (enc "i" (exp (gen) x) (privk a)))-      (recv-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y)))))-    ((recv (enc "i" (exp (gen) x-0) (privk a-0)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a-0 b (exp (exp (gen) y) x-0)))))-    ((recv (exp (exp (gen) x) y)) (send (exp (exp (gen) x) y)))-    ((recv x) (send x)))-  (label 10)-  (parent 9)-  (unrealized (3 0))-  (comment "empty cohort"))--(defskeleton dhke-  (vars (a b a-0 name) (x y x-0 expn))-  (defstrand init 2 (a a) (b b) (x x) (y y))-  (defstrand resp 2 (a a-0) (b b) (x x-0) (y y))-  (deflistener (exp (exp (gen) x) y))-  (deflistener y)-  (precedes ((0 0) (2 0)) ((1 1) (3 0)) ((2 1) (0 1)) ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig x y)-  (operation encryption-test (added-listener y) (exp (exp (gen) x) y)-    (2 0))-  (traces-    ((send (enc "i" (exp (gen) x) (privk a)))-      (recv-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y)))))-    ((recv (enc "i" (exp (gen) x-0) (privk a-0)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a-0 b (exp (exp (gen) y) x-0)))))-    ((recv (exp (exp (gen) x) y)) (send (exp (exp (gen) x) y)))-    ((recv y) (send y)))-  (label 11)-  (parent 9)-  (unrealized (3 0))-  (comment "empty cohort"))--(comment "Nothing left to do")--(defprotocol dh-mim diffie-hellman-  (defrole init-    (vars (x y expn) (n text))-    (trace (send (exp (gen) x)) (recv (exp (gen) y))-      (send (enc n (exp (exp (gen) x) y))))-    (uniq-orig n x))-  (defrole resp-    (vars (x y expn) (n text))-    (trace (recv (exp (gen) x)) (send (exp (gen) y))-      (recv (enc n (exp (exp (gen) x) y))))-    (uniq-orig y))-  (comment "Diffie-Hellman without signatures"-    "has a man-in-the-middle attack"))--(defskeleton dh-mim-  (vars (n text) (x y expn))-  (defstrand init 3 (n n) (x x) (y y))-  (deflistener n)-  (uniq-orig n x)-  (traces-    ((send (exp (gen) x)) (recv (exp (gen) y))-      (send (enc n (exp (exp (gen) x) y)))) ((recv n) (send n)))-  (label 12)-  (unrealized (1 0))-  (preskeleton)-  (comment "Not a skeleton"))--(defskeleton dh-mim-  (vars (n text) (x y expn))-  (defstrand init 3 (n n) (x x) (y y))-  (deflistener n)-  (precedes ((0 2) (1 0)))-  (uniq-orig n x)-  (traces-    ((send (exp (gen) x)) (recv (exp (gen) y))-      (send (enc n (exp (exp (gen) x) y)))) ((recv n) (send n)))-  (label 13)-  (parent 12)-  (unrealized)-  (shape)-  (maps ((0 1) ((n n) (x x) (y y))))-  (origs (x (0 0)) (n (0 2))))--(comment "Nothing left to do")--(defprotocol dhke-with-base-vars diffie-hellman-  (defrole init-    (vars (a b name) (g base) (x expn))-    (trace (send (enc "i" (exp (gen) x) (privk a)))-      (recv (cat (enc g (privk b)) (enc a b (exp g x))))-      (send (enc "i" a b (exp g x))))-    (uniq-orig x))-  (defrole resp-    (vars (a b name) (h base) (y expn))-    (trace (recv (enc "i" h (privk a)))-      (send (cat (enc (exp (gen) y) (privk b)) (enc a b (exp h y))))-      (recv (enc "i" a b (exp h y))))-    (uniq-orig y)))--(defskeleton dhke-with-base-vars-  (vars (a b name) (h base) (y expn))-  (defstrand resp 3 (a a) (b b) (h h) (y y))-  (non-orig (privk a) (privk b))-  (uniq-orig y)-  (traces-    ((recv (enc "i" h (privk a)))-      (send (cat (enc (exp (gen) y) (privk b)) (enc a b (exp h y))))-      (recv (enc "i" a b (exp h y)))))-  (label 14)-  (unrealized (0 0) (0 2))-  (origs (y (0 1)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dhke-with-base-vars-  (vars (a b name) (y x expn))-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))-  (defstrand init 1 (a a) (x x))-  (precedes ((1 0) (0 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig y x)-  (operation encryption-test (added-strand init 1)-    (enc "i" (exp (gen) x) (privk a)) (0 0))-  (traces-    ((recv (enc "i" (exp (gen) x) (privk a)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) y) x))))-      (recv (enc "i" a b (exp (exp (gen) y) x))))-    ((send (enc "i" (exp (gen) x) (privk a)))))-  (label 15)-  (parent 14)-  (unrealized (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dhke-with-base-vars-  (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) (g (exp (gen) y)) (x x))-  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))-  (non-orig (privk a) (privk b))-  (uniq-orig y x)-  (operation encryption-test (displaced 1 2 init 3)-    (enc "i" a b (exp (exp (gen) y) x)) (0 2))-  (traces-    ((recv (enc "i" (exp (gen) x) (privk a)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) y) x))))-      (recv (enc "i" a b (exp (exp (gen) y) x))))-    ((send (enc "i" (exp (gen) x) (privk a)))-      (recv-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) y) x))))-      (send (enc "i" a b (exp (exp (gen) y) x)))))-  (label 16)-  (parent 15)-  (unrealized)-  (shape)-  (maps ((0) ((a a) (b b) (h (exp (gen) x)) (y y))))-  (origs (x (1 0)) (y (0 1))))--(defskeleton dhke-with-base-vars-  (vars (a b name) (y x expn))-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))-  (defstrand init 1 (a a) (x x))-  (deflistener (exp (exp (gen) y) x))-  (precedes ((0 1) (2 0)) ((1 0) (0 0)) ((2 1) (0 2)))-  (non-orig (privk a) (privk b))-  (uniq-orig y x)-  (operation encryption-test (added-listener (exp (exp (gen) y) x))-    (enc "i" a b (exp (exp (gen) y) x)) (0 2))-  (traces-    ((recv (enc "i" (exp (gen) x) (privk a)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) y) x))))-      (recv (enc "i" a b (exp (exp (gen) y) x))))-    ((send (enc "i" (exp (gen) x) (privk a))))-    ((recv (exp (exp (gen) y) x)) (send (exp (exp (gen) y) x))))-  (label 17)-  (parent 15)-  (unrealized (2 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dhke-with-base-vars-  (vars (a b name) (y x expn))-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))-  (defstrand init 1 (a a) (x x))-  (deflistener (exp (exp (gen) y) x))-  (deflistener y)-  (precedes ((0 1) (3 0)) ((1 0) (0 0)) ((2 1) (0 2)) ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig y x)-  (operation encryption-test (added-listener y) (exp (exp (gen) y) x)-    (2 0))-  (traces-    ((recv (enc "i" (exp (gen) x) (privk a)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) y) x))))-      (recv (enc "i" a b (exp (exp (gen) y) x))))-    ((send (enc "i" (exp (gen) x) (privk a))))-    ((recv (exp (exp (gen) y) x)) (send (exp (exp (gen) y) x)))-    ((recv y) (send y)))-  (label 18)-  (parent 17)-  (unrealized (3 0))-  (comment "empty cohort"))--(defskeleton dhke-with-base-vars-  (vars (a b name) (y x expn))-  (defstrand resp 3 (a a) (b b) (h (exp (gen) x)) (y y))-  (defstrand init 1 (a a) (x x))-  (deflistener (exp (exp (gen) y) x))-  (deflistener x)-  (precedes ((0 1) (2 0)) ((1 0) (0 0)) ((1 0) (3 0)) ((2 1) (0 2))-    ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig y x)-  (operation encryption-test (added-listener x) (exp (exp (gen) y) x)-    (2 0))-  (traces-    ((recv (enc "i" (exp (gen) x) (privk a)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) y) x))))-      (recv (enc "i" a b (exp (exp (gen) y) x))))-    ((send (enc "i" (exp (gen) x) (privk a))))-    ((recv (exp (exp (gen) y) x)) (send (exp (exp (gen) y) x)))-    ((recv x) (send x)))-  (label 19)-  (parent 17)-  (unrealized (3 0))-  (comment "empty cohort"))--(comment "Nothing left to do")--(defprotocol dhke-with-base-vars diffie-hellman-  (defrole init-    (vars (a b name) (g base) (x expn))-    (trace (send (enc "i" (exp (gen) x) (privk a)))-      (recv (cat (enc g (privk b)) (enc a b (exp g x))))-      (send (enc "i" a b (exp g x))))-    (uniq-orig x))-  (defrole resp-    (vars (a b name) (h base) (y expn))-    (trace (recv (enc "i" h (privk a)))-      (send (cat (enc (exp (gen) y) (privk b)) (enc a b (exp h y))))-      (recv (enc "i" a b (exp h y))))-    (uniq-orig y)))--(defskeleton dhke-with-base-vars-  (vars (a b name) (g base) (x expn))-  (defstrand init 2 (a a) (b b) (g g) (x x))-  (non-orig (privk a) (privk b))-  (uniq-orig x)-  (traces-    ((send (enc "i" (exp (gen) x) (privk a)))-      (recv (cat (enc g (privk b)) (enc a b (exp g x))))))-  (label 20)-  (unrealized (0 1))-  (origs (x (0 0)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dhke-with-base-vars-  (vars (a b a-0 name) (h base) (x y expn))-  (defstrand init 2 (a a) (b b) (g (exp (gen) y)) (x x))-  (defstrand resp 2 (a a-0) (b b) (h h) (y y))-  (precedes ((1 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig x y)-  (operation encryption-test (added-strand resp 2)-    (enc (exp (gen) y) (privk b)) (0 1))-  (traces-    ((send (enc "i" (exp (gen) x) (privk a)))-      (recv-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y)))))-    ((recv (enc "i" h (privk a-0)))-      (send (cat (enc (exp (gen) y) (privk b)) (enc a-0 b (exp h y))))))-  (label 21)-  (parent 20)-  (unrealized (0 1))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dhke-with-base-vars-  (vars (a b name) (x y expn))-  (defstrand init 2 (a a) (b b) (g (exp (gen) y)) (x x))-  (defstrand resp 2 (a a) (b b) (h (exp (gen) x)) (y y))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig x y)-  (operation encryption-test (displaced 2 1 resp 2)-    (enc a b (exp (exp (gen) x) y)) (0 1))-  (traces-    ((send (enc "i" (exp (gen) x) (privk a)))-      (recv-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y)))))-    ((recv (enc "i" (exp (gen) x) (privk a)))-      (send-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y))))))-  (label 22)-  (parent 21)-  (unrealized)-  (shape)-  (maps ((0) ((a a) (b b) (g (exp (gen) y)) (x x))))-  (origs (y (1 1)) (x (0 0))))--(defskeleton dhke-with-base-vars-  (vars (a b a-0 name) (h base) (x y expn))-  (defstrand init 2 (a a) (b b) (g (exp (gen) y)) (x x))-  (defstrand resp 2 (a a-0) (b b) (h h) (y y))-  (deflistener (exp (exp (gen) x) y))-  (precedes ((0 0) (2 0)) ((1 1) (2 0)) ((2 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig x y)-  (operation encryption-test (added-listener (exp (exp (gen) x) y))-    (enc a b (exp (exp (gen) x) y)) (0 1))-  (traces-    ((send (enc "i" (exp (gen) x) (privk a)))-      (recv-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y)))))-    ((recv (enc "i" h (privk a-0)))-      (send (cat (enc (exp (gen) y) (privk b)) (enc a-0 b (exp h y)))))-    ((recv (exp (exp (gen) x) y)) (send (exp (exp (gen) x) y))))-  (label 23)-  (parent 21)-  (unrealized (2 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dhke-with-base-vars-  (vars (a b a-0 name) (h base) (x y expn))-  (defstrand init 2 (a a) (b b) (g (exp (gen) y)) (x x))-  (defstrand resp 2 (a a-0) (b b) (h h) (y y))-  (deflistener (exp (exp (gen) x) y))-  (deflistener x)-  (precedes ((0 0) (3 0)) ((1 1) (2 0)) ((2 1) (0 1)) ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig x y)-  (operation encryption-test (added-listener x) (exp (exp (gen) x) y)-    (2 0))-  (traces-    ((send (enc "i" (exp (gen) x) (privk a)))-      (recv-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y)))))-    ((recv (enc "i" h (privk a-0)))-      (send (cat (enc (exp (gen) y) (privk b)) (enc a-0 b (exp h y)))))-    ((recv (exp (exp (gen) x) y)) (send (exp (exp (gen) x) y)))-    ((recv x) (send x)))-  (label 24)-  (parent 23)-  (unrealized (3 0))-  (comment "empty cohort"))--(defskeleton dhke-with-base-vars-  (vars (a b a-0 name) (h base) (x y expn))-  (defstrand init 2 (a a) (b b) (g (exp (gen) y)) (x x))-  (defstrand resp 2 (a a-0) (b b) (h h) (y y))-  (deflistener (exp (exp (gen) x) y))-  (deflistener y)-  (precedes ((0 0) (2 0)) ((1 1) (3 0)) ((2 1) (0 1)) ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig x y)-  (operation encryption-test (added-listener y) (exp (exp (gen) x) y)-    (2 0))-  (traces-    ((send (enc "i" (exp (gen) x) (privk a)))-      (recv-        (cat (enc (exp (gen) y) (privk b))-          (enc a b (exp (exp (gen) x) y)))))-    ((recv (enc "i" h (privk a-0)))-      (send (cat (enc (exp (gen) y) (privk b)) (enc a-0 b (exp h y)))))-    ((recv (exp (exp (gen) x) y)) (send (exp (exp (gen) x) y)))-    ((recv y) (send y)))-  (label 25)-  (parent 23)-  (unrealized (3 0))-  (comment "empty cohort"))--(comment "Nothing left to do")--(defprotocol dh-mim-with-base-vars diffie-hellman-  (defrole init-    (vars (x expn) (hy base) (n text))-    (trace (send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))-    (uniq-orig n x))-  (defrole resp-    (vars (y expn) (hx base) (n text))-    (trace (recv hx) (send (exp (gen) y)) (recv (enc n (exp hx y))))-    (uniq-orig y))-  (comment "Diffie-Hellman without signatures"-    "has a man-in-the-middle attack"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (hy hx base) (x y expn))-  (defstrand init 3 (n n) (hy hy) (x x))-  (defstrand resp 3 (n n) (hx hx) (y y))-  (uniq-orig n x y)-  (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 26)-  (unrealized (1 2))-  (preskeleton)-  (comment "Not a skeleton"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (hy hx base) (x y expn))-  (defstrand init 3 (n n) (hy hy) (x x))-  (defstrand resp 3 (n n) (hx hx) (y y))-  (precedes ((0 2) (1 2)))-  (uniq-orig n x y)-  (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 27)-  (parent 26)-  (unrealized (1 2))-  (origs (y (1 1)) (x (0 0)) (n (0 2)))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (x y expn))-  (defstrand init 3 (n n) (hy (exp (gen) y)) (x x))-  (defstrand resp 3 (n n) (hx (exp (gen) x)) (y y))-  (precedes ((0 0) (1 0)) ((0 2) (1 2)) ((1 1) (0 1)))-  (uniq-orig n x y)-  (operation encryption-test (displaced 2 0 init 3)-    (enc n (exp (exp (gen) y) x-0)) (1 2))-  (traces-    ((send (exp (gen) x)) (recv (exp (gen) y))-      (send (enc n (exp (exp (gen) x) y))))-    ((recv (exp (gen) x)) (send (exp (gen) y))-      (recv (enc n (exp (exp (gen) x) y)))))-  (label 28)-  (parent 27)-  (unrealized)-  (shape)-  (maps-    ((0 1) ((n n) (x x) (hy (exp (gen) y)) (y y) (hx (exp (gen) x)))))-  (origs (n (0 2)) (x (0 0)) (y (1 1))))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (hy hx base) (x y expn))-  (defstrand init 3 (n n) (hy hy) (x x))-  (defstrand resp 3 (n n) (hx hx) (y y))-  (deflistener (exp hx y))-  (precedes ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2)))-  (uniq-orig n x y)-  (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 29)-  (parent 27)-  (unrealized (1 2) (2 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (hy base) (x y expn))-  (defstrand init 3 (n n) (hy hy) (x x))-  (defstrand resp 3 (n n) (hx (gen)) (y y))-  (deflistener (exp (gen) y))-  (precedes ((0 2) (1 2)) ((1 1) (2 0)) ((2 1) (1 2)))-  (uniq-orig n x y)-  (operation encryption-test (displaced 3 1 resp 2) (exp (gen) y) (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 30)-  (parent 29)-  (unrealized (1 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (hy hx base) (x y expn))-  (defstrand init 3 (n n) (hy hy) (x x))-  (defstrand resp 3 (n n) (hx hx) (y y))-  (deflistener (exp hx y))-  (deflistener y)-  (precedes ((0 2) (1 2)) ((1 1) (3 0)) ((2 1) (1 2)) ((3 1) (2 0)))-  (uniq-orig n x y)-  (operation encryption-test (added-listener y) (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 y) (send y)))-  (label 31)-  (parent 29)-  (unrealized (1 2) (3 0))-  (comment "empty cohort"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (hy base) (x y expn))-  (defstrand init 3 (n n) (hy hy) (x x))-  (defstrand resp 3 (n n) (hx (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)))-  (uniq-orig n x y)-  (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 32)-  (parent 30)-  (unrealized (3 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (x y expn))-  (defstrand init 3 (n n) (hy (gen)) (x x))-  (defstrand resp 3 (n n) (hx (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)))-  (uniq-orig n x y)-  (operation encryption-test (displaced 4 0 init 1) (exp (gen) x) (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 33)-  (parent 32)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (hy base) (x y expn))-  (defstrand init 3 (n n) (hy hy) (x x))-  (defstrand resp 3 (n n) (hx (gen)) (y y))-  (deflistener (exp (gen) y))-  (deflistener (exp hy x))-  (deflistener 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)))-  (uniq-orig n x y)-  (operation encryption-test (added-listener x) (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 x) (send x)))-  (label 34)-  (parent 32)-  (unrealized (4 0))-  (comment "empty cohort"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (x y expn))-  (defstrand init 3 (n n) (hy (gen)) (x x))-  (defstrand resp 3 (n n) (hx (gen)) (y y))-  (deflistener (exp (gen) x))-  (precedes ((0 0) (2 0)) ((0 2) (1 2)) ((2 1) (1 2)))-  (uniq-orig n x y)-  (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 35)-  (parent 33)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (x y expn))-  (defstrand init 3 (n n) (hy (gen)) (x x))-  (defstrand resp 3 (n n) (hx (gen)) (y y))-  (precedes ((0 2) (1 2)))-  (uniq-orig n x y)-  (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 36)-  (parent 35)-  (unrealized)-  (shape)-  (maps ((0 1) ((n n) (x x) (hy (gen)) (y y) (hx (gen)))))-  (origs (x (0 0)) (y (1 1)) (n (0 2))))--(comment "Nothing left to do")--(defprotocol dh-mim-with-base-vars diffie-hellman-  (defrole init-    (vars (x expn) (hy base) (n text))-    (trace (send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))-    (uniq-orig n x))-  (defrole resp-    (vars (y expn) (hx base) (n text))-    (trace (recv hx) (send (exp (gen) y)) (recv (enc n (exp hx y))))-    (uniq-orig y))-  (comment "Diffie-Hellman without signatures"-    "has a man-in-the-middle attack"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (hy base) (x expn))-  (defstrand init 3 (n n) (hy hy) (x x))-  (deflistener n)-  (uniq-orig n x)-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))-    ((recv n) (send n)))-  (label 37)-  (unrealized (1 0))-  (preskeleton)-  (comment "Not a skeleton"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (hy base) (x expn))-  (defstrand init 3 (n n) (hy hy) (x x))-  (deflistener n)-  (precedes ((0 2) (1 0)))-  (uniq-orig n x)-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))-    ((recv n) (send n)))-  (label 38)-  (parent 37)-  (unrealized (1 0))-  (origs (x (0 0)) (n (0 2)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (hy base) (x expn))-  (defstrand init 3 (n n) (hy hy) (x x))-  (deflistener n)-  (deflistener (exp hy x))-  (precedes ((0 0) (2 0)) ((0 2) (1 0)) ((2 1) (1 0)))-  (uniq-orig n x)-  (operation nonce-test (added-listener (exp hy x)) n (1 0)-    (enc n (exp hy x)))-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))-    ((recv n) (send n)) ((recv (exp hy x)) (send (exp hy x))))-  (label 39)-  (parent 38)-  (unrealized (2 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (x expn))-  (defstrand init 3 (n n) (hy (gen)) (x x))-  (deflistener n)-  (deflistener (exp (gen) x))-  (precedes ((0 0) (2 0)) ((0 2) (1 0)) ((2 1) (1 0)))-  (uniq-orig n x)-  (operation encryption-test (displaced 3 0 init 1) (exp (gen) x) (2 0))-  (traces-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))-    ((recv n) (send n)) ((recv (exp (gen) x)) (send (exp (gen) x))))-  (label 40)-  (parent 39)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (hy base) (x expn))-  (defstrand init 3 (n n) (hy hy) (x x))-  (deflistener n)-  (deflistener (exp hy x))-  (deflistener x)-  (precedes ((0 0) (3 0)) ((0 2) (1 0)) ((2 1) (1 0)) ((3 1) (2 0)))-  (uniq-orig n x)-  (operation encryption-test (added-listener x) (exp hy x) (2 0))-  (traces ((send (exp (gen) x)) (recv hy) (send (enc n (exp hy x))))-    ((recv n) (send n)) ((recv (exp hy x)) (send (exp hy x)))-    ((recv x) (send x)))-  (label 41)-  (parent 39)-  (unrealized (3 0))-  (comment "empty cohort"))--(defskeleton dh-mim-with-base-vars-  (vars (n text) (x expn))-  (defstrand init 3 (n n) (hy (gen)) (x x))-  (deflistener n)-  (precedes ((0 2) (1 0)))-  (uniq-orig n x)-  (operation generalization deleted (2 0))-  (traces-    ((send (exp (gen) x)) (recv (gen)) (send (enc n (exp (gen) x))))-    ((recv n) (send n)))-  (label 42)-  (parent 40)-  (unrealized)-  (shape)-  (maps ((0 1) ((n n) (x x) (hy (gen)))))-  (origs (x (0 0)) (n (0 2))))--(comment "Nothing left to do")
tst/dy.tst view
@@ -1,4532 +1,3502 @@ (herald "Example 1.3 from 1983 Dolev-Yao Paper") -(comment "CPSA 2.3.0")-(comment "All input read from dy.lsp")--(defprotocol dy basic-  (defrole init-    (vars (a b name) (m text))-    (trace (send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a)))))-  (defrole resp-    (vars (a b name) (m mesg))-    (trace (recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))))--(defskeleton dy-  (vars (m text) (a b name))-  (defstrand init 2 (m m) (a a) (b b))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a)))))-  (label 0)-  (unrealized (0 1))-  (origs (m (0 0)))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton dy-  (vars (m text) (b name))-  (defstrand init 2 (m m) (a b) (b b))-  (non-orig (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a b)) m (0 1)-    (enc (enc m (pubk b)) b (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b)))))-  (label 1)-  (parent 0)-  (unrealized)-  (shape)-  (maps ((0) ((a b) (b b) (m m))))-  (origs (m (0 0))))--(defskeleton dy-  (vars (m text) (a b name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (0 1)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 2)-  (parent 0)-  (unrealized)-  (shape)-  (maps ((0) ((a a) (b b) (m m))))-  (origs (m (0 0))))--(defskeleton dy-  (vars (m text) (a b a-0 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (0 1)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0)))))-  (label 3)-  (parent 0)-  (unrealized (0 1))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton dy-  (vars (m text) (b a name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-0 b)) m (0 1) (enc m (pubk b))-    (enc (enc m (pubk b)) b (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a)))))-  (label 4)-  (parent 3)-  (seen 1)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (0 1) (enc m (pubk b))-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1)))))-  (label 5)-  (parent 3)-  (seen 8)-  (unrealized (2 0))-  (comment "4 in cohort - 3 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-1 a)) m (2 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 6)-  (parent 5)-  (seen 2)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (2 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 7)-  (parent 5)-  (seen 12)-  (unrealized (2 0))-  (comment "5 in cohort - 4 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 3 1 resp 2) m (2 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1)))))-  (label 8)-  (parent 5)-  (unrealized)-  (shape)-  (maps ((0) ((a a) (b b) (m m))))-  (origs (m (0 0))))--(defskeleton dy-  (vars (m text) (a b a-0 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-1 a)) m (2 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 9)-  (parent 7)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a a-0) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (2 0)) ((2 1) (0 1))-    ((3 1) (2 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 4 1 resp 2) m (2 0)-    (enc (enc m (pubk a-1)) b (pubk a-1))-    (enc (enc m (pubk b)) a-1 (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))-      (send (enc (enc m (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b)))))-  (label 10)-  (parent 7)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (2 0)) ((4 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (2 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2)))))-  (label 11)-  (parent 7)-  (seen 10 15 16)-  (unrealized (2 0) (4 0))-  (comment "5 in cohort - 2 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (2 0)) ((2 1) (0 1))-    ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 4 1 resp 2) m (2 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 12)-  (parent 7)-  (seen 6)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 13)-  (parent 9)-  (seen 2)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (b a name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b)))))-  (label 14)-  (parent 10)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (4 0)) ((4 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 5 3 resp 2) m (4 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2)))))-  (label 15)-  (parent 11)-  (seen 19 21)-  (unrealized (2 0))-  (comment "7 in cohort - 4 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (4 0)) ((2 1) (0 1))-    ((3 1) (2 0)) ((4 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 5 1 resp 2) m (4 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2)))))-  (label 16)-  (parent 11)-  (unrealized (4 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton dy-  (vars (m text) (b name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b)))))-  (label 17)-  (parent 14)-  (seen 1)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (4 0)) ((4 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-2 a)) m (2 0) (enc m (pubk a))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1)))))-  (label 18)-  (parent 15)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-1) (b a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (3 0)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig m)-  (operation nonce-test (contracted (b a) (a-2 a-1)) m (2 0)-    (enc m (pubk a)) (enc (enc m (pubk a)) a (pubk a)))-  (traces-    ((send (enc (enc m (pubk a)) a (pubk a)))-      (recv (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a-0 (pubk a)))-      (send (enc (enc m (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-1)) a (pubk a-1)))))-  (label 19)-  (parent 15)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (4 0)) ((4 1) (2 0)) ((5 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (2 0) (enc m (pubk a))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3)))))-  (label 20)-  (parent 15)-  (seen 19 29)-  (unrealized (5 0))-  (comment "6 in cohort - 4 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (2 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((4 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 5 1 resp 2) m (2 0) (enc m (pubk a))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2)))))-  (label 21)-  (parent 15)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a a-0) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-1) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (4 0)) ((2 1) (0 1))-    ((3 1) (2 0)) ((4 1) (2 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-2 b)) m (4 0) (enc m (pubk b))-    (enc (enc m (pubk b)) b (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))-      (send (enc (enc m (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-1 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-1)) b (pubk a-1)))))-  (label 22)-  (parent 16)-  (seen 10)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (4 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((4 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 5 3 resp 2) m (4 0) (enc m (pubk b))-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2)))))-  (label 23)-  (parent 16)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (4 0))-    ((2 1) (0 1)) ((3 1) (2 0)) ((4 1) (2 0)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (4 0) (enc m (pubk b))-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))-      (send (enc (enc m (pubk a-3)) b (pubk a-3)))))-  (label 24)-  (parent 16)-  (seen 23 33 34)-  (unrealized (5 0))-  (comment "5 in cohort - 2 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (3 0)) ((3 1) (1 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0)))))-  (label 25)-  (parent 18)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a a-0 name))-  (defstrand init 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-0) (b a))-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk a)) a (pubk a)))-      (recv (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-0)) a (pubk a-0)))))-  (label 26)-  (parent 19)-  (seen 4)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 6 3 resp 2) m (5 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3)))))-  (label 27)-  (parent 20)-  (seen 30 40)-  (unrealized (5 0))-  (comment "7 in cohort - 5 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (4 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (5 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 28)-  (parent 20)-  (seen 30 38 44)-  (unrealized (5 0))-  (comment "7 in cohort - 4 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((4 1) (2 0)) ((5 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 6 1 resp 2) m (5 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3)))))-  (label 29)-  (parent 20)-  (seen 40)-  (unrealized (5 0))-  (comment "3 in cohort - 2 not yet seen"))--(defskeleton dy-  (vars (m text) (a a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (3 0)) ((3 1) (4 0))-    ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig m)-  (operation nonce-test (displaced 6 4 resp 2) m (5 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk a)) a (pubk a)))-      (recv (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a-0 (pubk a)))-      (send (enc (enc m (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))-      (send (enc (enc m (pubk a-2)) a (pubk a-2)))))-  (label 30)-  (parent 20)-  (seen 19)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (3 0))-    ((3 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1)))))-  (label 31)-  (parent 21)-  (seen 35)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (3 0)) ((2 1) (3 0))-    ((3 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1)))))-  (label 32)-  (parent 23)-  (seen 35)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (4 0)) ((2 1) (0 1))-    ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 6 3 resp 2) m (5 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))-      (send (enc (enc m (pubk a-3)) b (pubk a-3)))))-  (label 33)-  (parent 24)-  (seen 50)-  (unrealized (5 0))-  (comment "5 in cohort - 4 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (2 0)) ((4 1) (2 0)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 6 1 resp 2) m (5 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))-      (send (enc (enc m (pubk a-3)) b (pubk a-3)))))-  (label 34)-  (parent 24)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0)))))-  (label 35)-  (parent 25)-  (seen 2)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-3 b)) m (5 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b)))))-  (label 36)-  (parent 27)-  (seen 53 54)-  (unrealized (2 0))-  (comment "6 in cohort - 3 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a a-0) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (2 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 6 1 resp 2) m (5 0)-    (enc (enc m (pubk a-3)) b (pubk a-3))-    (enc (enc m (pubk b)) a-3 (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))-      (send (enc (enc m (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-1 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2)))))-  (label 37)-  (parent 27)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (4 0)) ((4 1) (5 0)) ((5 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 6 4 resp 2) m (5 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3)))))-  (label 38)-  (parent 27)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (4 0)) ((3 1) (5 0)) ((4 1) (2 0))-    ((5 1) (2 0)) ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (5 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))-  (label 39)-  (parent 27)-  (seen 37 38 58)-  (unrealized (6 0))-  (comment "6 in cohort - 3 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 6 1 resp 2) m (5 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3)))))-  (label 40)-  (parent 27)-  (seen 37)-  (unrealized (5 0))-  (comment "5 in cohort - 3 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (4 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-3 b)) m (5 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 41)-  (parent 28)-  (seen 64 65)-  (unrealized (2 0))-  (comment "7 in cohort - 3 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a a-0) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (5 0))-    ((2 1) (0 1)) ((3 1) (4 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 1 resp 2) m (5 0)-    (enc (enc m (pubk a-3)) b (pubk a-3))-    (enc (enc m (pubk b)) a-3 (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))-      (send (enc (enc m (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-1 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b)))))-  (label 42)-  (parent 28)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (5 0))-    ((2 1) (0 1)) ((3 1) (4 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 1 resp 2) m (5 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 44)-  (parent 28)-  (seen 42 61)-  (unrealized (5 0))-  (comment "5 in cohort - 2 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a a-0) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((4 1) (2 0)) ((5 1) (2 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-3 b)) m (5 0) (enc m (pubk b))-    (enc (enc m (pubk b)) b (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))-      (send (enc (enc m (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-1 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2)))))-  (label 45)-  (parent 29)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a-4) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (5 0))-    ((2 1) (0 1)) ((3 1) (4 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (5 0) (enc m (pubk b))-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a-4 (pubk b)))-      (send (enc (enc m (pubk a-4)) b (pubk a-4)))))-  (label 46)-  (parent 29)-  (seen 44 72)-  (unrealized (6 0))-  (comment "6 in cohort - 4 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (4 0)) ((2 1) (0 1))-    ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-3 a)) m (5 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 47)-  (parent 33)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a a-0) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (4 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 6 1 resp 2) m (5 0)-    (enc (enc m (pubk a-3)) b (pubk a-3))-    (enc (enc m (pubk b)) a-3 (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))-      (send (enc (enc m (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-1 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2)))))-  (label 48)-  (parent 33)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (4 0))-    ((2 1) (0 1)) ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (4 0))-    ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (5 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))-      (send (enc (enc m (pubk a-3)) b (pubk a-3))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))-  (label 49)-  (parent 33)-  (seen 48 76 77)-  (unrealized (5 0) (6 0))-  (comment "5 in cohort - 2 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 6 1 resp 2) m (5 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))-      (send (enc (enc m (pubk a-3)) b (pubk a-3)))))-  (label 50)-  (parent 33)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (4 0)) ((2 1) (0 1))-    ((3 1) (0 1)) ((4 1) (3 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2)))))-  (label 51)-  (parent 34)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-2 a)) m (2 0) (enc m (pubk a))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b)))))-  (label 52)-  (parent 36)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (3 0)) ((2 1) (4 0))-    ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig m)-  (operation nonce-test (contracted (b a) (a-2 a-1)) m (2 0)-    (enc m (pubk a)) (enc (enc m (pubk a)) a (pubk a)))-  (traces-    ((send (enc (enc m (pubk a)) a (pubk a)))-      (recv (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a-0 (pubk a)))-      (send (enc (enc m (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a)))))-  (label 53)-  (parent 36)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (2 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 6 1 resp 2) m (2 0) (enc m (pubk a))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b)))))-  (label 54)-  (parent 36)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (4 0)) ((2 1) (3 0))-    ((2 1) (4 0)) ((3 1) (0 1)) ((4 1) (0 1)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1)))))-  (label 55)-  (parent 37)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (3 0)) ((3 1) (4 0))-    ((4 1) (1 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))-      (send (enc (enc m (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))-      (send (enc (enc m (pubk a-2)) a (pubk a-2)))))-  (label 56)-  (parent 38)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (6 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 1 resp 2) m (6 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))-  (label 58)-  (parent 39)-  (unrealized (6 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton dy-  (vars (m text) (a a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-3) (b a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 1) (1 0)) ((5 1) (4 0)))-  (non-orig (privk a))-  (uniq-orig m)-  (operation nonce-test (displaced 7 4 resp 2) m (6 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk a)) a (pubk a)))-      (recv (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a-0 (pubk a)))-      (send (enc (enc m (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))-      (send (enc (enc m (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-3 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-3)) a (pubk a-3)))))-  (label 59)-  (parent 39)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-3 b)) m (5 0) (enc m (pubk b))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b)))))-  (label 60)-  (parent 40)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((4 1) (5 0)) ((5 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 6 4 resp 2) m (5 0) (enc m (pubk b))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3)))))-  (label 61)-  (parent 40)-  (seen 56)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (5 0))-    ((2 1) (0 1)) ((3 1) (4 0)) ((3 1) (5 0)) ((4 1) (2 0))-    ((5 1) (2 0)) ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (5 0) (enc m (pubk b))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))-  (label 62)-  (parent 40)-  (seen 37 58 59 61)-  (unrealized (6 0))-  (comment "6 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (4 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-2 a)) m (2 0) (enc m (pubk a))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 63)-  (parent 41)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (3 0))-    ((3 1) (1 0)) ((4 1) (1 0)) ((5 1) (4 0)))-  (non-orig (privk a))-  (uniq-orig m)-  (operation nonce-test (contracted (b a) (a-2 a-1)) m (2 0)-    (enc m (pubk a)) (enc (enc m (pubk a)) a (pubk a)))-  (traces-    ((send (enc (enc m (pubk a)) a (pubk a)))-      (recv (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a-0 (pubk a)))-      (send (enc (enc m (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a)))))-  (label 64)-  (parent 41)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (2 0))-    ((2 1) (0 1)) ((3 1) (4 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 1 resp 2) m (2 0) (enc m (pubk a))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 65)-  (parent 41)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (4 0))-    ((2 1) (3 0)) ((3 1) (0 1)) ((4 1) (0 1)) ((5 1) (4 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b)))))-  (label 66)-  (parent 42)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (5 0))-    ((2 1) (0 1)) ((3 1) (4 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-3 b)) m (5 0) (enc m (pubk b))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 67)-  (parent 44)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (4 0)) ((2 1) (3 0))-    ((3 1) (0 1)) ((4 1) (0 1)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1)))))-  (label 69)-  (parent 45)-  (seen 83)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a-4) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (6 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 3 resp 2) m (6 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a-4 (pubk b)))-      (send (enc (enc m (pubk a-4)) b (pubk a-4)))))-  (label 70)-  (parent 46)-  (seen 73 100)-  (unrealized (6 0))-  (comment "7 in cohort - 5 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a-4) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (6 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((4 1) (2 0)) ((5 1) (2 0)) ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 1 resp 2) m (6 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a-4 (pubk b)))-      (send (enc (enc m (pubk a-4)) b (pubk a-4)))))-  (label 72)-  (parent 46)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 1) (1 0)) ((5 1) (4 0)))-  (non-orig (privk a))-  (uniq-orig m)-  (operation nonce-test (displaced 7 4 resp 2) m (6 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk a)) a (pubk a)))-      (recv (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a-0 (pubk a)))-      (send (enc (enc m (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))-      (send (enc (enc m (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3)))))-  (label 73)-  (parent 46)-  (seen 30)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (3 0)) ((2 1) (4 0))-    ((3 1) (0 1)) ((4 1) (3 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 74)-  (parent 47)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (4 0)) ((2 1) (4 0))-    ((3 1) (0 1)) ((4 1) (3 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1)))))-  (label 75)-  (parent 48)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (4 0)) ((2 1) (0 1))-    ((3 1) (6 0)) ((4 1) (2 0)) ((5 1) (4 0)) ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 3 resp 2) m (6 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))-      (send (enc (enc m (pubk a-3)) b (pubk a-3))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))-  (label 76)-  (parent 49)-  (seen 105 107)-  (unrealized (5 0))-  (comment "7 in cohort - 4 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (6 0)) ((2 1) (0 1))-    ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (4 0)) ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 1 resp 2) m (6 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))-      (send (enc (enc m (pubk a-3)) b (pubk a-3))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))-  (label 77)-  (parent 49)-  (unrealized (6 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (4 0)) ((2 1) (4 0))-    ((3 1) (0 1)) ((4 1) (3 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2)))))-  (label 78)-  (parent 50)-  (seen 79)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (3 0)) ((2 1) (0 1)) ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2)))))-  (label 79)-  (parent 51)-  (seen 8)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (3 0)) ((2 1) (4 0))-    ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b)))))-  (label 80)-  (parent 52)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a a-0 name))-  (defstrand init 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((1 1) (3 0)) ((2 1) (0 1))-    ((3 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk a)) a (pubk a)))-      (recv (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a)))))-  (label 81)-  (parent 53)-  (seen 14)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (3 0))-    ((2 1) (4 0)) ((3 1) (0 1)) ((4 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b)))))-  (label 82)-  (parent 54)-  (seen 111)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (3 0)) ((2 1) (0 1))-    ((3 1) (0 1)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1)))))-  (label 83)-  (parent 55)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a-1) (b a))-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (3 0)) ((3 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))-      (send (enc (enc m (pubk a-1)) a (pubk a-1)))))-  (label 84)-  (parent 56)-  (seen 35)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a a-0) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-3) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (6 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-4 b)) m (6 0) (enc m (pubk b))-    (enc (enc m (pubk b)) b (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))-      (send (enc (enc m (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-1 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-3 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-3)) b (pubk a-3)))))-  (label 85)-  (parent 58)-  (seen 37)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a-2) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-3) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 3 resp 2) m (6 0) (enc m (pubk b))-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))-      (send (enc (enc m (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-3 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-3)) a (pubk a-3)))))-  (label 86)-  (parent 58)-  (seen 56)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a-1) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-2) (b a))-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (4 0)) ((3 1) (0 1))-    ((4 1) (3 0)))-  (non-orig (privk a))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk a)) a (pubk a)))-      (recv (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))-      (send (enc (enc m (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-2)) a (pubk a-2)))))-  (label 88)-  (parent 59)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (4 0)) ((2 1) (3 0))-    ((2 1) (4 0)) ((3 1) (0 1)) ((4 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b)))))-  (label 89)-  (parent 60)-  (seen 111)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (3 0))-    ((3 1) (1 0)) ((4 1) (1 0)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 91)-  (parent 63)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a a-0 name))-  (defstrand init 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (2 0)) ((2 1) (0 1))-    ((3 1) (0 1)) ((4 1) (3 0)))-  (non-orig (privk a))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk a)) a (pubk a)))-      (recv (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a)))))-  (label 92)-  (parent 64)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1))-    ((2 1) (3 0)) ((3 1) (0 1)) ((4 1) (0 1)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 93)-  (parent 65)-  (seen 114)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (3 0))-    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (3 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b)))))-  (label 94)-  (parent 66)-  (seen 10)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (4 0))-    ((2 1) (3 0)) ((3 1) (0 1)) ((4 1) (0 1)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 95)-  (parent 67)-  (seen 114)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (6 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-4 a)) m (6 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 96)-  (parent 70)-  (seen 117)-  (unrealized (5 0))-  (comment "5 in cohort - 4 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a a-0) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (defstrand resp 2 (m m) (a a-3) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (6 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (6 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 1 resp 2) m (6 0)-    (enc (enc m (pubk a-4)) b (pubk a-4))-    (enc (enc m (pubk b)) a-4 (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))-      (send (enc (enc m (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-1 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))-      (send (enc (enc m (pubk a-3)) b (pubk a-3)))))-  (label 97)-  (parent 70)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a-4) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((4 1) (6 0)) ((5 1) (2 0)) ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 4 resp 2) m (6 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a-4 (pubk b)))-      (send (enc (enc m (pubk a-4)) b (pubk a-4)))))-  (label 98)-  (parent 70)-  (seen 73 123)-  (unrealized (6 0))-  (comment "7 in cohort - 3 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a-4) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (6 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (6 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 1 resp 2) m (6 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a-4 (pubk b)))-      (send (enc (enc m (pubk a-4)) b (pubk a-4)))))-  (label 100)-  (parent 70)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (5 0)) ((2 1) (3 0))-    ((3 1) (0 1)) ((4 1) (0 1)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))-      (send (enc (enc m (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))-      (send (enc (enc m (pubk a-3)) b (pubk a-3)))))-  (label 101)-  (parent 72)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (3 0)) ((2 1) (0 1)) ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 102)-  (parent 74)-  (seen 35)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (3 0)) ((2 1) (0 1)) ((3 1) (2 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1)))))-  (label 103)-  (parent 75)-  (seen 112)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-3) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (4 0)) ((2 1) (0 1))-    ((3 1) (6 0)) ((4 1) (2 0)) ((5 1) (4 0)) ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-4 a)) m (5 0) (enc m (pubk a))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-3 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-3)) a (pubk a-3)))))-  (label 104)-  (parent 76)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-3) (b a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (5 0)) ((3 1) (1 0))-    ((4 1) (3 0)) ((5 1) (4 0)))-  (non-orig (privk a))-  (uniq-orig m)-  (operation nonce-test (contracted (b a) (a-4 a-3)) m (5 0)-    (enc m (pubk a)) (enc (enc m (pubk a)) a (pubk a)))-  (traces-    ((send (enc (enc m (pubk a)) a (pubk a)))-      (recv (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a-0 (pubk a)))-      (send (enc (enc m (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))-      (send (enc (enc m (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-3 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-3)) a (pubk a-3)))))-  (label 105)-  (parent 76)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (6 0)) ((4 1) (2 0)) ((5 1) (4 0)) ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 1 resp 2) m (5 0) (enc m (pubk a))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))-      (send (enc (enc m (pubk a-3)) b (pubk a-3))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))-  (label 107)-  (parent 76)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a a-0) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-3) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (6 0)) ((2 1) (0 1))-    ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (4 0)) ((6 1) (5 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-4 b)) m (6 0) (enc m (pubk b))-    (enc (enc m (pubk b)) b (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))-      (send (enc (enc m (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-1 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-3 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-3)) b (pubk a-3)))))-  (label 108)-  (parent 77)-  (seen 48)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (6 0)) ((2 1) (0 1))-    ((3 1) (6 0)) ((4 1) (2 0)) ((5 1) (4 0)) ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 3 resp 2) m (6 0) (enc m (pubk b))-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))-      (send (enc (enc m (pubk a-3)) b (pubk a-3))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))-  (label 109)-  (parent 77)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((1 1) (3 0)) ((2 1) (0 1))-    ((3 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b)))))-  (label 111)-  (parent 80)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a a-0) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))-      (send (enc (enc m (pubk a-0)) b (pubk a-0)))))-  (label 112)-  (parent 83)-  (seen 4)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a-1) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-2) (b a))-  (precedes ((0 0) (1 0)) ((1 1) (3 0)) ((2 1) (0 1)) ((3 1) (2 0)))-  (non-orig (privk a))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk a)) a (pubk a)))-      (recv (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))-      (send (enc (enc m (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-2)) a (pubk a-2)))))-  (label 113)-  (parent 88)-  (seen 112)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (2 0)) ((2 1) (0 1))-    ((3 1) (0 1)) ((4 1) (3 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 114)-  (parent 91)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a a-0 name))-  (defstrand init 2 (m m) (a a) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (2 0)))-  (non-orig (privk a))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk a)) a (pubk a)))-      (recv (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a)))))-  (label 115)-  (parent 92)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (6 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-3 b)) m (5 0) (enc m (pubk b))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 116)-  (parent 96)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a a-0) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (6 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-3 b)) m (5 0) (enc m (pubk b))-    (enc (enc m (pubk b)) b (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))-      (send (enc (enc m (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-1 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b)))))-  (label 117)-  (parent 96)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((3 1) (6 0)) ((4 1) (5 0)) ((5 1) (2 0))-    ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 4 resp 2) m (5 0) (enc m (pubk b))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 118)-  (parent 96)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (5 0)) ((2 1) (3 0))-    ((2 1) (5 0)) ((3 1) (0 1)) ((4 1) (0 1)) ((5 1) (4 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2)))))-  (label 120)-  (parent 97)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (5 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((4 1) (6 0)) ((5 1) (2 0)) ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (contracted (a-4 a)) m (6 0) (enc m (pubk a))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 121)-  (parent 98)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a-4) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (6 0)) ((2 1) (0 1))-    ((3 1) (4 0)) ((4 1) (6 0)) ((5 1) (2 0)) ((6 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (displaced 7 1 resp 2) m (6 0) (enc m (pubk a))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a-4 (pubk b)))-      (send (enc (enc m (pubk a-4)) b (pubk a-4)))))-  (label 123)-  (parent 98)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (5 0)) ((2 1) (3 0))-    ((2 1) (5 0)) ((3 1) (0 1)) ((4 1) (0 1)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))-      (send (enc (enc m (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))-      (send (enc (enc m (pubk a-3)) b (pubk a-3)))))-  (label 124)-  (parent 100)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (4 0)) ((2 1) (0 1))-    ((3 1) (0 1)) ((4 1) (3 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (3 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))-      (send (enc (enc m (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2)))))-  (label 125)-  (parent 101)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (3 0)) ((2 1) (5 0))-    ((3 1) (0 1)) ((4 1) (3 0)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2)))))-  (label 126)-  (parent 104)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a-1) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) a)) (a a-2) (b a))-  (precedes ((0 0) (1 0)) ((1 1) (4 0)) ((2 1) (0 1)) ((3 1) (2 0))-    ((4 1) (3 0)))-  (non-orig (privk a))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk a)) a (pubk a)))-      (recv (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))-      (send (enc (enc m (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc (enc m (pubk a)) a (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) a (pubk a-2)) a (pubk a-2)))))-  (label 127)-  (parent 105)-  (seen 103)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-3) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (4 0)) ((2 1) (5 0))-    ((3 1) (0 1)) ((4 1) (3 0)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-3 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-3)) a (pubk a-3)))))-  (label 128)-  (parent 107)-  (seen 21)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-3) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (5 0)) ((2 1) (5 0))-    ((3 1) (0 1)) ((4 1) (3 0)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-3 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-3)) a (pubk a-3)))))-  (label 129)-  (parent 109)-  (seen 23)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a b) (b a))-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b)))))-  (label 130)-  (parent 111)-  (seen 2)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a b) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 131)-  (parent 114)-  (seen 130)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a name))-  (defstrand init 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (defstrand resp 2 (m m) (a a) (b a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk a)) a (pubk a)))-      (recv (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a))))-    ((recv (enc (enc m (pubk a)) a (pubk a)))-      (send (enc (enc m (pubk a)) a (pubk a)))))-  (label 132)-  (parent 115)-  (seen 17)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (4 0)) ((2 1) (3 0))-    ((2 1) (5 0)) ((3 1) (0 1)) ((4 1) (0 1)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 133)-  (parent 116)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a b) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (4 0)) ((2 1) (3 0))-    ((2 1) (5 0)) ((3 1) (0 1)) ((4 1) (0 1)) ((5 1) (4 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) b (pubk b)))-      (send (enc (enc m (pubk b)) b (pubk b)))))-  (label 134)-  (parent 117)-  (seen 94)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (4 0)) ((4 1) (1 0)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))-      (send (enc (enc m (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))-      (send (enc (enc m (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 135)-  (parent 118)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (4 0)) ((2 1) (0 1))-    ((3 1) (0 1)) ((4 1) (3 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2)))))-  (label 136)-  (parent 120)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 1) (1 0)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))-      (send (enc (enc m (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))-      (send (enc (enc m (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 137)-  (parent 121)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (5 0)) ((2 1) (3 0))-    ((3 1) (5 0)) ((4 1) (0 1)) ((5 1) (4 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))-      (send (enc (enc m (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))-      (send (enc (enc m (pubk a-3)) b (pubk a-3)))))-  (label 138)-  (parent 123)-  (seen 139)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (4 0)) ((2 1) (4 0))-    ((3 1) (0 1)) ((4 1) (3 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (3 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))-      (send (enc (enc m (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2)))))-  (label 139)-  (parent 124)-  (seen 140)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a-2) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (3 0)) ((2 1) (0 1)) ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))-      (send (enc (enc m (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))-      (send (enc (enc m (pubk a-2)) b (pubk a-2)))))-  (label 140)-  (parent 125)-  (seen 8)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))-  (precedes ((0 0) (1 0)) ((1 1) (4 0)) ((2 1) (0 1)) ((3 1) (2 0))-    ((4 1) (3 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1)))))-  (label 141)-  (parent 126)-  (seen 25)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a b) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((1 1) (4 0)) ((2 1) (0 1))-    ((3 1) (0 1)) ((4 1) (3 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 142)-  (parent 133)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((1 1) (4 0)) ((2 1) (3 0))-    ((3 1) (0 1)) ((4 1) (3 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))-      (send (enc (enc m (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 143)-  (parent 135)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton dy-  (vars (m text) (b a a-0 a-1 name))-  (defstrand init 2 (m m) (a b) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))-  (defstrand resp 2 (m m) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (3 0)) ((2 1) (0 1)) ((3 1) (2 0)))-  (non-orig (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) b (pubk b)))-      (recv (enc (enc m (pubk b)) b (pubk b))))-    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))-      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))-      (send (enc (enc m (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1)))))-  (label 144)-  (parent 136)-  (seen 112)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a-1) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (4 0)) ((3 1) (0 1))-    ((4 1) (3 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (1 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))-      (send (enc (enc m (pubk a-1)) a (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 145)-  (parent 137)-  (seen 25)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a b) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (3 0)) ((2 1) (0 1)) ((3 1) (2 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk a)) b (pubk a)))-      (send (enc (enc m (pubk b)) a (pubk b))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 146)-  (parent 142)-  (seen 130)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton dy-  (vars (m text) (a b a-0 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((1 1) (3 0)) ((2 1) (0 1))-    ((3 1) (0 1)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation generalization deleted (3 0))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 147)-  (parent 143)-  (seen 13)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(comment "Strand bound exceeded--aborting run")--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (6 0)) ((0 0) (7 0))-    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (4 0)) ((4 1) (2 0))-    ((5 1) (2 0)) ((6 1) (5 0)) ((7 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (5 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))-  (label 43)-  (parent 28)-  (unrealized (7 0))-  (comment "aborted"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (7 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (4 0)) ((3 1) (5 0)) ((4 1) (2 0))-    ((5 1) (2 0)) ((6 1) (5 0)) ((7 1) (6 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (6 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 57)-  (parent 39)-  (unrealized)-  (comment "aborted"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (6 0)) ((0 0) (7 0))-    ((1 1) (5 0)) ((2 1) (0 1)) ((3 1) (4 0)) ((4 1) (2 0))-    ((5 1) (2 0)) ((6 1) (5 0)) ((7 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (5 0) (enc m (pubk b))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))-  (label 68)-  (parent 44)-  (unrealized (7 0))-  (comment "aborted"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a-4) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (7 0)) ((1 1) (5 0))-    ((2 1) (0 1)) ((3 1) (4 0)) ((4 1) (2 0)) ((5 1) (2 0))-    ((6 1) (5 0)) ((7 1) (6 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (6 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a-4 (pubk b)))-      (send (enc (enc m (pubk a-4)) b (pubk a-4))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 71)-  (parent 46)-  (unrealized (6 0))-  (comment "aborted"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 a-5 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (defstrand resp 2 (m m) (a a-5) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (7 0)) ((1 1) (6 0))-    ((2 1) (0 1)) ((3 1) (4 0)) ((3 1) (5 0)) ((4 1) (2 0))-    ((5 1) (2 0)) ((6 1) (5 0)) ((7 1) (6 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (6 0) (enc m (pubk b))-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4))))-    ((recv (enc (enc m (pubk b)) a-5 (pubk b)))-      (send (enc (enc m (pubk a-5)) b (pubk a-5)))))-  (label 87)-  (parent 58)-  (unrealized (7 0))-  (comment "aborted"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (7 0)) ((1 1) (5 0))-    ((2 1) (0 1)) ((3 1) (4 0)) ((3 1) (5 0)) ((4 1) (2 0))-    ((5 1) (2 0)) ((6 1) (5 0)) ((7 1) (6 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (6 0)-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a)))))-  (label 90)-  (parent 62)-  (unrealized)-  (comment "aborted"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 a-5 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a-4) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-5) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (7 0)) ((1 1) (5 0))-    ((2 1) (0 1)) ((3 1) (4 0)) ((3 1) (6 0)) ((4 1) (2 0))-    ((5 1) (2 0)) ((6 1) (5 0)) ((7 1) (6 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (6 0)-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a-4 (pubk b)))-      (send (enc (enc m (pubk a-4)) b (pubk a-4))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-5 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-5)) a (pubk a-5)))))-  (label 99)-  (parent 70)-  (unrealized (6 0) (7 0))-  (comment "aborted"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 a-5 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (defstrand resp 2 (m m) (a a-5) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (7 0)) ((1 1) (4 0))-    ((2 1) (0 1)) ((3 1) (6 0)) ((4 1) (2 0)) ((5 1) (4 0))-    ((6 1) (5 0)) ((7 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (5 0) (enc m (pubk a))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))-      (send (enc (enc m (pubk a-3)) b (pubk a-3))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4))))-    ((recv (enc (enc m (pubk a)) a-5 (pubk a)))-      (send (enc (enc m (pubk a-5)) a (pubk a-5)))))-  (label 106)-  (parent 76)-  (unrealized (7 0))-  (comment "aborted"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 a-5 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (defstrand resp 2 (m m) (a a-5) (b b))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (7 0)) ((1 1) (6 0))-    ((2 1) (0 1)) ((3 1) (5 0)) ((4 1) (2 0)) ((5 1) (4 0))-    ((6 1) (5 0)) ((7 1) (6 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (6 0) (enc m (pubk b))-    (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))-      (send (enc (enc m (pubk a-3)) b (pubk a-3))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4))))-    ((recv (enc (enc m (pubk b)) a-5 (pubk b)))-      (send (enc (enc m (pubk a-5)) b (pubk a-5)))))-  (label 110)-  (parent 77)-  (unrealized (7 0))-  (comment "aborted"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (7 0)) ((1 1) (5 0))-    ((2 1) (0 1)) ((3 1) (4 0)) ((3 1) (6 0)) ((4 1) (2 0))-    ((5 1) (2 0)) ((6 1) (5 0)) ((7 1) (5 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (5 0) (enc m (pubk b))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))-  (label 119)-  (parent 96)-  (unrealized (7 0))-  (comment "aborted"))--(defskeleton dy-  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 a-5 name))-  (defstrand init 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))-  (defstrand resp 2 (m m) (a a-1) (b b))-  (defstrand resp 2 (m m) (a a) (b b))-  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))-  (defstrand resp 2 (m m) (a a-3) (b a))-  (defstrand resp 2 (m m) (a a-4) (b b))-  (defstrand resp 2 (m m) (a a-5) (b a))-  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (7 0)) ((1 1) (5 0))-    ((2 1) (0 1)) ((3 1) (4 0)) ((4 1) (6 0)) ((5 1) (2 0))-    ((6 1) (5 0)) ((7 1) (6 0)))-  (non-orig (privk a) (privk b))-  (uniq-orig m)-  (operation nonce-test (added-strand resp 2) m (6 0) (enc m (pubk a))-    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))-  (traces-    ((send (enc (enc m (pubk b)) a (pubk b)))-      (recv (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))-      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))-    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))-      (send (enc (enc m (pubk a-1)) b (pubk a-1))))-    ((recv (enc (enc m (pubk b)) a (pubk b)))-      (send (enc (enc m (pubk a)) b (pubk a))))-    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))-      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))-    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))-      (send (enc (enc m (pubk a-3)) a (pubk a-3))))-    ((recv (enc (enc m (pubk b)) a-4 (pubk b)))-      (send (enc (enc m (pubk a-4)) b (pubk a-4))))-    ((recv (enc (enc m (pubk a)) a-5 (pubk a)))-      (send (enc (enc m (pubk a-5)) a (pubk a-5)))))-  (label 122)-  (parent 98)+(comment "CPSA 2.3.1")+(comment "All input read from dy.lsp")++(defprotocol dy basic+  (defrole init+    (vars (a b name) (m text))+    (trace (send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a)))))+  (defrole resp+    (vars (a b name) (m mesg))+    (trace (recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))))++(defskeleton dy+  (vars (m text) (a b name))+  (defstrand init 2 (m m) (a a) (b b))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a)))))+  (label 0)+  (unrealized (0 1))+  (origs (m (0 0)))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton dy+  (vars (m text) (b name))+  (defstrand init 2 (m m) (a b) (b b))+  (non-orig (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a b)) m (0 1)+    (enc (enc m (pubk b)) b (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b)))))+  (label 1)+  (parent 0)+  (unrealized)+  (shape)+  (maps ((0) ((a b) (b b) (m m))))+  (origs (m (0 0))))++(defskeleton dy+  (vars (m text) (a b a-0 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (0 1)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0)))))+  (label 2)+  (parent 0)+  (unrealized (0 1))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton dy+  (vars (m text) (a b name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (0 1)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 3)+  (parent 0)+  (unrealized)+  (shape)+  (maps ((0) ((a a) (b b) (m m))))+  (origs (m (0 0))))++(defskeleton dy+  (vars (m text) (b a name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-0 b)) m (0 1) (enc m (pubk b))+    (enc (enc m (pubk b)) b (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a)))))+  (label 4)+  (parent 2)+  (seen 1)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (0 1) (enc m (pubk b))+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1)))))+  (label 5)+  (parent 2)+  (unrealized (2 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-1 a)) m (2 0)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 6)+  (parent 5)+  (seen 3)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-1) (b b))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (2 0)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-1)) b (pubk a-1)))))+  (label 7)+  (parent 5)+  (unrealized)+  (shape)+  (maps ((0) ((a a) (b b) (m m))))+  (origs (m (0 0))))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (2 0)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 8)+  (parent 5)+  (unrealized (2 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-1 a)) m (2 0)+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 9)+  (parent 8)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-1) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (2 0)+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-1)) b (pubk a-1)))))+  (label 10)+  (parent 8)+  (seen 6)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (2 0)) ((4 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (2 0)+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2)))))+  (label 11)+  (parent 8)+  (unrealized (2 0) (4 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton dy+  (vars (m text) (a b name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 12)+  (parent 9)+  (seen 3)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-1 b) (a-2 a-0)) m (4 0)+    (enc (enc m (pubk b)) b (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0)))))+  (label 13)+  (parent 11)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)) ((4 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (4 0)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2)))))+  (label 14)+  (parent 11)+  (unrealized (3 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (2 0)) ((4 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (4 0)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 15)+  (parent 11)+  (unrealized (2 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton dy+  (vars (m text) (b a name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a)))))+  (label 16)+  (parent 13)+  (seen 4)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 a-1 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-1) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)) ((4 1) (3 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-2 b)) m (3 0) (enc m (pubk b))+    (enc (enc m (pubk b)) b (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-1)) b (pubk a-1)))))+  (label 17)+  (parent 14)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (3 0))+    ((3 1) (1 0)) ((4 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (displaced 5 2 resp 2) m (3 0) (enc m (pubk b))+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2)))))+  (label 18)+  (parent 14)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (defstrand resp 2 (m m) (a a-3) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((0 0) (5 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (3 0)) ((5 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (3 0) (enc m (pubk b))+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))+      (send (enc (enc m (pubk a-3)) b (pubk a-3)))))+  (label 19)+  (parent 14)+  (seen 18)+  (unrealized (5 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (2 0)) ((4 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-2 a)) m (2 0) (enc m (pubk a))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 20)+  (parent 15)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((4 1) (1 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (2 0) (enc m (pubk a))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2)))))+  (label 21)+  (parent 15)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-3) (b a))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((0 0) (5 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (2 0) (enc m (pubk a))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))+      (send (enc (enc m (pubk a-3)) a (pubk a-3)))))+  (label 22)+  (parent 15)+  (unrealized (5 0))+  (comment "4 in cohort - 4 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (2 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0)))))+  (label 23)+  (parent 17)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-1) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (2 0)) ((2 1) (0 1))+    ((3 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-1)) b (pubk a-1)))))+  (label 24)+  (parent 18)+  (seen 6)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a-2) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)) ((4 1) (3 0)) ((5 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (5 0)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))+      (send (enc (enc m (pubk a-2)) b (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3)))))+  (label 25)+  (parent 19)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 26)+  (parent 20)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-1) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (0 1)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-1)) b (pubk a-1)))))+  (label 27)+  (parent 21)+  (seen 6)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (precedes ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-1 b) (a-2 a-0) (a-3 b)) m (5 0)+    (enc (enc m (pubk b)) b (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b)))))+  (label 28)+  (parent 22)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((4 1) (1 0)) ((5 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (5 0)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3)))))+  (label 29)+  (parent 22)+  (unrealized (4 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-3) (b a))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (2 0)) ((4 1) (3 0)) ((4 1) (5 0)) ((5 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (displaced 6 4 resp 2) m (5 0)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))+      (send (enc (enc m (pubk a-3)) a (pubk a-3)))))+  (label 30)+  (parent 22)+  (seen 37)+  (unrealized (5 0))+  (comment "4 in cohort - 3 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-3) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((0 0) (6 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (2 0))+    ((6 1) (5 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (5 0)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))+      (send (enc (enc m (pubk a-3)) a (pubk a-3))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 31)+  (parent 22)+  (seen 40)+  (unrealized (5 0))+  (comment "4 in cohort - 3 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0)))))+  (label 32)+  (parent 23)+  (seen 4)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (2 0)) ((4 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2)))))+  (label 33)+  (parent 25)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 34)+  (parent 26)+  (seen 3)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (b a name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b)))))+  (label 35)+  (parent 28)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-2) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((4 1) (1 0)) ((5 1) (4 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-3 b)) m (4 0) (enc m (pubk b))+    (enc (enc m (pubk b)) b (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-2)) b (pubk a-2)))))+  (label 36)+  (parent 29)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (1 0)) ((5 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (displaced 6 3 resp 2) m (4 0) (enc m (pubk b))+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3)))))+  (label 37)+  (parent 29)+  (unrealized (4 0))+  (comment "4 in cohort - 4 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (defstrand resp 2 (m m) (a a-4) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 0) (6 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (1 0)) ((5 1) (4 0))+    ((6 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (4 0) (enc m (pubk b))+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc m (pubk b)) a-4 (pubk b)))+      (send (enc (enc m (pubk a-4)) b (pubk a-4)))))+  (label 38)+  (parent 29)+  (seen 43)+  (unrealized (6 0))+  (comment "4 in cohort - 3 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (2 0)) ((4 1) (3 0)) ((4 1) (5 0)) ((5 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-3 b)) m (5 0)+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b)))))+  (label 39)+  (parent 30)+  (unrealized (2 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-3) (b a))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (5 0)) ((4 1) (3 0)) ((5 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (displaced 6 3 resp 2) m (5 0)+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))+      (send (enc (enc m (pubk a-3)) a (pubk a-3)))))+  (label 40)+  (parent 30)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-3) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((0 0) (6 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (2 0)) ((4 1) (3 0)) ((4 1) (5 0))+    ((5 1) (2 0)) ((6 1) (5 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (5 0)+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))+      (send (enc (enc m (pubk a-3)) a (pubk a-3))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))+  (label 41)+  (parent 30)+  (seen 40 50)+  (unrealized (6 0))+  (comment "4 in cohort - 2 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((0 0) (6 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (2 0))+    ((6 1) (5 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-3 b)) m (5 0)+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 42)+  (parent 31)+  (unrealized (2 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 0) (6 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (1 0)) ((5 1) (4 0))+    ((6 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (5 0)+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3)))))+  (label 43)+  (parent 31)+  (seen 49)+  (unrealized (4 0))+  (comment "4 in cohort - 3 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (precedes ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2)))))+  (label 45)+  (parent 33)+  (seen 7)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (b name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b)))))+  (label 46)+  (parent 35)+  (seen 1)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 a-1 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-1) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (0 1)) ((4 1) (3 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-1)) b (pubk a-1)))))+  (label 47)+  (parent 36)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (1 0)) ((5 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-3 b)) m (4 0) (enc m (pubk b))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2)))))+  (label 48)+  (parent 37)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (4 0))+    ((3 1) (2 0)) ((4 1) (1 0)) ((5 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (displaced 6 2 resp 2) m (4 0) (enc m (pubk b))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3)))))+  (label 49)+  (parent 37)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-2) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (1 0)) ((5 1) (4 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation nonce-test (displaced 6 5 resp 2) m (4 0) (enc m (pubk b))+    (enc (enc m (pubk a-3)) b (pubk a-3))+    (enc (enc m (pubk b)) a-3 (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-2)) b (pubk a-2)))))+  (label 50)+  (parent 37)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 0) (6 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (1 0))+    ((5 1) (4 0)) ((6 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (4 0) (enc m (pubk b))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))+  (label 51)+  (parent 37)+  (seen 49 50 58)+  (unrealized (6 0))+  (comment "4 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m m) (a a-3) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-4) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((4 1) (1 0)) ((5 1) (4 0)) ((6 1) (5 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (6 0)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))+      (send (enc (enc m (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-4 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-4)) b (pubk a-4)))))+  (label 52)+  (parent 38)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (defstrand resp 2 (m m) (a a-4) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((3 1) (6 0)) ((4 1) (1 0)) ((5 1) (4 0))+    ((6 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (displaced 7 3 resp 2) m (6 0)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc m (pubk b)) a-4 (pubk b)))+      (send (enc (enc m (pubk a-4)) b (pubk a-4)))))+  (label 53)+  (parent 38)+  (unrealized (6 0))+  (comment "4 in cohort - 4 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (2 0)) ((4 1) (3 0)) ((4 1) (5 0)) ((5 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-2 a)) m (2 0) (enc m (pubk a))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b)))))+  (label 55)+  (parent 39)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (1 0)) ((5 1) (1 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (2 0) (enc m (pubk a))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2)))))+  (label 56)+  (parent 39)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (precedes ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (4 0)) ((3 1) (2 0))+    ((4 1) (1 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2)))))+  (label 57)+  (parent 40)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-3) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-4) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (1 0)) ((5 1) (4 0))+    ((6 1) (5 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (6 0)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-3 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-3)) a (pubk a-3))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-4 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-4)) b (pubk a-4)))))+  (label 58)+  (parent 41)+  (unrealized (5 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((0 0) (6 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (2 0)) ((4 1) (3 0)) ((5 1) (2 0))+    ((6 1) (5 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-2 a)) m (2 0) (enc m (pubk a))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 60)+  (parent 42)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 0) (6 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (1 0)) ((5 1) (4 0))+    ((6 1) (1 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (2 0) (enc m (pubk a))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2)))))+  (label 61)+  (parent 42)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 0) (6 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (1 0)) ((5 1) (4 0))+    ((6 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-3 b)) m (4 0) (enc m (pubk b))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2)))))+  (label 62)+  (parent 43)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-2) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 0) (6 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (1 0)) ((5 1) (4 0))+    ((6 1) (4 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation nonce-test (displaced 7 6 resp 2) m (4 0) (enc m (pubk b))+    (enc (enc m (pubk a-3)) b (pubk a-3))+    (enc (enc m (pubk b)) a-3 (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-2)) b (pubk a-2)))))+  (label 63)+  (parent 43)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (2 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0)))))+  (label 65)+  (parent 47)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-1) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((2 1) (3 0)) ((3 1) (0 1)) ((4 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-1)) b (pubk a-1)))))+  (label 66)+  (parent 48)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-1) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (3 0)) ((2 1) (1 0))+    ((3 1) (0 1)) ((4 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))+      (send (enc (enc m (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2)))))+  (label 67)+  (parent 49)+  (seen 27)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 a-1 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-1) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((2 1) (3 0)) ((3 1) (0 1)) ((4 1) (3 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-1)) b (pubk a-1)))))+  (label 68)+  (parent 50)+  (seen 13)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a-2) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (0 1)) ((4 1) (3 0)) ((5 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))+      (send (enc (enc m (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))+      (send (enc (enc m (pubk a-2)) b (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3)))))+  (label 70)+  (parent 52)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((3 1) (6 0)) ((4 1) (1 0)) ((5 1) (4 0))+    ((6 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-4 a)) m (6 0)+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 71)+  (parent 53)+  (unrealized (4 0))+  (comment "4 in cohort - 4 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m m) (a a-3) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-4) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((3 1) (5 0)) ((4 1) (1 0)) ((5 1) (4 0))+    ((6 1) (5 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (6 0)+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))+      (send (enc (enc m (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-4 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-4)) b (pubk a-4)))))+  (label 72)+  (parent 53)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (defstrand resp 2 (m m) (a a-4) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (6 0))+    ((3 1) (2 0)) ((4 1) (1 0)) ((5 1) (4 0)) ((6 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (displaced 7 2 resp 2) m (6 0)+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc m (pubk b)) a-4 (pubk b)))+      (send (enc (enc m (pubk a-4)) b (pubk a-4)))))+  (label 73)+  (parent 53)+  (unrealized (6 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (precedes ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0))+    ((3 1) (4 0)) ((4 1) (1 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b)))))+  (label 75)+  (parent 55)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-1) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((2 1) (3 0)) ((3 1) (0 1)) ((4 1) (0 1)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-1)) b (pubk a-1)))))+  (label 76)+  (parent 56)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-1) (b a))+  (precedes ((0 0) (2 0)) ((1 1) (3 0)) ((2 1) (1 0)) ((3 1) (0 1)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))+      (send (enc (enc m (pubk a-1)) a (pubk a-1)))))+  (label 77)+  (parent 57)+  (seen 34)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-2) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-3) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (1 0)) ((5 1) (4 0))+    ((6 1) (5 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-4 b)) m (5 0) (enc m (pubk b))+    (enc (enc m (pubk b)) b (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-2)) b (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-3)) b (pubk a-3)))))+  (label 78)+  (parent 58)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-1) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (4 0))+    ((3 1) (1 0)) ((4 1) (3 0)) ((5 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (displaced 7 3 resp 2) m (5 0) (enc m (pubk b))+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))+      (send (enc (enc m (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3)))))+  (label 79)+  (parent 58)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((4 1) (1 0)) ((5 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 81)+  (parent 60)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-1) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((0 0) (5 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)) ((5 1) (0 1)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-1)) b (pubk a-1)))))+  (label 82)+  (parent 61)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-1) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((0 0) (5 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)) ((5 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-1)) b (pubk a-1)))))+  (label 83)+  (parent 62)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 a-1 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-1) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((0 0) (5 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (3 0)) ((5 1) (3 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-1)) b (pubk a-1)))))+  (label 84)+  (parent 63)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0)))))+  (label 85)+  (parent 65)+  (seen 4)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (2 0)) ((2 1) (0 1))+    ((3 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0)))))+  (label 86)+  (parent 66)+  (seen 6)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (2 0)) ((4 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-0 (pubk a)))+      (send (enc (enc m (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2)))))+  (label 87)+  (parent 70)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((3 1) (6 0)) ((4 1) (1 0)) ((5 1) (4 0))+    ((6 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-3 b)) m (4 0) (enc m (pubk b))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 88)+  (parent 71)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (4 0))+    ((3 1) (2 0)) ((3 1) (6 0)) ((4 1) (1 0)) ((5 1) (4 0))+    ((6 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (displaced 7 2 resp 2) m (4 0) (enc m (pubk b))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 89)+  (parent 71)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-2) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (2 0)) ((3 1) (6 0)) ((4 1) (1 0)) ((5 1) (4 0))+    ((6 1) (4 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation nonce-test (displaced 7 5 resp 2) m (4 0) (enc m (pubk b))+    (enc (enc m (pubk a-3)) b (pubk a-3))+    (enc (enc m (pubk b)) a-3 (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-2)) b (pubk a-2))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b)))))+  (label 90)+  (parent 71)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a-2) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((2 1) (4 0)) ((3 1) (0 1)) ((4 1) (3 0)) ((5 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))+      (send (enc (enc m (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))+      (send (enc (enc m (pubk a-2)) b (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3)))))+  (label 92)+  (parent 72)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (6 0))+    ((3 1) (2 0)) ((4 1) (1 0)) ((5 1) (4 0)) ((6 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (contracted (a-4 a)) m (6 0) (enc m (pubk a))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 93)+  (parent 73)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m m) (a a-3) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-4) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (6 0)) ((1 1) (0 1)) ((2 1) (5 0))+    ((3 1) (2 0)) ((4 1) (1 0)) ((5 1) (4 0)) ((6 1) (5 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (6 0) (enc m (pubk a))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a-3 (pubk b)))+      (send (enc (enc m (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-4 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-4)) b (pubk a-4)))))+  (label 94)+  (parent 73)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((2 1) (3 0))+    ((3 1) (0 1)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b)))))+  (label 96)+  (parent 75)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (2 0)) ((2 1) (0 1))+    ((3 1) (0 1)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0)))))+  (label 97)+  (parent 76)+  (seen 6)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-2) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((2 1) (3 0)) ((3 1) (0 1)) ((4 1) (3 0)) ((5 1) (4 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-2)) b (pubk a-2)))))+  (label 98)+  (parent 78)+  (seen 17)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (3 0)) ((2 1) (0 1))+    ((3 1) (2 0)) ((4 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-0 (pubk a)))+      (send (enc (enc m (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2)))))+  (label 99)+  (parent 79)+  (seen 24)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (0 1)) ((4 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 100)+  (parent 81)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (2 0)) ((4 1) (0 1)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0)))))+  (label 101)+  (parent 82)+  (seen 97)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (2 0)) ((4 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0)))))+  (label 102)+  (parent 83)+  (seen 86)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (2 0)) ((4 1) (2 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0)))))+  (label 103)+  (parent 84)+  (seen 13)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (precedes ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-0 (pubk a)))+      (send (enc (enc m (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2)))))+  (label 104)+  (parent 87)+  (seen 7)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-1) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((2 1) (5 0)) ((3 1) (0 1)) ((4 1) (3 0)) ((5 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 105)+  (parent 88)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-1) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (3 0)) ((2 1) (1 0))+    ((2 1) (5 0)) ((3 1) (0 1)) ((4 1) (3 0)) ((5 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))+      (send (enc (enc m (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 106)+  (parent 89)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 a-1 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-1) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((2 1) (5 0)) ((3 1) (0 1)) ((4 1) (3 0)) ((5 1) (3 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b)))))+  (label 107)+  (parent 90)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((1 1) (3 0)) ((2 1) (0 1))+    ((3 1) (2 0)) ((4 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-0 (pubk a)))+      (send (enc (enc m (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2)))))+  (label 108)+  (parent 92)+  (seen 104)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-1) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-2) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (4 0)) ((1 1) (5 0)) ((2 1) (1 0))+    ((3 1) (0 1)) ((4 1) (3 0)) ((5 1) (3 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))+      (send (enc (enc m (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-2 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-2)) b (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 109)+  (parent 93)+  (seen 20)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a-2) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (5 0)) ((1 1) (4 0)) ((2 1) (1 0))+    ((3 1) (0 1)) ((4 1) (3 0)) ((5 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-1 (pubk a)))+      (send (enc (enc m (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a-2 (pubk b)))+      (send (enc (enc m (pubk a-2)) b (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3)))))+  (label 110)+  (parent 94)+  (seen 108)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b)))))+  (label 111)+  (parent 96)+  (seen 3)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 112)+  (parent 100)+  (seen 111)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a b) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (4 0)) ((2 1) (0 1))+    ((3 1) (2 0)) ((4 1) (2 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) b (pubk a)))+      (send (enc (enc m (pubk b)) a (pubk b))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 113)+  (parent 105)+  (seen 86)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-0) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-1) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((2 1) (4 0)) ((3 1) (0 1)) ((4 1) (0 1)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation generalization deleted (3 0))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-0 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-0)) a (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-1 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 114)+  (parent 106)+  (seen 9)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton dy+  (vars (m text) (b a a-0 name))+  (defstrand init 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) b)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a b) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (4 0)) ((2 1) (0 1))+    ((3 1) (2 0)) ((4 1) (2 0)))+  (non-orig (privk b))+  (uniq-orig m)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc (enc m (pubk b)) b (pubk b)))+      (recv (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) b (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) b (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) b (pubk b)))+      (send (enc (enc m (pubk b)) b (pubk b)))))+  (label 115)+  (parent 107)+  (seen 13)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(comment "Strand bound exceeded--aborting run")++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-3) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((0 0) (6 0)) ((0 0) (7 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (2 0)) ((4 1) (3 0))+    ((5 1) (2 0)) ((6 1) (5 0)) ((7 1) (5 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (5 0)+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))+      (send (enc (enc m (pubk a-3)) a (pubk a-3))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))+  (label 44)+  (parent 31)+  (unrealized (7 0))+  (comment "aborted"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (defstrand resp 2 (m m) (a a-4) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 0) (7 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (1 0)) ((5 1) (4 0))+    ((6 1) (4 0)) ((7 1) (6 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (6 0)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc m (pubk b)) a-4 (pubk b)))+      (send (enc (enc m (pubk a-4)) b (pubk a-4))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 54)+  (parent 38)+  (unrealized (6 0))+  (comment "aborted"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-0) (b b))+  (defstrand resp 2 (m m) (a a-1) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-2) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-3) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (1 0)) ((0 0) (4 0)) ((0 0) (7 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (2 0)) ((4 1) (3 0)) ((4 1) (5 0))+    ((5 1) (2 0)) ((6 1) (5 0)) ((7 1) (6 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (6 0)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-0 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc m (pubk b)) a-1 (pubk b)))+      (send (enc (enc m (pubk a-1)) b (pubk a-1))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-2 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-3 (pubk a)))+      (send (enc (enc m (pubk a-3)) a (pubk a-3))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 59)+  (parent 41)+  (unrealized)+  (comment "aborted"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 0) (6 0)) ((0 0) (7 0))+    ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (2 0)) ((4 1) (1 0))+    ((5 1) (4 0)) ((6 1) (4 0)) ((7 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (4 0) (enc m (pubk b))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))+  (label 64)+  (parent 43)+  (unrealized (7 0))+  (comment "aborted"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 0) (7 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (1 0))+    ((5 1) (4 0)) ((6 1) (4 0)) ((7 1) (6 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (6 0)+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a)))))+  (label 69)+  (parent 51)+  (unrealized)+  (comment "aborted"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 a-5 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (defstrand resp 2 (m m) (a a-4) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-5) (b a))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 0) (7 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (2 0)) ((3 1) (6 0)) ((4 1) (1 0))+    ((5 1) (4 0)) ((6 1) (4 0)) ((7 1) (6 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (6 0)+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc m (pubk b)) a-4 (pubk b)))+      (send (enc (enc m (pubk a-4)) b (pubk a-4))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-5 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-5)) a (pubk a-5)))))+  (label 74)+  (parent 53)+  (unrealized (6 0) (7 0))+  (comment "aborted"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 a-5 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-3) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-4) (b b))+  (defstrand resp 2 (m m) (a a-5) (b b))+  (precedes ((0 0) (3 0)) ((0 0) (6 0)) ((0 0) (7 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (2 0)) ((3 1) (4 0)) ((4 1) (1 0))+    ((5 1) (4 0)) ((6 1) (5 0)) ((7 1) (5 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (5 0) (enc m (pubk b))+    (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-3 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-3)) a (pubk a-3))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-4 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-4)) b (pubk a-4))))+    ((recv (enc (enc m (pubk b)) a-5 (pubk b)))+      (send (enc (enc m (pubk a-5)) b (pubk a-5)))))+  (label 80)+  (parent 58)+  (unrealized (7 0))+  (comment "aborted"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-4) (b a))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 0) (7 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (2 0)) ((3 1) (6 0)) ((4 1) (1 0))+    ((5 1) (4 0)) ((6 1) (4 0)) ((7 1) (4 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (4 0) (enc m (pubk b))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-4 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-4)) a (pubk a-4)))))+  (label 91)+  (parent 71)+  (unrealized (7 0))+  (comment "aborted"))++(defskeleton dy+  (vars (m text) (a b a-0 a-1 a-2 a-3 a-4 a-5 name))+  (defstrand init 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-0) (b b))+  (defstrand resp 2 (m (cat (enc m (pubk a)) b)) (a a-1) (b a))+  (defstrand resp 2 (m m) (a a) (b b))+  (defstrand resp 2 (m m) (a a-2) (b a))+  (defstrand resp 2 (m (cat (enc m (pubk b)) a)) (a a-3) (b b))+  (defstrand resp 2 (m m) (a a-4) (b b))+  (defstrand resp 2 (m m) (a a-5) (b a))+  (precedes ((0 0) (3 0)) ((0 0) (5 0)) ((0 0) (7 0)) ((1 1) (0 1))+    ((2 1) (6 0)) ((3 1) (2 0)) ((4 1) (1 0)) ((5 1) (4 0))+    ((6 1) (4 0)) ((7 1) (6 0)))+  (non-orig (privk a) (privk b))+  (uniq-orig m)+  (operation nonce-test (added-strand resp 2) m (6 0) (enc m (pubk a))+    (enc (enc m (pubk a)) b (pubk a)) (enc (enc m (pubk b)) a (pubk b)))+  (traces+    ((send (enc (enc m (pubk b)) a (pubk b)))+      (recv (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk b)) a-0 (pubk b)))+      (send (enc (enc m (pubk a-0)) b (pubk a-0))))+    ((recv (enc (enc (enc m (pubk a)) b (pubk a)) a-1 (pubk a)))+      (send (enc (enc (enc m (pubk a)) b (pubk a-1)) a (pubk a-1))))+    ((recv (enc (enc m (pubk b)) a (pubk b)))+      (send (enc (enc m (pubk a)) b (pubk a))))+    ((recv (enc (enc m (pubk a)) a-2 (pubk a)))+      (send (enc (enc m (pubk a-2)) a (pubk a-2))))+    ((recv (enc (enc (enc m (pubk b)) a (pubk b)) a-3 (pubk b)))+      (send (enc (enc (enc m (pubk b)) a (pubk a-3)) b (pubk a-3))))+    ((recv (enc (enc m (pubk b)) a-4 (pubk b)))+      (send (enc (enc m (pubk a-4)) b (pubk a-4))))+    ((recv (enc (enc m (pubk a)) a-5 (pubk a)))+      (send (enc (enc m (pubk a-5)) a (pubk a-5)))))+  (label 95)+  (parent 73)   (unrealized (7 0))   (comment "aborted"))
tst/encsig.tst view
@@ -1,7 +1,7 @@ (herald "Encrypted Signed Message Example"   (comment "Shows examples of key usage of asymmetric keys")) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from encsig.scm")  (defprotocol mult-keys-enc-sig basic
tst/epmo-hash.tst view
@@ -1,7 +1,7 @@ (herald "Electronic Purchase with Money Order Protocol with Key Hashing"   (comment "Annotated with trust management formulas")) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from epmo-hash.scm")  (defprotocol epmo basic
tst/epmo-key-hash.tst view
@@ -1,7 +1,7 @@ (herald "Electronic Purchase with Money Order Protocol with Key Hashing"   (comment "Annotated with trust management formulas")) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from epmo-key-hash.scm")  (defprotocol epmo basic
tst/epmo.tst view
@@ -1,7 +1,7 @@ (herald "Electronic Purchase with Money Order Protocol"   (comment "Annotated with trust management formulas")) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from epmo.scm")  (defprotocol epmo basic
tst/epmo_acctnum-key-hash.tst view
@@ -2,7 +2,7 @@   "Electronic Purchase with Money Order Protocol Variant with Key Hashing"   (comment "This version includes account numbers in exchanges")) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from epmo_acctnum-key-hash.scm")  (defprotocol epmo_acctnum basic@@ -672,7 +672,7 @@   (label 15)   (parent 14)   (unrealized (0 0))-  (comment "2 in cohort - 2 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton epmo_acctnum   (vars@@ -719,46 +719,6 @@   (comment "1 in cohort - 1 not yet seen"))  (defskeleton epmo_acctnum-  (vars (nb nc acctnum price acctnum-0 goods text) (b m c name))-  (defstrand bank 3 (acctnum acctnum) (nc nc) (nm acctnum-0) (nb nb)-    (price price) (b b) (c c) (m m))-  (defstrand merchant 4 (nb nb) (nc nc) (nm acctnum-0) (goods goods)-    (price price) (b b) (c c) (m m))-  (defstrand customer 5 (acctnum acctnum-0) (nb nb) (nc nc)-    (nm acctnum-0) (goods goods) (price price) (b b) (c c) (m m))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))-    ((2 2) (0 0)) ((2 4) (1 2)))-  (non-orig (privk b) (privk m) (privk c))-  (uniq-orig nb nc acctnum-0)-  (operation nonce-test (displaced 3 2 customer 3) nm (0 0)-    (enc nc nm m price (pubk c)))-  (traces-    ((recv (enc c nc acctnum-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" (cat c nc nb acctnum-0 price)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" (cat b m nb acctnum-0)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc acctnum-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" (cat c nc nb acctnum-0 price)) (privk b))-          nb))-      (send (enc (enc "hash" (cat b m nb acctnum-0)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc acctnum-0 m price (pubk c)))-      (send (enc c nc acctnum-0 acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" (cat c nc nb acctnum-0 price)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" (cat c nc nb acctnum-0 price)) (privk b))-          nb))))-  (label 17)-  (parent 15)-  (unrealized (0 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton epmo_acctnum   (vars (nm nb nc acctnum price acctnum-0 goods text) (b m c name))   (defstrand bank 3 (acctnum acctnum) (nc nc) (nm nm) (nb nb)     (price price) (b b) (c c) (m m))@@ -791,7 +751,7 @@           (enc nc nb (pubk c))))       (send         (cat (enc (enc "hash" (cat c nc nb nm price)) (privk b)) nb))))-  (label 18)+  (label 17)   (parent 15)   (unrealized (0 0))   (comment "1 in cohort - 1 not yet seen"))@@ -834,51 +794,10 @@         (cat (enc (enc "hash" (cat c nc nb nm price)) (privk b)) nb)))     ((recv (enc c nc goods (pubk m)))       (send (enc nc nm-0 m price-0 (pubk c)))))-  (label 19)+  (label 18)   (parent 16)   (unrealized (0 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton epmo_acctnum-  (vars (nb nc price acctnum goods text) (b m c name))-  (defstrand bank 3 (acctnum acctnum) (nc nc) (nm acctnum) (nb nb)-    (price price) (b b) (c c) (m m))-  (defstrand merchant 4 (nb nb) (nc nc) (nm acctnum) (goods goods)-    (price price) (b b) (c c) (m m))-  (defstrand customer 5 (acctnum acctnum) (nb nb) (nc nc) (nm acctnum)-    (goods goods) (price price) (b b) (c c) (m m))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))-    ((2 2) (0 0)) ((2 4) (1 2)))-  (non-orig (privk b) (privk m) (privk c))-  (uniq-orig nb nc acctnum)-  (operation nonce-test (contracted (acctnum-0 acctnum)) acctnum (0 0)-    (enc nc acctnum m price (pubk c))-    (enc c nc acctnum acctnum price (pubk b)))-  (traces-    ((recv (enc c nc acctnum acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" (cat c nc nb acctnum price)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" (cat b m nb acctnum)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc acctnum m price (pubk c)))-      (recv-        (cat (enc (enc "hash" (cat c nc nb acctnum price)) (privk b))-          nb)) (send (enc (enc "hash" (cat b m nb acctnum)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc acctnum m price (pubk c)))-      (send (enc c nc acctnum acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" (cat c nc nb acctnum price)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" (cat c nc nb acctnum price)) (privk b))-          nb))))-  (label 20)-  (parent 17)-  (seen 21)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton epmo_acctnum   (vars (nm nb nc price acctnum goods text) (b m c name))@@ -913,8 +832,8 @@           (enc nc nb (pubk c))))       (send         (cat (enc (enc "hash" (cat c nc nb nm price)) (privk b)) nb))))-  (label 21)-  (parent 18)+  (label 19)+  (parent 17)   (unrealized)   (shape)   (maps@@ -924,51 +843,6 @@   (origs (nc (2 0)) (nm (1 1)) (nb (0 1))))  (defskeleton epmo_acctnum-  (vars (nb nc acctnum price acctnum-0 goods nm price-0 text)-    (b m c name))-  (defstrand bank 3 (acctnum acctnum) (nc nc) (nm acctnum-0) (nb nb)-    (price price) (b b) (c c) (m m))-  (defstrand merchant 4 (nb nb) (nc nc) (nm acctnum-0) (goods goods)-    (price price) (b b) (c c) (m m))-  (defstrand customer 5 (acctnum acctnum-0) (nb nb) (nc nc)-    (nm acctnum-0) (goods goods) (price price) (b b) (c c) (m m))-  (defstrand merchant 2 (nc nc) (nm nm) (goods goods) (price price-0)-    (c c) (m m))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))-    ((2 2) (0 0)) ((2 4) (1 2)) ((3 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c))-  (uniq-orig nb nc acctnum-0 nm)-  (operation nonce-test (displaced 4 2 customer 3) nm-0 (0 0)-    (enc nc nm-0 m price (pubk c)))-  (traces-    ((recv (enc c nc acctnum-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" (cat c nc nb acctnum-0 price)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" (cat b m nb acctnum-0)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc acctnum-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" (cat c nc nb acctnum-0 price)) (privk b))-          nb))-      (send (enc (enc "hash" (cat b m nb acctnum-0)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc acctnum-0 m price (pubk c)))-      (send (enc c nc acctnum-0 acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" (cat c nc nb acctnum-0 price)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" (cat c nc nb acctnum-0 price)) (privk b))-          nb)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 22)-  (parent 19)-  (unrealized (0 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton epmo_acctnum   (vars (nm nb nc acctnum price acctnum-0 goods nm-0 price-0 text)     (b m c name))   (defstrand bank 3 (acctnum acctnum) (nc nc) (nm nm) (nb nb)@@ -1006,57 +880,12 @@         (cat (enc (enc "hash" (cat c nc nb nm price)) (privk b)) nb)))     ((recv (enc c nc goods (pubk m)))       (send (enc nc nm-0 m price-0 (pubk c)))))-  (label 23)-  (parent 19)+  (label 20)+  (parent 18)   (unrealized (0 0))   (comment "1 in cohort - 1 not yet seen"))  (defskeleton epmo_acctnum-  (vars (nb nc price acctnum goods nm price-0 text) (b m c name))-  (defstrand bank 3 (acctnum acctnum) (nc nc) (nm acctnum) (nb nb)-    (price price) (b b) (c c) (m m))-  (defstrand merchant 4 (nb nb) (nc nc) (nm acctnum) (goods goods)-    (price price) (b b) (c c) (m m))-  (defstrand customer 5 (acctnum acctnum) (nb nb) (nc nc) (nm acctnum)-    (goods goods) (price price) (b b) (c c) (m m))-  (defstrand merchant 2 (nc nc) (nm nm) (goods goods) (price price-0)-    (c c) (m m))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))-    ((2 2) (0 0)) ((2 4) (1 2)) ((3 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c))-  (uniq-orig nb nc acctnum nm)-  (operation nonce-test (contracted (acctnum-0 acctnum)) acctnum (0 0)-    (enc nc acctnum m price (pubk c))-    (enc c nc acctnum acctnum price (pubk b)))-  (traces-    ((recv (enc c nc acctnum acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" (cat c nc nb acctnum price)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" (cat b m nb acctnum)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc acctnum m price (pubk c)))-      (recv-        (cat (enc (enc "hash" (cat c nc nb acctnum price)) (privk b))-          nb)) (send (enc (enc "hash" (cat b m nb acctnum)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc acctnum m price (pubk c)))-      (send (enc c nc acctnum acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" (cat c nc nb acctnum price)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" (cat c nc nb acctnum price)) (privk b))-          nb)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 24)-  (parent 22)-  (seen 20)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton epmo_acctnum   (vars (nm nb nc price acctnum goods nm-0 price-0 text) (b m c name))   (defstrand bank 3 (acctnum acctnum) (nc nc) (nm nm) (nb nb)     (price price) (b b) (c c) (m m))@@ -1093,9 +922,9 @@         (cat (enc (enc "hash" (cat c nc nb nm price)) (privk b)) nb)))     ((recv (enc c nc goods (pubk m)))       (send (enc nc nm-0 m price-0 (pubk c)))))-  (label 25)-  (parent 23)-  (seen 21)+  (label 21)+  (parent 20)+  (seen 19)   (unrealized)   (comment "1 in cohort - 0 not yet seen"))
+ tst/epmo_acctnum.lisp view
@@ -0,0 +1,103 @@+(herald "Electronic Purchase with Money Order Protocol Variant"+  (bound 12) (limit 5000)+  (comment "This version includes account numbers in exchanges"))++;; The results of running CPSA on this input produces interesting+;; output.  One of the shapes is produced only as a result of+;; generalization, not cohort reduction.  It is a counterexample to+;; the hypthesis that all shapes are produced by cohort reduction, and+;; the purpose of generalization is to distinguish the shapes from the+;; other realized skeletons produced by cohort reduction.++;; The shape in question identifies the bank's nonce with price of the+;; goods.  The variable cannot be separated because the uniquely+;; originating variable originates on the merchant strand, but after+;; separation, it would originate on the bank's strand.++;; Adding a role unique origination assumption to the bank role for+;; its nonce eliminates the undesired shape.++(defprotocol epmo_acctnum basic+  (defrole bank+    (vars (b c m name) (acctnum text) (hash name) (nc nm nb price text))+    (trace+     (recv (enc c nc nm acctnum price (pubk b)))+     (send (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+		(enc nc nb (pubk c))))+     (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    (non-orig (privk hash))+    (annotations b+      (1+        (forall ((pm name))+          (implies+            (and (authtransfer c acctnum b price pm nm)+              (reqtransfer pm b price pm nm))+            (dotransfer acctnum b price pm nm))))+      (2+        (and (says c (authtransfer c acctnum b price m nm))+          (says m (reqtransfer m b price m nm))))))+  (defrole customer+    (vars (b c m hash name) (acctnum nb nc nm goods price text))+    (trace+     (send (enc c nc goods (pubk m)))+     (recv (enc nc nm m price (pubk c)))+     (send (enc c nc nm acctnum price (pubk b)))+     (recv (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+		(enc nc nb (pubk c))))+     (send (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+		nb)))+    (non-orig (privk b) (privk hash))+    (uniq-orig nc)+    (annotations c+      (1+        (says m+          (implies+            (exists ((acctnum2 text))+              (dotransfer acctnum2 b price m nm)) (doship m goods c))))+      (3+        (says b+          (forall ((pm name))+            (implies+              (and (authtransfer c acctnum b price m nm)+                (reqtransfer pm b price pm nm))+              (dotransfer acctnum b price pm nm)))))+      (4 (authtransfer c acctnum b price m nm))))+  (defrole merchant (vars (b c m hash name) (nb nc nm goods price text))+    (trace+     (recv (enc c nc goods (pubk m)))+     (send (enc nc nm m price (pubk c)))+     (recv (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+		nb))+     (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    (non-orig (privk hash))+    (uniq-orig nm)+    (annotations m+      (1+        (implies+          (exists ((acctnum2 text)) (dotransfer acctnum2 b price m nm))+          (doship m goods c)))+      (2+        (and+          (says b+            (forall ((pm name))+              (exists ((acctnum2 text))+                (implies+                  (and (authtransfer c acctnum2 b price m nm)+                    (reqtransfer pm b price pm nm))+                  (dotransfer acctnum2 b price pm nm)))))+          (says c+            (exists ((acctnum2 text))+              (authtransfer c acctnum2 b price m nm)))))+      (3 (and (reqtransfer m b price m nm) (doship m goods c))))))++(defskeleton epmo_acctnum+  (vars (b m c name) (nm nc nb text) (hash name))+  (defstrand merchant 4 (b b) (m m) (c c) (nm nm) (nc nc) (nb nb) (hash hash))+  (non-orig (privk b) (privk m) (privk c) (privk hash))+  (uniq-orig nm nc nb))++(defskeleton epmo_acctnum+  (vars (b m c name) (nm nb nc text) (hash name) (price acctnum text))+  (defstrand bank 3 (b b) (m m) (c c) (nm nm) (nb nb) (nc nc) (hash hash))+  (non-orig (privk b) (privk m) (privk c) (privk hash))+  (uniq-orig nm nc nb))
− tst/epmo_acctnum.scm 
@@ -1,103 +0,0 @@-(herald "Electronic Purchase with Money Order Protocol Variant"-  (bound 12)-  (comment "This version includes account numbers in exchanges"))--;; The results of running CPSA on this input produces interesting-;; output.  One of the shapes is produced only as a result of-;; generalization, not cohort reduction.  It is a counterexample to-;; the hypthesis that all shapes are produced by cohort reduction, and-;; the purpose of generalization is to distinguish the shapes from the-;; other realized skeletons produced by cohort reduction.--;; The shape in question identifies the bank's nonce with price of the-;; goods.  The variable cannot be separated because the uniquely-;; originating variable originates on the merchant strand, but after-;; separation, it would originate on the bank's strand.--;; Adding a role unique origination assumption to the bank role for-;; its nonce eliminates the undesired shape.--(defprotocol epmo_acctnum basic-  (defrole bank-    (vars (b c m name) (acctnum text) (hash name) (nc nm nb price text))-    (trace-     (recv (enc c nc nm acctnum price (pubk b)))-     (send (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-		(enc nc nb (pubk c))))-     (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    (non-orig (privk hash))-    (annotations b-      (1-        (forall ((pm name))-          (implies-            (and (authtransfer c acctnum b price pm nm)-              (reqtransfer pm b price pm nm))-            (dotransfer acctnum b price pm nm))))-      (2-        (and (says c (authtransfer c acctnum b price m nm))-          (says m (reqtransfer m b price m nm))))))-  (defrole customer-    (vars (b c m hash name) (acctnum nb nc nm goods price text))-    (trace-     (send (enc c nc goods (pubk m)))-     (recv (enc nc nm m price (pubk c)))-     (send (enc c nc nm acctnum price (pubk b)))-     (recv (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-		(enc nc nb (pubk c))))-     (send (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-		nb)))-    (non-orig (privk b) (privk hash))-    (uniq-orig nc)-    (annotations c-      (1-        (says m-          (implies-            (exists ((acctnum2 text))-              (dotransfer acctnum2 b price m nm)) (doship m goods c))))-      (3-        (says b-          (forall ((pm name))-            (implies-              (and (authtransfer c acctnum b price m nm)-                (reqtransfer pm b price pm nm))-              (dotransfer acctnum b price pm nm)))))-      (4 (authtransfer c acctnum b price m nm))))-  (defrole merchant (vars (b c m hash name) (nb nc nm goods price text))-    (trace-     (recv (enc c nc goods (pubk m)))-     (send (enc nc nm m price (pubk c)))-     (recv (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-		nb))-     (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    (non-orig (privk hash))-    (uniq-orig nm)-    (annotations m-      (1-        (implies-          (exists ((acctnum2 text)) (dotransfer acctnum2 b price m nm))-          (doship m goods c)))-      (2-        (and-          (says b-            (forall ((pm name))-              (exists ((acctnum2 text))-                (implies-                  (and (authtransfer c acctnum2 b price m nm)-                    (reqtransfer pm b price pm nm))-                  (dotransfer acctnum2 b price pm nm)))))-          (says c-            (exists ((acctnum2 text))-              (authtransfer c acctnum2 b price m nm)))))-      (3 (and (reqtransfer m b price m nm) (doship m goods c))))))--(defskeleton epmo_acctnum-  (vars (b m c name) (nm nc nb text) (hash name))-  (defstrand merchant 4 (b b) (m m) (c c) (nm nm) (nc nc) (nb nb) (hash hash))-  (non-orig (privk b) (privk m) (privk c) (privk hash))-  (uniq-orig nm nc nb))--(defskeleton epmo_acctnum-  (vars (b m c name) (nm nb nc text) (hash name) (price acctnum text))-  (defstrand bank 3 (b b) (m m) (c c) (nm nm) (nb nb) (nc nc) (hash hash))-  (non-orig (privk b) (privk m) (privk c) (privk hash))-  (uniq-orig nm nc nb))
− tst/epmo_acctnum.tst

file too large to diff

tst/ffgg.tst view
@@ -1,7 +1,7 @@ (herald "The ffgg Protocol"   (comment "From A Necessarily Parallel Attack by Jon K. Millen")) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from ffgg.scm")  (defprotocol ffgg basic
tst/fragile_pruning.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from fragile_pruning.scm")  (defprotocol fragile_pruning basic
tst/hashtest-key-hash.tst view
@@ -1,6 +1,6 @@ (herald "Hashtest") -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from hashtest-key-hash.scm")  (defprotocol hashtest basic
tst/hashtest.tst view
@@ -1,6 +1,6 @@ (herald "Hashtest") -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from hashtest.scm")  (defprotocol hashtest basic
tst/incompleteness_example.tst view
@@ -1,7 +1,7 @@ (herald incompleteness-example   (comment "Shows a shape not found by CPSA")) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from incompleteness_example.scm")  (defprotocol incompleteness-example basic
tst/isoreject.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from isoreject.scm")  (defprotocol isoreject basic
tst/kelly1.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from kelly1.scm")  (defprotocol kelly1 basic
tst/kerberos.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from kerberos.scm")  (defprotocol kerberos basic@@ -37,7 +37,7 @@   (vars (t t-prime l text) (a b ks name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))   (precedes ((1 1) (0 1)))   (non-orig (ltk a ks) (ltk b ks))   (uniq-orig k)@@ -48,8 +48,8 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat b a))-      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks))))))+    ((recv (cat a b))+      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))))   (label 1)   (parent 0)   (unrealized (0 3))@@ -59,7 +59,7 @@   (vars (t t-prime l text) (a b ks name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))   (precedes ((1 1) (0 1)))   (non-orig (ltk a ks) (ltk b ks))   (uniq-orig k)@@ -70,8 +70,8 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat a b))-      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))))+    ((recv (cat b a))+      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks))))))   (label 2)   (parent 0)   (unrealized (0 3))@@ -81,7 +81,7 @@   (vars (t t-prime l t-0 l-0 text) (a b ks a-0 b-0 ks-0 name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))   (defstrand resp 2 (t t-0) (t-prime t-prime) (l l-0) (a a-0) (b b-0)     (ks ks-0) (k k))   (precedes ((1 1) (0 1)) ((1 1) (2 0)) ((2 1) (0 3)))@@ -94,8 +94,8 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat b a))-      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))+    ((recv (cat a b))+      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))     ((recv (cat (enc a-0 t-0 k) (enc t-0 l-0 k a-0 (ltk b-0 ks-0))))       (send (enc t-prime k))))   (label 3)@@ -107,7 +107,7 @@   (vars (t t-prime l text) (a b ks name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))   (deflistener k)   (precedes ((1 1) (0 1)) ((1 1) (2 0)) ((2 1) (0 3)))   (non-orig (ltk a ks) (ltk b ks))@@ -118,8 +118,8 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat b a))-      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))+    ((recv (cat a b))+      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))     ((recv k) (send k)))   (label 4)   (parent 1)@@ -130,7 +130,7 @@   (vars (t t-prime l t-0 l-0 text) (a b ks a-0 b-0 ks-0 name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))   (defstrand resp 2 (t t-0) (t-prime t-prime) (l l-0) (a a-0) (b b-0)     (ks ks-0) (k k))   (precedes ((1 1) (0 1)) ((1 1) (2 0)) ((2 1) (0 3)))@@ -143,8 +143,8 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat a b))-      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))+    ((recv (cat b a))+      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))     ((recv (cat (enc a-0 t-0 k) (enc t-0 l-0 k a-0 (ltk b-0 ks-0))))       (send (enc t-prime k))))   (label 5)@@ -156,7 +156,7 @@   (vars (t t-prime l text) (a b ks name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))   (deflistener k)   (precedes ((1 1) (0 1)) ((1 1) (2 0)) ((2 1) (0 3)))   (non-orig (ltk a ks) (ltk b ks))@@ -167,8 +167,8 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat a b))-      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))+    ((recv (cat b a))+      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))     ((recv k) (send k)))   (label 6)   (parent 2)@@ -179,7 +179,7 @@   (vars (t t-prime l l-0 text) (a b ks b-0 ks-0 name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))   (defstrand resp 2 (t t) (t-prime t-prime) (l l-0) (a a) (b b-0)     (ks ks-0) (k k))   (precedes ((0 2) (2 0)) ((1 1) (0 1)) ((2 1) (0 3)))@@ -192,8 +192,8 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat b a))-      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))+    ((recv (cat a b))+      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))     ((recv (cat (enc a t k) (enc t l-0 k a (ltk b-0 ks-0))))       (send (enc t-prime k))))   (label 7)@@ -206,7 +206,7 @@     (a b ks a-0 b-0 ks-0 b-1 ks-1 name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))   (defstrand resp 2 (t t-0) (t-prime t-prime) (l l-0) (a a-0) (b b-0)     (ks ks-0) (k k))   (defstrand init 3 (t t-0) (l l-1) (a a-0) (b b-1) (ks ks-1) (k k))@@ -220,8 +220,8 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat b a))-      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))+    ((recv (cat a b))+      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))     ((recv (cat (enc a-0 t-0 k) (enc t-0 l-0 k a-0 (ltk b-0 ks-0))))       (send (enc t-prime k)))     ((send (cat a-0 b-1))@@ -238,7 +238,7 @@   (vars (t t-prime l t-0 l-0 text) (a b ks a-0 b-0 ks-0 name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))   (defstrand resp 2 (t t-0) (t-prime t-prime) (l l-0) (a a-0) (b b-0)     (ks ks-0) (k k))   (deflistener k)@@ -251,8 +251,8 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat b a))-      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))+    ((recv (cat a b))+      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))     ((recv (cat (enc a-0 t-0 k) (enc t-0 l-0 k a-0 (ltk b-0 ks-0))))       (send (enc t-prime k))) ((recv k) (send k)))   (label 9)@@ -264,7 +264,7 @@   (vars (t t-prime l l-0 text) (a b ks b-0 ks-0 name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))   (defstrand resp 2 (t t) (t-prime t-prime) (l l-0) (a a) (b b-0)     (ks ks-0) (k k))   (precedes ((0 2) (2 0)) ((1 1) (0 1)) ((2 1) (0 3)))@@ -277,8 +277,8 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat a b))-      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))+    ((recv (cat b a))+      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))     ((recv (cat (enc a t k) (enc t l-0 k a (ltk b-0 ks-0))))       (send (enc t-prime k))))   (label 10)@@ -291,7 +291,7 @@     (a b ks a-0 b-0 ks-0 b-1 ks-1 name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))   (defstrand resp 2 (t t-0) (t-prime t-prime) (l l-0) (a a-0) (b b-0)     (ks ks-0) (k k))   (defstrand init 3 (t t-0) (l l-1) (a a-0) (b b-1) (ks ks-1) (k k))@@ -305,8 +305,8 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat a b))-      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))+    ((recv (cat b a))+      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))     ((recv (cat (enc a-0 t-0 k) (enc t-0 l-0 k a-0 (ltk b-0 ks-0))))       (send (enc t-prime k)))     ((send (cat a-0 b-1))@@ -323,7 +323,7 @@   (vars (t t-prime l t-0 l-0 text) (a b ks a-0 b-0 ks-0 name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))   (defstrand resp 2 (t t-0) (t-prime t-prime) (l l-0) (a a-0) (b b-0)     (ks ks-0) (k k))   (deflistener k)@@ -336,8 +336,8 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat a b))-      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))+    ((recv (cat b a))+      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))     ((recv (cat (enc a-0 t-0 k) (enc t-0 l-0 k a-0 (ltk b-0 ks-0))))       (send (enc t-prime k))) ((recv k) (send k)))   (label 12)@@ -349,7 +349,7 @@   (vars (t t-prime l text) (a b ks name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))   (defstrand resp 2 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))   (precedes ((0 2) (2 0)) ((1 1) (0 1)) ((2 1) (0 3)))@@ -362,8 +362,8 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat b a))-      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))+    ((recv (cat a b))+      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))     ((recv (cat (enc a t k) (enc t l k a (ltk b ks))))       (send (enc t-prime k))))   (label 13)@@ -377,28 +377,28 @@   (vars (t t-prime l l-0 text) (a b ks b-0 ks-0 name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))-  (defstrand resp 2 (t t) (t-prime t-prime) (l l-0) (a b) (b b-0)+  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand resp 2 (t t) (t-prime t-prime) (l l-0) (a a) (b b-0)     (ks ks-0) (k k))-  (defstrand init 3 (t t) (l l) (a b) (b a) (ks ks) (k k))+  (defstrand init 3 (t t) (l l) (a a) (b b) (ks ks) (k k))   (precedes ((1 1) (0 1)) ((1 1) (3 1)) ((2 1) (0 3)) ((3 2) (2 0)))   (non-orig (ltk a ks) (ltk b ks))   (uniq-orig k)   (operation nonce-test-    (contracted (a-0 b) (t-0 t) (b-1 a) (ks-1 ks) (l-1 l)) k (3 1)+    (contracted (a-0 a) (t-0 t) (b-1 b) (ks-1 ks) (l-1 l)) k (3 1)     (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))   (traces     ((send (cat a b))       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat b a))-      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))-    ((recv (cat (enc b t k) (enc t l-0 k b (ltk b-0 ks-0))))+    ((recv (cat a b))+      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))+    ((recv (cat (enc a t k) (enc t l-0 k a (ltk b-0 ks-0))))       (send (enc t-prime k)))-    ((send (cat b a))-      (recv (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks))))-      (send (cat (enc b t k) (enc t l k b (ltk a ks))))))+    ((send (cat a b))+      (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))+      (send (cat (enc a t k) (enc t l k a (ltk b ks))))))   (label 14)   (parent 8)   (unrealized (2 0))@@ -408,28 +408,28 @@   (vars (t t-prime l l-0 text) (a b ks b-0 ks-0 name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))-  (defstrand resp 2 (t t) (t-prime t-prime) (l l-0) (a a) (b b-0)+  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand resp 2 (t t) (t-prime t-prime) (l l-0) (a b) (b b-0)     (ks ks-0) (k k))-  (defstrand init 3 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand init 3 (t t) (l l) (a b) (b a) (ks ks) (k k))   (precedes ((1 1) (0 1)) ((1 1) (3 1)) ((2 1) (0 3)) ((3 2) (2 0)))   (non-orig (ltk a ks) (ltk b ks))   (uniq-orig k)   (operation nonce-test-    (contracted (a-0 a) (t-0 t) (b-1 b) (ks-1 ks) (l-1 l)) k (3 1)+    (contracted (a-0 b) (t-0 t) (b-1 a) (ks-1 ks) (l-1 l)) k (3 1)     (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))   (traces     ((send (cat a b))       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat b a))-      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))-    ((recv (cat (enc a t k) (enc t l-0 k a (ltk b-0 ks-0))))+    ((recv (cat a b))+      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))+    ((recv (cat (enc b t k) (enc t l-0 k b (ltk b-0 ks-0))))       (send (enc t-prime k)))-    ((send (cat a b))-      (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))-      (send (cat (enc a t k) (enc t l k a (ltk b ks))))))+    ((send (cat b a))+      (recv (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks))))+      (send (cat (enc b t k) (enc t l k b (ltk a ks))))))   (label 15)   (parent 8)   (unrealized (2 0))@@ -439,7 +439,7 @@   (vars (t t-prime l text) (a b ks name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))   (defstrand resp 2 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))   (precedes ((0 2) (2 0)) ((1 1) (0 1)) ((2 1) (0 3)))@@ -452,8 +452,8 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat a b))-      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))+    ((recv (cat b a))+      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))     ((recv (cat (enc a t k) (enc t l k a (ltk b ks))))       (send (enc t-prime k))))   (label 16)@@ -467,38 +467,7 @@   (vars (t t-prime l l-0 text) (a b ks b-0 ks-0 name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))-  (defstrand resp 2 (t t) (t-prime t-prime) (l l-0) (a b) (b b-0)-    (ks ks-0) (k k))-  (defstrand init 3 (t t) (l l) (a b) (b a) (ks ks) (k k))-  (precedes ((1 1) (0 1)) ((1 1) (3 1)) ((2 1) (0 3)) ((3 2) (2 0)))-  (non-orig (ltk a ks) (ltk b ks))-  (uniq-orig k)-  (operation nonce-test-    (contracted (a-0 b) (t-0 t) (b-1 a) (ks-1 ks) (l-1 l)) k (3 1)-    (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))-  (traces-    ((send (cat a b))-      (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))-      (send (cat (enc a t k) (enc t l k a (ltk b ks))))-      (recv (enc t-prime k)))-    ((recv (cat a b))-      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))-    ((recv (cat (enc b t k) (enc t l-0 k b (ltk b-0 ks-0))))-      (send (enc t-prime k)))-    ((send (cat b a))-      (recv (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks))))-      (send (cat (enc b t k) (enc t l k b (ltk a ks))))))-  (label 17)-  (parent 11)-  (unrealized (2 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton kerberos-  (vars (t t-prime l l-0 text) (a b ks b-0 ks-0 name) (k skey))-  (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)-    (k k))-  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))   (defstrand resp 2 (t t) (t-prime t-prime) (l l-0) (a a) (b b-0)     (ks ks-0) (k k))   (defstrand init 3 (t t) (l l) (a a) (b b) (ks ks) (k k))@@ -513,30 +482,31 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat a b))-      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))+    ((recv (cat b a))+      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))     ((recv (cat (enc a t k) (enc t l-0 k a (ltk b-0 ks-0))))       (send (enc t-prime k)))     ((send (cat a b))       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))))-  (label 18)+  (label 17)   (parent 11)   (unrealized (2 0))   (comment "1 in cohort - 1 not yet seen"))  (defskeleton kerberos-  (vars (t t-prime l text) (a b ks name) (k skey))+  (vars (t t-prime l l-0 text) (a b ks b-0 ks-0 name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))   (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))-  (defstrand resp 2 (t t) (t-prime t-prime) (l l) (a b) (b a) (ks ks)-    (k k))+  (defstrand resp 2 (t t) (t-prime t-prime) (l l-0) (a b) (b b-0)+    (ks ks-0) (k k))   (defstrand init 3 (t t) (l l) (a b) (b a) (ks ks) (k k))   (precedes ((1 1) (0 1)) ((1 1) (3 1)) ((2 1) (0 3)) ((3 2) (2 0)))   (non-orig (ltk a ks) (ltk b ks))   (uniq-orig k)-  (operation nonce-test (contracted (b-0 a) (ks-0 ks) (l-0 l)) k (2 0)+  (operation nonce-test+    (contracted (a-0 b) (t-0 t) (b-1 a) (ks-1 ks) (l-1 l)) k (3 1)     (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))   (traces     ((send (cat a b))@@ -545,23 +515,21 @@       (recv (enc t-prime k)))     ((recv (cat b a))       (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))-    ((recv (cat (enc b t k) (enc t l k b (ltk a ks))))+    ((recv (cat (enc b t k) (enc t l-0 k b (ltk b-0 ks-0))))       (send (enc t-prime k)))     ((send (cat b a))       (recv (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks))))       (send (cat (enc b t k) (enc t l k b (ltk a ks))))))-  (label 19)-  (parent 14)-  (unrealized)-  (shape)-  (maps ((0) ((a a) (b b) (ks ks) (t t) (t-prime t-prime) (l l) (k k))))-  (origs (k (1 1))))+  (label 18)+  (parent 11)+  (unrealized (2 0))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton kerberos   (vars (t t-prime l text) (a b ks name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))   (defstrand resp 2 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))   (defstrand init 3 (t t) (l l) (a a) (b b) (ks ks) (k k))@@ -575,15 +543,15 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat b a))-      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))+    ((recv (cat a b))+      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))     ((recv (cat (enc a t k) (enc t l k a (ltk b ks))))       (send (enc t-prime k)))     ((send (cat a b))       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))))-  (label 20)-  (parent 15)+  (label 19)+  (parent 14)   (unrealized)   (shape)   (maps ((0) ((a a) (b b) (ks ks) (t t) (t-prime t-prime) (l l) (k k))))@@ -614,8 +582,8 @@     ((send (cat b a))       (recv (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks))))       (send (cat (enc b t k) (enc t l k b (ltk a ks))))))-  (label 21)-  (parent 17)+  (label 20)+  (parent 15)   (unrealized)   (shape)   (maps ((0) ((a a) (b b) (ks ks) (t t) (t-prime t-prime) (l l) (k k))))@@ -625,7 +593,7 @@   (vars (t t-prime l text) (a b ks name) (k skey))   (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))   (defstrand resp 2 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))   (defstrand init 3 (t t) (l l) (a a) (b b) (ks ks) (k k))@@ -639,13 +607,45 @@       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))       (recv (enc t-prime k)))-    ((recv (cat a b))-      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))+    ((recv (cat b a))+      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))     ((recv (cat (enc a t k) (enc t l k a (ltk b ks))))       (send (enc t-prime k)))     ((send (cat a b))       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))))+  (label 21)+  (parent 17)+  (unrealized)+  (shape)+  (maps ((0) ((a a) (b b) (ks ks) (t t) (t-prime t-prime) (l l) (k k))))+  (origs (k (1 1))))++(defskeleton kerberos+  (vars (t t-prime l text) (a b ks name) (k skey))+  (defstrand init 4 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)+    (k k))+  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))+  (defstrand resp 2 (t t) (t-prime t-prime) (l l) (a b) (b a) (ks ks)+    (k k))+  (defstrand init 3 (t t) (l l) (a b) (b a) (ks ks) (k k))+  (precedes ((1 1) (0 1)) ((1 1) (3 1)) ((2 1) (0 3)) ((3 2) (2 0)))+  (non-orig (ltk a ks) (ltk b ks))+  (uniq-orig k)+  (operation nonce-test (contracted (b-0 a) (ks-0 ks) (l-0 l)) k (2 0)+    (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))+  (traces+    ((send (cat a b))+      (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))+      (send (cat (enc a t k) (enc t l k a (ltk b ks))))+      (recv (enc t-prime k)))+    ((recv (cat b a))+      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))+    ((recv (cat (enc b t k) (enc t l k b (ltk a ks))))+      (send (enc t-prime k)))+    ((send (cat b a))+      (recv (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks))))+      (send (cat (enc b t k) (enc t l k b (ltk a ks))))))   (label 22)   (parent 18)   (unrealized)@@ -689,7 +689,7 @@   (vars (t t-prime l text) (a b ks name) (k skey))   (defstrand resp 2 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))   (precedes ((1 1) (0 0)))   (non-orig (ltk a ks) (ltk b ks))   (uniq-orig k)@@ -698,8 +698,8 @@   (traces     ((recv (cat (enc a t k) (enc t l k a (ltk b ks))))       (send (enc t-prime k)))-    ((recv (cat a b))-      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))))+    ((recv (cat b a))+      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks))))))   (label 24)   (parent 23)   (unrealized (0 0))@@ -709,7 +709,7 @@   (vars (t t-prime l text) (a b ks name) (k skey))   (defstrand resp 2 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))   (precedes ((1 1) (0 0)))   (non-orig (ltk a ks) (ltk b ks))   (uniq-orig k)@@ -718,8 +718,8 @@   (traces     ((recv (cat (enc a t k) (enc t l k a (ltk b ks))))       (send (enc t-prime k)))-    ((recv (cat b a))-      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks))))))+    ((recv (cat a b))+      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))))   (label 25)   (parent 23)   (unrealized (0 0))@@ -729,7 +729,7 @@   (vars (t t-prime l l-0 text) (a b ks b-0 ks-0 name) (k skey))   (defstrand resp 2 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))   (defstrand init 3 (t t) (l l-0) (a a) (b b-0) (ks ks-0) (k k))   (precedes ((1 1) (2 1)) ((2 2) (0 0)))   (non-orig (ltk a ks) (ltk b ks))@@ -738,8 +738,8 @@   (traces     ((recv (cat (enc a t k) (enc t l k a (ltk b ks))))       (send (enc t-prime k)))-    ((recv (cat a b))-      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))+    ((recv (cat b a))+      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))     ((send (cat a b-0))       (recv         (cat (enc t l-0 k b-0 (ltk a ks-0))@@ -754,7 +754,7 @@   (vars (t t-prime l text) (a b ks name) (k skey))   (defstrand resp 2 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))   (deflistener k)   (precedes ((1 1) (2 0)) ((2 1) (0 0)))   (non-orig (ltk a ks) (ltk b ks))@@ -763,8 +763,8 @@   (traces     ((recv (cat (enc a t k) (enc t l k a (ltk b ks))))       (send (enc t-prime k)))-    ((recv (cat a b))-      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))+    ((recv (cat b a))+      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))     ((recv k) (send k)))   (label 27)   (parent 24)@@ -775,7 +775,7 @@   (vars (t t-prime l l-0 text) (a b ks b-0 ks-0 name) (k skey))   (defstrand resp 2 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))   (defstrand init 3 (t t) (l l-0) (a a) (b b-0) (ks ks-0) (k k))   (precedes ((1 1) (2 1)) ((2 2) (0 0)))   (non-orig (ltk a ks) (ltk b ks))@@ -784,8 +784,8 @@   (traces     ((recv (cat (enc a t k) (enc t l k a (ltk b ks))))       (send (enc t-prime k)))-    ((recv (cat b a))-      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))+    ((recv (cat a b))+      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))     ((send (cat a b-0))       (recv         (cat (enc t l-0 k b-0 (ltk a ks-0))@@ -800,7 +800,7 @@   (vars (t t-prime l text) (a b ks name) (k skey))   (defstrand resp 2 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))   (deflistener k)   (precedes ((1 1) (2 0)) ((2 1) (0 0)))   (non-orig (ltk a ks) (ltk b ks))@@ -809,8 +809,8 @@   (traces     ((recv (cat (enc a t k) (enc t l k a (ltk b ks))))       (send (enc t-prime k)))-    ((recv (cat b a))-      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))+    ((recv (cat a b))+      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))     ((recv k) (send k)))   (label 29)   (parent 25)@@ -821,7 +821,7 @@   (vars (t t-prime l text) (a b ks name) (k skey))   (defstrand resp 2 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))   (defstrand init 3 (t t) (l l) (a a) (b b) (ks ks) (k k))   (precedes ((1 1) (2 1)) ((2 2) (0 0)))   (non-orig (ltk a ks) (ltk b ks))@@ -831,8 +831,8 @@   (traces     ((recv (cat (enc a t k) (enc t l k a (ltk b ks))))       (send (enc t-prime k)))-    ((recv (cat a b))-      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))+    ((recv (cat b a))+      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))     ((send (cat a b))       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))))@@ -847,7 +847,7 @@   (vars (t t-prime l text) (a b ks name) (k skey))   (defstrand resp 2 (t t) (t-prime t-prime) (l l) (a a) (b b) (ks ks)     (k k))-  (defstrand keyserver 2 (t t) (l l) (a b) (b a) (ks ks) (k k))+  (defstrand keyserver 2 (t t) (l l) (a a) (b b) (ks ks) (k k))   (defstrand init 3 (t t) (l l) (a a) (b b) (ks ks) (k k))   (precedes ((1 1) (2 1)) ((2 2) (0 0)))   (non-orig (ltk a ks) (ltk b ks))@@ -857,8 +857,8 @@   (traces     ((recv (cat (enc a t k) (enc t l k a (ltk b ks))))       (send (enc t-prime k)))-    ((recv (cat b a))-      (send (cat (enc t l k a (ltk b ks)) (enc t l k b (ltk a ks)))))+    ((recv (cat a b))+      (send (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks)))))     ((send (cat a b))       (recv (cat (enc t l k b (ltk a ks)) (enc t l k a (ltk b ks))))       (send (cat (enc a t k) (enc t l k a (ltk b ks))))))
tst/mass.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from mass.lsp")  (defprotocol mass basic
tst/mass2.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from mass2.lsp")  (defprotocol mass2 basic
tst/missing_contraction.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from missing_contraction.scm")  (defprotocol missing-contraction basic@@ -192,37 +192,37 @@ (defskeleton missing-contraction   (vars (n text) (a b name))   (defstrand sender 2 (m n) (n n) (a a) (b b))-  (defstrand receiver 1 (m n) (a a) (b b))+  (defstrand receiver 1 (m n) (a a) (b a))   (precedes ((0 1) (1 0)))   (non-orig (privk a) (privk b))   (uniq-orig n)-  (operation nonce-test (contracted (c b)) n (1 0) (enc a n (pubk a))+  (operation nonce-test (contracted (c a)) n (1 0) (enc a n (pubk a))     (enc a n (pubk b)))   (traces ((send (enc a n (pubk a))) (send (enc a n (pubk b))))-    ((recv (enc a n (pubk b)))))+    ((recv (enc a n (pubk a)))))   (label 10)   (parent 9)+  (seen 8)   (unrealized)-  (shape)-  (maps ((0 1) ((m n) (a a) (b b) (c b) (n n))))-  (origs (n (0 0))))+  (origs (n (0 0)))+  (comment "1 in cohort - 0 not yet seen"))  (defskeleton missing-contraction   (vars (n text) (a b name))   (defstrand sender 2 (m n) (n n) (a a) (b b))-  (defstrand receiver 1 (m n) (a a) (b a))+  (defstrand receiver 1 (m n) (a a) (b b))   (precedes ((0 1) (1 0)))   (non-orig (privk a) (privk b))   (uniq-orig n)-  (operation nonce-test (contracted (c a)) n (1 0) (enc a n (pubk a))+  (operation nonce-test (contracted (c b)) n (1 0) (enc a n (pubk a))     (enc a n (pubk b)))   (traces ((send (enc a n (pubk a))) (send (enc a n (pubk b))))-    ((recv (enc a n (pubk a)))))+    ((recv (enc a n (pubk b)))))   (label 11)   (parent 9)-  (seen 8)   (unrealized)-  (origs (n (0 0)))-  (comment "1 in cohort - 0 not yet seen"))+  (shape)+  (maps ((0 1) ((m n) (a a) (b b) (c b) (n n))))+  (origs (n (0 0))))  (comment "Nothing left to do")
tst/neuman-stubblebine-reauth.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from neuman-stubblebine-reauth.lsp")  (defprotocol neuman-stubblebine-reauth basic
tst/neuman-stubblebine.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from neuman-stubblebine.scm")  (defprotocol neuman-stubblebine basic
tst/no_contraction.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from no_contraction.scm")  (defprotocol no-contraction basic
tst/non_transforming.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from non_transforming.scm")  (defprotocol non_transforming basic@@ -117,10 +117,9 @@     ((recv (enc a d (pubk B0))) (send (enc a (pubk B0)))))   (label 5)   (parent 3)-  (seen 8)   (unrealized (0 1))   (origs (a (1 0)) (d (1 0)))-  (comment "5 in cohort - 4 not yet seen"))+  (comment "3 in cohort - 3 not yet seen"))  (defskeleton non_transforming   (vars (a b c d text) (B0 B1 name))@@ -166,26 +165,6 @@   (comment "1 in cohort - 1 not yet seen"))  (defskeleton non_transforming-  (vars (a text) (B0 name))-  (defstrand recv 2 (a a) (b a) (B B0))-  (defstrand sender 1 (a a) (b a) (B B0))-  (defstrand breaker 2 (a a) (b a) (B B0))-  (precedes ((1 0) (2 0)) ((2 1) (0 0)))-  (non-orig (privk B0))-  (uniq-orig a)-  (operation nonce-test (displaced 3 1 sender 1) d (0 1)-    (enc a d (pubk B0)))-  (traces ((recv (enc a (pubk B0))) (recv (enc a (pubk B0))))-    ((send (enc a a (pubk B0))))-    ((recv (enc a a (pubk B0))) (send (enc a (pubk B0)))))-  (label 8)-  (parent 5)-  (unrealized)-  (shape)-  (maps ((0 1 1) ((a a) (b a) (c a) (d a) (B B0) (B0 B0) (B1 B0))))-  (origs (a (1 0))))--(defskeleton non_transforming   (vars (a d text) (B0 name))   (defstrand recv 2 (a a) (b d) (B B0))   (defstrand sender 1 (a a) (b d) (B B0))@@ -199,7 +178,7 @@     ((send (enc a d (pubk B0))))     ((recv (enc a d (pubk B0))) (send (enc a (pubk B0)))       (send (enc d (pubk B0)))))-  (label 9)+  (label 8)   (parent 5)   (unrealized)   (shape)@@ -222,7 +201,7 @@     ((recv (enc a d (pubk B0))) (send (enc a (pubk B0))))     ((recv (enc a d (pubk B0))) (send (enc a (pubk B0)))       (send (enc d (pubk B0)))))-  (label 10)+  (label 9)   (parent 5)   (unrealized)   (shape)@@ -234,21 +213,20 @@   (defstrand recv 2 (a a) (b a) (B B0))   (defstrand sender 1 (a a) (b a) (B B0))   (defstrand breaker 2 (a a) (b a) (B B0))-  (defstrand breaker 2 (a a) (b a) (B B0))-  (precedes ((1 0) (2 0)) ((1 0) (3 0)) ((2 1) (0 0)) ((3 1) (0 1)))+  (precedes ((1 0) (2 0)) ((2 1) (0 0)))   (non-orig (privk B0))   (uniq-orig a)-  (operation nonce-test (added-strand breaker 2) a (0 1)+  (operation nonce-test (displaced 3 2 breaker 2) a (0 1)     (enc a a (pubk B0)))   (traces ((recv (enc a (pubk B0))) (recv (enc a (pubk B0))))     ((send (enc a a (pubk B0))))-    ((recv (enc a a (pubk B0))) (send (enc a (pubk B0))))     ((recv (enc a a (pubk B0))) (send (enc a (pubk B0)))))-  (label 11)+  (label 10)   (parent 5)-  (seen 8)   (unrealized)-  (comment "1 in cohort - 0 not yet seen"))+  (shape)+  (maps ((0 1 1) ((a a) (b a) (c a) (d a) (B B0) (B0 B0) (B1 B0))))+  (origs (a (1 0))))  (defskeleton non_transforming   (vars (a b c d text) (B1 name))@@ -267,7 +245,7 @@     ((recv (enc a d (pubk B1))) (send (enc a (pubk B1))))     ((recv (enc c b (pubk B1))) (send (enc c (pubk B1)))       (send (enc b (pubk B1)))))-  (label 12)+  (label 11)   (parent 6)   (unrealized)   (shape)@@ -290,7 +268,7 @@     ((send (enc a d (pubk B1)))) ((send (enc c c (pubk B1))))     ((recv (enc a d (pubk B1))) (send (enc a (pubk B1))))     ((recv (enc c c (pubk B1))) (send (enc c (pubk B1)))))-  (label 13)+  (label 12)   (parent 7)   (unrealized)   (shape)
tst/nonaug-prune.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from nonaug-prune.scm")  (defprotocol nonaug-prune basic@@ -28,10 +28,9 @@     ((recv (enc n A k)) (send (enc n A A A k)))     ((send (enc n B B k)) (send (enc n A k)) (recv (enc n A A A k))))   (label 0)-  (seen 4)   (unrealized (0 0) (1 0) (2 2))   (origs (n (2 0)))-  (comment "4 in cohort - 3 not yet seen"))+  (comment "3 in cohort - 3 not yet seen"))  (defskeleton nonaug-prune   (vars (n text) (B name) (k akey))@@ -45,9 +44,8 @@     ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k))))   (label 1)   (parent 0)-  (seen 6)   (unrealized (0 0) (1 2))-  (comment "3 in cohort - 2 not yet seen"))+  (comment "2 in cohort - 2 not yet seen"))  (defskeleton nonaug-prune   (vars (n text) (B C name) (k akey))@@ -91,20 +89,20 @@ (defskeleton nonaug-prune   (vars (n text) (A B name) (k akey))   (defstrand trans2 2 (n n) (A B) (k k))-  (defstrand trans2 2 (n n) (A A) (k k))   (defstrand orig 3 (n n) (A A) (B B) (k k))-  (precedes ((1 1) (2 2)) ((2 0) (0 0)) ((2 0) (1 0)))+  (defstrand trans2 2 (n n) (A A) (k k))+  (precedes ((1 0) (0 0)) ((1 0) (2 0)) ((2 1) (1 2)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (displaced 3 1 trans2 2) n (2 2) (enc n A k)+  (operation nonce-test (added-strand trans2 2) n (2 2) (enc n A k)     (enc n B B k))   (traces ((recv (enc n B k)) (send (enc n B B B k)))-    ((recv (enc n A k)) (send (enc n A A A k)))-    ((send (enc n B B k)) (send (enc n A k)) (recv (enc n A A A k))))+    ((send (enc n B B k)) (send (enc n A k)) (recv (enc n A A A k)))+    ((recv (enc n A k)) (send (enc n A A A k))))   (label 4)   (parent 0)-  (unrealized (0 0) (1 0))-  (origs (n (2 0)))+  (unrealized (0 0) (2 0))+  (origs (n (1 0)))   (comment "1 in cohort - 1 not yet seen"))  (defskeleton nonaug-prune@@ -128,18 +126,19 @@  (defskeleton nonaug-prune   (vars (n text) (B name) (k akey))-  (defstrand trans2 2 (n n) (A B) (k k))   (defstrand orig 3 (n n) (A B) (B B) (k k))-  (precedes ((0 1) (1 2)) ((1 0) (0 0)))+  (defstrand trans2 2 (n n) (A B) (k k))+  (precedes ((0 0) (1 0)) ((1 1) (0 2)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (displaced 2 0 trans2 2) n (1 2) (enc n B k)+  (operation nonce-test (added-strand trans2 2) n (1 2) (enc n B k)     (enc n B B k))-  (traces ((recv (enc n B k)) (send (enc n B B B k)))-    ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k))))+  (traces+    ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))+    ((recv (enc n B k)) (send (enc n B B B k))))   (label 6)   (parent 1)-  (unrealized (0 0))+  (unrealized (1 0))   (comment "1 in cohort - 1 not yet seen"))  (defskeleton nonaug-prune@@ -159,9 +158,9 @@     ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k))))   (label 7)   (parent 2)-  (seen 12)+  (seen 13)   (unrealized (0 0) (1 0) (2 2))-  (comment "3 in cohort - 1 not yet seen"))+  (comment "3 in cohort - 2 not yet seen"))  (defskeleton nonaug-prune   (vars (n text) (B name) (k akey))@@ -184,19 +183,19 @@ (defskeleton nonaug-prune   (vars (n text) (A B name) (k akey))   (defstrand trans2 2 (n n) (A B) (k k))-  (defstrand trans2 2 (n n) (A A) (k k))   (defstrand orig 3 (n n) (A A) (B B) (k k))-  (precedes ((1 1) (2 2)) ((2 0) (0 0)) ((2 1) (1 0)))+  (defstrand trans2 2 (n n) (A A) (k k))+  (precedes ((1 0) (0 0)) ((1 1) (2 0)) ((2 1) (1 2)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (displaced 3 2 orig 2) n (1 0) (enc n B B k))+  (operation nonce-test (displaced 3 1 orig 2) n (2 0) (enc n B B k))   (traces ((recv (enc n B k)) (send (enc n B B B k)))-    ((recv (enc n A k)) (send (enc n A A A k)))-    ((send (enc n B B k)) (send (enc n A k)) (recv (enc n A A A k))))+    ((send (enc n B B k)) (send (enc n A k)) (recv (enc n A A A k)))+    ((recv (enc n A k)) (send (enc n A A A k))))   (label 9)   (parent 4)   (unrealized (0 0))-  (origs (n (2 0)))+  (origs (n (1 0)))   (comment "1 in cohort - 1 not yet seen"))  (defskeleton nonaug-prune@@ -213,27 +212,27 @@     ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k))))   (label 10)   (parent 5)-  (seen 15)   (unrealized (0 0) (1 2))   (origs (n (1 0)))-  (comment "2 in cohort - 1 not yet seen"))+  (comment "2 in cohort - 2 not yet seen"))  (defskeleton nonaug-prune   (vars (n text) (B name) (k akey))-  (defstrand trans2 2 (n n) (A B) (k k))   (defstrand orig 3 (n n) (A B) (B B) (k k))-  (precedes ((0 1) (1 2)) ((1 1) (0 0)))+  (defstrand trans2 2 (n n) (A B) (k k))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (displaced 2 1 orig 2) n (0 0) (enc n B B k))-  (traces ((recv (enc n B k)) (send (enc n B B B k)))-    ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k))))+  (operation nonce-test (displaced 2 0 orig 2) n (1 0) (enc n B B k))+  (traces+    ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))+    ((recv (enc n B k)) (send (enc n B B B k))))   (label 11)   (parent 6)   (unrealized)   (shape)-  (maps ((0 0 1) ((n n) (A B) (B B) (k k))))-  (origs (n (1 0))))+  (maps ((1 1 0) ((n n) (A B) (B B) (k k))))+  (origs (n (0 0))))  (defskeleton nonaug-prune   (vars (n text) (B C name) (k akey))@@ -241,6 +240,29 @@   (defstrand trans2 2 (n n) (A B) (k k))   (defstrand orig 3 (n n) (A B) (B B) (k k))   (defstrand trans1 3 (n n) (A B) (C C) (k k))+  (defstrand trans1 3 (n n) (A B) (C B) (k k))+  (precedes ((2 0) (0 0)) ((2 0) (1 0)) ((2 0) (3 0)) ((2 0) (4 0))+    ((2 1) (3 1)) ((3 2) (2 2)) ((4 2) (2 2)))+  (non-orig (invk k))+  (uniq-orig n)+  (operation nonce-test (added-strand trans1 3) n (2 2) (enc n B k)+    (enc n n C k) (enc n B B k))+  (traces ((recv (enc n B k)) (send (enc n B B B k)))+    ((recv (enc n B k)) (send (enc n B B B k)))+    ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k)))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n B k))))+  (label 12)+  (parent 7)+  (unrealized (0 0) (1 0) (2 2) (4 1))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nonaug-prune+  (vars (n text) (B C name) (k akey))+  (defstrand trans2 2 (n n) (A B) (k k))+  (defstrand trans2 2 (n n) (A B) (k k))+  (defstrand orig 3 (n n) (A B) (B B) (k k))+  (defstrand trans1 3 (n n) (A B) (C C) (k k))   (precedes ((0 1) (2 2)) ((2 0) (0 0)) ((2 0) (1 0)) ((2 0) (3 0))     ((2 1) (3 1)) ((3 2) (2 2)))   (non-orig (invk k))@@ -251,7 +273,7 @@     ((recv (enc n B k)) (send (enc n B B B k)))     ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))     ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k))))-  (label 12)+  (label 13)   (parent 7)   (unrealized (0 0) (1 0))   (comment "1 in cohort - 1 not yet seen"))@@ -268,7 +290,7 @@   (traces ((recv (enc n B k)) (send (enc n B B B k)))     ((recv (enc n B k)) (send (enc n B B B k)))     ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k))))-  (label 13)+  (label 14)   (parent 8)   (unrealized)   (shape)@@ -278,61 +300,86 @@ (defskeleton nonaug-prune   (vars (n text) (A B name) (k akey))   (defstrand trans2 2 (n n) (A B) (k k))-  (defstrand trans2 2 (n n) (A A) (k k))   (defstrand orig 3 (n n) (A A) (B B) (k k))-  (precedes ((1 1) (2 2)) ((2 1) (0 0)) ((2 1) (1 0)))+  (defstrand trans2 2 (n n) (A A) (k k))+  (precedes ((1 1) (0 0)) ((1 1) (2 0)) ((2 1) (1 2)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (displaced 3 2 orig 2) n (0 0) (enc n B B k))+  (operation nonce-test (displaced 3 1 orig 2) n (0 0) (enc n B B k))   (traces ((recv (enc n B k)) (send (enc n B B B k)))-    ((recv (enc n A k)) (send (enc n A A A k)))-    ((send (enc n B B k)) (send (enc n A k)) (recv (enc n A A A k))))-  (label 14)+    ((send (enc n B B k)) (send (enc n A k)) (recv (enc n A A A k)))+    ((recv (enc n A k)) (send (enc n A A A k))))+  (label 15)   (parent 9)-  (seen 13)+  (seen 14)   (unrealized (0 0))-  (origs (n (2 0)))-  (comment "4 in cohort - 3 not yet seen"))+  (origs (n (1 0)))+  (comment "3 in cohort - 2 not yet seen"))  (defskeleton nonaug-prune   (vars (n text) (B C name) (k akey))   (defstrand trans2 2 (n n) (A B) (k k))   (defstrand orig 3 (n n) (A B) (B B) (k k))   (defstrand trans1 3 (n n) (A B) (C C) (k k))-  (precedes ((0 1) (1 2)) ((1 0) (0 0)) ((1 0) (2 0)) ((1 1) (2 1))-    ((2 2) (1 2)))+  (defstrand trans1 3 (n n) (A B) (C B) (k k))+  (precedes ((1 0) (0 0)) ((1 0) (2 0)) ((1 0) (3 0)) ((1 1) (2 1))+    ((2 2) (1 2)) ((3 2) (1 2)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (displaced 3 0 trans2 2) n (1 2) (enc n B k)+  (operation nonce-test (added-strand trans1 3) n (1 2) (enc n B k)     (enc n n C k) (enc n B B k))   (traces ((recv (enc n B k)) (send (enc n B B B k)))     ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))-    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k))))-  (label 15)+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k)))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n B k))))+  (label 16)   (parent 10)-  (unrealized (0 0))-  (origs (n (1 0)))+  (unrealized (0 0) (1 2) (3 1))   (comment "1 in cohort - 1 not yet seen"))  (defskeleton nonaug-prune   (vars (n text) (B C name) (k akey))+  (defstrand orig 3 (n n) (A B) (B B) (k k))+  (defstrand trans1 3 (n n) (A B) (C C) (k k))   (defstrand trans2 2 (n n) (A B) (k k))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 1) (1 1)) ((1 2) (0 2))+    ((2 1) (0 2)))+  (non-orig (invk k))+  (uniq-orig n)+  (operation nonce-test (added-strand trans2 2) n (1 2) (enc n B k)+    (enc n n C k) (enc n B B k))+  (traces+    ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k)))+    ((recv (enc n B k)) (send (enc n B B B k))))+  (label 17)+  (parent 10)+  (unrealized (2 0))+  (origs (n (0 0)))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nonaug-prune+  (vars (n text) (B C name) (k akey))   (defstrand trans2 2 (n n) (A B) (k k))+  (defstrand trans2 2 (n n) (A B) (k k))   (defstrand orig 3 (n n) (A B) (B B) (k k))   (defstrand trans1 3 (n n) (A B) (C C) (k k))-  (precedes ((0 1) (2 2)) ((2 0) (0 0)) ((2 0) (3 0)) ((2 1) (1 0))-    ((2 1) (3 1)) ((3 2) (2 2)))+  (defstrand trans1 3 (n n) (A B) (C B) (k k))+  (precedes ((2 0) (0 0)) ((2 0) (1 0)) ((2 0) (3 0)) ((2 0) (4 0))+    ((2 1) (3 1)) ((2 1) (4 1)) ((3 2) (2 2)) ((4 2) (2 2)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (displaced 4 2 orig 2) n (1 0) (enc n B B k))+  (operation nonce-test (displaced 5 2 orig 2) n (4 1) (enc n B B k))   (traces ((recv (enc n B k)) (send (enc n B B B k)))     ((recv (enc n B k)) (send (enc n B B B k)))     ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))-    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k))))-  (label 16)+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k)))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n B k))))+  (label 18)   (parent 12)-  (unrealized (0 0))-  (comment "1 in cohort - 1 not yet seen"))+  (seen 24)+  (unrealized (0 0) (1 0) (2 2))+  (comment "2 in cohort - 1 not yet seen"))  (defskeleton nonaug-prune   (vars (n text) (B C name) (k akey))@@ -340,58 +387,57 @@   (defstrand trans2 2 (n n) (A B) (k k))   (defstrand orig 3 (n n) (A B) (B B) (k k))   (defstrand trans1 3 (n n) (A B) (C C) (k k))-  (precedes ((1 1) (2 2)) ((2 0) (3 0)) ((2 1) (0 0)) ((2 1) (1 0))-    ((3 2) (0 0)))+  (precedes ((0 1) (2 2)) ((2 0) (0 0)) ((2 0) (3 0)) ((2 1) (1 0))+    ((2 1) (3 1)) ((3 2) (2 2)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (added-strand trans1 3) n (0 0) (enc n B k)-    (enc n B B k))+  (operation nonce-test (displaced 4 2 orig 2) n (1 0) (enc n B B k))   (traces ((recv (enc n B k)) (send (enc n B B B k)))     ((recv (enc n B k)) (send (enc n B B B k)))     ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))     ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k))))-  (label 17)-  (parent 14)-  (unrealized (3 1))+  (label 19)+  (parent 13)+  (unrealized (0 0))   (comment "1 in cohort - 1 not yet seen"))  (defskeleton nonaug-prune   (vars (n text) (A B name) (k akey))   (defstrand trans2 2 (n n) (A B) (k k))-  (defstrand trans2 2 (n n) (A A) (k k))   (defstrand orig 3 (n n) (A A) (B B) (k k))-  (precedes ((1 1) (0 0)) ((1 1) (2 2)) ((2 1) (1 0)))+  (defstrand trans2 2 (n n) (A A) (k k))+  (precedes ((1 1) (2 0)) ((2 1) (0 0)) ((2 1) (1 2)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (displaced 3 1 trans2 2) n (0 0) (enc n A k)+  (operation nonce-test (displaced 3 2 trans2 2) n (0 0) (enc n A k)     (enc n B B k))   (traces ((recv (enc n B k)) (send (enc n B B B k)))-    ((recv (enc n A k)) (send (enc n A A A k)))-    ((send (enc n B B k)) (send (enc n A k)) (recv (enc n A A A k))))-  (label 18)-  (parent 14)+    ((send (enc n B B k)) (send (enc n A k)) (recv (enc n A A A k)))+    ((recv (enc n A k)) (send (enc n A A A k))))+  (label 20)+  (parent 15)   (unrealized (0 0))-  (origs (n (2 0)))-  (comment "2 in cohort - 2 not yet seen"))+  (origs (n (1 0)))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton nonaug-prune   (vars (n text) (A B name) (k akey))   (defstrand trans2 2 (n n) (A B) (k k))-  (defstrand trans2 2 (n n) (A A) (k k))   (defstrand orig 3 (n n) (A A) (B B) (k k))   (defstrand trans2 2 (n n) (A A) (k k))-  (precedes ((1 1) (2 2)) ((2 0) (3 0)) ((2 1) (0 0)) ((2 1) (1 0))+  (defstrand trans2 2 (n n) (A A) (k k))+  (precedes ((1 0) (3 0)) ((1 1) (0 0)) ((1 1) (2 0)) ((2 1) (1 2))     ((3 1) (0 0)))   (non-orig (invk k))   (uniq-orig n)   (operation nonce-test (added-strand trans2 2) n (0 0) (enc n A k)     (enc n B B k))   (traces ((recv (enc n B k)) (send (enc n B B B k)))-    ((recv (enc n A k)) (send (enc n A A A k)))     ((send (enc n B B k)) (send (enc n A k)) (recv (enc n A A A k)))+    ((recv (enc n A k)) (send (enc n A A A k)))     ((recv (enc n A k)) (send (enc n A A A k))))-  (label 19)-  (parent 14)+  (label 21)+  (parent 15)   (unrealized (0 0) (3 0))   (comment "1 in cohort - 1 not yet seen")) @@ -400,19 +446,40 @@   (defstrand trans2 2 (n n) (A B) (k k))   (defstrand orig 3 (n n) (A B) (B B) (k k))   (defstrand trans1 3 (n n) (A B) (C C) (k k))-  (precedes ((0 1) (1 2)) ((1 0) (2 0)) ((1 1) (0 0)) ((1 1) (2 1))-    ((2 2) (1 2)))+  (defstrand trans1 3 (n n) (A B) (C B) (k k))+  (precedes ((1 0) (0 0)) ((1 0) (2 0)) ((1 0) (3 0)) ((1 1) (2 1))+    ((1 1) (3 1)) ((2 2) (1 2)) ((3 2) (1 2)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (displaced 3 1 orig 2) n (0 0) (enc n B B k))+  (operation nonce-test (displaced 4 1 orig 2) n (3 1) (enc n B B k))   (traces ((recv (enc n B k)) (send (enc n B B B k)))     ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))-    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k))))-  (label 20)-  (parent 15)+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k)))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n B k))))+  (label 22)+  (parent 16)+  (unrealized (0 0) (1 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nonaug-prune+  (vars (n text) (B C name) (k akey))+  (defstrand orig 3 (n n) (A B) (B B) (k k))+  (defstrand trans1 3 (n n) (A B) (C C) (k k))+  (defstrand trans2 2 (n n) (A B) (k k))+  (precedes ((0 0) (1 0)) ((0 1) (1 1)) ((0 1) (2 0)) ((1 2) (0 2))+    ((2 1) (0 2)))+  (non-orig (invk k))+  (uniq-orig n)+  (operation nonce-test (displaced 3 0 orig 2) n (2 0) (enc n B B k))+  (traces+    ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k)))+    ((recv (enc n B k)) (send (enc n B B B k))))+  (label 23)+  (parent 17)   (seen 11)   (unrealized)-  (origs (n (1 0)))+  (origs (n (0 0)))   (comment "1 in cohort - 0 not yet seen"))  (defskeleton nonaug-prune@@ -421,20 +488,23 @@   (defstrand trans2 2 (n n) (A B) (k k))   (defstrand orig 3 (n n) (A B) (B B) (k k))   (defstrand trans1 3 (n n) (A B) (C C) (k k))-  (precedes ((0 1) (2 2)) ((2 0) (3 0)) ((2 1) (0 0)) ((2 1) (1 0))-    ((2 1) (3 1)) ((3 2) (2 2)))+  (defstrand trans1 3 (n n) (A B) (C B) (k k))+  (precedes ((0 1) (2 2)) ((2 0) (0 0)) ((2 0) (1 0)) ((2 0) (3 0))+    ((2 0) (4 0)) ((2 1) (3 1)) ((2 1) (4 1)) ((3 2) (2 2))+    ((4 2) (2 2)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (displaced 4 2 orig 2) n (0 0) (enc n B B k))+  (operation nonce-test (displaced 5 0 trans2 2) n (2 2) (enc n B k)+    (enc n n B k) (enc n n C k) (enc n B B k))   (traces ((recv (enc n B k)) (send (enc n B B B k)))     ((recv (enc n B k)) (send (enc n B B B k)))     ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))-    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k))))-  (label 21)-  (parent 16)-  (seen 13)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k)))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n B k))))+  (label 24)+  (parent 18)+  (unrealized (0 0) (1 0))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton nonaug-prune   (vars (n text) (B C name) (k akey))@@ -442,166 +512,209 @@   (defstrand trans2 2 (n n) (A B) (k k))   (defstrand orig 3 (n n) (A B) (B B) (k k))   (defstrand trans1 3 (n n) (A B) (C C) (k k))-  (precedes ((1 1) (2 2)) ((2 0) (3 0)) ((2 1) (1 0)) ((2 1) (3 1))-    ((3 2) (0 0)))+  (precedes ((0 1) (2 2)) ((2 0) (3 0)) ((2 1) (0 0)) ((2 1) (1 0))+    ((2 1) (3 1)) ((3 2) (2 2)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (displaced 4 2 orig 2) n (3 1) (enc n B B k))+  (operation nonce-test (displaced 4 2 orig 2) n (0 0) (enc n B B k))   (traces ((recv (enc n B k)) (send (enc n B B B k)))     ((recv (enc n B k)) (send (enc n B B B k)))     ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))     ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k))))-  (label 22)-  (parent 17)-  (seen 13)+  (label 25)+  (parent 19)+  (seen 14)   (unrealized)   (comment "1 in cohort - 0 not yet seen"))  (defskeleton nonaug-prune   (vars (n text) (A name) (k akey))   (defstrand trans2 2 (n n) (A A) (k k))-  (defstrand trans2 2 (n n) (A A) (k k))   (defstrand orig 3 (n n) (A A) (B A) (k k))-  (precedes ((1 1) (0 0)) ((1 1) (2 2)) ((2 1) (1 0)))+  (defstrand trans2 2 (n n) (A A) (k k))+  (precedes ((1 1) (2 0)) ((2 1) (0 0)) ((2 1) (1 2)))   (non-orig (invk k))   (uniq-orig n)   (operation nonce-test (contracted (B A)) n (0 0) (enc n A k)     (enc n A A k) (enc n A A A k))   (traces ((recv (enc n A k)) (send (enc n A A A k)))-    ((recv (enc n A k)) (send (enc n A A A k)))-    ((send (enc n A A k)) (send (enc n A k)) (recv (enc n A A A k))))-  (label 23)-  (parent 18)-  (seen 13)+    ((send (enc n A A k)) (send (enc n A k)) (recv (enc n A A A k)))+    ((recv (enc n A k)) (send (enc n A A A k))))+  (label 26)+  (parent 20)+  (seen 14)   (unrealized)-  (origs (n (2 0)))+  (origs (n (1 0)))   (comment "1 in cohort - 0 not yet seen"))  (defskeleton nonaug-prune-  (vars (n text) (B C name) (k akey))-  (defstrand trans2 2 (n n) (A B) (k k))-  (defstrand trans2 2 (n n) (A B) (k k))-  (defstrand orig 3 (n n) (A B) (B B) (k k))-  (defstrand trans1 3 (n n) (A B) (C C) (k k))-  (precedes ((1 1) (0 0)) ((1 1) (2 2)) ((2 0) (3 0)) ((2 1) (1 0))-    ((3 2) (0 0)))-  (non-orig (invk k))-  (uniq-orig n)-  (operation nonce-test (added-strand trans1 3) n (0 0) (enc n B k)-    (enc n B B k) (enc n B B B k))-  (traces ((recv (enc n B k)) (send (enc n B B B k)))-    ((recv (enc n B k)) (send (enc n B B B k)))-    ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))-    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k))))-  (label 24)-  (parent 18)-  (unrealized (3 1))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton nonaug-prune   (vars (n text) (A B name) (k akey))   (defstrand trans2 2 (n n) (A B) (k k))-  (defstrand trans2 2 (n n) (A A) (k k))   (defstrand orig 3 (n n) (A A) (B B) (k k))   (defstrand trans2 2 (n n) (A A) (k k))-  (precedes ((1 1) (2 2)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (0 0)))+  (defstrand trans2 2 (n n) (A A) (k k))+  (precedes ((1 1) (2 0)) ((1 1) (3 0)) ((2 1) (1 2)) ((3 1) (0 0)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (displaced 4 2 orig 2) n (3 0) (enc n B B k))+  (operation nonce-test (displaced 4 1 orig 2) n (3 0) (enc n B B k))   (traces ((recv (enc n B k)) (send (enc n B B B k)))-    ((recv (enc n A k)) (send (enc n A A A k)))     ((send (enc n B B k)) (send (enc n A k)) (recv (enc n A A A k)))+    ((recv (enc n A k)) (send (enc n A A A k)))     ((recv (enc n A k)) (send (enc n A A A k))))-  (label 25)-  (parent 19)+  (label 27)+  (parent 21)   (unrealized (0 0))-  (comment "2 in cohort - 2 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton nonaug-prune   (vars (n text) (B C name) (k akey))+  (defstrand orig 3 (n n) (A B) (B B) (k k))+  (defstrand trans1 3 (n n) (A B) (C C) (k k))+  (defstrand trans1 3 (n n) (A B) (C B) (k k))   (defstrand trans2 2 (n n) (A B) (k k))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((0 1) (1 1))+    ((0 1) (2 1)) ((1 2) (0 2)) ((2 2) (0 2)) ((3 1) (0 2)))+  (non-orig (invk k))+  (uniq-orig n)+  (operation nonce-test (added-strand trans2 2) n (1 2) (enc n B k)+    (enc n n B k) (enc n n C k) (enc n B B k))+  (traces+    ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k)))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n B k)))+    ((recv (enc n B k)) (send (enc n B B B k))))+  (label 28)+  (parent 22)+  (unrealized (3 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nonaug-prune+  (vars (n text) (B C name) (k akey))   (defstrand trans2 2 (n n) (A B) (k k))+  (defstrand trans2 2 (n n) (A B) (k k))   (defstrand orig 3 (n n) (A B) (B B) (k k))   (defstrand trans1 3 (n n) (A B) (C C) (k k))-  (precedes ((1 1) (0 0)) ((1 1) (2 2)) ((2 0) (3 0)) ((2 1) (1 0))-    ((2 1) (3 1)) ((3 2) (0 0)))+  (defstrand trans1 3 (n n) (A B) (C B) (k k))+  (precedes ((0 1) (2 2)) ((2 0) (0 0)) ((2 0) (3 0)) ((2 0) (4 0))+    ((2 1) (1 0)) ((2 1) (3 1)) ((2 1) (4 1)) ((3 2) (2 2))+    ((4 2) (2 2)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (displaced 4 2 orig 2) n (3 1) (enc n B B k))+  (operation nonce-test (displaced 5 2 orig 2) n (1 0) (enc n B B k))   (traces ((recv (enc n B k)) (send (enc n B B B k)))     ((recv (enc n B k)) (send (enc n B B B k)))     ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))-    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k))))-  (label 26)+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k)))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n B k))))+  (label 29)   (parent 24)-  (seen 23)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))+  (unrealized (0 0))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton nonaug-prune   (vars (n text) (A name) (k akey))   (defstrand trans2 2 (n n) (A A) (k k))-  (defstrand trans2 2 (n n) (A A) (k k))   (defstrand orig 3 (n n) (A A) (B A) (k k))   (defstrand trans2 2 (n n) (A A) (k k))-  (precedes ((1 1) (2 2)) ((2 1) (1 0)) ((2 1) (3 0)) ((3 1) (0 0)))+  (defstrand trans2 2 (n n) (A A) (k k))+  (precedes ((1 1) (2 0)) ((1 1) (3 0)) ((2 1) (1 2)) ((3 1) (0 0)))   (non-orig (invk k))   (uniq-orig n)   (operation nonce-test (contracted (B A)) n (0 0) (enc n A k)     (enc n A A k) (enc n A A A k))   (traces ((recv (enc n A k)) (send (enc n A A A k)))-    ((recv (enc n A k)) (send (enc n A A A k)))     ((send (enc n A A k)) (send (enc n A k)) (recv (enc n A A A k)))+    ((recv (enc n A k)) (send (enc n A A A k)))     ((recv (enc n A k)) (send (enc n A A A k))))-  (label 27)-  (parent 25)-  (seen 13)+  (label 30)+  (parent 27)+  (seen 14)   (unrealized)   (comment "1 in cohort - 0 not yet seen"))  (defskeleton nonaug-prune   (vars (n text) (B C name) (k akey))+  (defstrand orig 3 (n n) (A B) (B B) (k k))+  (defstrand trans1 3 (n n) (A B) (C C) (k k))+  (defstrand trans1 3 (n n) (A B) (C B) (k k))   (defstrand trans2 2 (n n) (A B) (k k))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 1) (1 1)) ((0 1) (2 1))+    ((0 1) (3 0)) ((1 2) (0 2)) ((2 2) (0 2)) ((3 1) (0 2)))+  (non-orig (invk k))+  (uniq-orig n)+  (operation nonce-test (displaced 4 0 orig 2) n (3 0) (enc n B B k))+  (traces+    ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k)))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n B k)))+    ((recv (enc n B k)) (send (enc n B B B k))))+  (label 31)+  (parent 28)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nonaug-prune+  (vars (n text) (B C name) (k akey))   (defstrand trans2 2 (n n) (A B) (k k))-  (defstrand orig 3 (n n) (A B) (B B) (k k))   (defstrand trans2 2 (n n) (A B) (k k))+  (defstrand orig 3 (n n) (A B) (B B) (k k))   (defstrand trans1 3 (n n) (A B) (C C) (k k))-  (precedes ((1 1) (2 2)) ((2 0) (4 0)) ((2 1) (1 0)) ((2 1) (3 0))-    ((3 1) (0 0)) ((4 2) (0 0)))+  (defstrand trans1 3 (n n) (A B) (C B) (k k))+  (precedes ((0 1) (2 2)) ((2 0) (3 0)) ((2 0) (4 0)) ((2 1) (0 0))+    ((2 1) (1 0)) ((2 1) (3 1)) ((2 1) (4 1)) ((3 2) (2 2))+    ((4 2) (2 2)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (added-strand trans1 3) n (0 0) (enc n B k)-    (enc n B B k) (enc n B B B k))+  (operation nonce-test (displaced 5 2 orig 2) n (0 0) (enc n B B k))   (traces ((recv (enc n B k)) (send (enc n B B B k)))     ((recv (enc n B k)) (send (enc n B B B k)))     ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))-    ((recv (enc n B k)) (send (enc n B B B k)))-    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k))))-  (label 28)-  (parent 25)-  (unrealized (4 1))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k)))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n B k))))+  (label 32)+  (parent 29)+  (unrealized)   (comment "1 in cohort - 1 not yet seen"))  (defskeleton nonaug-prune-  (vars (n text) (B C name) (k akey))+  (vars (n text) (B name) (k akey))+  (defstrand orig 3 (n n) (A B) (B B) (k k))+  (defstrand trans1 3 (n n) (A B) (C B) (k k))   (defstrand trans2 2 (n n) (A B) (k k))+  (precedes ((0 0) (1 0)) ((0 1) (1 1)) ((0 1) (2 0)) ((1 2) (0 2))+    ((2 1) (0 2)))+  (non-orig (invk k))+  (uniq-orig n)+  (operation generalization deleted (1 0))+  (traces+    ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n B k)))+    ((recv (enc n B k)) (send (enc n B B B k))))+  (label 33)+  (parent 31)+  (seen 11)+  (unrealized)+  (origs (n (0 0)))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton nonaug-prune+  (vars (n text) (B name) (k akey))   (defstrand trans2 2 (n n) (A B) (k k))-  (defstrand orig 3 (n n) (A B) (B B) (k k))   (defstrand trans2 2 (n n) (A B) (k k))-  (defstrand trans1 3 (n n) (A B) (C C) (k k))-  (precedes ((1 1) (2 2)) ((2 0) (4 0)) ((2 1) (1 0)) ((2 1) (3 0))-    ((2 1) (4 1)) ((3 1) (0 0)) ((4 2) (0 0)))+  (defstrand orig 3 (n n) (A B) (B B) (k k))+  (defstrand trans1 3 (n n) (A B) (C B) (k k))+  (precedes ((0 1) (2 2)) ((2 0) (3 0)) ((2 1) (0 0)) ((2 1) (1 0))+    ((2 1) (3 1)) ((3 2) (2 2)))   (non-orig (invk k))   (uniq-orig n)-  (operation nonce-test (displaced 5 2 orig 2) n (4 1) (enc n B B k))+  (operation generalization deleted (3 0))   (traces ((recv (enc n B k)) (send (enc n B B B k)))     ((recv (enc n B k)) (send (enc n B B B k)))     ((send (enc n B B k)) (send (enc n B k)) (recv (enc n B B B k)))-    ((recv (enc n B k)) (send (enc n B B B k)))-    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n C k))))-  (label 29)-  (parent 28)-  (seen 22)+    ((recv (enc n B B k)) (recv (enc n B k)) (send (enc n n B k))))+  (label 34)+  (parent 32)+  (seen 14)   (unrealized)   (comment "1 in cohort - 0 not yet seen"))
tst/ns-l.tst view
@@ -1,7 +1,7 @@ (herald "Needham-Schroeder-Low Public-Key Protocol"   (comment "With deflistener's")) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from ns-l.scm")  (defprotocol ns basic
tst/ns.tst view
@@ -1,6 +1,6 @@ (herald "Needham-Schroeder Public-Key Protocol Variants") -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from ns.scm")  (defprotocol ns basic
tst/nsl3.tst view
@@ -1,801 +1,2348 @@ (herald "Three Party Needham-Schroeder-Lowe Protocol") -(comment "CPSA 2.3.0")-(comment "All input read from nsl3.scm")--(defprotocol nsl3 basic-  (defrole init-    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))-    (trace (send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))))-    (uniq-orig na0 na1))-  (defrole mid-    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))-    (trace (recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c)))-      (recv-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    (uniq-orig nb0 nb1))-  (defrole resp-    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))-    (trace-      (recv-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c)))-      (send-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    (uniq-orig nc0 nc1)))--(defskeleton nsl3-  (vars (na0 na1 nb0 nb1 nc0 nc1 text) (a b c name))-  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig na0 na1)-  (traces-    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b)))))-  (label 0)-  (unrealized (0 1))-  (origs (na1 (0 0)) (na0 (0 0)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton nsl3-  (vars (na0 na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 text) (a b c name))-  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand mid 2 (na0 na0) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)-    (b b) (c c))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig na0 na1 nb0-0 nb1-0)-  (operation nonce-test (added-strand mid 2) na0 (0 1)-    (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-  (traces-    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))))-    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1-0 b a (enc na1 a b (pubk c))-          (enc na0 nb0-0 b c (pubk a)) (pubk c)))))-  (label 1)-  (parent 0)-  (unrealized (0 1))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton nsl3-  (vars (na0 na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 text)-    (a b c name))-  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand mid 2 (na0 na0) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)-    (b b) (c c))-  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)-    (nc0 nc0-0) (nc1 nc1-0) (a a) (b b) (c c))-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig na0 na1 nb0-0 nb1-0 nc0-0 nc1-0)-  (operation nonce-test (added-strand resp 2) na0 (0 1)-    (enc na0 a c (enc na1 a b (pubk c)) (pubk b))-    (enc nb1-0 b a (enc na1 a b (pubk c)) (enc na0 nb0-0 b c (pubk a))-      (pubk c)))-  (traces-    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))))-    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1-0 b a (enc na1 a b (pubk c))-          (enc na0 nb0-0 b c (pubk a)) (pubk c))))-    ((recv-       (enc nb1-0 b a (enc na1 a b (pubk c))-         (enc na0 nb0-0 b c (pubk a)) (pubk c)))-      (send-        (enc na1 nc1-0 c b (enc na0 nb0-0 b c (pubk a))-          (enc nb1-0 nc0-0 c a (pubk b)) (pubk a)))))-  (label 2)-  (parent 1)-  (unrealized (0 1))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton nsl3-  (vars (na0 na1 nb0 nb1 nc0 nc1 text) (a b c name))-  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand mid 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (a a) (b b)-    (c c))-  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig na0 na1 nb0 nb1 nc0 nc1)-  (operation nonce-test-    (contracted (nb0-0 nb0) (nb1-0 nb1) (nc0-0 nc0) (nc1-0 nc1)) na0-    (0 1) (enc na0 a c (enc na1 a b (pubk c)) (pubk b))-    (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-      (enc nb1 nc0 c a (pubk b)) (pubk a))-    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-      (pubk c)))-  (traces-    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))))-    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c))))-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))))-  (label 3)-  (parent 2)-  (unrealized)-  (shape)-  (maps-    ((0)-      ((a a) (b b) (c c) (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1)-        (nc0 nc0) (nc1 nc1))))-  (origs (nc0 (2 1)) (nc1 (2 1)) (nb0 (1 1)) (nb1 (1 1)) (na1 (0 0))-    (na0 (0 0))))--(comment "Nothing left to do")--(defprotocol nsl3 basic-  (defrole init-    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))-    (trace (send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))))-    (uniq-orig na0 na1))-  (defrole mid-    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))-    (trace (recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c)))-      (recv-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    (uniq-orig nb0 nb1))-  (defrole resp-    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))-    (trace-      (recv-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c)))-      (send-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    (uniq-orig nc0 nc1)))--(defskeleton nsl3-  (vars (na0 na1 nb0 nb1 nc0 nc1 text) (a b c name))-  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig nb0 nb1)-  (traces-    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c)))-      (recv-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))-  (label 4)-  (unrealized (0 2))-  (origs (nb1 (0 1)) (nb0 (0 1)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton nsl3-  (vars (na0 na1 nb0 nb1 nc0 nc1 nc0-0 nc1-0 text) (a b c name))-  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)-    (nc1 nc1-0) (a a) (b b) (c c))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig nb0 nb1 nc0-0 nc1-0)-  (operation nonce-test (added-strand resp 2) nb0 (0 2)-    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-      (pubk c)))-  (traces-    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c)))-      (recv-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0-0 c a (pubk b)) (pubk a)))))-  (label 5)-  (parent 4)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton nsl3-  (vars (na0 na1 nb0 nb1 nc0 nc1 nc0-0 nc1-0 text) (a b c name))-  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)-    (nc1 nc1-0) (a a) (b b) (c c))-  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)-    (nc1 nc1-0) (a a) (b b) (c c))-  (precedes ((0 1) (1 0)) ((1 1) (2 1)) ((2 0) (0 0)) ((2 2) (0 2)))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig na0 na1 nb0 nb1 nc0-0 nc1-0)-  (operation nonce-test (added-strand init 3) nb0 (0 2)-    (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))-      (enc nb1 nc0-0 c a (pubk b)) (pubk a))-    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-      (pubk c)))-  (traces-    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c)))-      (recv-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))-    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0-0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0-0 c a (pubk b)) (enc nc1-0 (pubk c))-          (pubk b)))))-  (label 6)-  (parent 5)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton nsl3-  (vars (na0 na1 nb0 nb1 nc0 nc1 text) (a b c name))-  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (precedes ((0 1) (1 0)) ((1 1) (2 1)) ((2 0) (0 0)) ((2 2) (0 2)))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig na0 na1 nb0 nb1 nc0 nc1)-  (operation nonce-test (contracted (nc0-0 nc0) (nc1-0 nc1)) nb0 (0 2)-    (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-      (enc nb1 nc0 c a (pubk b)) (pubk a))-    (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c)) (pubk b))-    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-      (pubk c)))-  (traces-    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c)))-      (recv-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a))))-    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b)))))-  (label 7)-  (parent 6)-  (unrealized)-  (shape)-  (maps-    ((0)-      ((a a) (b b) (c c) (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1)-        (nc0 nc0) (nc1 nc1))))-  (origs (na0 (2 0)) (na1 (2 0)) (nc0 (1 1)) (nc1 (1 1)) (nb1 (0 1))-    (nb0 (0 1))))--(comment "Nothing left to do")--(defprotocol nsl3 basic-  (defrole init-    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))-    (trace (send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))))-    (uniq-orig na0 na1))-  (defrole mid-    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))-    (trace (recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c)))-      (recv-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    (uniq-orig nb0 nb1))-  (defrole resp-    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))-    (trace-      (recv-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c)))-      (send-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    (uniq-orig nc0 nc1)))--(defskeleton nsl3-  (vars (na0 na1 nb0 nb1 nc0 nc1 text) (a b c name))-  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig nc0 nc1)-  (traces-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c)))))-  (label 8)-  (unrealized (0 2))-  (origs (nc1 (0 1)) (nc0 (0 1)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton nsl3-  (vars (na0 na1 nb0 nb1 nc0 nc1 text) (a b c name))-  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig na0 na1 nc0 nc1)-  (operation nonce-test (added-strand init 3) nc0 (0 2)-    (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-      (enc nb1 nc0 c a (pubk b)) (pubk a)))-  (traces-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b)))))-  (label 9)-  (parent 8)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton nsl3-  (vars (na0 na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 text) (a b c name))-  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand mid 2 (na0 na0) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)-    (b b) (c c))-  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 2) (0 2)) ((2 1) (0 0)))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig na0 na1 nc0 nc1 nb0-0 nb1-0)-  (operation nonce-test (added-strand mid 2) na1 (0 0)-    (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-  (traces-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))))-    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1-0 b a (enc na1 a b (pubk c))-          (enc na0 nb0-0 b c (pubk a)) (pubk c)))))-  (label 10)-  (parent 9)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton nsl3-  (vars (na0 na1 nc0 nc1 nb0 nb1 text) (a b c name))-  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand mid 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (a a) (b b)-    (c c))-  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 2) (0 2)) ((2 1) (0 0)))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig na0 na1 nc0 nc1 nb0 nb1)-  (operation nonce-test (contracted (nb0-0 nb0) (nb1-0 nb1)) na1 (0 0)-    (enc na0 a c (enc na1 a b (pubk c)) (pubk b))-    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-      (pubk c)))-  (traces-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))))-    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c)))))-  (label 11)-  (parent 10)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton nsl3-  (vars (na0 na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 text)-    (a b c name))-  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand mid 2 (na0 na0) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)-    (b b) (c c))-  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)-    (nc0 nc0-0) (nc1 nc1-0) (a a) (b b) (c c))-  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 2) (0 2)) ((2 1) (3 0))-    ((3 1) (0 0)))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig na0 na1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0)-  (operation nonce-test (added-strand resp 2) na1 (0 0)-    (enc na0 a c (enc na1 a b (pubk c)) (pubk b))-    (enc nb1-0 b a (enc na1 a b (pubk c)) (enc na0 nb0-0 b c (pubk a))-      (pubk c)))-  (traces-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))))-    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1-0 b a (enc na1 a b (pubk c))-          (enc na0 nb0-0 b c (pubk a)) (pubk c))))-    ((recv-       (enc nb1-0 b a (enc na1 a b (pubk c))-         (enc na0 nb0-0 b c (pubk a)) (pubk c)))-      (send-        (enc na1 nc1-0 c b (enc na0 nb0-0 b c (pubk a))-          (enc nb1-0 nc0-0 c a (pubk b)) (pubk a)))))-  (label 12)-  (parent 10)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton nsl3-  (vars (nc0 nc1 nb0 nb1 na0 na1 text) (a b c name))-  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (precedes ((0 1) (1 1)) ((0 1) (2 2)) ((1 0) (2 0)) ((1 2) (0 2))-    ((2 1) (0 0)) ((2 3) (0 2)))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig nc0 nc1 nb0 nb1 na0 na1)-  (operation nonce-test (displaced 2 3 mid 4) nc0 (0 2)-    (enc na1-0 nc1 c b (enc na0-0 nb0 b c (pubk a))-      (enc nb1 nc0 c a (pubk b)) (pubk a))-    (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c)) (pubk b)))-  (traces-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))))-    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c)))-      (recv-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))-  (label 13)-  (parent 11)-  (unrealized (2 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton nsl3-  (vars (na0 na1 nc0 nc1 nb0 nb1 nc0-0 nc1-0 text) (a b c name))-  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand mid 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (a a) (b b)-    (c c))-  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)-    (nc1 nc1-0) (a a) (b b) (c c))-  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 2) (0 2)) ((2 1) (3 0))-    ((3 1) (0 0)))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig na0 na1 nc0 nc1 nb0 nb1 nc0-0 nc1-0)-  (operation nonce-test (contracted (nb0-0 nb0) (nb1-0 nb1)) na1 (0 0)-    (enc na0 a c (enc na1 a b (pubk c)) (pubk b))-    (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))-      (enc nb1 nc0-0 c a (pubk b)) (pubk a))-    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-      (pubk c)))-  (traces-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))))-    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c))))-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0-0 c a (pubk b)) (pubk a)))))-  (label 14)-  (parent 12)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton nsl3-  (vars (nc0 nc1 nb0 nb1 na0 na1 text) (a b c name))-  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 2) (2 2)) ((2 1) (0 0))-    ((2 3) (0 2)))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig nc0 nc1 nb0 nb1 na0 na1)-  (operation nonce-test (displaced 3 1 init 3) nc0 (2 2)-    (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-      (enc nb1 nc0 c a (pubk b)) (pubk a)))-  (traces-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))))-    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c)))-      (recv-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))-  (label 15)-  (parent 13)-  (unrealized)-  (shape)-  (maps-    ((0)-      ((a a) (b b) (c c) (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1)-        (nc0 nc0) (nc1 nc1))))-  (origs (na0 (1 0)) (na1 (1 0)) (nb0 (2 1)) (nb1 (2 1)) (nc1 (0 1))-    (nc0 (0 1))))--(defskeleton nsl3-  (vars (nc0 nc1 nb0 nb1 nc0-0 nc1-0 na0 na1 text) (a b c name))-  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)-    (nc1 nc1-0) (a a) (b b) (c c))-  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (precedes ((0 1) (1 1)) ((0 1) (3 2)) ((1 0) (3 0)) ((1 2) (0 2))-    ((2 1) (0 0)) ((3 1) (2 0)) ((3 3) (0 2)))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig nc0 nc1 nb0 nb1 nc0-0 nc1-0 na0 na1)-  (operation nonce-test (displaced 2 4 mid 4) nc0 (0 2)-    (enc na1-0 nc1 c b (enc na0-0 nb0 b c (pubk a))-      (enc nb1 nc0 c a (pubk b)) (pubk a))-    (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c)) (pubk b)))-  (traces-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))))-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))-    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c)))-      (recv-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))-  (label 16)-  (parent 14)-  (unrealized (3 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton nsl3-  (vars (nc0 nc1 nb0 nb1 nc0-0 nc1-0 na0 na1 text) (a b c name))-  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)-    (nc1 nc1-0) (a a) (b b) (c c))-  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)-    (nc1 nc1) (a a) (b b) (c c))-  (precedes ((0 1) (1 1)) ((1 0) (3 0)) ((1 2) (3 2)) ((2 1) (0 0))-    ((3 1) (2 0)) ((3 3) (0 2)))-  (non-orig (privk a) (privk b) (privk c))-  (uniq-orig nc0 nc1 nb0 nb1 nc0-0 nc1-0 na0 na1)-  (operation nonce-test (displaced 4 1 init 3) nc0 (3 2)-    (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-      (enc nb1 nc0 c a (pubk b)) (pubk a)))-  (traces-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))-    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (recv-        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0 c a (pubk b)) (pubk a)))-      (send-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))))-    ((recv-       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-         (pubk c)))-      (send-        (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))-          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))-    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))-      (send-        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))-          (pubk c)))-      (recv-        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))-          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))-  (label 17)-  (parent 16)-  (seen 15)+(comment "CPSA 2.3.1")+(comment "All input read from nsl3.scm")++(defprotocol nsl3 basic+  (defrole init+    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))+    (trace (send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    (uniq-orig na0 na1))+  (defrole mid+    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))+    (trace (recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    (uniq-orig nb0 nb1))+  (defrole resp+    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))+    (trace+      (recv+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    (uniq-orig nc0 nc1)))++(defskeleton nsl3+  (vars (na0 na1 nb0 nb1 nc0 nc1 text) (a b c name))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 na1)+  (traces+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b)))))+  (label 0)+  (unrealized (0 1))+  (origs (na1 (0 0)) (na0 (0 0)))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 text) (a b c name))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 na1 nb0-0 nb1-0)+  (operation nonce-test (added-strand mid 2) na0 (0 1)+    (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+  (traces+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na0 nb0-0 b c (pubk a)) (pubk c)))))+  (label 1)+  (parent 0)+  (unrealized (0 1))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton nsl3+  (vars (na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nb0-1 nb1-1 text) (a b c name))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0-1) (nb1 nb1-1) (a a)+    (b b) (c c))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na1 nb0-0 nb1-0 nb0-1 nb1-1)+  (operation nonce-test (added-strand mid 2) na1 (0 1)+    (enc na1 a c (enc na1 a b (pubk c)) (pubk b))+    (enc nb1-0 b a (enc na1 a b (pubk c)) (enc na1 nb0-0 b c (pubk a))+      (pubk c)))+  (traces+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na1 nb0-0 b c (pubk a)) (pubk c))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-1 b a (enc na1 a b (pubk c))+          (enc na1 nb0-1 b c (pubk a)) (pubk c)))))+  (label 2)+  (parent 1)+  (unrealized (0 1))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 text)+    (a b c name))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-0) (nc1 nc1-0) (a a) (b b) (c c))+  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 na1 nb0-0 nb1-0 nc0-0 nc1-0)+  (operation nonce-test (added-strand resp 2) na0 (0 1)+    (enc na0 a c (enc na1 a b (pubk c)) (pubk b))+    (enc nb1-0 b a (enc na1 a b (pubk c)) (enc na0 nb0-0 b c (pubk a))+      (pubk c)))+  (traces+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na0 nb0-0 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-0 b a (enc na1 a b (pubk c))+         (enc na0 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na0 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-0 c a (pubk b)) (pubk a)))))+  (label 3)+  (parent 1)+  (unrealized (0 1))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton nsl3+  (vars (na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 text) (a b c name))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-0) (nc1 nc1-0) (a a) (b b) (c c))+  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na1 nb0-0 nb1-0 nc0-0 nc1-0)+  (operation nonce-test (added-strand resp 2) na1 (0 1)+    (enc na1 a c (enc na1 a b (pubk c)) (pubk b))+    (enc nb1-0 b a (enc na1 a b (pubk c)) (enc na1 nb0-0 b c (pubk a))+      (pubk c)))+  (traces+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na1 nb0-0 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-0 b a (enc na1 a b (pubk c))+         (enc na1 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na1 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-0 c a (pubk b)) (pubk a)))))+  (label 4)+  (parent 2)+  (unrealized (0 1))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 na1 nb0 nb1 nc0 nc1 text) (a b c name))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (a a) (b b)+    (c c))+  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 na1 nb0 nb1 nc0 nc1)+  (operation nonce-test+    (contracted (nb0-0 nb0) (nb1-0 nb1) (nc0-0 nc0) (nc1-0 nc1)) na0+    (0 1) (enc na0 a c (enc na1 a b (pubk c)) (pubk b))+    (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a))+    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+      (pubk c)))+  (traces+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))))+  (label 5)+  (parent 3)+  (unrealized)+  (shape)+  (maps+    ((0)+      ((a a) (b b) (c c) (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1)+        (nc0 nc0) (nc1 nc1))))+  (origs (nc0 (2 1)) (nc1 (2 1)) (nb0 (1 1)) (nb1 (1 1)) (na1 (0 0))+    (na0 (0 0))))++(defskeleton nsl3+  (vars (na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 nb0-1 nb1-1 text)+    (a b c name))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-0) (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0-1) (nb1 nb1-1) (a a)+    (b b) (c c))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (2 0)) ((2 1) (0 1))+    ((3 1) (0 1)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na1 nb0-0 nb1-0 nc0-0 nc1-0 nb0-1 nb1-1)+  (operation nonce-test (added-strand mid 2) na1 (0 1)+    (enc na1 nc1-0 c b (enc na1 nb0-0 b c (pubk a))+      (enc nb1-0 nc0-0 c a (pubk b)) (pubk a))+    (enc na1 a c (enc na1 a b (pubk c)) (pubk b))+    (enc nb1-0 b a (enc na1 a b (pubk c)) (enc na1 nb0-0 b c (pubk a))+      (pubk c)))+  (traces+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na1 nb0-0 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-0 b a (enc na1 a b (pubk c))+         (enc na1 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na1 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-0 c a (pubk b)) (pubk a))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-1 b a (enc na1 a b (pubk c))+          (enc na1 nb0-1 b c (pubk a)) (pubk c)))))+  (label 6)+  (parent 3)+  (seen 8)+  (unrealized (0 1))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 nc0-1 nc1-1 text)+    (a b c name))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-0) (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-1) (nc1 nc1-1) (a a) (b b) (c c))+  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((1 1) (3 0)) ((2 1) (0 1))+    ((3 1) (0 1)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na1 nb0-0 nb1-0 nc0-0 nc1-0 nc0-1 nc1-1)+  (operation nonce-test (added-strand resp 2) na1 (0 1)+    (enc na1 nc1-0 c b (enc na1 nb0-0 b c (pubk a))+      (enc nb1-0 nc0-0 c a (pubk b)) (pubk a))+    (enc na1 a c (enc na1 a b (pubk c)) (pubk b))+    (enc nb1-0 b a (enc na1 a b (pubk c)) (enc na1 nb0-0 b c (pubk a))+      (pubk c)))+  (traces+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na1 nb0-0 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-0 b a (enc na1 a b (pubk c))+         (enc na1 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na1 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-0 c a (pubk b)) (pubk a))))+    ((recv+       (enc nb1-0 b a (enc na1 a b (pubk c))+         (enc na1 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na1 nc1-1 c b (enc na1 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-1 c a (pubk b)) (pubk a)))))+  (label 7)+  (parent 3)+  (seen 8)+  (unrealized (0 1))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton nsl3+  (vars (na1 nb0 nb1 nc0 nc1 text) (a b c name))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (a a) (b b)+    (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 0) (1 0)) ((1 1) (2 0)) ((2 1) (0 1)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na1 nb0 nb1 nc0 nc1)+  (operation nonce-test+    (contracted (nb0-0 nb0) (nb1-0 nb1) (nc0-0 nc0) (nc1-0 nc1)) na1+    (0 1)+    (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a))+    (enc na1 a c (enc na1 a b (pubk c)) (pubk b))+    (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+      (pubk c)))+  (traces+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+          (pubk c))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))))+  (label 8)+  (parent 4)+  (seen 5)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton nsl3+  (vars+    (na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 nb0-1 nb1-1 nc0-1 nc1-1+      text) (a b c name))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-0) (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0-1) (nb1 nb1-1) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0-1) (nb1 nb1-1)+    (nc0 nc0-1) (nc1 nc1-1) (a a) (b b) (c c))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (2 0)) ((2 1) (0 1))+    ((3 1) (4 0)) ((4 1) (0 1)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na1 nb0-0 nb1-0 nc0-0 nc1-0 nb0-1 nb1-1 nc0-1 nc1-1)+  (operation nonce-test (added-strand resp 2) na1 (0 1)+    (enc na1 nc1-0 c b (enc na1 nb0-0 b c (pubk a))+      (enc nb1-0 nc0-0 c a (pubk b)) (pubk a))+    (enc na1 a c (enc na1 a b (pubk c)) (pubk b))+    (enc nb1-0 b a (enc na1 a b (pubk c)) (enc na1 nb0-0 b c (pubk a))+      (pubk c))+    (enc nb1-1 b a (enc na1 a b (pubk c)) (enc na1 nb0-1 b c (pubk a))+      (pubk c)))+  (traces+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na1 nb0-0 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-0 b a (enc na1 a b (pubk c))+         (enc na1 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na1 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-0 c a (pubk b)) (pubk a))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-1 b a (enc na1 a b (pubk c))+          (enc na1 nb0-1 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-1 b a (enc na1 a b (pubk c))+         (enc na1 nb0-1 b c (pubk a)) (pubk c)))+      (send+        (enc na1 nc1-1 c b (enc na1 nb0-1 b c (pubk a))+          (enc nb1-1 nc0-1 c a (pubk b)) (pubk a)))))+  (label 9)+  (parent 6)+  (seen 10)+  (unrealized (0 1))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 text) (a b c name))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (a a) (b b)+    (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-0) (nc1 nc1-0) (a a) (b b) (c c))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (2 0)) ((2 1) (0 1))+    ((3 1) (4 0)) ((4 1) (0 1)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0)+  (operation nonce-test+    (contracted (nb0-1 nb0) (nb1-1 nb1) (nc0-1 nc0) (nc1-1 nc1)) na1+    (0 1)+    (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a))+    (enc na1 nc1-0 c b (enc na1 nb0-0 b c (pubk a))+      (enc nb1-0 nc0-0 c a (pubk b)) (pubk a))+    (enc na1 a c (enc na1 a b (pubk c)) (pubk b))+    (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+      (pubk c))+    (enc nb1-0 b a (enc na1 a b (pubk c)) (enc na1 nb0-0 b c (pubk a))+      (pubk c)))+  (traces+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+          (pubk c))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na1 nb0-0 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-0 b a (enc na1 a b (pubk c))+         (enc na1 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na1 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-0 c a (pubk b)) (pubk a)))))+  (label 10)+  (parent 9)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 text) (a b c name))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (a a) (b b)+    (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (precedes ((0 0) (1 0)) ((0 0) (3 0)) ((1 1) (2 0)) ((2 1) (0 1))+    ((3 1) (0 1)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0)+  (operation generalization deleted (4 0))+  (traces+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+          (pubk c))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na1 nb0-0 b c (pubk a)) (pubk c)))))+  (label 11)+  (parent 10)+  (seen 8)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(comment "Nothing left to do")++(defprotocol nsl3 basic+  (defrole init+    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))+    (trace (send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    (uniq-orig na0 na1))+  (defrole mid+    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))+    (trace (recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    (uniq-orig nb0 nb1))+  (defrole resp+    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))+    (trace+      (recv+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    (uniq-orig nc0 nc1)))++(defskeleton nsl3+  (vars (na0 na1 nb0 nb1 nc0 nc1 text) (a b c name))+  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nb0 nb1)+  (traces+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))+  (label 12)+  (unrealized (0 2))+  (origs (nb1 (0 1)) (nb0 (0 1)))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 na1 nb0 nb1 nc0 nc1 nc0-0 nc1-0 text) (a b c name))+  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nb0 nb1 nc0-0 nc1-0)+  (operation nonce-test (added-strand resp 2) nb0 (0 2)+    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+      (pubk c)))+  (traces+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a)))))+  (label 13)+  (parent 12)+  (unrealized (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton nsl3+  (vars (na0 na1 nb0 nb1 nc0 nc1 nc0-0 nc1-0 text) (a b c name))+  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (precedes ((0 1) (1 0)) ((1 1) (2 1)) ((2 0) (0 0)) ((2 2) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 na1 nb0 nb1 nc0-0 nc1-0)+  (operation nonce-test (added-strand init 3) nb0 (0 2)+    (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))+      (enc nb1 nc0-0 c a (pubk b)) (pubk a))+    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+      (pubk c)))+  (traces+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0-0 c a (pubk b)) (enc nc1-0 (pubk c))+          (pubk b)))))+  (label 14)+  (parent 13)+  (unrealized (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton nsl3+  (vars (na0 na1 nb1 nc0 nc1 nc0-0 nc1-0 nc0-1 nc1-1 text) (a b c name))+  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb1) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb1) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb1) (nb1 nb1) (nc0 nc0-1)+    (nc1 nc1-1) (a a) (b b) (c c))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nb1 nc0-0 nc1-0 nc0-1 nc1-1)+  (operation nonce-test (added-strand resp 2) nb1 (0 2)+    (enc na1 nc1-0 c b (enc na0 nb1 b c (pubk a))+      (enc nb1 nc0-0 c a (pubk b)) (pubk a))+    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb1 b c (pubk a))+      (pubk c)))+  (traces+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb1 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb1 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb1 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na0 nb1 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb1 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-1 c b (enc na0 nb1 b c (pubk a))+          (enc nb1 nc0-1 c a (pubk b)) (pubk a)))))+  (label 15)+  (parent 13)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 na1 nb0 nb1 nc0 nc1 text) (a b c name))+  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 0)) ((1 1) (2 1)) ((2 0) (0 0)) ((2 2) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 na1 nb0 nb1 nc0 nc1)+  (operation nonce-test (contracted (nc0-0 nc0) (nc1-0 nc1)) nb0 (0 2)+    (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a))+    (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c)) (pubk b))+    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+      (pubk c)))+  (traces+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a))))+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b)))))+  (label 16)+  (parent 14)+  (unrealized)+  (shape)+  (maps+    ((0)+      ((a a) (b b) (c c) (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1)+        (nc0 nc0) (nc1 nc1))))+  (origs (na0 (2 0)) (na1 (2 0)) (nc0 (1 1)) (nc1 (1 1)) (nb1 (0 1))+    (nb0 (0 1))))++(defskeleton nsl3+  (vars (na0 na1 nb1 nc0 nc1 nc0-0 nc1-0 nc0-1 nc1-1 text) (a b c name))+  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb1) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb1) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb1) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb1) (nb1 nb1) (nc0 nc0-1)+    (nc1 nc1-1) (a a) (b b) (c c))+  (precedes ((0 1) (1 0)) ((0 1) (3 0)) ((1 1) (2 1)) ((2 0) (0 0))+    ((2 2) (0 2)) ((3 1) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 na1 nb1 nc0-0 nc1-0 nc0-1 nc1-1)+  (operation nonce-test (added-strand resp 2) nb1 (0 2)+    (enc na1 nc1-0 c b (enc na0 nb1 b c (pubk a))+      (enc nb1 nc0-0 c a (pubk b)) (pubk a))+    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb1 b c (pubk a))+      (pubk c))+    (enc nb1 (enc nb1 nc0-0 c a (pubk b)) (enc nc1-0 (pubk c))+      (pubk b)))+  (traces+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb1 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb1 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb1 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na0 nb1 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1-0 c b (enc na0 nb1 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a)))+      (send+        (enc nb1 (enc nb1 nc0-0 c a (pubk b)) (enc nc1-0 (pubk c))+          (pubk b))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb1 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-1 c b (enc na0 nb1 b c (pubk a))+          (enc nb1 nc0-1 c a (pubk b)) (pubk a)))))+  (label 17)+  (parent 14)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 na1 nb1 nc0 nc1 nc0-0 nc1-0 text) (a b c name))+  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb1) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb1) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb1) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (precedes ((0 1) (1 0)) ((1 1) (2 1)) ((2 0) (0 0)) ((2 2) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 na1 nb1 nc0-0 nc1-0)+  (operation nonce-test (added-strand init 3) nb1 (0 2)+    (enc na1 nc1-0 c b (enc na0 nb1 b c (pubk a))+      (enc nb1 nc0-0 c a (pubk b)) (pubk a))+    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb1 b c (pubk a))+      (pubk c)))+  (traces+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb1 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb1 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb1 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na0 nb1 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1-0 c b (enc na0 nb1 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a)))+      (send+        (enc nb1 (enc nb1 nc0-0 c a (pubk b)) (enc nc1-0 (pubk c))+          (pubk b)))))+  (label 18)+  (parent 15)+  (seen 19)+  (unrealized (0 2))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton nsl3+  (vars (na0 na1 nb1 nc0 nc1 text) (a b c name))+  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb1) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb1) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb1) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 0)) ((1 1) (2 1)) ((2 0) (0 0)) ((2 2) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 na1 nb1 nc0 nc1)+  (operation nonce-test+    (contracted (nc0-0 nc0) (nc1-0 nc1) (nc0-1 nc0) (nc1-1 nc1)) nb1+    (0 2)+    (enc na1 nc1 c b (enc na0 nb1 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a))+    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb1 b c (pubk a))+      (pubk c))+    (enc nb1 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c)) (pubk b)))+  (traces+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb1 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb1 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb1 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb1 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a))))+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb1 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb1 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b)))))+  (label 19)+  (parent 17)+  (seen 16)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(comment "Nothing left to do")++(defprotocol nsl3 basic+  (defrole init+    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))+    (trace (send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    (uniq-orig na0 na1))+  (defrole mid+    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))+    (trace (recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    (uniq-orig nb0 nb1))+  (defrole resp+    (vars (a b c name) (na0 na1 nb0 nb1 nc0 nc1 text))+    (trace+      (recv+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    (uniq-orig nc0 nc1)))++(defskeleton nsl3+  (vars (na0 na1 nb0 nb1 nc0 nc1 text) (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nc0 nc1)+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c)))))+  (label 20)+  (unrealized (0 2))+  (origs (nc1 (0 1)) (nc0 (0 1)))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 na1 nb0 nb1 nc0 nc1 text) (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (0 0)) ((1 2) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 na1 nc0 nc1)+  (operation nonce-test (added-strand init 3) nc0 (0 2)+    (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a)))+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b)))))+  (label 21)+  (parent 20)+  (unrealized (0 0) (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 text) (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 2) (0 2)) ((2 1) (0 0)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 na1 nc0 nc1 nb0-0 nb1-0)+  (operation nonce-test (added-strand mid 2) na1 (0 0)+    (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na0 nb0-0 b c (pubk a)) (pubk c)))))+  (label 22)+  (parent 21)+  (unrealized (0 0) (0 2))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton nsl3+  (vars (na0 na1 nc0 nc1 nb0 nb1 text) (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (a a) (b b)+    (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 2) (0 2)) ((2 1) (0 0)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 na1 nc0 nc1 nb0 nb1)+  (operation nonce-test (contracted (nb0-0 nb0) (nb1-0 nb1)) na1 (0 0)+    (enc na0 a c (enc na1 a b (pubk c)) (pubk b))+    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+      (pubk c)))+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))))+  (label 23)+  (parent 22)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nb0-1 nb1-1 text) (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na0) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na0) (nb0 nb0-1) (nb1 nb1-1) (a a)+    (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 0) (3 0)) ((1 2) (0 2))+    ((2 1) (0 0)) ((3 1) (0 0)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 nc0 nc1 nb0-0 nb1-0 nb0-1 nb1-1)+  (operation nonce-test (added-strand mid 2) na0 (0 0)+    (enc na0 a c (enc na0 a b (pubk c)) (pubk b))+    (enc nb1-0 b a (enc na0 a b (pubk c)) (enc na0 nb0-0 b c (pubk a))+      (pubk c)))+  (traces+    ((recv+       (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (recv+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na0 a b (pubk c))+          (enc na0 nb0-0 b c (pubk a)) (pubk c))))+    ((recv (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-1 b a (enc na0 a b (pubk c))+          (enc na0 nb0-1 b c (pubk a)) (pubk c)))))+  (label 24)+  (parent 22)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton nsl3+  (vars (na0 na1 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 text)+    (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-0) (nc1 nc1-0) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 2) (0 2)) ((2 1) (3 0))+    ((3 1) (0 0)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 na1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0)+  (operation nonce-test (added-strand resp 2) na1 (0 0)+    (enc na0 a c (enc na1 a b (pubk c)) (pubk b))+    (enc nb1-0 b a (enc na1 a b (pubk c)) (enc na0 nb0-0 b c (pubk a))+      (pubk c)))+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na0 nb0-0 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-0 b a (enc na1 a b (pubk c))+         (enc na0 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na0 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-0 c a (pubk b)) (pubk a)))))+  (label 25)+  (parent 22)+  (unrealized (0 0) (0 2))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton nsl3+  (vars (nc0 nc1 nb0 nb1 na0 na1 text) (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((0 1) (2 2)) ((1 0) (2 0)) ((1 2) (0 2))+    ((2 1) (0 0)) ((2 3) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nc0 nc1 nb0 nb1 na0 na1)+  (operation nonce-test (displaced 2 3 mid 4) nc0 (0 2)+    (enc na1-0 nc1 c b (enc na0-0 nb0 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a))+    (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c)) (pubk b)))+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))+  (label 26)+  (parent 23)+  (unrealized (2 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 nc0 nc1 nb0 nb1 text) (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (a a) (b b)+    (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 2) (0 2)) ((2 1) (0 0)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 nc0 nc1 nb0 nb1)+  (operation nonce-test+    (contracted (nb0-0 nb0) (nb1-0 nb1) (nb0-1 nb0) (nb1-1 nb1)) na0+    (0 0) (enc na0 a c (enc na0 a b (pubk c)) (pubk b))+    (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+      (pubk c)))+  (traces+    ((recv+       (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (recv+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))))+  (label 27)+  (parent 24)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 text) (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na0) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na0) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-0) (nc1 nc1-0) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 2) (0 2)) ((2 1) (3 0))+    ((3 1) (0 0)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0)+  (operation nonce-test (added-strand resp 2) na0 (0 0)+    (enc na0 a c (enc na0 a b (pubk c)) (pubk b))+    (enc nb1-0 b a (enc na0 a b (pubk c)) (enc na0 nb0-0 b c (pubk a))+      (pubk c)))+  (traces+    ((recv+       (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (recv+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na0 a b (pubk c))+          (enc na0 nb0-0 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-0 b a (enc na0 a b (pubk c))+         (enc na0 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na0 nc1-0 c b (enc na0 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-0 c a (pubk b)) (pubk a)))))+  (label 28)+  (parent 24)+  (unrealized (0 0) (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 na1 nc0 nc1 nb0 nb1 nc0-0 nc1-0 text) (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (a a) (b b)+    (c c))+  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 2) (0 2)) ((2 1) (3 0))+    ((3 1) (0 0)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 na1 nc0 nc1 nb0 nb1 nc0-0 nc1-0)+  (operation nonce-test (contracted (nb0-0 nb0) (nb1-0 nb1)) na1 (0 0)+    (enc na0 a c (enc na1 a b (pubk c)) (pubk b))+    (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))+      (enc nb1 nc0-0 c a (pubk b)) (pubk a))+    (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+      (pubk c)))+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a)))))+  (label 29)+  (parent 25)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 nb0-1 nb1-1 text)+    (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na0) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na0) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-0) (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na0) (nb0 nb0-1) (nb1 nb1-1) (a a)+    (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 0) (4 0)) ((1 2) (0 2))+    ((2 1) (3 0)) ((3 1) (0 0)) ((4 1) (0 0)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 nb0-1 nb1-1)+  (operation nonce-test (added-strand mid 2) na0 (0 0)+    (enc na0 nc1-0 c b (enc na0 nb0-0 b c (pubk a))+      (enc nb1-0 nc0-0 c a (pubk b)) (pubk a))+    (enc na0 a c (enc na0 a b (pubk c)) (pubk b))+    (enc nb1-0 b a (enc na0 a b (pubk c)) (enc na0 nb0-0 b c (pubk a))+      (pubk c)))+  (traces+    ((recv+       (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (recv+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na0 a b (pubk c))+          (enc na0 nb0-0 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-0 b a (enc na0 a b (pubk c))+         (enc na0 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na0 nc1-0 c b (enc na0 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-0 c a (pubk b)) (pubk a))))+    ((recv (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-1 b a (enc na0 a b (pubk c))+          (enc na0 nb0-1 b c (pubk a)) (pubk c)))))+  (label 30)+  (parent 25)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton nsl3+  (vars (na0 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 nc0-1 nc1-1 text)+    (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na0) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na0) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-0) (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na0) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-1) (nc1 nc1-1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 2) (0 2)) ((2 1) (3 0))+    ((2 1) (4 0)) ((3 1) (0 0)) ((4 1) (0 0)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 nc0-1 nc1-1)+  (operation nonce-test (added-strand resp 2) na0 (0 0)+    (enc na0 nc1-0 c b (enc na0 nb0-0 b c (pubk a))+      (enc nb1-0 nc0-0 c a (pubk b)) (pubk a))+    (enc na0 a c (enc na0 a b (pubk c)) (pubk b))+    (enc nb1-0 b a (enc na0 a b (pubk c)) (enc na0 nb0-0 b c (pubk a))+      (pubk c)))+  (traces+    ((recv+       (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (recv+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na0 a b (pubk c))+          (enc na0 nb0-0 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-0 b a (enc na0 a b (pubk c))+         (enc na0 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na0 nc1-0 c b (enc na0 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-0 c a (pubk b)) (pubk a))))+    ((recv+       (enc nb1-0 b a (enc na0 a b (pubk c))+         (enc na0 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na0 nc1-1 c b (enc na0 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-1 c a (pubk b)) (pubk a)))))+  (label 31)+  (parent 25)+  (seen 34)+  (unrealized (0 0) (0 2))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton nsl3+  (vars (nc0 nc1 nb0 nb1 na0 na1 text) (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 2) (2 2)) ((2 1) (0 0))+    ((2 3) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nc0 nc1 nb0 nb1 na0 na1)+  (operation nonce-test (displaced 3 1 init 3) nc0 (2 2)+    (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a)))+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))+  (label 32)+  (parent 26)+  (unrealized)+  (shape)+  (maps+    ((0)+      ((a a) (b b) (c c) (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1)+        (nc0 nc0) (nc1 nc1))))+  (origs (na0 (1 0)) (na1 (1 0)) (nb0 (2 1)) (nb1 (2 1)) (nc1 (0 1))+    (nc0 (0 1))))++(defskeleton nsl3+  (vars (nc0 nc1 nb0 nb1 na1 text) (a b c name))+  (defstrand resp 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 4 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((0 1) (2 2)) ((1 0) (2 0)) ((1 2) (0 2))+    ((2 1) (0 0)) ((2 3) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nc0 nc1 nb0 nb1 na1)+  (operation nonce-test (displaced 2 3 mid 4) nc0 (0 2)+    (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a))+    (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c)) (pubk b)))+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))+  (label 33)+  (parent 27)+  (unrealized (2 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 nc0 nc1 nb0 nb1 nc0-0 nc1-0 text) (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (a a) (b b)+    (c c))+  (defstrand resp 2 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 2) (0 2)) ((2 1) (3 0))+    ((3 1) (0 0)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 nc0 nc1 nb0 nb1 nc0-0 nc1-0)+  (operation nonce-test (contracted (nb0-0 nb0) (nb1-0 nb1)) na0 (0 0)+    (enc na0 nc1-0 c b (enc na0 nb0 b c (pubk a))+      (enc nb1 nc0-0 c a (pubk b)) (pubk a))+    (enc na0 a c (enc na0 a b (pubk c)) (pubk b))+    (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+      (pubk c)))+  (traces+    ((recv+       (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (recv+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c))))+    ((recv+       (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na0 nc1-0 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a)))))+  (label 34)+  (parent 28)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (nc0 nc1 nb0 nb1 nc0-0 nc1-0 na0 na1 text) (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((0 1) (3 2)) ((1 0) (3 0)) ((1 2) (0 2))+    ((2 1) (0 0)) ((3 1) (2 0)) ((3 3) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nc0 nc1 nb0 nb1 nc0-0 nc1-0 na0 na1)+  (operation nonce-test (displaced 2 4 mid 4) nc0 (0 2)+    (enc na1-0 nc1 c b (enc na0-0 nb0 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a))+    (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c)) (pubk b)))+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))+  (label 35)+  (parent 29)+  (unrealized (3 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 nc0 nc1 nb0 nb1 nc0-0 nc1-0 nb0-0 nb1-0 text) (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na0) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0) (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na0) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0) (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (a a) (b b)+    (c c))+  (defstrand resp 2 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na0) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 0) (4 0)) ((1 2) (0 2))+    ((2 1) (3 0)) ((3 1) (0 0)) ((4 1) (0 0)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 nc0 nc1 nb0 nb1 nc0-0 nc1-0 nb0-0 nb1-0)+  (operation nonce-test (contracted (nb0-1 nb0-0) (nb1-1 nb1-0)) na0+    (0 0)+    (enc na0 nc1-0 c b (enc na0 nb0 b c (pubk a))+      (enc nb1 nc0-0 c a (pubk b)) (pubk a))+    (enc na0 a c (enc na0 a b (pubk c)) (pubk b))+    (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+      (pubk c))+    (enc nb1-0 b a (enc na0 a b (pubk c)) (enc na0 nb0-0 b c (pubk a))+      (pubk c)))+  (traces+    ((recv+       (enc nb1-0 b a (enc na0 a b (pubk c))+         (enc na0 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na0 nc1 c b (enc na0 nb0-0 b c (pubk a))+          (enc nb1-0 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (recv+        (enc na0 nc1 c b (enc na0 nb0-0 b c (pubk a))+          (enc nb1-0 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0-0 (enc nb1-0 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c))))+    ((recv+       (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na0 nc1-0 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))+    ((recv (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na0 a b (pubk c))+          (enc na0 nb0-0 b c (pubk a)) (pubk c)))))+  (label 36)+  (parent 30)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars+    (na0 nb0 nb1 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 nb0-1 nb1-1 nc0-1 nc1-1+      text) (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na0) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na0) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-0) (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na0) (nb0 nb0-1) (nb1 nb1-1) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na0) (nb0 nb0-1) (nb1 nb1-1)+    (nc0 nc0-1) (nc1 nc1-1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 0) (4 0)) ((1 2) (0 2))+    ((2 1) (3 0)) ((3 1) (0 0)) ((4 1) (5 0)) ((5 1) (0 0)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 nc0 nc1 nb0-0 nb1-0 nc0-0 nc1-0 nb0-1 nb1-1 nc0-1+    nc1-1)+  (operation nonce-test (added-strand resp 2) na0 (0 0)+    (enc na0 nc1-0 c b (enc na0 nb0-0 b c (pubk a))+      (enc nb1-0 nc0-0 c a (pubk b)) (pubk a))+    (enc na0 a c (enc na0 a b (pubk c)) (pubk b))+    (enc nb1-0 b a (enc na0 a b (pubk c)) (enc na0 nb0-0 b c (pubk a))+      (pubk c))+    (enc nb1-1 b a (enc na0 a b (pubk c)) (enc na0 nb0-1 b c (pubk a))+      (pubk c)))+  (traces+    ((recv+       (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (recv+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na0 a b (pubk c))+          (enc na0 nb0-0 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-0 b a (enc na0 a b (pubk c))+         (enc na0 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na0 nc1-0 c b (enc na0 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-0 c a (pubk b)) (pubk a))))+    ((recv (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-1 b a (enc na0 a b (pubk c))+          (enc na0 nb0-1 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-1 b a (enc na0 a b (pubk c))+         (enc na0 nb0-1 b c (pubk a)) (pubk c)))+      (send+        (enc na0 nc1-1 c b (enc na0 nb0-1 b c (pubk a))+          (enc nb1-1 nc0-1 c a (pubk b)) (pubk a)))))+  (label 37)+  (parent 30)+  (seen 42)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (nc0 nc1 nb0 nb1 na1 text) (a b c name))+  (defstrand resp 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 4 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 2) (2 2)) ((2 1) (0 0))+    ((2 3) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nc0 nc1 nb0 nb1 na1)+  (operation nonce-test (displaced 3 1 init 3) nc0 (2 2)+    (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a)))+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))+  (label 38)+  (parent 33)+  (seen 32)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton nsl3+  (vars (nc0 nc1 nb0 nb1 nc0-0 nc1-0 na1 text) (a b c name))+  (defstrand resp 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand mid 4 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((0 1) (3 2)) ((1 0) (3 0)) ((1 2) (0 2))+    ((2 1) (0 0)) ((3 1) (2 0)) ((3 3) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nc0 nc1 nb0 nb1 nc0-0 nc1-0 na1)+  (operation nonce-test (displaced 2 4 mid 4) nc0 (0 2)+    (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a))+    (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c)) (pubk b)))+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))+  (label 39)+  (parent 34)+  (unrealized (3 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (nc0 nc1 nb0 nb1 nc0-0 nc1-0 na0 na1 text) (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand mid 4 (na0 na0) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (3 0)) ((1 2) (3 2)) ((2 1) (0 0))+    ((3 1) (2 0)) ((3 3) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nc0 nc1 nb0 nb1 nc0-0 nc1-0 na0 na1)+  (operation nonce-test (displaced 4 1 init 3) nc0 (3 2)+    (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a)))+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))+    ((recv (enc na0 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))+  (label 40)+  (parent 35)+  (seen 32)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton nsl3+  (vars (nc0 nc1 nb0 nb1 nc0-0 nc1-0 nb0-0 nb1-0 na1 text) (a b c name))+  (defstrand resp 3 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0) (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0) (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (a a) (b b)+    (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand mid 4 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((0 1) (4 2)) ((1 0) (2 0)) ((1 0) (4 0))+    ((1 2) (0 2)) ((2 1) (3 0)) ((3 1) (0 0)) ((4 1) (0 0))+    ((4 3) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nc0 nc1 nb0 nb1 nc0-0 nc1-0 nb0-0 nb1-0 na1)+  (operation nonce-test (displaced 4 5 mid 4) nc0 (0 2)+    (enc na0 nc1 c b (enc na0 nb0-0 b c (pubk a))+      (enc nb1-0 nc0 c a (pubk b)) (pubk a))+    (enc nb0-0 (enc nb1-0 nc0 c a (pubk b)) (enc nc1 (pubk c))+      (pubk b)))+  (traces+    ((recv+       (enc nb1-0 b a (enc na1 a b (pubk c))+         (enc na1 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na1 nc1 c b (enc na1 nb0-0 b c (pubk a))+          (enc nb1-0 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0-0 b c (pubk a))+          (enc nb1-0 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0-0 (enc nb1-0 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+          (pubk c))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na1 nb0-0 b c (pubk a)) (pubk c)))+      (recv+        (enc nb0-0 (enc nb1-0 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))+  (label 41)+  (parent 36)+  (unrealized (4 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (na0 nc0 nc1 nb0 nb1 nc0-0 nc1-0 nb0-0 nb1-0 nc0-1 nc1-1 text)+    (a b c name))+  (defstrand resp 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (a a) (b b)+    (c c))+  (defstrand resp 2 (na0 na0) (na1 na0) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na0) (na1 na0) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na0) (na1 na0) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-1) (nc1 nc1-1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 0) (4 0)) ((1 2) (0 2))+    ((2 1) (3 0)) ((3 1) (0 0)) ((4 1) (5 0)) ((5 1) (0 0)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig na0 nc0 nc1 nb0 nb1 nc0-0 nc1-0 nb0-0 nb1-0 nc0-1 nc1-1)+  (operation nonce-test (contracted (nb0-1 nb0) (nb1-1 nb1)) na0 (0 0)+    (enc na0 nc1-0 c b (enc na0 nb0 b c (pubk a))+      (enc nb1 nc0-0 c a (pubk b)) (pubk a))+    (enc na0 nc1-1 c b (enc na0 nb0-0 b c (pubk a))+      (enc nb1-0 nc0-1 c a (pubk b)) (pubk a))+    (enc na0 a c (enc na0 a b (pubk c)) (pubk b))+    (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+      (pubk c))+    (enc nb1-0 b a (enc na0 a b (pubk c)) (enc na0 nb0-0 b c (pubk a))+      (pubk c)))+  (traces+    ((recv+       (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (recv+        (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+          (pubk c))))+    ((recv+       (enc nb1 b a (enc na0 a b (pubk c)) (enc na0 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na0 nc1-0 c b (enc na0 nb0 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))+    ((recv (enc na0 a c (enc na0 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na0 a b (pubk c))+          (enc na0 nb0-0 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-0 b a (enc na0 a b (pubk c))+         (enc na0 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na0 nc1-1 c b (enc na0 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-1 c a (pubk b)) (pubk a)))))+  (label 42)+  (parent 37)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (nc0 nc1 nb0 nb1 nc0-0 nc1-0 na1 text) (a b c name))+  (defstrand resp 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand mid 4 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (3 0)) ((1 2) (3 2)) ((2 1) (0 0))+    ((3 1) (2 0)) ((3 3) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nc0 nc1 nb0 nb1 nc0-0 nc1-0 na1)+  (operation nonce-test (displaced 4 1 init 3) nc0 (3 2)+    (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a)))+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))+  (label 43)+  (parent 39)+  (seen 38)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton nsl3+  (vars (nc0 nc1 nb0 nb1 nc0-0 nc1-0 nb0-0 nb1-0 na1 text) (a b c name))+  (defstrand resp 3 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0) (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0) (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (a a) (b b)+    (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand mid 4 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 0) (4 0)) ((1 2) (4 2))+    ((2 1) (3 0)) ((3 1) (0 0)) ((4 1) (0 0)) ((4 3) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nc0 nc1 nb0 nb1 nc0-0 nc1-0 nb0-0 nb1-0 na1)+  (operation nonce-test (displaced 5 1 init 3) nc0 (4 2)+    (enc na1 nc1 c b (enc na1 nb0-0 b c (pubk a))+      (enc nb1-0 nc0 c a (pubk b)) (pubk a)))+  (traces+    ((recv+       (enc nb1-0 b a (enc na1 a b (pubk c))+         (enc na1 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na1 nc1 c b (enc na1 nb0-0 b c (pubk a))+          (enc nb1-0 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0-0 b c (pubk a))+          (enc nb1-0 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0-0 (enc nb1-0 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+          (pubk c))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na1 nb0-0 b c (pubk a)) (pubk c)))+      (recv+        (enc nb0-0 (enc nb1-0 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))+  (label 44)+  (parent 41)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (nc0 nc1 nb0 nb1 nc0-0 nc1-0 nb0-0 nb1-0 nc0-1 nc1-1 na1 text)+    (a b c name))+  (defstrand resp 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-1) (nc1 nc1-1) (a a) (b b) (c c))+  (defstrand mid 4 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((0 1) (5 2)) ((1 0) (3 0)) ((1 0) (5 0))+    ((1 2) (0 2)) ((2 1) (0 0)) ((3 1) (4 0)) ((4 1) (0 0))+    ((5 1) (2 0)) ((5 3) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nc0 nc1 nb0 nb1 nc0-0 nc1-0 nb0-0 nb1-0 nc0-1 nc1-1 na1)+  (operation nonce-test (displaced 2 6 mid 4) nc0 (0 2)+    (enc na0 nc1 c b (enc na0 nb0 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a))+    (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c)) (pubk b)))+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na1 nb0-0 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-0 b a (enc na1 a b (pubk c))+         (enc na1 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na1 nc1-1 c b (enc na1 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-1 c a (pubk b)) (pubk a))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))+  (label 45)+  (parent 42)+  (unrealized (5 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton nsl3+  (vars (nc0 nc1 nb0 nb1 nb0-0 nb1-0 na1 text) (a b c name))+  (defstrand resp 3 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0) (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0) (nc1 nc1) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (a a) (b b)+    (c c))+  (defstrand mid 4 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (2 0)) ((1 0) (3 0)) ((1 2) (3 2))+    ((2 1) (0 0)) ((3 1) (0 0)) ((3 3) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nc0 nc1 nb0 nb1 nb0-0 nb1-0 na1)+  (operation generalization deleted (3 0))+  (traces+    ((recv+       (enc nb1-0 b a (enc na1 a b (pubk c))+         (enc na1 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na1 nc1 c b (enc na1 nb0-0 b c (pubk a))+          (enc nb1-0 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0-0 b c (pubk a))+          (enc nb1-0 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0-0 (enc nb1-0 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+          (pubk c))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na1 nb0-0 b c (pubk a)) (pubk c)))+      (recv+        (enc nb0-0 (enc nb1-0 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))+  (label 46)+  (parent 44)+  (seen 38)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton nsl3+  (vars (nc0 nc1 nb0 nb1 nc0-0 nc1-0 nb0-0 nb1-0 nc0-1 nc1-1 na1 text)+    (a b c name))+  (defstrand resp 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand init 3 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0-0)+    (nc1 nc1-0) (a a) (b b) (c c))+  (defstrand mid 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0) (a a)+    (b b) (c c))+  (defstrand resp 2 (na0 na1) (na1 na1) (nb0 nb0-0) (nb1 nb1-0)+    (nc0 nc0-1) (nc1 nc1-1) (a a) (b b) (c c))+  (defstrand mid 4 (na0 na1) (na1 na1) (nb0 nb0) (nb1 nb1) (nc0 nc0)+    (nc1 nc1) (a a) (b b) (c c))+  (precedes ((0 1) (1 1)) ((1 0) (3 0)) ((1 0) (5 0)) ((1 2) (5 2))+    ((2 1) (0 0)) ((3 1) (4 0)) ((4 1) (0 0)) ((5 1) (2 0))+    ((5 3) (0 2)))+  (non-orig (privk a) (privk b) (privk c))+  (uniq-orig nc0 nc1 nb0 nb1 nc0-0 nc1-0 nb0-0 nb1-0 nc0-1 nc1-1 na1)+  (operation nonce-test (displaced 6 1 init 3) nc0 (5 2)+    (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+      (enc nb1 nc0 c a (pubk b)) (pubk a)))+  (traces+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (recv (enc nc0 (enc nc1 (pubk c)) (pubk c))))+    ((send (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (recv+        (enc na1 nc1 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0 c a (pubk b)) (pubk a)))+      (send+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))))+    ((recv+       (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+         (pubk c)))+      (send+        (enc na1 nc1-0 c b (enc na1 nb0 b c (pubk a))+          (enc nb1 nc0-0 c a (pubk b)) (pubk a))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1-0 b a (enc na1 a b (pubk c))+          (enc na1 nb0-0 b c (pubk a)) (pubk c))))+    ((recv+       (enc nb1-0 b a (enc na1 a b (pubk c))+         (enc na1 nb0-0 b c (pubk a)) (pubk c)))+      (send+        (enc na1 nc1-1 c b (enc na1 nb0-0 b c (pubk a))+          (enc nb1-0 nc0-1 c a (pubk b)) (pubk a))))+    ((recv (enc na1 a c (enc na1 a b (pubk c)) (pubk b)))+      (send+        (enc nb1 b a (enc na1 a b (pubk c)) (enc na1 nb0 b c (pubk a))+          (pubk c)))+      (recv+        (enc nb0 (enc nb1 nc0 c a (pubk b)) (enc nc1 (pubk c))+          (pubk b))) (send (enc nc0 (enc nc1 (pubk c)) (pubk c)))))+  (label 47)+  (parent 45)+  (seen 44)   (unrealized)   (comment "1 in cohort - 0 not yet seen"))
tst/nsl4cm1.tst view

file too large to diff

tst/nslsk.tst view
@@ -1,6 +1,6 @@ (herald "Needham-Schroeder-Lowe Protocol with symmetric encryption") -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from nslsk.scm")  (defprotocol nslsk basic
tst/or.tst view
@@ -1,7 +1,7 @@ (herald "Otway-Rees Protocol"   (comment "Standard version using variables of sort mesg")) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from or.scm")  (defprotocol or basic@@ -36,9 +36,9 @@   (comment "2 in cohort - 2 not yet seen"))  (defskeleton or-  (vars (x y mesg) (nb m nb-0 m-0 text) (s a b b-0 name) (k skey))+  (vars (x y mesg) (nb m na m-0 text) (s a b a-0 name) (k skey))   (defstrand resp 4 (x x) (y y) (nb nb) (m m) (a a) (b b) (s s) (k k))-  (defstrand serv 2 (na nb) (nb nb-0) (m m-0) (a b) (b b-0) (s s) (k k))+  (defstrand serv 2 (na na) (nb nb) (m m-0) (a a-0) (b b) (s s) (k k))   (precedes ((0 1) (1 0)) ((1 1) (0 2)))   (non-orig (ltk a s) (ltk b s))   (uniq-orig nb k)@@ -48,18 +48,18 @@     ((recv (cat m a b x)) (send (cat m a b x (enc nb m a b (ltk b s))))       (recv (cat m y (enc nb k (ltk b s)))) (send y))     ((recv-       (cat m-0 b b-0 (enc nb m-0 b b-0 (ltk b s))-         (enc nb-0 m-0 b b-0 (ltk b-0 s))))-      (send (cat m-0 (enc nb k (ltk b s)) (enc nb-0 k (ltk b-0 s))))))+       (cat m-0 a-0 b (enc na m-0 a-0 b (ltk a-0 s))+         (enc nb m-0 a-0 b (ltk b s))))+      (send (cat m-0 (enc na k (ltk a-0 s)) (enc nb k (ltk b s))))))   (label 1)   (parent 0)   (unrealized (1 0))   (comment "1 in cohort - 1 not yet seen"))  (defskeleton or-  (vars (x y mesg) (nb m na m-0 text) (s a b a-0 name) (k skey))+  (vars (x y mesg) (nb m nb-0 m-0 text) (s a b b-0 name) (k skey))   (defstrand resp 4 (x x) (y y) (nb nb) (m m) (a a) (b b) (s s) (k k))-  (defstrand serv 2 (na na) (nb nb) (m m-0) (a a-0) (b b) (s s) (k k))+  (defstrand serv 2 (na nb) (nb nb-0) (m m-0) (a b) (b b-0) (s s) (k k))   (precedes ((0 1) (1 0)) ((1 1) (0 2)))   (non-orig (ltk a s) (ltk b s))   (uniq-orig nb k)@@ -69,49 +69,49 @@     ((recv (cat m a b x)) (send (cat m a b x (enc nb m a b (ltk b s))))       (recv (cat m y (enc nb k (ltk b s)))) (send y))     ((recv-       (cat m-0 a-0 b (enc na m-0 a-0 b (ltk a-0 s))-         (enc nb m-0 a-0 b (ltk b s))))-      (send (cat m-0 (enc na k (ltk a-0 s)) (enc nb k (ltk b s))))))+       (cat m-0 b b-0 (enc nb m-0 b b-0 (ltk b s))+         (enc nb-0 m-0 b b-0 (ltk b-0 s))))+      (send (cat m-0 (enc nb k (ltk b s)) (enc nb-0 k (ltk b-0 s))))))   (label 2)   (parent 0)   (unrealized (1 0))   (comment "1 in cohort - 1 not yet seen"))  (defskeleton or-  (vars (x y mesg) (nb m nb-0 text) (s a name) (k skey))-  (defstrand resp 4 (x x) (y y) (nb nb) (m m) (a a) (b a) (s s) (k k))-  (defstrand serv 2 (na nb) (nb nb-0) (m m) (a a) (b a) (s s) (k k))+  (vars (x y mesg) (nb m na text) (s a b name) (k skey))+  (defstrand resp 4 (x x) (y y) (nb nb) (m m) (a a) (b b) (s s) (k k))+  (defstrand serv 2 (na na) (nb nb) (m m) (a a) (b b) (s s) (k k))   (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (ltk a s))+  (non-orig (ltk a s) (ltk b s))   (uniq-orig nb k)   (operation encryption-test (displaced 2 0 resp 2)-    (enc nb m-0 b b (ltk b s)) (1 0))+    (enc nb m-0 a-0 b (ltk b s)) (1 0))   (traces-    ((recv (cat m a a x)) (send (cat m a a x (enc nb m a a (ltk a s))))-      (recv (cat m y (enc nb k (ltk a s)))) (send y))+    ((recv (cat m a b x)) (send (cat m a b x (enc nb m a b (ltk b s))))+      (recv (cat m y (enc nb k (ltk b s)))) (send y))     ((recv-       (cat m a a (enc nb m a a (ltk a s)) (enc nb-0 m a a (ltk a s))))-      (send (cat m (enc nb k (ltk a s)) (enc nb-0 k (ltk a s))))))+       (cat m a b (enc na m a b (ltk a s)) (enc nb m a b (ltk b s))))+      (send (cat m (enc na k (ltk a s)) (enc nb k (ltk b s))))))   (label 3)   (parent 1)   (unrealized (1 0))   (comment "3 in cohort - 3 not yet seen"))  (defskeleton or-  (vars (x y mesg) (nb m na text) (s a b name) (k skey))-  (defstrand resp 4 (x x) (y y) (nb nb) (m m) (a a) (b b) (s s) (k k))-  (defstrand serv 2 (na na) (nb nb) (m m) (a a) (b b) (s s) (k k))+  (vars (x y mesg) (nb m nb-0 text) (s a name) (k skey))+  (defstrand resp 4 (x x) (y y) (nb nb) (m m) (a a) (b a) (s s) (k k))+  (defstrand serv 2 (na nb) (nb nb-0) (m m) (a a) (b a) (s s) (k k))   (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (ltk a s) (ltk b s))+  (non-orig (ltk a s))   (uniq-orig nb k)   (operation encryption-test (displaced 2 0 resp 2)-    (enc nb m-0 a-0 b (ltk b s)) (1 0))+    (enc nb m-0 b b (ltk b s)) (1 0))   (traces-    ((recv (cat m a b x)) (send (cat m a b x (enc nb m a b (ltk b s))))-      (recv (cat m y (enc nb k (ltk b s)))) (send y))+    ((recv (cat m a a x)) (send (cat m a a x (enc nb m a a (ltk a s))))+      (recv (cat m y (enc nb k (ltk a s)))) (send y))     ((recv-       (cat m a b (enc na m a b (ltk a s)) (enc nb m a b (ltk b s))))-      (send (cat m (enc na k (ltk a s)) (enc nb k (ltk b s))))))+       (cat m a a (enc nb m a a (ltk a s)) (enc nb-0 m a a (ltk a s))))+      (send (cat m (enc nb k (ltk a s)) (enc nb-0 k (ltk a s))))))   (label 4)   (parent 2)   (seen 6)@@ -119,27 +119,27 @@   (comment "3 in cohort - 2 not yet seen"))  (defskeleton or-  (vars (x y mesg) (nb m nb-0 text) (s a name) (k skey))-  (defstrand resp 4 (x x) (y y) (nb nb) (m m) (a a) (b a) (s s) (k k))-  (defstrand serv 2 (na nb) (nb nb-0) (m m) (a a) (b a) (s s) (k k))-  (defstrand init 1 (na nb-0) (m m) (a a) (b a) (s s))+  (vars (x y mesg) (nb m na text) (s a b name) (k skey))+  (defstrand resp 4 (x x) (y y) (nb nb) (m m) (a a) (b b) (s s) (k k))+  (defstrand serv 2 (na na) (nb nb) (m m) (a a) (b b) (s s) (k k))+  (defstrand init 1 (na na) (m m) (a a) (b b) (s s))   (precedes ((0 1) (1 0)) ((1 1) (0 2)) ((2 0) (1 0)))-  (non-orig (ltk a s))+  (non-orig (ltk a s) (ltk b s))   (uniq-orig nb k)   (operation encryption-test (added-strand init 1)-    (enc nb-0 m a a (ltk a s)) (1 0))+    (enc na m a b (ltk a s)) (1 0))   (traces-    ((recv (cat m a a x)) (send (cat m a a x (enc nb m a a (ltk a s))))-      (recv (cat m y (enc nb k (ltk a s)))) (send y))+    ((recv (cat m a b x)) (send (cat m a b x (enc nb m a b (ltk b s))))+      (recv (cat m y (enc nb k (ltk b s)))) (send y))     ((recv-       (cat m a a (enc nb m a a (ltk a s)) (enc nb-0 m a a (ltk a s))))-      (send (cat m (enc nb k (ltk a s)) (enc nb-0 k (ltk a s)))))-    ((send (cat m a a (enc nb-0 m a a (ltk a s))))))+       (cat m a b (enc na m a b (ltk a s)) (enc nb m a b (ltk b s))))+      (send (cat m (enc na k (ltk a s)) (enc nb k (ltk b s)))))+    ((send (cat m a b (enc na m a b (ltk a s))))))   (label 5)   (parent 3)   (unrealized)   (shape)-  (maps ((0) ((nb nb) (s s) (a a) (b a) (k k) (m m) (x x) (y y))))+  (maps ((0) ((nb nb) (s s) (a a) (b b) (k k) (m m) (x x) (y y))))   (origs (k (1 1)) (nb (0 1))))  (defskeleton or@@ -150,7 +150,7 @@   (non-orig (ltk a s))   (uniq-orig nb k)   (operation encryption-test (displaced 2 0 resp 2)-    (enc nb-0 m a a (ltk a s)) (1 0))+    (enc na m a a (ltk a s)) (1 0))   (traces     ((recv (cat m a a x)) (send (cat m a a x (enc nb m a a (ltk a s))))       (recv (cat m y (enc nb k (ltk a s)))) (send y))@@ -165,23 +165,23 @@   (origs (k (1 1)) (nb (0 1))))  (defskeleton or-  (vars (x y x-0 mesg) (nb m nb-0 text) (s a name) (k skey))+  (vars (x y x-0 mesg) (nb m na text) (s a name) (k skey))   (defstrand resp 4 (x x) (y y) (nb nb) (m m) (a a) (b a) (s s) (k k))-  (defstrand serv 2 (na nb) (nb nb-0) (m m) (a a) (b a) (s s) (k k))-  (defstrand resp 2 (x x-0) (nb nb-0) (m m) (a a) (b a) (s s))+  (defstrand serv 2 (na na) (nb nb) (m m) (a a) (b a) (s s) (k k))+  (defstrand resp 2 (x x-0) (nb na) (m m) (a a) (b a) (s s))   (precedes ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (1 0)))   (non-orig (ltk a s))   (uniq-orig nb k)   (operation encryption-test (added-strand resp 2)-    (enc nb-0 m a a (ltk a s)) (1 0))+    (enc na m a a (ltk a s)) (1 0))   (traces     ((recv (cat m a a x)) (send (cat m a a x (enc nb m a a (ltk a s))))       (recv (cat m y (enc nb k (ltk a s)))) (send y))     ((recv-       (cat m a a (enc nb m a a (ltk a s)) (enc nb-0 m a a (ltk a s))))-      (send (cat m (enc nb k (ltk a s)) (enc nb-0 k (ltk a s)))))+       (cat m a a (enc na m a a (ltk a s)) (enc nb m a a (ltk a s))))+      (send (cat m (enc na k (ltk a s)) (enc nb k (ltk a s)))))     ((recv (cat m a a x-0))-      (send (cat m a a x-0 (enc nb-0 m a a (ltk a s))))))+      (send (cat m a a x-0 (enc na m a a (ltk a s))))))   (label 7)   (parent 3)   (unrealized)@@ -190,47 +190,47 @@   (origs (k (1 1)) (nb (0 1))))  (defskeleton or-  (vars (x y mesg) (nb m na text) (s a b name) (k skey))-  (defstrand resp 4 (x x) (y y) (nb nb) (m m) (a a) (b b) (s s) (k k))-  (defstrand serv 2 (na na) (nb nb) (m m) (a a) (b b) (s s) (k k))-  (defstrand init 1 (na na) (m m) (a a) (b b) (s s))+  (vars (x y mesg) (nb m nb-0 text) (s a name) (k skey))+  (defstrand resp 4 (x x) (y y) (nb nb) (m m) (a a) (b a) (s s) (k k))+  (defstrand serv 2 (na nb) (nb nb-0) (m m) (a a) (b a) (s s) (k k))+  (defstrand init 1 (na nb-0) (m m) (a a) (b a) (s s))   (precedes ((0 1) (1 0)) ((1 1) (0 2)) ((2 0) (1 0)))-  (non-orig (ltk a s) (ltk b s))+  (non-orig (ltk a s))   (uniq-orig nb k)   (operation encryption-test (added-strand init 1)-    (enc na m a b (ltk a s)) (1 0))+    (enc nb-0 m a a (ltk a s)) (1 0))   (traces-    ((recv (cat m a b x)) (send (cat m a b x (enc nb m a b (ltk b s))))-      (recv (cat m y (enc nb k (ltk b s)))) (send y))+    ((recv (cat m a a x)) (send (cat m a a x (enc nb m a a (ltk a s))))+      (recv (cat m y (enc nb k (ltk a s)))) (send y))     ((recv-       (cat m a b (enc na m a b (ltk a s)) (enc nb m a b (ltk b s))))-      (send (cat m (enc na k (ltk a s)) (enc nb k (ltk b s)))))-    ((send (cat m a b (enc na m a b (ltk a s))))))+       (cat m a a (enc nb m a a (ltk a s)) (enc nb-0 m a a (ltk a s))))+      (send (cat m (enc nb k (ltk a s)) (enc nb-0 k (ltk a s)))))+    ((send (cat m a a (enc nb-0 m a a (ltk a s))))))   (label 8)   (parent 4)   (unrealized)   (shape)-  (maps ((0) ((nb nb) (s s) (a a) (b b) (k k) (m m) (x x) (y y))))+  (maps ((0) ((nb nb) (s s) (a a) (b a) (k k) (m m) (x x) (y y))))   (origs (k (1 1)) (nb (0 1))))  (defskeleton or-  (vars (x y x-0 mesg) (nb m na text) (s a name) (k skey))+  (vars (x y x-0 mesg) (nb m nb-0 text) (s a name) (k skey))   (defstrand resp 4 (x x) (y y) (nb nb) (m m) (a a) (b a) (s s) (k k))-  (defstrand serv 2 (na na) (nb nb) (m m) (a a) (b a) (s s) (k k))-  (defstrand resp 2 (x x-0) (nb na) (m m) (a a) (b a) (s s))+  (defstrand serv 2 (na nb) (nb nb-0) (m m) (a a) (b a) (s s) (k k))+  (defstrand resp 2 (x x-0) (nb nb-0) (m m) (a a) (b a) (s s))   (precedes ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (1 0)))   (non-orig (ltk a s))   (uniq-orig nb k)   (operation encryption-test (added-strand resp 2)-    (enc na m a a (ltk a s)) (1 0))+    (enc nb-0 m a a (ltk a s)) (1 0))   (traces     ((recv (cat m a a x)) (send (cat m a a x (enc nb m a a (ltk a s))))       (recv (cat m y (enc nb k (ltk a s)))) (send y))     ((recv-       (cat m a a (enc na m a a (ltk a s)) (enc nb m a a (ltk a s))))-      (send (cat m (enc na k (ltk a s)) (enc nb k (ltk a s)))))+       (cat m a a (enc nb m a a (ltk a s)) (enc nb-0 m a a (ltk a s))))+      (send (cat m (enc nb k (ltk a s)) (enc nb-0 k (ltk a s)))))     ((recv (cat m a a x-0))-      (send (cat m a a x-0 (enc na m a a (ltk a s))))))+      (send (cat m a a x-0 (enc nb-0 m a a (ltk a s))))))   (label 9)   (parent 4)   (unrealized)
tst/pca.tst view
@@ -1,7 +1,7 @@ (herald "Privacy Certificate Authority" (bound 15)   (comment "Generation of an Attestation Identity Certificate")) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from pca.scm") (comment "Strand count bounded at 15")
tst/pen-non-orig-test.tst view
@@ -1,6 +1,6 @@ (herald "pen-non-orig test") -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from pen-non-orig-test.scm")  (defprotocol pennonorigtest basic
tst/pkinit.tst view
@@ -1,6 +1,6 @@ (herald "Kerberos PK init") -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from pkinit.scm")  (defprotocol pkinit basic
tst/preprocess.tst view
@@ -1,6 +1,6 @@ (herald "Pre-processing test example: modified NS with two responders") -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from preprocess.scm")  (defprotocol ns basic
tst/print.tst view
@@ -1,7 +1,7 @@ (herald "Print Test"   (comment "See if read forms look like printed ones")) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from print.scm")  (defprotocol print-test basic
tst/pruning1.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from pruning1.scm")  (defprotocol prune basic
tst/sigenc.tst view
@@ -1,7 +1,7 @@ (herald "Signed Encrypted Message Example"   (comment "Shows examples of key usage of asymmetric keys")) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from sigenc.scm")  (defprotocol mult-keys-sig-enc basic
tst/sorted_epmo_acctnum.tst view
@@ -4,24726 +4,7360 @@     "This version uses sorts to avoid confusion"     "between a nonce and other data")) -(comment "CPSA 2.3.0")-(comment "All input read from sorted_epmo_acctnum.scm")-(comment "Strand count bounded at 12")--(defprotocol sorted_epmo_acctnum basic-  (defrole bank-    (vars (b c m name) (acctnum price text) (hash name) (nc nm nb data))-    (trace (recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    (non-orig (privk hash))-    (annotations b-      (1-        (forall ((pm name))-          (implies-            (and (authtransfer c acctnum b price pm nm)-              (reqtransfer pm b price pm nm))-            (dotransfer acctnum b price pm nm))))-      (2-        (and (says c (authtransfer c acctnum b price m nm))-          (says m (reqtransfer m b price m nm))))))-  (defrole customer-    (vars (b c m hash name) (acctnum goods price text) (nc nm nb data))-    (trace (send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb)))-    (non-orig (privk b) (privk hash))-    (uniq-orig nc)-    (annotations c-      (1-        (says m-          (implies-            (exists ((acctnum2 text))-              (dotransfer acctnum2 b price m nm)) (doship m goods c))))-      (3-        (says b-          (forall ((pm name))-            (implies-              (and (authtransfer c acctnum b price m nm)-                (reqtransfer pm b price pm nm))-              (dotransfer acctnum b price pm nm)))))-      (4 (authtransfer c acctnum b price m nm))))-  (defrole merchant-    (vars (b c m hash name) (goods price text) (nc nm nb data))-    (trace (recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    (non-orig (privk hash))-    (uniq-orig nm)-    (annotations m-      (1-        (implies-          (exists ((acctnum2 text)) (dotransfer acctnum2 b price m nm))-          (doship m goods c)))-      (2-        (and-          (says b-            (forall ((pm name))-              (exists ((acctnum2 text))-                (implies-                  (and (authtransfer c acctnum2 b price m nm)-                    (reqtransfer pm b price pm nm))-                  (dotransfer acctnum2 b price pm nm)))))-          (says c-            (exists ((acctnum2 text))-              (authtransfer c acctnum2 b price m nm)))))-      (3 (and (reqtransfer m b price m nm) (doship m goods c))))))--(defskeleton sorted_epmo_acctnum-  (vars (goods price text) (nm nc nb data) (b m c hash name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (non-orig (privk b) (privk m) (privk c) (privk hash))-  (uniq-orig nm nc nb)-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m)))))-  (label 0)-  (unrealized (0 2))-  (origs (nm (0 1)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum text) (nm nc nb data) (b m c hash name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk b) (privk m) (privk c) (privk hash))-  (uniq-orig nm nc nb)-  (operation encryption-test (added-strand bank 2)-    (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b)) (0 2))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))))-  (label 1)-  (parent 0)-  (unrealized (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text) (nm nc nb data)-    (b m c hash b-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nm) (b b-0) (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0))-  (uniq-orig nm nc nb)-  (operation nonce-test (added-strand customer 3) nm (1 0)-    (enc nc nm m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum-0 price (pubk b-0)))))-  (label 2)-  (parent 1)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nm nc nb data)-    (m c hash b name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nm) (b b) (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b))-  (uniq-orig nm nc nb)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nm-    (1 0) (enc nc nm m price (pubk c))-    (enc c nc nm acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b)))))-  (label 3)-  (parent 2)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nm nc nb nb-0 data) (b m c hash b-0 hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nm) (b b-0) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nm)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (2 1)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 0) (0 0))-    ((2 2) (1 0)) ((3 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0))-  (uniq-orig nm nc nb)-  (operation nonce-test (added-strand bank 2) nm (1 0)-    (enc nc nm m price (pubk c))-    (enc c nc nm acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum-0 price (pubk b-0))))-    ((recv (enc c nc nm acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 4)-  (parent 2)-  (unrealized (0 0) (0 2) (1 0) (3 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nm nc nb data) (m c hash b name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nm) (b b) (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b))-  (uniq-orig nm nc nb)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b)))))-  (label 5)-  (parent 3)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text) (nm nc nb nm-0 data)-    (m c hash b name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nm) (b b) (c c) (m m))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc)-    (nm nm-0) (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (3 0)) ((2 2) (1 0))-    ((3 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b))-  (uniq-orig nm nc nb nm-0)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm-0 m price-0 (pubk c)))))-  (label 6)-  (parent 3)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nm nc nb nb-0 data) (b m c hash b-0 hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nm) (b b-0) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nm)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))-    ((3 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0))-  (uniq-orig nm nc nb)-  (operation nonce-test (displaced 4 2 customer 3) nm (3 0)-    (enc nc nm m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum-0 price (pubk b-0))))-    ((recv (enc c nc nm acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 7)-  (parent 4)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nm nc nb data) (c hash b m name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (precedes ((0 1) (2 1)) ((1 1) (2 3)) ((2 0) (0 0)) ((2 2) (1 0))-    ((2 4) (0 2)))-  (non-orig (privk c) (privk hash) (privk b) (privk m))-  (uniq-orig nm nc nb)-  (operation nonce-test (displaced 2 3 customer 5) nb (0 2)-    (enc "hash" c nc nb nm price (pubk hash)) (enc nc nb (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))))-  (label 8)-  (parent 5)-  (unrealized)-  (shape)-  (maps-    ((0)-      ((b b) (m m) (c c) (nm nm) (nc nc) (nb nb) (hash hash)-        (goods goods) (price price))))-  (origs (nc (2 0)) (nm (0 1)) (nb (1 1))))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nm nc nb nm-0 data)-    (m c hash b name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nm) (b b) (c c) (m m))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)-    (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (3 0)) ((2 2) (1 0))-    ((3 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b))-  (uniq-orig nm nc nb nm-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm-0 m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm-0 m price-0 (pubk c)))))-  (label 9)-  (parent 6)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nm nc nb nb-0 data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nm) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))-    ((3 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nm nc nb)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nm-    (1 0) (enc "hash" c nc nb-0 nm price (pubk hash-0))-    (enc nc nm m price (pubk c)) (enc c nc nm acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))-          (enc nc nb-0 (pubk c))))))-  (label 10)-  (parent 7)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text) (nc nb nb-0 data)-    (b m c hash b-0 hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (b b-0) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))-    ((3 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 4 3 bank 2) nm (1 0)-    (enc "hash" c nc nb-0 nm price (pubk hash-0))-    (enc nc nm m price (pubk c))-    (enc c nc nm acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 11)-  (parent 7)-  (unrealized (0 0) (0 2) (1 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price price-0 acctnum goods text) (nm nc nb nm-0 data)-    (c hash b m name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)-    (c c) (m m))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (precedes ((0 1) (3 1)) ((1 1) (3 3)) ((2 1) (0 0)) ((3 0) (2 0))-    ((3 2) (1 0)) ((3 4) (0 2)))-  (non-orig (privk c) (privk hash) (privk b) (privk m))-  (uniq-orig nm nc nb nm-0)-  (operation nonce-test (displaced 2 4 customer 5) nb (0 2)-    (enc "hash" c nc nb nm price (pubk hash)) (enc nc nb (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm-0 m price-0 (pubk c))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))))-  (label 12)-  (parent 9)-  (seen 8)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nm nc nb nb-0 data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nm) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))-    ((3 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nm nc nb)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))-          (enc nc nb-0 (pubk c))))))-  (label 13)-  (parent 10)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nm nc nb nb-0 nm-0 data) (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nm) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc)-    (nm nm-0) (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (4 0)) ((2 2) (3 0))-    ((3 1) (1 0)) ((4 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nm nc nb nm-0)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))-          (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm-0 m price-0 (pubk c)))))-  (label 14)-  (parent 10)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))-    ((3 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nb-0-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))))-  (label 15)-  (parent 11)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (b b-0) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 0) (0 0))-    ((2 2) (3 0)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (added-strand bank 2) nb-0 (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 16)-  (parent 11)-  (unrealized (0 0) (0 2) (1 0) (4 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text) (nc nb nb-0 data)-    (b m c hash b-0 hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 2 4 customer 5) nb-0 (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0))))-  (label 17)-  (parent 11)-  (unrealized (0 0) (0 2) (1 0) (3 3))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nm nc nb nb-0 data)-    (c hash hash-0 b m name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (precedes ((0 1) (3 1)) ((1 1) (3 3)) ((2 1) (1 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (0 2)))-  (non-orig (privk c) (privk hash) (privk hash-0) (privk b) (privk m))-  (uniq-orig nm nc nb)-  (operation nonce-test (displaced 2 4 customer 5) nb (0 2)-    (enc "hash" c nc nb nm price (pubk hash)) (enc nc nb (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))-          (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))))-  (label 18)-  (parent 13)-  (seen 8)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nm nc nb nb-0 nm-0 data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nm) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)-    (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (4 0)) ((2 2) (3 0))-    ((3 1) (1 0)) ((4 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nm nc nb nm-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm-0 m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))-          (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm-0 m price-0 (pubk c)))))-  (label 19)-  (parent 14)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))-    ((3 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))))-  (label 20)-  (parent 15)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text) (nc nb nb-0 nm data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (4 0)) ((2 2) (3 0))-    ((3 1) (1 0)) ((4 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 21)-  (parent 15)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (b b-0) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))-    ((3 1) (4 0)) ((4 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 5 3 bank 2) nb-0 (4 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 22)-  (parent 16)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (b b-0) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))-    ((2 2) (4 0)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 5 2 customer 3) nb-0 (4 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 23)-  (parent 16)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text) (nc nb nb-0 data)-    (b m c hash b-0 hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (3 3)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0))-  (uniq-orig nc nb nb-0)-  (operation encryption-test (displaced 4 2 bank 2)-    (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0)) (privk b-0))-    (3 3))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0))))-  (label 24)-  (parent 17)-  (unrealized (0 0) (0 2) (1 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 data) (b m c hash b-0 hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (3 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 0) (0 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0))-  (uniq-orig nc nb nb-0)-  (operation encryption-test (added-strand bank 2)-    (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0)) (privk b-0))-    (3 3))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 25)-  (parent 17)-  (unrealized (0 0) (0 2) (1 0) (4 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price price-0 acctnum goods text) (nm nc nb nb-0 nm-0 data)-    (c hash hash-0 b m name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)-    (c c) (m m))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (precedes ((0 1) (4 1)) ((1 1) (4 3)) ((2 1) (1 0)) ((3 1) (0 0))-    ((4 0) (3 0)) ((4 2) (2 0)) ((4 4) (0 2)))-  (non-orig (privk c) (privk hash) (privk hash-0) (privk b) (privk m))-  (uniq-orig nm nc nb nm-0)-  (operation nonce-test (displaced 2 5 customer 5) nb (0 2)-    (enc "hash" c nc nb nm price (pubk hash)) (enc nc nb (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))-          (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm-0 m price-0 (pubk c))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))))-  (label 26)-  (parent 19)-  (seen 12)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 data)-    (c hash hash-0 b m name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (precedes ((0 1) (3 1)) ((1 1) (3 3)) ((2 1) (1 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (0 2)))-  (non-orig (privk c) (privk hash) (privk hash-0) (privk b) (privk m))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 2 4 customer 5) nb (0 2)-    (enc "hash" c nc nb nb-0 price (pubk hash)) (enc nc nb (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))))-  (label 27)-  (parent 20)-  (seen 8)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nm data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (4 0)) ((2 2) (3 0))-    ((3 1) (1 0)) ((4 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 28)-  (parent 21)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))-    ((3 1) (4 0)) ((4 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nb-0-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 29)-  (parent 22)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 2 5 customer 5) nb-0 (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0))))-  (label 30)-  (parent 22)-  (unrealized (0 0) (0 2) (1 0) (4 3))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))-    ((2 2) (4 0)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nb-0-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 31)-  (parent 23)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 2 5 customer 5) nb-0 (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0))))-  (label 32)-  (parent 23)-  (unrealized (0 0) (0 2) (1 0) (4 3))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (3 3)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0))))-  (label 33)-  (parent 24)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (3 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (3 3))-    ((3 0) (0 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (added-strand bank 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 34)-  (parent 24)-  (seen 41 46)-  (unrealized (0 0) (0 2) (1 0) (4 0))-  (comment "2 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nm data) (b m c hash b-0 hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (3 3)) ((3 0) (0 0))-    ((3 0) (4 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 35)-  (parent 24)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 data) (b m c hash b-0 hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 5 2 bank 2) nb-0 (4 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 36)-  (parent 25)-  (seen 42)-  (unrealized (0 0) (0 2) (1 0) (4 0))-  (comment "2 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 data) (b m c hash b-0 hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 2) (4 0)) ((3 4) (1 0)) ((4 1) (3 3)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 5 3 customer 3) nb-0 (4 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 37)-  (parent 25)-  (seen 24 36)-  (unrealized (0 0) (0 2) (1 0) (4 0))-  (comment "4 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price price-0 acctnum goods text) (nc nb nb-0 nm data)-    (c hash hash-0 b m name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (precedes ((0 1) (4 1)) ((1 1) (4 3)) ((2 1) (1 0)) ((3 1) (0 0))-    ((4 0) (3 0)) ((4 2) (2 0)) ((4 4) (0 2)))-  (non-orig (privk c) (privk hash) (privk hash-0) (privk b) (privk m))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (displaced 2 5 customer 5) nb (0 2)-    (enc "hash" c nc nb nb-0 price (pubk hash)) (enc nc nb (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))))-  (label 38)-  (parent 28)-  (seen 12)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))-    ((3 1) (4 0)) ((4 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 39)-  (parent 29)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (5 0)) ((2 2) (3 0))-    ((3 1) (4 0)) ((4 1) (1 0)) ((5 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 40)-  (parent 29)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (4 3))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation encryption-test (displaced 5 2 bank 2)-    (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0)) (privk b-0))-    (4 3))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0))))-  (label 41)-  (parent 30)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text) (nc nb nb-0 data)-    (b m c hash b-0 hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0))-  (uniq-orig nc nb nb-0)-  (operation encryption-test (displaced 5 3 bank 2)-    (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-1)) (privk b-0))-    (4 3))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0))))-  (label 42)-  (parent 30)-  (unrealized (0 0) (0 2) (1 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (4 1)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (3 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation encryption-test (added-strand bank 2)-    (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0)) (privk b-0))-    (4 3))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 43)-  (parent 30)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))-    ((2 2) (4 0)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 44)-  (parent 31)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (5 0)) ((2 2) (3 0))-    ((2 2) (4 0)) ((3 1) (1 0)) ((4 1) (1 0)) ((5 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 45)-  (parent 31)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (4 3)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation encryption-test (displaced 5 2 bank 2)-    (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0)) (privk b-0))-    (4 3))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0))))-  (label 46)-  (parent 32)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text) (nc nb nb-0 data)-    (b m c hash b-0 hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (4 3))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0))-  (uniq-orig nc nb nb-0)-  (operation encryption-test (displaced 5 3 bank 2)-    (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-1)) (privk b-0))-    (4 3))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0))))-  (label 47)-  (parent 32)-  (seen 33 34 35)-  (unrealized (0 0) (0 2) (1 0))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (4 1)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0))-    ((4 4) (1 0)) ((5 1) (4 3)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation encryption-test (added-strand bank 2)-    (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0)) (privk b-0))-    (4 3))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 48)-  (parent 32)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (3 3)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0))))-  (label 49)-  (parent 33)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text) (nc nb nb-0 nm data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (3 3)) ((3 0) (4 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 50)-  (parent 33)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text) (nc nb nb-0 nm data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (3 3)) ((3 0) (0 0))-    ((3 0) (4 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc nc nm m price-0 (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 51)-  (parent 35)-  (seen 49 50)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nm nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (3 1)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (3 3))-    ((3 0) (0 0)) ((3 0) (4 0)) ((3 2) (2 0)) ((3 4) (1 0))-    ((4 1) (1 0)) ((5 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand bank 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc nc nm m price-0 (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 52)-  (parent 35)-  (seen 58 68)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "2 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (3 1)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (4 0))-    ((3 0) (0 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (added-strand bank 2) nb-0 (4 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 53)-  (parent 36)-  (unrealized (0 0) (0 2) (1 0) (4 0) (5 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (3 1)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 0) (0 0)) ((3 2) (2 0)) ((3 2) (4 0)) ((3 4) (1 0))-    ((4 1) (3 3)) ((5 1) (4 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (added-strand bank 2) nb-0 (4 0)-    (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 54)-  (parent 37)-  (seen 73)-  (unrealized (0 0) (0 2) (1 0) (4 0) (5 0))-  (comment "2 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (c hash hash-0 hash-1 b m name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (precedes ((0 1) (4 1)) ((1 1) (4 3)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (0 2)))-  (non-orig (privk c) (privk hash) (privk hash-0) (privk hash-1)-    (privk b) (privk m))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 2 5 customer 5) nb (0 2)-    (enc "hash" c nc nb nb-0 price (pubk hash)) (enc nc nb (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))))-  (label 55)-  (parent 39)-  (seen 18)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (5 0)) ((2 2) (3 0))-    ((3 1) (4 0)) ((4 1) (1 0)) ((5 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 56)-  (parent 40)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (4 3))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0))))-  (label 57)-  (parent 41)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (4 3))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 0) (5 0)) ((4 2) (2 0))-    ((4 4) (1 0)) ((5 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 58)-  (parent 41)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0))))-  (label 59)-  (parent 42)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (4 1)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (3 0))-    ((3 1) (4 3)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (added-strand bank 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 60)-  (parent 42)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nm data) (b m c hash b-0 hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((4 0) (0 0)) ((4 0) (5 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 61)-  (parent 42)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 2 bank 2) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 62)-  (parent 43)-  (seen 63 73 82)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "4 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 3 bank 2) nb-1 (5 0)-    (enc nc nb-1 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 63)-  (parent 43)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (5 0)) ((4 4) (1 0))-    ((5 1) (4 3)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 4 customer 3) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 64)-  (parent 43)-  (seen 62 63 73)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "6 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (c hash hash-0 hash-1 b m name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (precedes ((0 1) (4 1)) ((1 1) (4 3)) ((2 1) (1 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (0 2)))-  (non-orig (privk c) (privk hash) (privk hash-0) (privk hash-1)-    (privk b) (privk m))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 2 5 customer 5) nb (0 2)-    (enc "hash" c nc nb nb-0 price (pubk hash)) (enc nc nb (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))))-  (label 65)-  (parent 44)-  (seen 18)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (b b) (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (5 0)) ((2 2) (3 0))-    ((2 2) (4 0)) ((3 1) (1 0)) ((4 1) (1 0)) ((5 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 66)-  (parent 45)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (4 3)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0))))-  (label 67)-  (parent 46)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (4 3)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 0) (5 0)) ((4 2) (2 0)) ((4 2) (3 0))-    ((4 4) (1 0)) ((5 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 68)-  (parent 46)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0))-    ((5 1) (4 3)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 2 bank 2) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 69)-  (parent 48)-  (seen 74 84)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "4 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0))-    ((5 1) (4 3)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 3 bank 2) nb-1 (5 0)-    (enc nc nb-1 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 70)-  (parent 48)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 2) (5 0))-    ((4 4) (1 0)) ((5 1) (4 3)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 4 customer 3) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 71)-  (parent 48)-  (seen 46 69 70 75)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "6 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nm data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (3 3)) ((3 0) (4 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 72)-  (parent 50)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((5 1) (4 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 2 bank 2) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 73)-  (parent 53)-  (unrealized (0 0) (0 2) (1 0) (4 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 3 customer 3) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 74)-  (parent 53)-  (unrealized (0 0) (0 2) (1 0) (4 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 3 customer 3) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 75)-  (parent 54)-  (seen 70 74)-  (unrealized (0 0) (0 2) (1 0) (4 0))-  (comment "4 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price price-0 acctnum goods text) (nc nb nb-0 nb-1 nm data)-    (c hash hash-0 hash-1 b m name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (precedes ((0 1) (5 1)) ((1 1) (5 3)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 1) (0 0)) ((5 0) (4 0)) ((5 2) (2 0)) ((5 4) (0 2)))-  (non-orig (privk c) (privk hash) (privk hash-0) (privk hash-1)-    (privk b) (privk m))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (displaced 2 6 customer 5) nb (0 2)-    (enc "hash" c nc nb nb-0 price (pubk hash)) (enc nc nb (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))))-  (label 76)-  (parent 56)-  (seen 26)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (4 3))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0))))-  (label 77)-  (parent 57)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (4 3))-    ((3 1) (1 0)) ((4 0) (5 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 78)-  (parent 57)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (4 3))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 0) (5 0)) ((4 2) (2 0))-    ((4 4) (1 0)) ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 79)-  (parent 58)-  (seen 77 78)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0))))-  (label 80)-  (parent 59)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text) (nc nb nb-0 nm data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((4 0) (5 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 81)-  (parent 59)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (4 3)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 2 bank 2) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 82)-  (parent 60)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 3 bank 2) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 83)-  (parent 60)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (5 0)) ((4 4) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 4 customer 3) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 84)-  (parent 60)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text) (nc nb nb-0 nm data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((4 0) (0 0)) ((4 0) (5 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc nc nm m price-0 (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 85)-  (parent 61)-  (seen 80 81)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nm nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (4 1)) ((0 1) (6 0)) ((1 1) (0 2)) ((2 1) (3 0))-    ((3 1) (4 3)) ((4 0) (0 0)) ((4 0) (5 0)) ((4 2) (2 0))-    ((4 4) (1 0)) ((5 1) (1 0)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand bank 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc nc nm m price-0 (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 86)-  (parent 61)-  (seen 107 109 111)-  (unrealized (0 0) (0 2) (1 0) (6 0))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((0 1) (6 0)) ((1 1) (0 2)) ((2 1) (3 0))-    ((2 1) (5 0)) ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (added-strand bank 2) nb-0 (5 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 87)-  (parent 62)-  (seen 73)-  (unrealized (0 0) (0 2) (1 0) (5 0) (6 0))-  (comment "3 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text) (nc nb nb-0 data)-    (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (5 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 88)-  (parent 63)-  (unrealized (0 0) (0 2) (1 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((0 1) (6 0)) ((1 1) (0 2)) ((2 1) (3 0))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (added-strand bank 2) nb-0 (5 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 89)-  (parent 63)-  (seen 112)-  (unrealized (0 0) (0 2) (1 0) (5 0) (6 0))-  (comment "3 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (5 0)) ((4 4) (1 0))-    ((5 1) (4 3)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 90)-  (parent 64)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((0 1) (6 0)) ((1 1) (0 2)) ((2 1) (3 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (5 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (added-strand bank 2) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 91)-  (parent 64)-  (seen 73 112)-  (unrealized (0 0) (0 2) (1 0) (5 0) (6 0))-  (comment "3 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price price-0 acctnum goods text) (nc nb nb-0 nb-1 nm data)-    (c hash hash-0 hash-1 b m name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (precedes ((0 1) (5 1)) ((1 1) (5 3)) ((2 1) (1 0)) ((3 1) (1 0))-    ((4 1) (0 0)) ((5 0) (4 0)) ((5 2) (2 0)) ((5 2) (3 0))-    ((5 4) (0 2)))-  (non-orig (privk c) (privk hash) (privk hash-0) (privk hash-1)-    (privk b) (privk m))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (displaced 2 6 customer 5) nb (0 2)-    (enc "hash" c nc nb nb-0 price (pubk hash)) (enc nc nb (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))))-  (label 92)-  (parent 66)-  (seen 26)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (4 3)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0))))-  (label 93)-  (parent 67)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (4 3)) ((3 1) (1 0))-    ((4 0) (5 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0))-    ((5 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 94)-  (parent 67)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (4 3)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 0) (5 0)) ((4 2) (2 0)) ((4 2) (3 0))-    ((4 4) (1 0)) ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 95)-  (parent 68)-  (seen 93 94)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((0 1) (6 0)) ((1 1) (0 2)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (added-strand bank 2) nb-0 (5 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 96)-  (parent 69)-  (seen 73 74)-  (unrealized (0 0) (0 2) (1 0) (5 0) (6 0))-  (comment "3 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0))-    ((5 1) (4 3)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 3 bank 2) nb-1 (5 0)-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc nc nb-1 (pubk c)) (enc nc nb-1 m price (pubk c))-    (enc c nc nb-1 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 97)-  (parent 69)-  (seen 42 53)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "2 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text) (nc nb nb-0 data)-    (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (5 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 98)-  (parent 70)-  (unrealized (0 0) (0 2) (1 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((0 1) (6 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (added-strand bank 2) nb-0 (5 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 99)-  (parent 70)-  (seen 73)-  (unrealized (0 0) (0 2) (1 0) (5 0) (6 0))-  (comment "3 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((0 1) (6 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0))-    ((4 2) (5 0)) ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (added-strand bank 2) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 100)-  (parent 71)-  (seen 73 75 127)-  (unrealized (0 0) (0 2) (1 0) (5 0) (6 0))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((5 1) (4 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (4 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 101)-  (parent 73)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (4 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 102)-  (parent 74)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (4 0))-    ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (4 0)-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 103)-  (parent 75)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (4 3))-    ((3 1) (1 0)) ((4 0) (5 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 104)-  (parent 78)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nm data)-    (m c hash b hash-0 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((4 0) (5 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 105)-  (parent 81)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (4 3)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 106)-  (parent 82)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (4 3)) ((4 0) (0 0)) ((4 0) (6 0)) ((4 2) (2 0))-    ((4 4) (1 0)) ((5 1) (1 0)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 107)-  (parent 82)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 108)-  (parent 83)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 0) (6 0)) ((4 2) (2 0))-    ((4 4) (1 0)) ((5 1) (1 0)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 109)-  (parent 83)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (5 0)) ((4 4) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 110)-  (parent 84)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((4 0) (0 0)) ((4 0) (6 0)) ((4 2) (2 0)) ((4 2) (5 0))-    ((4 4) (1 0)) ((5 1) (1 0)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 111)-  (parent 84)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (6 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3))-    ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 7 3 bank 2) nb-2 (6 0)-    (enc nc nb-2 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 112)-  (parent 87)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 7 4 customer 3) nb-0 (6 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 113)-  (parent 87)-  (seen 118)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "2 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))))-  (label 114)-  (parent 88)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((0 1) (6 0)) ((1 1) (0 2)) ((2 1) (3 0))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (added-strand bank 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 115)-  (parent 88)-  (unrealized (0 0) (0 2) (1 0) (6 0))-  (comment "4 in cohort - 4 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nm data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 0) (6 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 116)-  (parent 88)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (6 0))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 7 2 bank 2) nb-0 (6 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 117)-  (parent 89)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 7 4 customer 3) nb-0 (6 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 118)-  (parent 89)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (5 0)) ((4 4) (1 0))-    ((5 1) (4 3)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))))-  (label 119)-  (parent 90)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 0) (6 0)) ((4 2) (2 0)) ((4 2) (5 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 120)-  (parent 90)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 7 4 customer 3) nb-0 (6 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 121)-  (parent 91)-  (seen 73 113 118)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "6 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (4 3)) ((3 1) (1 0))-    ((4 0) (5 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0))-    ((5 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 122)-  (parent 94)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 1) (6 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 7 3 bank 2) nb-2 (6 0)-    (enc nc nb-2 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 123)-  (parent 96)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))))-  (label 124)-  (parent 98)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (4 0))-    ((3 0) (0 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (added-strand bank 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 125)-  (parent 98)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nm data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 0) (5 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 126)-  (parent 98)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (6 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 7 3 bank 2) nb-0 (6 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 127)-  (parent 99)-  (seen 123)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "3 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 7 4 customer 3) nb-0 (6 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 128)-  (parent 99)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((5 1) (4 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 129)-  (parent 101)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 0) (0 0))-    ((3 0) (6 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 130)-  (parent 101)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 131)-  (parent 102)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 0) (6 0)) ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0))-    ((4 1) (3 3)) ((5 1) (4 0)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 132)-  (parent 102)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (4 0))-    ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 133)-  (parent 103)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (b m c hash b-0 hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 0) (5 0))-    ((2 2) (4 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))-    ((5 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 134)-  (parent 103)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (4 3)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 135)-  (parent 106)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (4 3)) ((4 0) (6 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (1 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 136)-  (parent 106)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (4 3)) ((4 0) (0 0)) ((4 0) (6 0)) ((4 2) (2 0))-    ((4 4) (1 0)) ((5 1) (1 0)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 137)-  (parent 107)-  (seen 135 136)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 138)-  (parent 108)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((3 1) (5 0)) ((4 0) (6 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (1 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 139)-  (parent 108)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 0) (6 0)) ((4 2) (2 0))-    ((4 4) (1 0)) ((5 1) (1 0)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 140)-  (parent 109)-  (seen 138 139)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (5 0)) ((4 4) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 141)-  (parent 110)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((4 0) (6 0)) ((4 2) (2 0)) ((4 2) (5 0)) ((4 4) (1 0))-    ((5 1) (1 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 142)-  (parent 110)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((4 0) (0 0)) ((4 0) (6 0)) ((4 2) (2 0)) ((4 2) (5 0))-    ((4 4) (1 0)) ((5 1) (1 0)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 143)-  (parent 111)-  (seen 141 142)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (6 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3))-    ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (5 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 144)-  (parent 112)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (5 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 145)-  (parent 113)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))))-  (label 146)-  (parent 114)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text) (nc nb nb-0 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (6 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3))-    ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 147)-  (parent 114)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (6 0))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 7 2 bank 2) nb-0 (6 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 148)-  (parent 115)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((3 1) (6 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 7 3 bank 2) nb-0 (6 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 149)-  (parent 115)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3))-    ((5 1) (6 0)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 7 5 bank 2) nb-0 (6 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 150)-  (parent 115)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 7 4 customer 3) nb-0 (6 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 151)-  (parent 115)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text) (nc nb nb-0 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 0) (6 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc nc nm m price-0 (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 152)-  (parent 116)-  (seen 146 147)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nm nb-1 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((0 1) (7 0)) ((1 1) (0 2)) ((2 1) (3 0))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 0) (6 0)) ((4 2) (2 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (1 0)) ((7 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand bank 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc nc nm m price-0 (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 153)-  (parent 116)-  (seen 189 191 193 195)-  (unrealized (0 0) (0 2) (1 0) (7 0))-  (comment "4 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (6 0))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (5 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 154)-  (parent 117)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (5 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 155)-  (parent 118)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (5 0)) ((4 4) (1 0))-    ((5 1) (4 3)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))))-  (label 156)-  (parent 119)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (6 0)) ((4 2) (2 0)) ((4 2) (5 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 157)-  (parent 119)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 0) (6 0)) ((4 2) (2 0)) ((4 2) (5 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 158)-  (parent 120)-  (seen 156 157)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (5 0)-    (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-    (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 159)-  (parent 121)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (displaced 7 6 bank 2) nb-2 (5 0)-    (enc "hash" c nc nb-1 nb-2 price (pubk hash-2))-    (enc nc nb-2 m price (pubk c))-    (enc c nc nb-2 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 160)-  (parent 121)-  (seen 73)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "4 in cohort - 3 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 1) (6 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (5 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 161)-  (parent 123)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))))-  (label 162)-  (parent 124)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text) (nc nb nb-0 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (5 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((5 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 163)-  (parent 124)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((2 1) (5 0))-    ((3 0) (0 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 2 bank 2) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 164)-  (parent 125)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((4 1) (5 0))-    ((5 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 4 bank 2) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 165)-  (parent 125)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 6 3 customer 3) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 166)-  (parent 125)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text) (nc nb nb-0 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 0) (5 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc nc nm m price-0 (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 167)-  (parent 126)-  (seen 162 163)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nm nb-1 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((0 1) (6 0)) ((1 1) (0 2)) ((2 1) (4 0))-    ((3 0) (0 0)) ((3 0) (5 0)) ((3 2) (2 0)) ((3 4) (1 0))-    ((4 1) (3 3)) ((5 1) (1 0)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand bank 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc nc nm m price-0 (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 168)-  (parent 126)-  (seen 210 212 214)-  (unrealized (0 0) (0 2) (1 0) (6 0))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((5 1) (4 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (5 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 169)-  (parent 127)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (5 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 170)-  (parent 128)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((5 1) (4 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 171)-  (parent 129)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 0) (6 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((5 1) (4 0))-    ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 172)-  (parent 129)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 0) (0 0))-    ((3 0) (6 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 173)-  (parent 130)-  (seen 171 172)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 174)-  (parent 131)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (6 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 175)-  (parent 131)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 0) (6 0)) ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0))-    ((4 1) (3 3)) ((5 1) (4 0)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 176)-  (parent 132)-  (seen 174 175)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (4 0))-    ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 177)-  (parent 133)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (5 0)) ((2 2) (4 0))-    ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0)) ((5 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 178)-  (parent 133)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 0) (5 0))-    ((2 2) (4 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))-    ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 179)-  (parent 134)-  (seen 177 178)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (4 3)) ((4 0) (6 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (1 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 180)-  (parent 136)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((3 1) (5 0)) ((4 0) (6 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (1 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 181)-  (parent 139)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (4 3))-    ((4 0) (6 0)) ((4 2) (2 0)) ((4 2) (5 0)) ((4 4) (1 0))-    ((5 1) (1 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 182)-  (parent 142)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (6 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3))-    ((6 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 183)-  (parent 144)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (6 0))-    ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 184)-  (parent 144)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 nb-2 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-2 (pubk c))))))-  (label 185)-  (parent 145)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0))-    ((4 2) (6 0)) ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0))-    ((7 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 186)-  (parent 145)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (6 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3))-    ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 187)-  (parent 147)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (6 0))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 188)-  (parent 148)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (6 0))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (1 0)) ((7 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 189)-  (parent 148)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((3 1) (6 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 190)-  (parent 149)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((3 1) (6 0)) ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (1 0)) ((7 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 191)-  (parent 149)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3))-    ((5 1) (6 0)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 192)-  (parent 150)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((5 1) (6 0)) ((6 1) (1 0)) ((7 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 193)-  (parent 150)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 194)-  (parent 151)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (1 0)) ((7 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 195)-  (parent 151)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (6 0))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 196)-  (parent 154)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (6 0))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 197)-  (parent 154)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 198)-  (parent 155)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 199)-  (parent 155)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (6 0)) ((4 2) (2 0)) ((4 2) (5 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 200)-  (parent 157)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 nb-2 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-2 (pubk c))))))-  (label 201)-  (parent 159)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 202)-  (parent 159)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-1 (5 0)-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc nc nb-1 (pubk c)) (enc nc nb-1 m price (pubk c))-    (enc c nc nb-1 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 203)-  (parent 160)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b-0) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((0 1) (7 0)) ((1 1) (0 2)) ((2 1) (3 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (added-strand bank 2) nb-1 (5 0)-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc nc nb-1 (pubk c)) (enc nc nb-1 m price (pubk c))-    (enc c nc nb-1 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 204)-  (parent 160)-  (seen 73)-  (unrealized (0 0) (0 2) (1 0) (5 0) (7 0))-  (comment "4 in cohort - 3 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 7 3 bank 2) nb-1 (5 0)-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc nc nb-1 (pubk c)) (enc nc nb-1 m price (pubk c))-    (enc c nc nb-1 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-0 (pubk c))))))-  (label 205)-  (parent 160)-  (seen 88 89)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "2 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 1) (6 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 206)-  (parent 161)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 1) (6 0))-    ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (3 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 207)-  (parent 161)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (5 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((5 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 208)-  (parent 163)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((2 1) (5 0))-    ((3 0) (0 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 209)-  (parent 164)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((2 1) (5 0))-    ((3 0) (0 0)) ((3 0) (6 0)) ((3 2) (2 0)) ((3 4) (1 0))-    ((4 1) (3 3)) ((5 1) (1 0)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 210)-  (parent 164)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((4 1) (5 0))-    ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 211)-  (parent 165)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 0) (6 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((4 1) (5 0)) ((5 1) (1 0)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 212)-  (parent 165)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 213)-  (parent 166)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 0) (6 0)) ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0))-    ((4 1) (3 3)) ((5 1) (1 0)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 214)-  (parent 166)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((5 1) (4 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 215)-  (parent 169)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 0) (0 0))-    ((3 0) (6 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 216)-  (parent 169)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 217)-  (parent 170)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 0) (6 0)) ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0))-    ((4 1) (3 3)) ((5 1) (4 0)) ((6 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 218)-  (parent 170)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 0) (6 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((5 1) (4 0))-    ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 219)-  (parent 172)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (6 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 220)-  (parent 175)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (5 0)) ((2 2) (4 0))-    ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0)) ((5 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 221)-  (parent 178)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (6 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3))-    ((6 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 222)-  (parent 183)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (6 0))-    ((4 0) (7 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3))-    ((6 1) (5 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 223)-  (parent 183)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (6 0))-    ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 224)-  (parent 184)-  (seen 222 223)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 nb-2 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-2 (pubk c))))))-  (label 225)-  (parent 185)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 226)-  (parent 185)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0))-    ((4 2) (6 0)) ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0))-    ((7 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 227)-  (parent 186)-  (seen 225 226)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (6 0))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 228)-  (parent 188)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (6 0))-    ((3 1) (5 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 229)-  (parent 188)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (6 0))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (1 0)) ((7 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 230)-  (parent 189)-  (seen 228 229)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((3 1) (6 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 231)-  (parent 190)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((3 1) (6 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 232)-  (parent 190)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((3 1) (6 0)) ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (1 0)) ((7 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 233)-  (parent 191)-  (seen 231 232)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3))-    ((5 1) (6 0)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 234)-  (parent 192)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (7 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3))-    ((5 1) (6 0)) ((6 1) (1 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 235)-  (parent 192)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((5 1) (6 0)) ((6 1) (1 0)) ((7 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 236)-  (parent 193)-  (seen 234 235)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 237)-  (parent 194)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 238)-  (parent 194)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (1 0)) ((7 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 239)-  (parent 195)-  (seen 237 238)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (6 0))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 240)-  (parent 196)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (6 0))-    ((3 1) (5 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 241)-  (parent 196)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (6 0))-    ((3 1) (5 0)) ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 242)-  (parent 197)-  (seen 240 241)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 243)-  (parent 198)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 244)-  (parent 198)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 245)-  (parent 199)-  (seen 243 244)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 nb-2 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-2 (pubk c))))))-  (label 246)-  (parent 201)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 247)-  (parent 201)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 248)-  (parent 202)-  (seen 246 247)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-1 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-1 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 249)-  (parent 203)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-1 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-1 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 250)-  (parent 203)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (7 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 8 3 bank 2) nb-2 (7 0)-    (enc nc nb-2 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-3))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 251)-  (parent 204)-  (seen 144)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b-0) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (displaced 8 6 bank 2) nb-1 (7 0)-    (enc nc nb-1 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 252)-  (parent 204)-  (seen 285)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "5 in cohort - 4 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b-0) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 2) (7 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (displaced 8 4 customer 3) nb-1 (7 0)-    (enc nc nb-1 m price (pubk c)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 253)-  (parent 204)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 1) (6 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 254)-  (parent 206)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 1) (6 0))-    ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 255)-  (parent 206)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 1) (6 0))-    ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (3 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 256)-  (parent 207)-  (seen 254 255)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((2 1) (5 0))-    ((3 0) (0 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 257)-  (parent 209)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((2 1) (5 0))-    ((3 0) (6 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (1 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 258)-  (parent 209)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((2 1) (5 0))-    ((3 0) (0 0)) ((3 0) (6 0)) ((3 2) (2 0)) ((3 4) (1 0))-    ((4 1) (3 3)) ((5 1) (1 0)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 259)-  (parent 210)-  (seen 257 258)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((4 1) (5 0))-    ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 260)-  (parent 211)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (6 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((4 1) (5 0))-    ((5 1) (1 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 261)-  (parent 211)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 0) (6 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((4 1) (5 0)) ((5 1) (1 0)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 262)-  (parent 212)-  (seen 260 261)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 263)-  (parent 213)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (6 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (1 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 264)-  (parent 213)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 0) (6 0)) ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0))-    ((4 1) (3 3)) ((5 1) (1 0)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 265)-  (parent 214)-  (seen 263 264)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((5 1) (4 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 266)-  (parent 215)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 0) (6 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((5 1) (4 0))-    ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 267)-  (parent 215)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 0) (0 0))-    ((3 0) (6 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 268)-  (parent 216)-  (seen 266 267)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 269)-  (parent 217)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (6 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 270)-  (parent 217)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))-    ((3 0) (6 0)) ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0))-    ((4 1) (3 3)) ((5 1) (4 0)) ((6 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 271)-  (parent 218)-  (seen 269 270)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (6 0))-    ((4 0) (7 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3))-    ((6 1) (5 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 272)-  (parent 223)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 273)-  (parent 226)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (6 0))-    ((3 1) (5 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 274)-  (parent 229)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((3 1) (6 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 275)-  (parent 232)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (7 0)) ((4 2) (2 0)) ((4 4) (1 0)) ((5 1) (4 3))-    ((5 1) (6 0)) ((6 1) (1 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 276)-  (parent 235)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (1 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 277)-  (parent 238)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (6 0))-    ((3 1) (5 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 278)-  (parent 241)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 279)-  (parent 244)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-2) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 280)-  (parent 247)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 281)-  (parent 249)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 282)-  (parent 249)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-1 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-1 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 283)-  (parent 250)-  (seen 281 282)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b-0) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-1 (5 0)-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-1 (pubk c)) (enc nc nb-1 m price (pubk c))-    (enc c nc nb-1 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 284)-  (parent 252)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b-0) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (displaced 8 2 bank 2) nb-1 (5 0)-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-1 (pubk c)) (enc nc nb-1 m price (pubk c))-    (enc c nc nb-1 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 285)-  (parent 252)-  (seen 286 287)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "3 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b-0) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (displaced 8 3 bank 2) nb-1 (5 0)-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-1 (pubk c)) (enc nc nb-1 m price (pubk c))-    (enc c nc nb-1 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 286)-  (parent 252)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 8 3 bank 2) nb-2 (5 0)-    (enc "hash" c nc nb-2 nb-2 price (pubk hash-2))-    (enc "hash" c nc nb-1 nb-2 price (pubk hash-3))-    (enc nc nb-2 (pubk c)) (enc nc nb-2 m price (pubk c))-    (enc c nc nb-2 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-3))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 287)-  (parent 252)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b-0) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 2) (7 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-1 (5 0)-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-1 (pubk c)) (enc nc nb-1 m price (pubk c))-    (enc c nc nb-1 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 288)-  (parent 253)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)-    (nc nb nb-0 nb-1 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 2) (7 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (displaced 8 3 bank 2) nb-2 (5 0)-    (enc "hash" c nc nb-2 nb-2 price (pubk hash-2))-    (enc "hash" c nc nb-1 nb-2 price (pubk hash-3))-    (enc nc nb-2 (pubk c)) (enc nc nb-2 m price (pubk c))-    (enc c nc nb-2 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-3))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 289)-  (parent 253)-  (seen 155)-  (unrealized (0 0) (0 2) (1 0) (5 0))-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 1) (6 0))-    ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 290)-  (parent 255)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((2 1) (5 0))-    ((3 0) (6 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (1 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 291)-  (parent 258)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (6 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((4 1) (5 0))-    ((5 1) (1 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 292)-  (parent 261)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (6 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (1 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 293)-  (parent 264)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (5 0)) ((3 0) (6 0))-    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)) ((5 1) (4 0))-    ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 294)-  (parent 267)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (6 0))-    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))-    ((5 1) (4 0)) ((6 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 295)-  (parent 270)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (7 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 296)-  (parent 282)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 nb-2 data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-1 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-1 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c))))))-  (label 297)-  (parent 284)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b-0) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0))-    ((8 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-1 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-1 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b-0)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 298)-  (parent 284)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b-0) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-1 (5 0)-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-1 (pubk c)) (enc nc nb-1 m price (pubk c))-    (enc c nc nb-1 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 299)-  (parent 285)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 nb-2 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b-0) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-1 (5 0)-    (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-1 (pubk c)) (enc nc nb-1 m price (pubk c))-    (enc c nc nb-1 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b-0)) (enc nc nb-2 (pubk c))))))-  (label 300)-  (parent 286)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 text)-    (nc nb nb-0 nb-1 data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (5 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-2))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-3))-            (privk b-0)) (enc nc nb-1 (pubk c))))))-  (label 301)-  (parent 287)-  (unrealized (0 0) (0 2) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 nb-2 data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 2) (7 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-1 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-1 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c))))))-  (label 302)-  (parent 288)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b-0) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 2) (7 0)) ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0))-    ((7 1) (5 0)) ((8 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-1 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-1 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b-0)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 303)-  (parent 288)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 nb-2 data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c))))))-  (label 304)-  (parent 297)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)) ((8 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 305)-  (parent 297)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0))-    ((8 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-1 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-1 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 306)-  (parent 298)-  (seen 304 305)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 nb-2 data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-1 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-1 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c))))))-  (label 307)-  (parent 299)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b-0) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 0) (8 0)) ((4 2) (2 0))-    ((4 2) (6 0)) ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (7 0))-    ((7 1) (5 0)) ((8 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-1 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-1 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b-0)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 308)-  (parent 299)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 nb-2 data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-1 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-1 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c))))))-  (label 309)-  (parent 300)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-1) (nb nb-1) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b-0) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0))-    ((8 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-1 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-1 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) nb-1)))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b-0)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 310)-  (parent 300)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-2))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-3))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 311)-  (parent 301)-  (unrealized (0 0) (0 2))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (b m c hash b-0 hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)-    (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b-0) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b-0) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0))-    ((8 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)-    (privk hash-0) (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-2))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))-    (enc c nc nb-0 acctnum-0 price (pubk b-0)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) nb-0)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-2))-            (privk b-0)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-3))-            (privk b-0)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 312)-  (parent 301)-  (unrealized (0 0) (0 2) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 nb-2 data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 2) (7 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c))))))-  (label 313)-  (parent 302)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 2) (7 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (5 0))-    ((8 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 314)-  (parent 302)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (0 0)) ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 2) (7 0)) ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0))-    ((7 1) (5 0)) ((8 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-1 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-1 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 315)-  (parent 303)-  (seen 313 314)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)) ((8 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 316)-  (parent 305)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 nb-2 data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c))))))-  (label 317)-  (parent 307)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0))-    ((8 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 318)-  (parent 307)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (0 0)) ((4 0) (8 0)) ((4 2) (2 0))-    ((4 2) (6 0)) ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (7 0))-    ((7 1) (5 0)) ((8 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-1 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-1 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 319)-  (parent 308)-  (seen 317 318)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 nb-2 data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c))))))-  (label 320)-  (parent 309)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)) ((8 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 321)-  (parent 309)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0))-    ((8 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-    (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c)) (enc nc nb-2 (pubk c))-    (enc nc nb-1 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-1 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 322)-  (parent 310)-  (seen 320 321)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-3))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-3))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 323)-  (parent 311)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)) ((8 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (added-strand merchant 2) nc (0 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-3))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 324)-  (parent 311)-  (unrealized (0 0) (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (goods price acctnum goods-0 price-0 text)-    (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (0 0)) ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0))-    ((8 1) (1 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc-    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-2))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-3))-    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))-    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))-    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-3))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 325)-  (parent 312)-  (seen 323 324)-  (unrealized (0 0) (0 2))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0))-    ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 2) (7 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)) ((7 1) (5 0))-    ((8 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 326)-  (parent 314)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((2 1) (5 0))-    ((3 1) (1 0)) ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0))-    ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0))-    ((8 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 327)-  (parent 318)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text)-    (nc nb nb-0 nb-1 nb-2 nm data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-1) (nb nb-1) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-1) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-1)-    (nb nb-2) (b b) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)) ((8 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-1 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-1 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-1 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-1 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-1 m price (pubk c)))-      (send (enc c nc nb-1 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) nb-1)))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-0))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-2))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc nb-1 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-2 nb-1 price (pubk hash-3))-            (privk b)) (enc nc nb-2 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 328)-  (parent 321)-  (unrealized (0 2))-  (comment "empty cohort"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)-    (m c hash b hash-0 hash-1 hash-2 hash-3 name))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-1))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-2))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-3))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (5 0))-    ((4 0) (8 0)) ((4 2) (2 0)) ((4 2) (6 0)) ((4 4) (1 0))-    ((5 1) (4 3)) ((6 1) (7 0)) ((7 1) (5 0)) ((8 1) (0 0)))-  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)-    (privk hash-1) (privk hash-2) (privk hash-3))-  (uniq-orig nc nb nb-0 nm)-  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)-    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) nb-0)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-2))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-3))-            (privk b)) (enc nc nb-1 (pubk c)))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c)))))-  (label 329)-  (parent 324)-  (unrealized (0 2))-  (comment "empty cohort"))--(comment "Nothing left to do")--(defprotocol sorted_epmo_acctnum basic-  (defrole bank-    (vars (b c m name) (acctnum price text) (hash name) (nc nm nb data))-    (trace (recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    (non-orig (privk hash))-    (annotations b-      (1-        (forall ((pm name))-          (implies-            (and (authtransfer c acctnum b price pm nm)-              (reqtransfer pm b price pm nm))-            (dotransfer acctnum b price pm nm))))-      (2-        (and (says c (authtransfer c acctnum b price m nm))-          (says m (reqtransfer m b price m nm))))))-  (defrole customer-    (vars (b c m hash name) (acctnum goods price text) (nc nm nb data))-    (trace (send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb)))-    (non-orig (privk b) (privk hash))-    (uniq-orig nc)-    (annotations c-      (1-        (says m-          (implies-            (exists ((acctnum2 text))-              (dotransfer acctnum2 b price m nm)) (doship m goods c))))-      (3-        (says b-          (forall ((pm name))-            (implies-              (and (authtransfer c acctnum b price m nm)-                (reqtransfer pm b price pm nm))-              (dotransfer acctnum b price pm nm)))))-      (4 (authtransfer c acctnum b price m nm))))-  (defrole merchant-    (vars (b c m hash name) (goods price text) (nc nm nb data))-    (trace (recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    (non-orig (privk hash))-    (uniq-orig nm)-    (annotations m-      (1-        (implies-          (exists ((acctnum2 text)) (dotransfer acctnum2 b price m nm))-          (doship m goods c)))-      (2-        (and-          (says b-            (forall ((pm name))-              (exists ((acctnum2 text))-                (implies-                  (and (authtransfer c acctnum2 b price m nm)-                    (reqtransfer pm b price pm nm))-                  (dotransfer acctnum2 b price pm nm)))))-          (says c-            (exists ((acctnum2 text))-              (authtransfer c acctnum2 b price m nm)))))-      (3 (and (reqtransfer m b price m nm) (doship m goods c))))))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price text) (nm nb nc data) (b m c hash name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (non-orig (privk b) (privk m) (privk c) (privk hash))-  (uniq-orig nm nb nc)-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m)))))-  (label 330)-  (unrealized (0 2))-  (origs (nb (0 1)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price goods price-0 text) (nm nb nc nc-0 data)-    (b m c hash c-0 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price-0) (nc nc-0) (nm nm)-    (nb nb) (b b) (c c-0) (m m) (hash hash))-  (precedes ((0 1) (1 2)) ((1 1) (0 0)) ((1 3) (0 2)))-  (non-orig (privk b) (privk m) (privk c) (privk hash))-  (uniq-orig nm nb nc)-  (operation encryption-test (added-strand merchant 4)-    (enc (enc "hash" b m nb nm (pubk hash)) (privk m)) (0 2))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c-0 nc-0 goods (pubk m)))-      (send (enc nc-0 nm m price-0 (pubk c-0)))-      (recv-        (cat-          (enc (enc "hash" c-0 nc-0 nb nm price-0 (pubk hash))-            (privk b)) nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m)))))-  (label 331)-  (parent 330)-  (unrealized (1 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price goods text) (nm nb nc data) (b m c hash name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (precedes ((0 1) (1 2)) ((1 1) (0 0)) ((1 3) (0 2)))-  (non-orig (privk b) (privk m) (privk c) (privk hash))-  (uniq-orig nm nb nc)-  (operation encryption-test (displaced 2 0 bank 2)-    (enc (enc "hash" c-0 nc-0 nb nm price-0 (pubk hash)) (privk b))-    (1 2))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m)))))-  (label 332)-  (parent 331)-  (unrealized (0 0) (1 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price goods acctnum-0 goods-0 text) (nm nb nc data)-    (b m c hash b-0 m-0 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nm) (nb nb) (b b-0) (c c) (m m-0)-    (hash hash))-  (precedes ((0 1) (2 3)) ((1 1) (0 0)) ((1 1) (2 1)) ((1 3) (0 2))-    ((2 0) (1 0)) ((2 4) (1 2)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0))-  (uniq-orig nm nb nc)-  (operation nonce-test (added-strand customer 5) nb (1 2)-    (enc "hash" c nc nb nm price (pubk hash)) (enc nc nb (pubk c)))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods-0 (pubk m-0)))-      (recv (enc nc nm m-0 price (pubk c)))-      (send (enc c nc nm acctnum-0 price (pubk b-0)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b-0))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b-0))-          nb))))-  (label 333)-  (parent 332)-  (unrealized (0 0) (2 1) (2 3))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price goods acctnum-0 goods-0 text) (nm nb nc data)-    (b m c hash b-0 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nm) (nb nb) (b b-0) (c c) (m m)-    (hash hash))-  (precedes ((0 1) (2 3)) ((1 1) (0 0)) ((1 1) (2 1)) ((1 3) (0 2))-    ((2 0) (1 0)) ((2 4) (1 2)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0))-  (uniq-orig nm nb nc)-  (operation nonce-test (contracted (m-0 m)) nm (2 1)-    (enc nc nm m price (pubk c)))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum-0 price (pubk b-0)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b-0))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b-0))-          nb))))-  (label 334)-  (parent 333)-  (unrealized (0 0) (1 0) (2 3))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price goods acctnum-0 goods-0 text) (nm nb nc data)-    (b m c hash name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (precedes ((0 1) (2 3)) ((1 1) (0 0)) ((1 1) (2 1)) ((1 3) (0 2))-    ((2 0) (1 0)) ((2 4) (1 2)))-  (non-orig (privk b) (privk m) (privk c) (privk hash))-  (uniq-orig nm nb nc)-  (operation encryption-test (displaced 3 0 bank 2)-    (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b-0)) (2 3))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))))-  (label 335)-  (parent 334)-  (unrealized (0 0) (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods text) (nm nb nc data)-    (b m c hash name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (precedes ((0 1) (2 3)) ((1 1) (0 0)) ((1 1) (2 1)) ((1 3) (0 2))-    ((2 0) (1 0)) ((2 4) (1 2)))-  (non-orig (privk b) (privk m) (privk c) (privk hash))-  (uniq-orig nm nb nc)-  (operation nonce-test (contracted (goods-0 goods)) nc (1 0)-    (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))))-  (label 336)-  (parent 335)-  (unrealized (0 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price goods acctnum-0 goods-0 price-0 text)-    (nm nb nc nm-0 data) (b m c hash name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)-    (price price) (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc)-    (nm nm-0) (c c) (m m))-  (precedes ((0 1) (2 3)) ((1 1) (0 0)) ((1 1) (2 1)) ((1 3) (0 2))-    ((2 0) (3 0)) ((2 4) (1 2)) ((3 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash))-  (uniq-orig nm nb nc nm-0)-  (operation nonce-test (added-strand merchant 2) nc (1 0)-    (enc c nc goods-0 (pubk m)))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods-0 (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc goods-0 (pubk m)))-      (send (enc nc nm-0 m price-0 (pubk c)))))-  (label 337)-  (parent 335)-  (unrealized (0 0) (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods text) (nm nb nc data)-    (b m c hash name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))-    ((2 2) (0 0)) ((2 4) (1 2)))-  (non-orig (privk b) (privk m) (privk c) (privk hash))-  (uniq-orig nm nb nc)-  (operation nonce-test (displaced 3 2 customer 3) nm (0 0)-    (enc nc nm m price (pubk c)))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))))-  (label 338)-  (parent 336)-  (unrealized (0 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods price-0 text)-    (nm nb nc nm-0 data) (b m c hash name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)-    (c c) (m m))-  (precedes ((0 1) (2 3)) ((1 1) (0 0)) ((1 1) (2 1)) ((1 3) (0 2))-    ((2 0) (3 0)) ((2 4) (1 2)) ((3 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash))-  (uniq-orig nm nb nc nm-0)-  (operation nonce-test (contracted (goods-0 goods)) nc (1 0)-    (enc nc nm-0 m price-0 (pubk c)) (enc c nc goods (pubk m)))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm-0 m price-0 (pubk c)))))-  (label 339)-  (parent 337)-  (unrealized (0 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nm nb nc data) (b m c hash name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))-    ((2 2) (0 0)) ((2 4) (1 2)))-  (non-orig (privk b) (privk m) (privk c) (privk hash))-  (uniq-orig nm nb nc)-  (operation nonce-test (contracted (acctnum-0 acctnum)) nm (0 0)-    (enc nc nm m price (pubk c)) (enc c nc nm acctnum price (pubk b)))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))))-  (label 340)-  (parent 338)-  (unrealized)-  (shape)-  (maps-    ((0)-      ((b b) (m m) (c c) (nm nm) (nb nb) (nc nc) (hash hash)-        (acctnum acctnum) (price price))))-  (origs (nc (2 0)) (nm (1 1)) (nb (0 1))))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods text) (nm nb nc nb-0 data)-    (b m c hash hash-0 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nm)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 1) (3 0)) ((1 3) (0 2))-    ((2 0) (1 0)) ((2 2) (0 0)) ((2 4) (1 2)) ((3 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))-  (uniq-orig nm nb nc)-  (operation nonce-test (added-strand bank 2) nm (0 0)-    (enc nc nm m price (pubk c)) (enc c nc nm acctnum-0 price (pubk b)))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc nm acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))-          (enc nc nb-0 (pubk c))))))-  (label 341)-  (parent 338)-  (unrealized (0 0) (3 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods price-0 text)-    (nm nb nc nm-0 data) (b m c hash name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)-    (c c) (m m))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))-    ((2 2) (0 0)) ((2 4) (1 2)) ((3 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash))-  (uniq-orig nm nb nc nm-0)-  (operation nonce-test (displaced 4 2 customer 3) nm (0 0)-    (enc nc nm m price (pubk c)))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm-0 m price-0 (pubk c)))))-  (label 342)-  (parent 339)-  (unrealized (0 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods text) (nm nb nc nb-0 data)-    (b m c hash hash-0 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nm)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))-    ((2 2) (3 0)) ((2 4) (1 2)) ((3 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))-  (uniq-orig nm nb nc)-  (operation nonce-test (displaced 4 2 customer 3) nm (3 0)-    (enc nc nm m price (pubk c)))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc nm acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))-          (enc nc nb-0 (pubk c))))))-  (label 343)-  (parent 341)-  (unrealized (0 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nm nb nc nm-0 data)-    (b m c hash name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)-    (c c) (m m))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))-    ((2 2) (0 0)) ((2 4) (1 2)) ((3 1) (1 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash))-  (uniq-orig nm nb nc nm-0)-  (operation nonce-test (contracted (acctnum-0 acctnum)) nm (0 0)-    (enc nc nm m price (pubk c)) (enc c nc nm acctnum price (pubk b)))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm-0 m price-0 (pubk c)))))-  (label 344)-  (parent 342)-  (seen 340)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods price-0 text)-    (nm nb nc nm-0 nb-0 data) (b m c hash hash-0 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)-    (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nm)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 1) (4 0)) ((1 3) (0 2))-    ((2 0) (3 0)) ((2 2) (0 0)) ((2 4) (1 2)) ((3 1) (1 0))-    ((4 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))-  (uniq-orig nm nb nc nm-0)-  (operation nonce-test (added-strand bank 2) nm (0 0)-    (enc nc nm m price (pubk c)) (enc c nc nm acctnum-0 price (pubk b)))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm-0 m price-0 (pubk c))))-    ((recv (enc c nc nm acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))-          (enc nc nb-0 (pubk c))))))-  (label 345)-  (parent 342)-  (unrealized (0 0) (4 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nm nb nc nb-0 data)-    (b m c hash hash-0 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))-    ((2 2) (3 0)) ((2 4) (1 2)) ((3 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))-  (uniq-orig nm nb nc)-  (operation nonce-test (contracted (acctnum-0 acctnum)) nm (0 0)-    (enc "hash" c nc nb-0 nm price (pubk hash-0))-    (enc nc nm m price (pubk c)) (enc c nc nm acctnum price (pubk b)))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))-          (enc nc nb-0 (pubk c))))))-  (label 346)-  (parent 343)-  (seen 340)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods text) (nb nc nb-0 data)-    (b m c hash hash-0 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))-    ((2 2) (3 0)) ((2 4) (1 2)) ((3 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))-  (uniq-orig nb nc nb-0)-  (operation nonce-test (displaced 4 3 bank 2) nm (0 0)-    (enc "hash" c nc nb-0 nm price (pubk hash-0))-    (enc nc nm m price (pubk c)) (enc c nc nm acctnum-0 price (pubk b)))-  (traces-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))))-  (label 347)-  (parent 343)-  (unrealized (0 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods price-0 text)-    (nm nb nc nm-0 nb-0 data) (b m c hash hash-0 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)-    (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nm)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))-    ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (1 0)) ((4 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))-  (uniq-orig nm nb nc nm-0)-  (operation nonce-test (displaced 5 2 customer 3) nm (4 0)-    (enc nc nm m price (pubk c)))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm-0 m price-0 (pubk c))))-    ((recv (enc c nc nm acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))-          (enc nc nb-0 (pubk c))))))-  (label 348)-  (parent 345)-  (unrealized (0 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nb nc nb-0 data)-    (b m c hash hash-0 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))-    ((2 2) (3 0)) ((2 4) (1 2)) ((3 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))-  (uniq-orig nb nc nb-0)-  (operation nonce-test (contracted (acctnum-0 acctnum)) nb-0 (0 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))))-  (label 349)-  (parent 347)-  (seen 340)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods text) (nb nc nb-0 nb-1 data)-    (b m c hash hash-0 hash-1 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 1) (4 0)) ((1 3) (0 2))-    ((2 0) (1 0)) ((2 2) (3 0)) ((2 4) (1 2)) ((3 1) (0 0))-    ((4 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)-    (privk hash-1))-  (uniq-orig nb nc nb-0)-  (operation nonce-test (added-strand bank 2) nb-0 (0 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b)))-  (traces-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 350)-  (parent 347)-  (unrealized (0 0) (4 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nm nb nc nm-0 nb-0 data)-    (b m c hash hash-0 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)-    (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))-    ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (1 0)) ((4 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))-  (uniq-orig nm nb nc nm-0)-  (operation nonce-test (contracted (acctnum-0 acctnum)) nm (0 0)-    (enc "hash" c nc nb-0 nm price (pubk hash-0))-    (enc nc nm m price (pubk c)) (enc c nc nm acctnum price (pubk b)))-  (traces-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nm m price (pubk c)))-      (send (enc c nc nm acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm-0 m price-0 (pubk c))))-    ((recv (enc c nc nm acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))-          (enc nc nb-0 (pubk c))))))-  (label 351)-  (parent 348)-  (seen 346)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods price-0 text)-    (nb nc nm nb-0 data) (b m c hash hash-0 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))-    ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (1 0)) ((4 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))-  (uniq-orig nb nc nm nb-0)-  (operation nonce-test (displaced 5 4 bank 2) nm-0 (0 0)-    (enc "hash" c nc nb-0 nm-0 price (pubk hash-0))-    (enc nc nm-0 m price (pubk c))-    (enc c nc nm-0 acctnum-0 price (pubk b)))-  (traces-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))))-  (label 352)-  (parent 348)-  (unrealized (0 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods text) (nb nc nb-0 nb-1 data)-    (b m c hash hash-0 hash-1 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))-    ((2 2) (3 0)) ((2 4) (1 2)) ((3 1) (4 0)) ((4 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)-    (privk hash-1))-  (uniq-orig nb nc nb-0)-  (operation nonce-test (displaced 5 3 bank 2) nb-0 (4 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 353)-  (parent 350)-  (unrealized (0 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods text) (nb nc nb-0 nb-1 data)-    (b m c hash hash-0 hash-1 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))-    ((2 2) (3 0)) ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (0 0))-    ((4 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)-    (privk hash-1))-  (uniq-orig nb nc nb-0)-  (operation nonce-test (displaced 5 2 customer 3) nb-0 (4 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 354)-  (parent 350)-  (unrealized (0 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nb nc nm nb-0 data)-    (b m c hash hash-0 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))-    ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (1 0)) ((4 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))-  (uniq-orig nb nc nm nb-0)-  (operation nonce-test (contracted (acctnum-0 acctnum)) nb-0 (0 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c))))))-  (label 355)-  (parent 352)-  (seen 349)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods price-0 text)-    (nb nc nm nb-0 nb-1 data) (b m c hash hash-0 hash-1 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 1) (5 0)) ((1 3) (0 2))-    ((2 0) (3 0)) ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (1 0))-    ((4 1) (0 0)) ((5 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)-    (privk hash-1))-  (uniq-orig nb nc nm nb-0)-  (operation nonce-test (added-strand bank 2) nb-0 (0 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum-0 price (pubk b)))-  (traces-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 356)-  (parent 352)-  (unrealized (0 0) (5 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nb nc nb-0 nb-1 data)-    (b m c hash hash-0 hash-1 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))-    ((2 2) (3 0)) ((2 4) (1 2)) ((3 1) (4 0)) ((4 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)-    (privk hash-1))-  (uniq-orig nb nc nb-0)-  (operation nonce-test (contracted (acctnum-0 acctnum)) nb-0 (0 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 357)-  (parent 353)-  (seen 346)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods text) (nb nc nb-0 nb-1 data)-    (b m c hash hash-0 hash-1 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))-    ((2 2) (3 0)) ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (0 0))-    ((4 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)-    (privk hash-1))-  (uniq-orig nb nc nb-0)-  (operation nonce-test (contracted (acctnum-0 acctnum)) nb-0 (0 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 358)-  (parent 354)-  (seen 346)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods price-0 text)-    (nb nc nm nb-0 nb-1 data) (b m c hash hash-0 hash-1 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))-    ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (1 0)) ((4 1) (5 0))-    ((5 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)-    (privk hash-1))-  (uniq-orig nb nc nm nb-0)-  (operation nonce-test (displaced 6 4 bank 2) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 359)-  (parent 356)-  (unrealized (0 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (acctnum price acctnum-0 goods price-0 text)-    (nb nc nm nb-0 nb-1 data) (b m c hash hash-0 hash-1 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))-    ((2 2) (4 0)) ((2 2) (5 0)) ((2 4) (1 2)) ((3 1) (1 0))-    ((4 1) (0 0)) ((5 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)-    (privk hash-1))-  (uniq-orig nb nc nm nb-0)-  (operation nonce-test (displaced 6 2 customer 3) nb-0 (5 0)-    (enc nc nb-0 m price (pubk c)))-  (traces-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum-0 price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 360)-  (parent 356)-  (unrealized (0 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nb nc nm nb-0 nb-1 data)-    (b m c hash hash-0 hash-1 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))-    ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (1 0)) ((4 1) (5 0))-    ((5 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)-    (privk hash-1))-  (uniq-orig nb nc nm nb-0)-  (operation nonce-test (contracted (acctnum-0 acctnum)) nb-0 (0 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 361)-  (parent 359)-  (seen 357)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton sorted_epmo_acctnum-  (vars (price acctnum goods price-0 text) (nb nc nm nb-0 nb-1 data)-    (b m c hash hash-0 hash-1 name))-  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)-    (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)-    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))-  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)-    (c c) (m m))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-0) (b b) (c c) (hash hash-0))-  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)-    (nb nb-1) (b b) (c c) (hash hash-1))-  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))-    ((2 2) (4 0)) ((2 2) (5 0)) ((2 4) (1 2)) ((3 1) (1 0))-    ((4 1) (0 0)) ((5 1) (0 0)))-  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)-    (privk hash-1))-  (uniq-orig nb nc nm nb-0)-  (operation nonce-test (contracted (acctnum-0 acctnum)) nb-0 (0 0)-    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))-    (enc c nc nb-0 acctnum price (pubk b)))-  (traces-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nb-0 m price (pubk c)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb))-      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))-    ((send (enc c nc goods (pubk m)))-      (recv (enc nc nb-0 m price (pubk c)))-      (send (enc c nc nb-0 acctnum price (pubk b)))-      (recv-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          (enc nc nb (pubk c))))-      (send-        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))-          nb)))-    ((recv (enc c nc goods (pubk m)))-      (send (enc nc nm m price-0 (pubk c))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))-            (privk b)) (enc nc nb-0 (pubk c)))))-    ((recv (enc c nc nb-0 acctnum price (pubk b)))-      (send-        (cat-          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))-            (privk b)) (enc nc nb-1 (pubk c))))))-  (label 362)-  (parent 360)-  (seen 358)+(comment "CPSA 2.3.1")+(comment "All input read from sorted_epmo_acctnum.scm")+(comment "Strand count bounded at 12")++(defprotocol sorted_epmo_acctnum basic+  (defrole bank+    (vars (b c m name) (acctnum price text) (hash name) (nc nm nb data))+    (trace (recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    (non-orig (privk hash))+    (annotations b+      (1+        (forall ((pm name))+          (implies+            (and (authtransfer c acctnum b price pm nm)+              (reqtransfer pm b price pm nm))+            (dotransfer acctnum b price pm nm))))+      (2+        (and (says c (authtransfer c acctnum b price m nm))+          (says m (reqtransfer m b price m nm))))))+  (defrole customer+    (vars (b c m hash name) (acctnum goods price text) (nc nm nb data))+    (trace (send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb)))+    (non-orig (privk b) (privk hash))+    (uniq-orig nc)+    (annotations c+      (1+        (says m+          (implies+            (exists ((acctnum2 text))+              (dotransfer acctnum2 b price m nm)) (doship m goods c))))+      (3+        (says b+          (forall ((pm name))+            (implies+              (and (authtransfer c acctnum b price m nm)+                (reqtransfer pm b price pm nm))+              (dotransfer acctnum b price pm nm)))))+      (4 (authtransfer c acctnum b price m nm))))+  (defrole merchant+    (vars (b c m hash name) (goods price text) (nc nm nb data))+    (trace (recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    (non-orig (privk hash))+    (uniq-orig nm)+    (annotations m+      (1+        (implies+          (exists ((acctnum2 text)) (dotransfer acctnum2 b price m nm))+          (doship m goods c)))+      (2+        (and+          (says b+            (forall ((pm name))+              (exists ((acctnum2 text))+                (implies+                  (and (authtransfer c acctnum2 b price m nm)+                    (reqtransfer pm b price pm nm))+                  (dotransfer acctnum2 b price pm nm)))))+          (says c+            (exists ((acctnum2 text))+              (authtransfer c acctnum2 b price m nm)))))+      (3 (and (reqtransfer m b price m nm) (doship m goods c))))))++(defskeleton sorted_epmo_acctnum+  (vars (goods price text) (nm nc nb data) (b m c hash name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (non-orig (privk b) (privk m) (privk c) (privk hash))+  (uniq-orig nm nc nb)+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m)))))+  (label 0)+  (unrealized (0 2))+  (origs (nm (0 1)))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum text) (nm nc nb data) (b m c hash name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))+  (non-orig (privk b) (privk m) (privk c) (privk hash))+  (uniq-orig nm nc nb)+  (operation encryption-test (added-strand bank 2)+    (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b)) (0 2))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))))+  (label 1)+  (parent 0)+  (unrealized (0 2) (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text) (nm nc nb data)+    (b m c hash b-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nm) (b b-0) (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0))+  (uniq-orig nm nc nb)+  (operation nonce-test (added-strand customer 3) nm (1 0)+    (enc nc nm m price (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum-0 price (pubk b-0)))))+  (label 2)+  (parent 1)+  (unrealized (0 0) (0 2) (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 text) (nm nc nb data)+    (m c hash b name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nm) (b b) (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b))+  (uniq-orig nm nc nb)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nm+    (1 0) (enc nc nm m price (pubk c))+    (enc c nc nm acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b)))))+  (label 3)+  (parent 2)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text)+    (nm nc nb nb-0 data) (b m c hash b-0 hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nm) (b b-0) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nm)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (precedes ((0 1) (2 1)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 0) (0 0))+    ((2 2) (1 0)) ((3 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0))+  (uniq-orig nm nc nb)+  (operation nonce-test (added-strand bank 2) nm (1 0)+    (enc nc nm m price (pubk c))+    (enc c nc nm acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum-0 price (pubk b-0))))+    ((recv (enc c nc nm acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))))+  (label 4)+  (parent 2)+  (unrealized (0 0) (0 2) (1 0) (3 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nm nc nb data) (m c hash b name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nm) (b b) (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b))+  (uniq-orig nm nc nb)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b)))))+  (label 5)+  (parent 3)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text) (nm nc nb nm-0 data)+    (m c hash b name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nm) (b b) (c c) (m m))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc)+    (nm nm-0) (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (3 0)) ((2 2) (1 0))+    ((3 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b))+  (uniq-orig nm nc nb nm-0)+  (operation nonce-test (added-strand merchant 2) nc (0 0)+    (enc c nc goods-0 (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm-0 m price-0 (pubk c)))))+  (label 6)+  (parent 3)+  (unrealized (0 0) (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text)+    (nm nc nb nb-0 data) (b m c hash b-0 hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nm) (b b-0) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nm)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))+    ((3 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0))+  (uniq-orig nm nc nb)+  (operation nonce-test (displaced 4 2 customer 3) nm (3 0)+    (enc nc nm m price (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum-0 price (pubk b-0))))+    ((recv (enc c nc nm acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))))+  (label 7)+  (parent 4)+  (unrealized (0 0) (0 2) (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nm nc nb data) (c hash b m name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (precedes ((0 1) (2 1)) ((1 1) (2 3)) ((2 0) (0 0)) ((2 2) (1 0))+    ((2 4) (0 2)))+  (non-orig (privk c) (privk hash) (privk b) (privk m))+  (uniq-orig nm nc nb)+  (operation nonce-test (displaced 2 3 customer 5) nb (0 2)+    (enc "hash" c nc nb nm price (pubk hash)) (enc nc nb (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))))+  (label 8)+  (parent 5)+  (unrealized)+  (shape)+  (maps+    ((0)+      ((b b) (m m) (c c) (nm nm) (nc nc) (nb nb) (hash hash)+        (goods goods) (price price))))+  (origs (nc (2 0)) (nm (0 1)) (nb (1 1))))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods price-0 text) (nm nc nb nm-0 data)+    (m c hash b name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nm) (b b) (c c) (m m))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (3 0)) ((2 2) (1 0))+    ((3 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b))+  (uniq-orig nm nc nb nm-0)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc nc nm-0 m price-0 (pubk c)) (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm-0 m price-0 (pubk c)))))+  (label 9)+  (parent 6)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 text) (nm nc nb nb-0 data)+    (m c hash b hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nm) (b b) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))+    ((3 1) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))+  (uniq-orig nm nc nb)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nm+    (1 0) (enc "hash" c nc nb-0 nm price (pubk hash-0))+    (enc nc nm m price (pubk c)) (enc c nc nm acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))+          (enc nc nb-0 (pubk c))))))+  (label 10)+  (parent 7)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text) (nc nb nb-0 data)+    (b m c hash b-0 hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (b b-0) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))+    ((3 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (displaced 4 3 bank 2) nm (1 0)+    (enc "hash" c nc nb-0 nm price (pubk hash-0))+    (enc nc nm m price (pubk c))+    (enc c nc nm acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))))+  (label 11)+  (parent 7)+  (unrealized (0 0) (0 2) (1 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price price-0 acctnum goods text) (nm nc nb nm-0 data)+    (c hash b m name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)+    (c c) (m m))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (precedes ((0 1) (3 1)) ((1 1) (3 3)) ((2 1) (0 0)) ((3 0) (2 0))+    ((3 2) (1 0)) ((3 4) (0 2)))+  (non-orig (privk c) (privk hash) (privk b) (privk m))+  (uniq-orig nm nc nb nm-0)+  (operation nonce-test (displaced 2 4 customer 5) nb (0 2)+    (enc "hash" c nc nb nm price (pubk hash)) (enc nc nb (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm-0 m price-0 (pubk c))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))))+  (label 12)+  (parent 9)+  (seen 8)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nm nc nb nb-0 data)+    (m c hash b hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nm) (b b) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))+    ((3 1) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))+  (uniq-orig nm nc nb)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))+          (enc nc nb-0 (pubk c))))))+  (label 13)+  (parent 10)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text)+    (nm nc nb nb-0 nm-0 data) (m c hash b hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nm) (b b) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc)+    (nm nm-0) (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (4 0)) ((2 2) (3 0))+    ((3 1) (1 0)) ((4 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))+  (uniq-orig nm nc nb nm-0)+  (operation nonce-test (added-strand merchant 2) nc (0 0)+    (enc c nc goods-0 (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))+          (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm-0 m price-0 (pubk c)))))+  (label 14)+  (parent 10)+  (unrealized (0 0) (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 text) (nc nb nb-0 data)+    (m c hash b hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (b b) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))+    ((3 1) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nb-0+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))))+  (label 15)+  (parent 11)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (b b-0) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (precedes ((0 1) (2 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 0) (0 0))+    ((2 2) (3 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (added-strand bank 2) nb-0 (1 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c))))))+  (label 16)+  (parent 11)+  (unrealized (0 0) (0 2) (1 0) (4 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text) (nc nb nb-0 data)+    (b m c hash b-0 hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (0 0))+    ((3 2) (2 0)) ((3 4) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (displaced 2 4 customer 5) nb-0 (1 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0))))+  (label 17)+  (parent 11)+  (unrealized (0 0) (0 2) (1 0) (3 3))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nm nc nb nb-0 data)+    (c hash hash-0 b m name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (precedes ((0 1) (3 1)) ((1 1) (3 3)) ((2 1) (1 0)) ((3 0) (0 0))+    ((3 2) (2 0)) ((3 4) (0 2)))+  (non-orig (privk c) (privk hash) (privk hash-0) (privk b) (privk m))+  (uniq-orig nm nc nb)+  (operation nonce-test (displaced 2 4 customer 5) nb (0 2)+    (enc "hash" c nc nb nm price (pubk hash)) (enc nc nb (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))+          (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))))+  (label 18)+  (parent 13)+  (seen 8)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods price-0 text) (nm nc nb nb-0 nm-0 data)+    (m c hash b hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nm) (b b) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (4 0)) ((2 2) (3 0))+    ((3 1) (1 0)) ((4 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))+  (uniq-orig nm nc nb nm-0)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc nc nm-0 m price-0 (pubk c)) (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))+          (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm-0 m price-0 (pubk c)))))+  (label 19)+  (parent 14)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nc nb nb-0 data)+    (m c hash b hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (b b) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))+    ((3 1) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))))+  (label 20)+  (parent 15)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text) (nc nb nb-0 nm data)+    (m c hash b hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (b b) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (4 0)) ((2 2) (3 0))+    ((3 1) (1 0)) ((4 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (0 0)+    (enc c nc goods-0 (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 21)+  (parent 15)+  (unrealized (0 0) (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (b b-0) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))+    ((2 2) (4 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (displaced 5 2 customer 3) nb-0 (4 0)+    (enc nc nb-0 m price (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c))))))+  (label 22)+  (parent 16)+  (unrealized (0 0) (0 2) (1 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text) (nc nb nb-0 data)+    (b m c hash b-0 hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (3 3)) ((3 0) (0 0))+    ((3 2) (2 0)) ((3 4) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0))+  (uniq-orig nc nb nb-0)+  (operation encryption-test (displaced 4 2 bank 2)+    (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0)) (privk b-0))+    (3 3))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0))))+  (label 23)+  (parent 17)+  (unrealized (0 0) (0 2) (1 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)+    (nc nb nb-0 data) (b m c hash b-0 hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (precedes ((0 1) (3 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 0) (0 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (3 3)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0))+  (uniq-orig nc nb nb-0)+  (operation encryption-test (added-strand bank 2)+    (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0)) (privk b-0))+    (3 3))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))))+  (label 24)+  (parent 17)+  (unrealized (0 0) (0 2) (1 0) (4 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price price-0 acctnum goods text) (nm nc nb nb-0 nm-0 data)+    (c hash hash-0 b m name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)+    (c c) (m m))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (precedes ((0 1) (4 1)) ((1 1) (4 3)) ((2 1) (1 0)) ((3 1) (0 0))+    ((4 0) (3 0)) ((4 2) (2 0)) ((4 4) (0 2)))+  (non-orig (privk c) (privk hash) (privk hash-0) (privk b) (privk m))+  (uniq-orig nm nc nb nm-0)+  (operation nonce-test (displaced 2 5 customer 5) nb (0 2)+    (enc "hash" c nc nb nm price (pubk hash)) (enc nc nb (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))+          (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm-0 m price-0 (pubk c))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))))+  (label 25)+  (parent 19)+  (seen 12)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nc nb nb-0 data)+    (c hash hash-0 b m name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))+  (precedes ((0 1) (3 1)) ((1 1) (3 3)) ((2 1) (1 0)) ((3 0) (0 0))+    ((3 2) (2 0)) ((3 4) (0 2)))+  (non-orig (privk c) (privk hash) (privk hash-0) (privk b) (privk m))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (displaced 2 4 customer 5) nb (0 2)+    (enc "hash" c nc nb nb-0 price (pubk hash)) (enc nc nb (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))))+  (label 26)+  (parent 20)+  (seen 8)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods price-0 text) (nc nb nb-0 nm data)+    (m c hash b hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (b b) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (4 0)) ((2 2) (3 0))+    ((3 1) (1 0)) ((4 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 27)+  (parent 21)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (b b) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))+    ((2 2) (4 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nb-0+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 28)+  (parent 22)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text) (nc nb nb-0 data)+    (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-1))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-1))+  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (1 0))+    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (displaced 2 5 customer 5) nb-0 (1 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b-0)) nb-0))))+  (label 29)+  (parent 22)+  (seen 23 24)+  (unrealized (0 0) (0 2) (1 0) (4 3))+  (comment "2 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (1 0))+    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (displaced 2 5 customer 5) nb-0 (1 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0))))+  (label 30)+  (parent 22)+  (unrealized (0 0) (0 2) (1 0) (4 3))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 text) (nc nb nb-0 data)+    (m c hash b hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (3 3)) ((3 0) (0 0))+    ((3 2) (2 0)) ((3 4) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0))))+  (label 31)+  (parent 23)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (precedes ((0 1) (3 1)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (3 3))+    ((3 0) (0 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (added-strand bank 2) nc (1 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c))))))+  (label 32)+  (parent 23)+  (seen 38)+  (unrealized (0 0) (0 2) (1 0) (4 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)+    (nc nb nb-0 nm data) (b m c hash b-0 hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (3 3)) ((3 0) (0 0))+    ((3 0) (4 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (1 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 33)+  (parent 23)+  (unrealized (0 0) (0 2) (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)+    (nc nb nb-0 data) (b m c hash b-0 hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (0 0))+    ((3 2) (2 0)) ((3 2) (4 0)) ((3 4) (1 0)) ((4 1) (3 3)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (displaced 5 3 customer 3) nb-0 (4 0)+    (enc nc nb-0 m price (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))))+  (label 34)+  (parent 24)+  (seen 23)+  (unrealized (0 0) (0 2) (1 0) (4 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price price-0 acctnum goods text) (nc nb nb-0 nm data)+    (c hash hash-0 b m name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))+  (precedes ((0 1) (4 1)) ((1 1) (4 3)) ((2 1) (1 0)) ((3 1) (0 0))+    ((4 0) (3 0)) ((4 2) (2 0)) ((4 4) (0 2)))+  (non-orig (privk c) (privk hash) (privk hash-0) (privk b) (privk m))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (displaced 2 5 customer 5) nb (0 2)+    (enc "hash" c nc nb nb-0 price (pubk hash)) (enc nc nb (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))))+  (label 35)+  (parent 27)+  (seen 12)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (b b) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (3 0))+    ((2 2) (4 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 36)+  (parent 28)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (b b) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (5 0)) ((2 2) (3 0))+    ((2 2) (4 0)) ((3 1) (1 0)) ((4 1) (1 0)) ((5 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (0 0)+    (enc c nc goods-0 (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 37)+  (parent 28)+  (unrealized (0 0) (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (4 3)) ((3 1) (1 0))+    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation encryption-test (displaced 5 2 bank 2)+    (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0)) (privk b-0))+    (4 3))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0))))+  (label 38)+  (parent 30)+  (unrealized (0 0) (0 2) (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text) (nc nb nb-0 data)+    (b m c hash b-0 hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (4 3))+    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0))+  (uniq-orig nc nb nb-0)+  (operation encryption-test (displaced 5 3 bank 2)+    (enc (enc "hash" c nc nb-1 nb-1 price (pubk hash-1)) (privk b-0))+    (4 3))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0))))+  (label 39)+  (parent 30)+  (seen 31 32 33)+  (unrealized (0 0) (0 2) (1 0))+  (comment "3 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (precedes ((0 1) (4 1)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0))+    ((4 4) (1 0)) ((5 1) (4 3)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation encryption-test (added-strand bank 2)+    (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0)) (privk b-0))+    (4 3))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))))+  (label 40)+  (parent 30)+  (unrealized (0 0) (0 2) (1 0) (5 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nc nb nb-0 data)+    (m c hash b hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (3 3)) ((3 0) (0 0))+    ((3 2) (2 0)) ((3 4) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0))))+  (label 41)+  (parent 31)+  (unrealized (0 2))+  (comment "empty cohort"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text) (nc nb nb-0 nm data)+    (m c hash b hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (3 3)) ((3 0) (4 0))+    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (0 0)+    (enc c nc goods-0 (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 42)+  (parent 31)+  (unrealized (0 0) (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text) (nc nb nb-0 nm data)+    (m c hash b hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (3 3)) ((3 0) (0 0))+    ((3 0) (4 0)) ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc nc nm m price-0 (pubk c)) (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 43)+  (parent 33)+  (seen 41 42)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)+    (nc nb nb-0 nm nb-1 data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (precedes ((0 1) (3 1)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (3 3))+    ((3 0) (0 0)) ((3 0) (4 0)) ((3 2) (2 0)) ((3 4) (1 0))+    ((4 1) (1 0)) ((5 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand bank 2) nc (1 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc nc nm m price-0 (pubk c)) (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c))))))+  (label 44)+  (parent 33)+  (seen 49)+  (unrealized (0 0) (0 2) (1 0) (5 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (precedes ((0 1) (3 1)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 0) (0 0)) ((3 2) (2 0)) ((3 2) (4 0)) ((3 4) (1 0))+    ((4 1) (3 3)) ((5 1) (4 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (added-strand bank 2) nb-0 (4 0)+    (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c))))))+  (label 45)+  (parent 34)+  (unrealized (0 0) (0 2) (1 0) (4 0) (5 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)+    (c hash hash-0 hash-1 b m name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))+  (precedes ((0 1) (4 1)) ((1 1) (4 3)) ((2 1) (1 0)) ((3 1) (1 0))+    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (0 2)))+  (non-orig (privk c) (privk hash) (privk hash-0) (privk hash-1)+    (privk b) (privk m))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (displaced 2 5 customer 5) nb (0 2)+    (enc "hash" c nc nb nb-0 price (pubk hash)) (enc nc nb (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))))+  (label 46)+  (parent 36)+  (seen 18)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 3 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (b b) (c c) (m m))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (5 0)) ((2 2) (3 0))+    ((2 2) (4 0)) ((3 1) (1 0)) ((4 1) (1 0)) ((5 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 47)+  (parent 37)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (4 3)) ((3 1) (1 0))+    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))+    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0))))+  (label 48)+  (parent 38)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (4 3)) ((3 1) (1 0))+    ((4 0) (0 0)) ((4 0) (5 0)) ((4 2) (2 0)) ((4 2) (3 0))+    ((4 4) (1 0)) ((5 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (1 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))+    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 49)+  (parent 38)+  (unrealized (0 0) (0 2) (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 1) (1 0))+    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 2) (5 0))+    ((4 4) (1 0)) ((5 1) (4 3)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (displaced 6 4 customer 3) nb-0 (5 0)+    (enc nc nb-0 m price (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))))+  (label 50)+  (parent 40)+  (seen 38 52)+  (unrealized (0 0) (0 2) (1 0) (5 0))+  (comment "3 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods price-0 text) (nc nb nb-0 nm data)+    (m c hash b hash-0 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (3 3)) ((3 0) (4 0))+    ((3 2) (2 0)) ((3 4) (1 0)) ((4 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 51)+  (parent 42)+  (unrealized (0 2))+  (comment "empty cohort"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (0 0))+    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))+    ((5 1) (4 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (displaced 6 3 customer 3) nb-0 (5 0)+    (enc nc nb-0 m price (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c))))))+  (label 52)+  (parent 45)+  (unrealized (0 0) (0 2) (1 0) (4 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price price-0 acctnum goods text) (nc nb nb-0 nb-1 nm data)+    (c hash hash-0 hash-1 b m name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))+  (precedes ((0 1) (5 1)) ((1 1) (5 3)) ((2 1) (1 0)) ((3 1) (1 0))+    ((4 1) (0 0)) ((5 0) (4 0)) ((5 2) (2 0)) ((5 2) (3 0))+    ((5 4) (0 2)))+  (non-orig (privk c) (privk hash) (privk hash-0) (privk hash-1)+    (privk b) (privk m))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (displaced 2 6 customer 5) nb (0 2)+    (enc "hash" c nc nb nb-0 price (pubk hash)) (enc nc nb (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))))+  (label 53)+  (parent 47)+  (seen 25)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (4 3)) ((3 1) (1 0))+    ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0))))+  (label 54)+  (parent 48)+  (unrealized (0 2))+  (comment "empty cohort"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (4 3)) ((3 1) (1 0))+    ((4 0) (5 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0))+    ((5 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (0 0)+    (enc c nc goods-0 (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 55)+  (parent 48)+  (unrealized (0 0) (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (4 3)) ((3 1) (1 0))+    ((4 0) (0 0)) ((4 0) (5 0)) ((4 2) (2 0)) ((4 2) (3 0))+    ((4 4) (1 0)) ((5 1) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))+    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))+    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 56)+  (parent 49)+  (seen 54 55)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)+    (nc nb nb-0 nb-1 nb-2 data)+    (b m c hash b-0 hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-2) (b b-0) (c c) (hash hash-2))+  (precedes ((0 1) (4 1)) ((0 1) (6 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)) ((4 0) (0 0)) ((4 2) (2 0)) ((4 2) (3 0))+    ((4 2) (5 0)) ((4 4) (1 0)) ((5 1) (4 3)) ((6 1) (5 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (added-strand bank 2) nb-0 (5 0)+    (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-2 nb-0 price (pubk hash-2))+            (privk b-0)) (enc nc nb-2 (pubk c))))))+  (label 57)+  (parent 50)+  (seen 52)+  (unrealized (0 0) (0 2) (1 0) (5 0) (6 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (4 0))+    ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (4 0)+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c))))))+  (label 58)+  (parent 52)+  (unrealized (0 0) (0 2) (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)+    (nc nb nb-0 data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-1))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (0 0))+    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))+    ((5 1) (4 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (displaced 6 5 bank 2) nb-1 (4 0)+    (enc "hash" c nc nb-0 nb-1 price (pubk hash-1))+    (enc nc nb-1 m price (pubk c))+    (enc c nc nb-1 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-0 (pubk c))))))+  (label 59)+  (parent 52)+  (unrealized (0 0) (0 2) (1 0) (4 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))+    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))+    ((5 1) (4 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (displaced 6 2 bank 2) nb-0 (4 0)+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c))))))+  (label 60)+  (parent 52)+  (unrealized (0 0) (0 2) (1 0) (4 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (4 1)) ((1 1) (0 2)) ((2 1) (4 3)) ((3 1) (1 0))+    ((4 0) (5 0)) ((4 2) (2 0)) ((4 2) (3 0)) ((4 4) (1 0))+    ((5 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 61)+  (parent 55)+  (unrealized (0 2))+  (comment "empty cohort"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (4 0))+    ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))+    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 62)+  (parent 58)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 0) (5 0))+    ((2 2) (4 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))+    ((5 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (1 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))+    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 63)+  (parent 58)+  (unrealized (0 0) (0 2) (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text) (nc nb nb-0 data)+    (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-1))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (4 0))+    ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (4 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-0 (pubk c))))))+  (label 64)+  (parent 59)+  (unrealized (0 0) (0 2) (1 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-2))+  (precedes ((0 1) (3 1)) ((0 1) (6 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 0) (0 0)) ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0))+    ((4 1) (3 3)) ((5 1) (4 0)) ((6 1) (4 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (added-strand bank 2) nb-0 (4 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b-0)) (enc nc nb-1 (pubk c))))))+  (label 65)+  (parent 59)+  (unrealized (0 0) (0 2) (1 0) (4 0) (6 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))+    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))+    ((5 1) (4 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (4 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c))))))+  (label 66)+  (parent 60)+  (unrealized (0 0) (0 2) (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (4 0))+    ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 67)+  (parent 62)+  (unrealized (0 2))+  (comment "empty cohort"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (5 0)) ((2 2) (4 0))+    ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0)) ((5 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (0 0)+    (enc c nc goods-0 (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 68)+  (parent 62)+  (unrealized (0 0) (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 0) (5 0))+    ((2 2) (4 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))+    ((5 1) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))+    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))+    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 69)+  (parent 63)+  (seen 67 68)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 text) (nc nb nb-0 data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-1))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (4 0))+    ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-0 (pubk c))))))+  (label 70)+  (parent 64)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-2))+  (precedes ((0 1) (2 1)) ((0 1) (5 0)) ((1 1) (0 2)) ((2 0) (0 0))+    ((2 2) (4 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))+    ((5 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (added-strand bank 2) nc (1 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b-0)) (enc nc nb-1 (pubk c))))))+  (label 71)+  (parent 64)+  (unrealized (0 0) (0 2) (1 0) (5 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)+    (nc nb nb-0 nm data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 0) (5 0))+    ((2 2) (4 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))+    ((5 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (1 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 72)+  (parent 64)+  (unrealized (0 0) (0 2) (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 acctnum-1 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-1) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-2))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (1 0)) ((3 0) (0 0))+    ((3 2) (2 0)) ((3 2) (5 0)) ((3 2) (6 0)) ((3 4) (1 0))+    ((4 1) (3 3)) ((5 1) (4 0)) ((6 1) (4 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (displaced 7 3 customer 3) nb-0 (6 0)+    (enc nc nb-0 m price (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-1 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b-0)) (enc nc nb-1 (pubk c))))))+  (label 73)+  (parent 65)+  (unrealized (0 0) (0 2) (1 0) (4 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))+    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))+    ((5 1) (4 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))+    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 74)+  (parent 66)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data) (b m c hash b-0 hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))+    ((3 0) (6 0)) ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0))+    ((4 1) (3 3)) ((5 1) (4 0)) ((6 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (1 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))+    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 75)+  (parent 66)+  (unrealized (0 0) (0 2) (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (5 0)) ((2 2) (4 0))+    ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0)) ((5 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 76)+  (parent 68)+  (unrealized (0 2))+  (comment "empty cohort"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nc nb nb-0 data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-1))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (4 0))+    ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-0 (pubk c))))))+  (label 77)+  (parent 70)+  (unrealized (0 2))+  (comment "empty cohort"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text) (nc nb nb-0 nm data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (5 0)) ((2 2) (4 0))+    ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0)) ((5 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (0 0)+    (enc c nc goods-0 (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 78)+  (parent 70)+  (unrealized (0 0) (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-2))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (4 0))+    ((2 2) (5 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))+    ((5 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (displaced 6 2 customer 3) nb-0 (5 0)+    (enc nc nb-0 m price (pubk c)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b-0)) (enc nc nb-1 (pubk c))))))+  (label 79)+  (parent 71)+  (unrealized (0 0) (0 2) (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text) (nc nb nb-0 nm data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 0) (5 0))+    ((2 2) (4 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))+    ((5 1) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc nc nm m price-0 (pubk c)) (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 80)+  (parent 72)+  (seen 77 78)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)+    (nc nb nb-0 nm nb-1 data)+    (b m c hash b-0 hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-2))+  (precedes ((0 1) (2 1)) ((0 1) (6 0)) ((1 1) (0 2)) ((2 0) (0 0))+    ((2 0) (5 0)) ((2 2) (4 0)) ((2 4) (1 0)) ((3 1) (2 3))+    ((4 1) (3 0)) ((5 1) (1 0)) ((6 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand bank 2) nc (1 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc nc nm m price-0 (pubk c)) (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b-0)) (enc nc nb-1 (pubk c))))))+  (label 81)+  (parent 72)+  (seen 88)+  (unrealized (0 0) (0 2) (1 0) (6 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 text)+    (nc nb nb-0 nb-1 data) (b m c hash b-0 hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-2))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (4 0))+    ((2 2) (5 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))+    ((5 1) (3 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (acctnum-1 acctnum-0)) nb-0 (4 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b-0)) (enc nc nb-1 (pubk c))))))+  (label 82)+  (parent 73)+  (unrealized (0 0) (0 2) (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))+    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))+    ((5 1) (4 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 83)+  (parent 74)+  (unrealized (0 2))+  (comment "empty cohort"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (6 0))+    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))+    ((5 1) (4 0)) ((6 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (0 0)+    (enc c nc goods-0 (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 84)+  (parent 74)+  (unrealized (0 0) (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (0 0))+    ((3 0) (6 0)) ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0))+    ((4 1) (3 3)) ((5 1) (4 0)) ((6 1) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))+    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))+    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 85)+  (parent 75)+  (seen 83 84)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods price-0 text) (nc nb nb-0 nm data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (5 0)) ((2 2) (4 0))+    ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0)) ((5 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 86)+  (parent 78)+  (unrealized (0 2))+  (comment "empty cohort"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)+    (m c hash b hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-2))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (4 0))+    ((2 2) (5 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))+    ((5 1) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))+    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 87)+  (parent 79)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data)+    (b m c hash b-0 hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-2))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 0) (6 0))+    ((2 2) (4 0)) ((2 2) (5 0)) ((2 4) (1 0)) ((3 1) (2 3))+    ((4 1) (3 0)) ((5 1) (1 0)) ((6 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (1 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))+    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b-0)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 88)+  (parent 79)+  (unrealized (0 0) (0 2) (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 text) (nc nb nb-0 nb-1 data)+    (m c hash b hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-2))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (4 0))+    ((2 2) (5 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))+    ((5 1) (3 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))+    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 89)+  (parent 82)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum acctnum-0 goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data)+    (b m c hash b-0 hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nb-0) (nb nb-0) (b b-0) (c c) (m m)+    (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b-0) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b-0) (c c) (hash hash-2))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 0) (6 0))+    ((2 2) (4 0)) ((2 2) (5 0)) ((2 4) (1 0)) ((3 1) (2 3))+    ((4 1) (3 0)) ((5 1) (3 0)) ((6 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0)+    (privk hash-0) (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (1 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))+    (enc nc nb-0 m price (pubk c)) (enc c nc goods-0 (pubk m))+    (enc c nc nb-0 acctnum-0 price (pubk b-0)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) nb-0)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b-0)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b-0)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b-0)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 90)+  (parent 82)+  (unrealized (0 0) (0 2) (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)+    (m c hash b hash-0 hash-1 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (3 1)) ((1 1) (0 2)) ((2 1) (4 0)) ((3 0) (6 0))+    ((3 2) (2 0)) ((3 2) (5 0)) ((3 4) (1 0)) ((4 1) (3 3))+    ((5 1) (4 0)) ((6 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 91)+  (parent 84)+  (unrealized (0 2))+  (comment "empty cohort"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)+    (m c hash b hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-2))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (4 0))+    ((2 2) (5 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))+    ((5 1) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 92)+  (parent 87)+  (unrealized (0 2))+  (comment "empty cohort"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-2))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (6 0)) ((2 2) (4 0))+    ((2 2) (5 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))+    ((5 1) (1 0)) ((6 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (0 0)+    (enc c nc goods-0 (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 93)+  (parent 87)+  (unrealized (0 0) (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-2))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 0) (6 0))+    ((2 2) (4 0)) ((2 2) (5 0)) ((2 4) (1 0)) ((3 1) (2 3))+    ((4 1) (3 0)) ((5 1) (1 0)) ((6 1) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))+    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))+    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 94)+  (parent 88)+  (seen 92 93)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nc nb nb-0 nb-1 data)+    (m c hash b hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-2))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 2) (4 0))+    ((2 2) (5 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))+    ((5 1) (3 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 95)+  (parent 89)+  (unrealized (0 2))+  (comment "empty cohort"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-2))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (6 0)) ((2 2) (4 0))+    ((2 2) (5 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))+    ((5 1) (3 0)) ((6 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (added-strand merchant 2) nc (0 0)+    (enc c nc goods-0 (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 96)+  (parent 89)+  (unrealized (0 0) (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (goods price acctnum goods-0 price-0 text)+    (nc nb nb-0 nb-1 nm data) (m c hash b hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods-0) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-2))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (0 0)) ((2 0) (6 0))+    ((2 2) (4 0)) ((2 2) (5 0)) ((2 4) (1 0)) ((3 1) (2 3))+    ((4 1) (3 0)) ((5 1) (3 0)) ((6 1) (1 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (b-0 b) (acctnum-0 acctnum)) nc+    (1 0) (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+    (enc nc nb-0 (pubk c)) (enc nc nb-1 (pubk c))+    (enc nc nb-0 m price (pubk c)) (enc nc nm m price-0 (pubk c))+    (enc c nc goods-0 (pubk m)) (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 97)+  (parent 90)+  (seen 95 96)+  (unrealized (0 0) (0 2))+  (comment "2 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)+    (m c hash b hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-2))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (6 0)) ((2 2) (4 0))+    ((2 2) (5 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))+    ((5 1) (1 0)) ((6 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 98)+  (parent 93)+  (unrealized (0 2))+  (comment "empty cohort"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods price-0 text) (nc nb nb-0 nb-1 nm data)+    (m c hash b hash-0 hash-1 hash-2 name))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb-0) (b b) (c c) (m m) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-1))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-2))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (precedes ((0 1) (2 1)) ((1 1) (0 2)) ((2 0) (6 0)) ((2 2) (4 0))+    ((2 2) (5 0)) ((2 4) (1 0)) ((3 1) (2 3)) ((4 1) (3 0))+    ((5 1) (3 0)) ((6 1) (0 0)))+  (non-orig (privk m) (privk c) (privk hash) (privk b) (privk hash-0)+    (privk hash-1) (privk hash-2))+  (uniq-orig nc nb nb-0 nm)+  (operation nonce-test (contracted (goods-0 goods)) nc (0 0)+    (enc nc nm m price-0 (pubk c)) (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c)))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) nb-0)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-2))+            (privk b)) (enc nc nb-1 (pubk c)))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c)))))+  (label 99)+  (parent 96)+  (unrealized (0 2))+  (comment "empty cohort"))++(comment "Nothing left to do")++(defprotocol sorted_epmo_acctnum basic+  (defrole bank+    (vars (b c m name) (acctnum price text) (hash name) (nc nm nb data))+    (trace (recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    (non-orig (privk hash))+    (annotations b+      (1+        (forall ((pm name))+          (implies+            (and (authtransfer c acctnum b price pm nm)+              (reqtransfer pm b price pm nm))+            (dotransfer acctnum b price pm nm))))+      (2+        (and (says c (authtransfer c acctnum b price m nm))+          (says m (reqtransfer m b price m nm))))))+  (defrole customer+    (vars (b c m hash name) (acctnum goods price text) (nc nm nb data))+    (trace (send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb)))+    (non-orig (privk b) (privk hash))+    (uniq-orig nc)+    (annotations c+      (1+        (says m+          (implies+            (exists ((acctnum2 text))+              (dotransfer acctnum2 b price m nm)) (doship m goods c))))+      (3+        (says b+          (forall ((pm name))+            (implies+              (and (authtransfer c acctnum b price m nm)+                (reqtransfer pm b price pm nm))+              (dotransfer acctnum b price pm nm)))))+      (4 (authtransfer c acctnum b price m nm))))+  (defrole merchant+    (vars (b c m hash name) (goods price text) (nc nm nb data))+    (trace (recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    (non-orig (privk hash))+    (uniq-orig nm)+    (annotations m+      (1+        (implies+          (exists ((acctnum2 text)) (dotransfer acctnum2 b price m nm))+          (doship m goods c)))+      (2+        (and+          (says b+            (forall ((pm name))+              (exists ((acctnum2 text))+                (implies+                  (and (authtransfer c acctnum2 b price m nm)+                    (reqtransfer pm b price pm nm))+                  (dotransfer acctnum2 b price pm nm)))))+          (says c+            (exists ((acctnum2 text))+              (authtransfer c acctnum2 b price m nm)))))+      (3 (and (reqtransfer m b price m nm) (doship m goods c))))))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price text) (nm nb nc data) (b m c hash name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (non-orig (privk b) (privk m) (privk c) (privk hash))+  (uniq-orig nm nb nc)+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m)))))+  (label 100)+  (unrealized (0 2))+  (origs (nb (0 1)))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price goods price-0 text) (nm nb nc nc-0 data)+    (b m c hash c-0 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price-0) (nc nc-0) (nm nm)+    (nb nb) (b b) (c c-0) (m m) (hash hash))+  (precedes ((0 1) (1 2)) ((1 1) (0 0)) ((1 3) (0 2)))+  (non-orig (privk b) (privk m) (privk c) (privk hash))+  (uniq-orig nm nb nc)+  (operation encryption-test (added-strand merchant 4)+    (enc (enc "hash" b m nb nm (pubk hash)) (privk m)) (0 2))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c-0 nc-0 goods (pubk m)))+      (send (enc nc-0 nm m price-0 (pubk c-0)))+      (recv+        (cat+          (enc (enc "hash" c-0 nc-0 nb nm price-0 (pubk hash))+            (privk b)) nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m)))))+  (label 101)+  (parent 100)+  (unrealized (1 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price goods text) (nm nb nc data) (b m c hash name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (precedes ((0 1) (1 2)) ((1 1) (0 0)) ((1 3) (0 2)))+  (non-orig (privk b) (privk m) (privk c) (privk hash))+  (uniq-orig nm nb nc)+  (operation encryption-test (displaced 2 0 bank 2)+    (enc (enc "hash" c-0 nc-0 nb nm price-0 (pubk hash)) (privk b))+    (1 2))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m)))))+  (label 102)+  (parent 101)+  (unrealized (0 0) (1 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price goods acctnum-0 goods-0 text) (nm nb nc data)+    (b m c hash b-0 m-0 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nm) (nb nb) (b b-0) (c c) (m m-0)+    (hash hash))+  (precedes ((0 1) (2 3)) ((1 1) (0 0)) ((1 1) (2 1)) ((1 3) (0 2))+    ((2 0) (1 0)) ((2 4) (1 2)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0))+  (uniq-orig nm nb nc)+  (operation nonce-test (added-strand customer 5) nb (1 2)+    (enc "hash" c nc nb nm price (pubk hash)) (enc nc nb (pubk c)))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods-0 (pubk m-0)))+      (recv (enc nc nm m-0 price (pubk c)))+      (send (enc c nc nm acctnum-0 price (pubk b-0)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b-0))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b-0))+          nb))))+  (label 103)+  (parent 102)+  (unrealized (0 0) (2 1) (2 3))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price goods acctnum-0 goods-0 text) (nm nb nc data)+    (b m c hash b-0 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nm) (nb nb) (b b-0) (c c) (m m)+    (hash hash))+  (precedes ((0 1) (2 3)) ((1 1) (0 0)) ((1 1) (2 1)) ((1 3) (0 2))+    ((2 0) (1 0)) ((2 4) (1 2)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk b-0))+  (uniq-orig nm nb nc)+  (operation nonce-test (contracted (m-0 m)) nm (2 1)+    (enc nc nm m price (pubk c)))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum-0 price (pubk b-0)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b-0))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b-0))+          nb))))+  (label 104)+  (parent 103)+  (unrealized (0 0) (1 0) (2 3))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price goods acctnum-0 goods-0 text) (nm nb nc data)+    (b m c hash name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (precedes ((0 1) (2 3)) ((1 1) (0 0)) ((1 1) (2 1)) ((1 3) (0 2))+    ((2 0) (1 0)) ((2 4) (1 2)))+  (non-orig (privk b) (privk m) (privk c) (privk hash))+  (uniq-orig nm nb nc)+  (operation encryption-test (displaced 3 0 bank 2)+    (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b-0)) (2 3))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))))+  (label 105)+  (parent 104)+  (unrealized (0 0) (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price acctnum-0 goods text) (nm nb nc data)+    (b m c hash name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (precedes ((0 1) (2 3)) ((1 1) (0 0)) ((1 1) (2 1)) ((1 3) (0 2))+    ((2 0) (1 0)) ((2 4) (1 2)))+  (non-orig (privk b) (privk m) (privk c) (privk hash))+  (uniq-orig nm nb nc)+  (operation nonce-test (contracted (goods-0 goods)) nc (1 0)+    (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))))+  (label 106)+  (parent 105)+  (unrealized (0 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price goods acctnum-0 goods-0 price-0 text)+    (nm nb nc nm-0 data) (b m c hash name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods-0)+    (price price) (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 2 (goods goods-0) (price price-0) (nc nc)+    (nm nm-0) (c c) (m m))+  (precedes ((0 1) (2 3)) ((1 1) (0 0)) ((1 1) (2 1)) ((1 3) (0 2))+    ((2 0) (3 0)) ((2 4) (1 2)) ((3 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash))+  (uniq-orig nm nb nc nm-0)+  (operation nonce-test (added-strand merchant 2) nc (1 0)+    (enc c nc goods-0 (pubk m)))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods-0 (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc goods-0 (pubk m)))+      (send (enc nc nm-0 m price-0 (pubk c)))))+  (label 107)+  (parent 105)+  (unrealized (0 0) (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price acctnum-0 goods text) (nm nb nc data)+    (b m c hash name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))+    ((2 2) (0 0)) ((2 4) (1 2)))+  (non-orig (privk b) (privk m) (privk c) (privk hash))+  (uniq-orig nm nb nc)+  (operation nonce-test (displaced 3 2 customer 3) nm (0 0)+    (enc nc nm m price (pubk c)))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))))+  (label 108)+  (parent 106)+  (unrealized (0 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price acctnum-0 goods price-0 text)+    (nm nb nc nm-0 data) (b m c hash name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)+    (c c) (m m))+  (precedes ((0 1) (2 3)) ((1 1) (0 0)) ((1 1) (2 1)) ((1 3) (0 2))+    ((2 0) (3 0)) ((2 4) (1 2)) ((3 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash))+  (uniq-orig nm nb nc nm-0)+  (operation nonce-test (contracted (goods-0 goods)) nc (1 0)+    (enc nc nm-0 m price-0 (pubk c)) (enc c nc goods (pubk m)))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm-0 m price-0 (pubk c)))))+  (label 109)+  (parent 107)+  (unrealized (0 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nm nb nc data) (b m c hash name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))+    ((2 2) (0 0)) ((2 4) (1 2)))+  (non-orig (privk b) (privk m) (privk c) (privk hash))+  (uniq-orig nm nb nc)+  (operation nonce-test (contracted (acctnum-0 acctnum)) nm (0 0)+    (enc nc nm m price (pubk c)) (enc c nc nm acctnum price (pubk b)))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))))+  (label 110)+  (parent 108)+  (unrealized)+  (shape)+  (maps+    ((0)+      ((b b) (m m) (c c) (nm nm) (nb nb) (nc nc) (hash hash)+        (acctnum acctnum) (price price))))+  (origs (nc (2 0)) (nm (1 1)) (nb (0 1))))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price acctnum-0 goods text) (nm nb nc nb-0 data)+    (b m c hash hash-0 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nm)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 1) (3 0)) ((1 3) (0 2))+    ((2 0) (1 0)) ((2 2) (0 0)) ((2 4) (1 2)) ((3 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))+  (uniq-orig nm nb nc)+  (operation nonce-test (added-strand bank 2) nm (0 0)+    (enc nc nm m price (pubk c)) (enc c nc nm acctnum-0 price (pubk b)))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc nm acctnum-0 price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))+          (enc nc nb-0 (pubk c))))))+  (label 111)+  (parent 108)+  (unrealized (0 0) (3 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price acctnum-0 goods price-0 text)+    (nm nb nc nm-0 data) (b m c hash name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)+    (c c) (m m))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))+    ((2 2) (0 0)) ((2 4) (1 2)) ((3 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash))+  (uniq-orig nm nb nc nm-0)+  (operation nonce-test (displaced 4 2 customer 3) nm (0 0)+    (enc nc nm m price (pubk c)))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm-0 m price-0 (pubk c)))))+  (label 112)+  (parent 109)+  (unrealized (0 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price acctnum-0 goods text) (nm nb nc nb-0 data)+    (b m c hash hash-0 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nm)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))+    ((2 2) (3 0)) ((2 4) (1 2)) ((3 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))+  (uniq-orig nm nb nc)+  (operation nonce-test (displaced 4 2 customer 3) nm (3 0)+    (enc nc nm m price (pubk c)))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc nm acctnum-0 price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))+          (enc nc nb-0 (pubk c))))))+  (label 113)+  (parent 111)+  (unrealized (0 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods price-0 text) (nm nb nc nm-0 data)+    (b m c hash name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)+    (c c) (m m))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))+    ((2 2) (0 0)) ((2 4) (1 2)) ((3 1) (1 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash))+  (uniq-orig nm nb nc nm-0)+  (operation nonce-test (contracted (acctnum-0 acctnum)) nm (0 0)+    (enc nc nm m price (pubk c)) (enc c nc nm acctnum price (pubk b)))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm-0 m price-0 (pubk c)))))+  (label 114)+  (parent 112)+  (seen 110)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price acctnum-0 goods price-0 text)+    (nm nb nc nm-0 nb-0 data) (b m c hash hash-0 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)+    (c c) (m m))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nm)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 1) (4 0)) ((1 3) (0 2))+    ((2 0) (3 0)) ((2 2) (0 0)) ((2 4) (1 2)) ((3 1) (1 0))+    ((4 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))+  (uniq-orig nm nb nc nm-0)+  (operation nonce-test (added-strand bank 2) nm (0 0)+    (enc nc nm m price (pubk c)) (enc c nc nm acctnum-0 price (pubk b)))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm-0 m price-0 (pubk c))))+    ((recv (enc c nc nm acctnum-0 price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))+          (enc nc nb-0 (pubk c))))))+  (label 115)+  (parent 112)+  (unrealized (0 0) (4 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nm nb nc nb-0 data)+    (b m c hash hash-0 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))+    ((2 2) (3 0)) ((2 4) (1 2)) ((3 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))+  (uniq-orig nm nb nc)+  (operation nonce-test (contracted (acctnum-0 acctnum)) nm (0 0)+    (enc "hash" c nc nb-0 nm price (pubk hash-0))+    (enc nc nm m price (pubk c)) (enc c nc nm acctnum price (pubk b)))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))+          (enc nc nb-0 (pubk c))))))+  (label 116)+  (parent 113)+  (seen 110)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price acctnum-0 goods text) (nb nc nb-0 data)+    (b m c hash hash-0 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))+    ((2 2) (3 0)) ((2 4) (1 2)) ((3 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))+  (uniq-orig nb nc nb-0)+  (operation nonce-test (displaced 4 3 bank 2) nm (0 0)+    (enc "hash" c nc nb-0 nm price (pubk hash-0))+    (enc nc nm m price (pubk c)) (enc c nc nm acctnum-0 price (pubk b)))+  (traces+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))))+  (label 117)+  (parent 113)+  (unrealized (0 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price acctnum-0 goods price-0 text)+    (nm nb nc nm-0 nb-0 data) (b m c hash hash-0 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)+    (c c) (m m))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nm)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))+    ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (1 0)) ((4 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))+  (uniq-orig nm nb nc nm-0)+  (operation nonce-test (displaced 5 2 customer 3) nm (4 0)+    (enc nc nm m price (pubk c)))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm-0 m price-0 (pubk c))))+    ((recv (enc c nc nm acctnum-0 price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))+          (enc nc nb-0 (pubk c))))))+  (label 118)+  (parent 115)+  (unrealized (0 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nb nc nb-0 data)+    (b m c hash hash-0 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))+    ((2 2) (3 0)) ((2 4) (1 2)) ((3 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))+  (uniq-orig nb nc nb-0)+  (operation nonce-test (contracted (acctnum-0 acctnum)) nb-0 (0 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))))+  (label 119)+  (parent 117)+  (seen 110)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price acctnum-0 goods text) (nb nc nb-0 nb-1 data)+    (b m c hash hash-0 hash-1 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 1) (4 0)) ((1 3) (0 2))+    ((2 0) (1 0)) ((2 2) (3 0)) ((2 4) (1 2)) ((3 1) (0 0))+    ((4 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)+    (privk hash-1))+  (uniq-orig nb nc nb-0)+  (operation nonce-test (added-strand bank 2) nb-0 (0 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum-0 price (pubk b)))+  (traces+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 120)+  (parent 117)+  (unrealized (0 0) (4 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods price-0 text) (nm nb nc nm-0 nb-0 data)+    (b m c hash hash-0 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nm)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nm) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm-0)+    (c c) (m m))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nm)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))+    ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (1 0)) ((4 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))+  (uniq-orig nm nb nc nm-0)+  (operation nonce-test (contracted (acctnum-0 acctnum)) nm (0 0)+    (enc "hash" c nc nb-0 nm price (pubk hash-0))+    (enc nc nm m price (pubk c)) (enc c nc nm acctnum price (pubk b)))+  (traces+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nm (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nm m price (pubk c)))+      (send (enc c nc nm acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nm price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm-0 m price-0 (pubk c))))+    ((recv (enc c nc nm acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nm price (pubk hash-0)) (privk b))+          (enc nc nb-0 (pubk c))))))+  (label 121)+  (parent 118)+  (seen 116)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price acctnum-0 goods price-0 text)+    (nb nc nm nb-0 data) (b m c hash hash-0 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))+    ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (1 0)) ((4 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))+  (uniq-orig nb nc nm nb-0)+  (operation nonce-test (displaced 5 4 bank 2) nm-0 (0 0)+    (enc "hash" c nc nb-0 nm-0 price (pubk hash-0))+    (enc nc nm-0 m price (pubk c))+    (enc c nc nm-0 acctnum-0 price (pubk b)))+  (traces+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))))+  (label 122)+  (parent 118)+  (unrealized (0 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price acctnum-0 goods text) (nb nc nb-0 nb-1 data)+    (b m c hash hash-0 hash-1 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))+    ((2 2) (3 0)) ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (0 0))+    ((4 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)+    (privk hash-1))+  (uniq-orig nb nc nb-0)+  (operation nonce-test (displaced 5 2 customer 3) nb-0 (4 0)+    (enc nc nb-0 m price (pubk c)))+  (traces+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 123)+  (parent 120)+  (unrealized (0 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods price-0 text) (nb nc nm nb-0 data)+    (b m c hash hash-0 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))+    ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (1 0)) ((4 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0))+  (uniq-orig nb nc nm nb-0)+  (operation nonce-test (contracted (acctnum-0 acctnum)) nb-0 (0 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c))))))+  (label 124)+  (parent 122)+  (seen 119)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price acctnum-0 goods price-0 text)+    (nb nc nm nb-0 nb-1 data) (b m c hash hash-0 hash-1 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 1) (5 0)) ((1 3) (0 2))+    ((2 0) (3 0)) ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (1 0))+    ((4 1) (0 0)) ((5 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)+    (privk hash-1))+  (uniq-orig nb nc nm nb-0)+  (operation nonce-test (added-strand bank 2) nb-0 (0 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum-0 price (pubk b)))+  (traces+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 125)+  (parent 122)+  (unrealized (0 0) (5 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods text) (nb nc nb-0 nb-1 data)+    (b m c hash hash-0 hash-1 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (1 0))+    ((2 2) (3 0)) ((2 2) (4 0)) ((2 4) (1 2)) ((3 1) (0 0))+    ((4 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)+    (privk hash-1))+  (uniq-orig nb nc nb-0)+  (operation nonce-test (contracted (acctnum-0 acctnum)) nb-0 (0 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 126)+  (parent 123)+  (seen 116)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (acctnum price acctnum-0 goods price-0 text)+    (nb nc nm nb-0 nb-1 data) (b m c hash hash-0 hash-1 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum-0) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum-0) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))+    ((2 2) (4 0)) ((2 2) (5 0)) ((2 4) (1 2)) ((3 1) (1 0))+    ((4 1) (0 0)) ((5 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)+    (privk hash-1))+  (uniq-orig nb nc nm nb-0)+  (operation nonce-test (displaced 6 2 customer 3) nb-0 (5 0)+    (enc nc nb-0 m price (pubk c)))+  (traces+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum-0 price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum-0 price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 127)+  (parent 125)+  (unrealized (0 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton sorted_epmo_acctnum+  (vars (price acctnum goods price-0 text) (nb nc nm nb-0 nb-1 data)+    (b m c hash hash-0 hash-1 name))+  (defstrand bank 3 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 4 (goods goods) (price price) (nc nc) (nm nb-0)+    (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand customer 5 (acctnum acctnum) (goods goods) (price price)+    (nc nc) (nm nb-0) (nb nb) (b b) (c c) (m m) (hash hash))+  (defstrand merchant 2 (goods goods) (price price-0) (nc nc) (nm nm)+    (c c) (m m))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-0) (b b) (c c) (hash hash-0))+  (defstrand bank 2 (acctnum acctnum) (price price) (nc nc) (nm nb-0)+    (nb nb-1) (b b) (c c) (hash hash-1))+  (precedes ((0 1) (2 3)) ((1 1) (2 1)) ((1 3) (0 2)) ((2 0) (3 0))+    ((2 2) (4 0)) ((2 2) (5 0)) ((2 4) (1 2)) ((3 1) (1 0))+    ((4 1) (0 0)) ((5 1) (0 0)))+  (non-orig (privk b) (privk m) (privk c) (privk hash) (privk hash-0)+    (privk hash-1))+  (uniq-orig nb nc nm nb-0)+  (operation nonce-test (contracted (acctnum-0 acctnum)) nb-0 (0 0)+    (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+    (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+    (enc nc nb-0 (pubk c)) (enc nc nb-0 m price (pubk c))+    (enc c nc nb-0 acctnum price (pubk b)))+  (traces+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (recv (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nb-0 m price (pubk c)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb))+      (send (enc (enc "hash" b m nb nb-0 (pubk hash)) (privk m))))+    ((send (enc c nc goods (pubk m)))+      (recv (enc nc nb-0 m price (pubk c)))+      (send (enc c nc nb-0 acctnum price (pubk b)))+      (recv+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          (enc nc nb (pubk c))))+      (send+        (cat (enc (enc "hash" c nc nb nb-0 price (pubk hash)) (privk b))+          nb)))+    ((recv (enc c nc goods (pubk m)))+      (send (enc nc nm m price-0 (pubk c))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-0 nb-0 price (pubk hash-0))+            (privk b)) (enc nc nb-0 (pubk c)))))+    ((recv (enc c nc nb-0 acctnum price (pubk b)))+      (send+        (cat+          (enc (enc "hash" c nc nb-1 nb-0 price (pubk hash-1))+            (privk b)) (enc nc nb-1 (pubk c))))))+  (label 128)+  (parent 127)+  (seen 126)   (unrealized)   (comment "1 in cohort - 0 not yet seen"))
tst/targetterms2.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from targetterms2.scm")  (defprotocol targetterms2 basic@@ -45,26 +45,6 @@ (defskeleton targetterms2   (vars (n text) (a name))   (defstrand init 2 (n n) (a a))-  (defstrand trans 3 (m (enc n (enc n (pubk a)) (pubk a))) (n n) (a a))-  (precedes ((0 0) (1 0)) ((1 2) (0 1)))-  (non-orig (privk a))-  (uniq-orig n)-  (operation nonce-test-    (contracted (m (enc n (enc n (pubk a)) (pubk a)))) n (0 1)-    (enc n (pubk a)) (enc n (enc n (enc n (pubk a)) (pubk a)) (pubk a)))-  (traces-    ((send (enc n (pubk a)))-      (recv (enc n (enc n (enc n (pubk a)) (pubk a)) (pubk a))))-    ((recv (enc n (pubk a))) (recv (enc n (enc n (pubk a)) (pubk a)))-      (send (enc n (enc n (enc n (pubk a)) (pubk a)) (pubk a)))))-  (label 2)-  (parent 1)-  (unrealized (1 1))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton targetterms2-  (vars (n text) (a name))-  (defstrand init 2 (n n) (a a))   (defstrand trans 3 (m (enc n (pubk a))) (n n) (a a))   (precedes ((0 0) (1 0)) ((1 2) (0 1)))   (non-orig (privk a))@@ -76,28 +56,28 @@       (recv (enc n (enc n (enc n (pubk a)) (pubk a)) (pubk a))))     ((recv (enc n (pubk a))) (recv (enc n (pubk a)))       (send (enc n (enc n (pubk a)) (pubk a)))))-  (label 3)+  (label 2)   (parent 1)   (unrealized (0 1))   (comment "1 in cohort - 1 not yet seen"))  (defskeleton targetterms2-  (vars (m mesg) (n text) (a name))+  (vars (n text) (a name))   (defstrand init 2 (n n) (a a))   (defstrand trans 3 (m (enc n (enc n (pubk a)) (pubk a))) (n n) (a a))-  (defstrand trans 3 (m m) (n n) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 2) (0 1)) ((2 2) (1 1)))+  (precedes ((0 0) (1 0)) ((1 2) (0 1)))   (non-orig (privk a))   (uniq-orig n)-  (operation nonce-test (added-strand trans 3) n (1 1) (enc n (pubk a)))+  (operation nonce-test+    (contracted (m (enc n (enc n (pubk a)) (pubk a)))) n (0 1)+    (enc n (pubk a)) (enc n (enc n (enc n (pubk a)) (pubk a)) (pubk a)))   (traces     ((send (enc n (pubk a)))       (recv (enc n (enc n (enc n (pubk a)) (pubk a)) (pubk a))))     ((recv (enc n (pubk a))) (recv (enc n (enc n (pubk a)) (pubk a)))-      (send (enc n (enc n (enc n (pubk a)) (pubk a)) (pubk a))))-    ((recv (enc n (pubk a))) (recv m) (send (enc n m (pubk a)))))-  (label 4)-  (parent 2)+      (send (enc n (enc n (enc n (pubk a)) (pubk a)) (pubk a)))))+  (label 3)+  (parent 1)   (unrealized (1 1))   (comment "1 in cohort - 1 not yet seen")) @@ -117,34 +97,30 @@     ((recv (enc n (pubk a))) (recv (enc n (pubk a)))       (send (enc n (enc n (pubk a)) (pubk a))))     ((recv (enc n (pubk a))) (recv m) (send (enc n m (pubk a)))))-  (label 5)-  (parent 3)+  (label 4)+  (parent 2)   (unrealized (0 1))   (comment "1 in cohort - 1 not yet seen"))  (defskeleton targetterms2-  (vars (n text) (a name))+  (vars (m mesg) (n text) (a name))   (defstrand init 2 (n n) (a a))   (defstrand trans 3 (m (enc n (enc n (pubk a)) (pubk a))) (n n) (a a))-  (defstrand trans 3 (m (enc n (pubk a))) (n n) (a a))+  (defstrand trans 3 (m m) (n n) (a a))   (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 2) (0 1)) ((2 2) (1 1)))   (non-orig (privk a))   (uniq-orig n)-  (operation nonce-test (contracted (m (enc n (pubk a)))) n (1 1)-    (enc n (pubk a)) (enc n (enc n (pubk a)) (pubk a)))+  (operation nonce-test (added-strand trans 3) n (1 1) (enc n (pubk a)))   (traces     ((send (enc n (pubk a)))       (recv (enc n (enc n (enc n (pubk a)) (pubk a)) (pubk a))))     ((recv (enc n (pubk a))) (recv (enc n (enc n (pubk a)) (pubk a)))       (send (enc n (enc n (enc n (pubk a)) (pubk a)) (pubk a))))-    ((recv (enc n (pubk a))) (recv (enc n (pubk a)))-      (send (enc n (enc n (pubk a)) (pubk a)))))-  (label 6)-  (parent 4)-  (unrealized)-  (shape)-  (maps ((0) ((a a) (n n))))-  (origs (n (0 0))))+    ((recv (enc n (pubk a))) (recv m) (send (enc n m (pubk a)))))+  (label 5)+  (parent 3)+  (unrealized (1 1))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton targetterms2   (vars (n text) (a name))@@ -165,13 +141,37 @@       (send (enc n (enc n (pubk a)) (pubk a))))     ((recv (enc n (pubk a))) (recv (enc n (enc n (pubk a)) (pubk a)))       (send (enc n (enc n (enc n (pubk a)) (pubk a)) (pubk a)))))-  (label 7)-  (parent 5)-  (seen 6)+  (label 6)+  (parent 4)+  (seen 7)   (unrealized (2 1))   (comment "2 in cohort - 1 not yet seen"))  (defskeleton targetterms2+  (vars (n text) (a name))+  (defstrand init 2 (n n) (a a))+  (defstrand trans 3 (m (enc n (enc n (pubk a)) (pubk a))) (n n) (a a))+  (defstrand trans 3 (m (enc n (pubk a))) (n n) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 2) (0 1)) ((2 2) (1 1)))+  (non-orig (privk a))+  (uniq-orig n)+  (operation nonce-test (contracted (m (enc n (pubk a)))) n (1 1)+    (enc n (pubk a)) (enc n (enc n (pubk a)) (pubk a)))+  (traces+    ((send (enc n (pubk a)))+      (recv (enc n (enc n (enc n (pubk a)) (pubk a)) (pubk a))))+    ((recv (enc n (pubk a))) (recv (enc n (enc n (pubk a)) (pubk a)))+      (send (enc n (enc n (enc n (pubk a)) (pubk a)) (pubk a))))+    ((recv (enc n (pubk a))) (recv (enc n (pubk a)))+      (send (enc n (enc n (pubk a)) (pubk a)))))+  (label 7)+  (parent 5)+  (unrealized)+  (shape)+  (maps ((0) ((a a) (n n))))+  (origs (n (0 0))))++(defskeleton targetterms2   (vars (m mesg) (n text) (a name))   (defstrand init 2 (n n) (a a))   (defstrand trans 3 (m (enc n (pubk a))) (n n) (a a))@@ -191,10 +191,9 @@       (send (enc n (enc n (enc n (pubk a)) (pubk a)) (pubk a))))     ((recv (enc n (pubk a))) (recv m) (send (enc n m (pubk a)))))   (label 8)-  (parent 7)-  (seen 6)+  (parent 6)   (unrealized (2 1))-  (comment "2 in cohort - 1 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton targetterms2   (vars (m mesg) (n text) (a name))@@ -218,7 +217,7 @@     ((recv (enc n (pubk a))) (recv m) (send (enc n m (pubk a)))))   (label 9)   (parent 8)-  (seen 6)+  (seen 7)   (unrealized)   (comment "1 in cohort - 0 not yet seen"))
tst/targetterms6.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from targetterms6.scm")  (defprotocol targetterms6 basic@@ -167,9 +167,8 @@     ((recv (enc n (pubk a))) (recv m) (send (enc n m (pubk a)))))   (label 6)   (parent 4)-  (seen 5)   (unrealized (2 1))-  (comment "2 in cohort - 1 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton targetterms6   (vars (m mesg) (n text) (a name))
tst/targetterms8.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from targetterms8.scm")  (defprotocol targetterms8 basic
tst/timestamping.tst view
@@ -1,6 +1,6 @@ (herald timestamping-service) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from timestamping.scm")  (defprotocol timestamping-service basic@@ -398,27 +398,26 @@             (pubk trent))))))   (label 6)   (parent 4)-  (seen 7)   (unrealized (3 0))-  (comment "2 in cohort - 1 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton timestamping-service   (vars (h h_1 t_1 l_1 h-0 text) (n n-0 data)     (trent alice alice_1 alice-0 name))   (defstrand client 2 (t_1 t_1) (l (hash alice_1 h_1 t_1 l_1)) (h h)     (h_1 h_1) (n n) (alice alice) (alice_1 alice_1) (trent trent))-  (defstrand origin 2 (h h) (h_1 h_1) (t_1 t_1) (l_1 l_1) (n n)-    (alice alice) (alice_1 alice_1) (trent trent))   (defstrand big-bang 1 (n n) (trent trent))   (defstrand server 2     (t_1       (enc n alice h alice_1 h_1 t_1 (hash alice_1 h_1 t_1 l_1)         (privk trent))) (l_1 (hash alice_1 h_1 t_1 l_1)) (h h-0) (h_1 h)     (n n-0) (alice alice-0) (alice_1 alice) (trent trent))-  (precedes ((1 1) (3 0)) ((2 0) (1 0)) ((3 1) (0 1)))+  (defstrand origin 2 (h h) (h_1 h_1) (t_1 t_1) (l_1 l_1) (n n)+    (alice alice) (alice_1 alice_1) (trent trent))+  (precedes ((1 0) (3 0)) ((2 1) (0 1)) ((3 1) (2 0)))   (non-orig (privk trent))   (uniq-orig n n-0)-  (operation encryption-test (displaced 4 1 origin 2)+  (operation encryption-test (added-strand origin 2)     (enc alice h       (enc n alice h alice_1 h_1 t_1 (hash alice_1 h_1 t_1 l_1)         (privk trent)) (hash alice_1 h_1 t_1 l_1) (privk trent)) (3 0))@@ -427,13 +426,6 @@       (recv         (enc n alice h alice_1 h_1 t_1 (hash alice_1 h_1 t_1 l_1)           (privk trent))))-    ((recv (enc (enc n (privk trent)) (pubk trent)))-      (send-        (enc-          (enc alice h-            (enc n alice h alice_1 h_1 t_1 (hash alice_1 h_1 t_1 l_1)-              (privk trent)) (hash alice_1 h_1 t_1 l_1) (privk trent))-          (pubk trent))))     ((send (enc (enc n (privk trent)) (pubk trent))))     ((recv        (cat@@ -465,7 +457,14 @@                   (enc n alice h alice_1 h_1 t_1                     (hash alice_1 h_1 t_1 l_1) (privk trent))                   (hash alice_1 h_1 t_1 l_1))) (privk trent))-            (pubk trent))))))+            (pubk trent)))))+    ((recv (enc (enc n (privk trent)) (pubk trent)))+      (send+        (enc+          (enc alice h+            (enc n alice h alice_1 h_1 t_1 (hash alice_1 h_1 t_1 l_1)+              (privk trent)) (hash alice_1 h_1 t_1 l_1) (privk trent))+          (pubk trent)))))   (label 7)   (parent 6)   (unrealized)@@ -474,6 +473,6 @@     ((0)       ((trent trent) (alice alice) (alice_1 alice_1) (n n) (h h)         (h_1 h_1) (t_1 t_1) (l (hash alice_1 h_1 t_1 l_1)))))-  (origs (n-0 (3 1)) (n (2 0))))+  (origs (n-0 (2 1)) (n (1 0))))  (comment "Nothing left to do")
− tst/tor.scm 
@@ -1,39 +0,0 @@-(herald "Tor Circuit-Level Handshake Protocol" (algebra diffie-hellman)-  (comment "Achieves unilateral authentication"))--;; Hashing--no one can extract a key from an encryption--(defmacro (hash x)-  (enc "hash" x))--(defprotocol tor diffie-hellman-  (defrole init-    (vars (x y expn) (b name) (n text) (kh akey))-    (trace-     (send (enc (exp (gen) x) (pubk b)))-     (recv (cat (exp (gen) y) (hash (cat (exp (exp (gen) x) y)))))-     (send (enc n (exp (exp (gen) y) x))))-    (uniq-orig x n))-  (defrole resp-    (vars (x y expn) (b name) (n text) (kh akey))-    (trace-     (recv (enc (exp (gen) x) (pubk b)))-     (send (cat (exp (gen) y) (hash (cat (exp (exp (gen) x) y)))))-     (recv (enc n (exp (exp (gen) x) y))))-    (uniq-orig y)))--(defskeleton tor-  (vars (b name) (n text))-  (defstrand init 2 (b b))-  (non-orig (privk b)))--(defskeleton tor-  (vars (b name) (n text))-  (defstrand resp 3 (b b))-  (non-orig (privk b)))--(defskeleton tor-  (vars (b name) (n text))-  (defstrand init 3 (b b) (n n))-  (deflistener n)-  (non-orig (privk b)))
− tst/tor.tst 
@@ -1,254 +0,0 @@-(herald "Tor Circuit-Level Handshake Protocol" (algebra diffie-hellman)-  (comment "Achieves unilateral authentication"))--(comment "CPSA 2.3.0")-(comment "All input read from tor.scm")--(defprotocol tor diffie-hellman-  (defrole init-    (vars (x y expn) (b name) (n text))-    (trace (send (enc (exp (gen) x) (pubk b)))-      (recv (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y))))-      (send (enc n (exp (exp (gen) x) y))))-    (uniq-orig n x))-  (defrole resp-    (vars (x y expn) (b name) (n text))-    (trace (recv (enc (exp (gen) x) (pubk b)))-      (send (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y))))-      (recv (enc n (exp (exp (gen) x) y))))-    (uniq-orig y)))--(defskeleton tor-  (vars (b name) (x y expn))-  (defstrand init 2 (b b) (x x) (y y))-  (non-orig (privk b))-  (uniq-orig x)-  (traces-    ((send (enc (exp (gen) x) (pubk b)))-      (recv (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y))))))-  (label 0)-  (unrealized (0 1))-  (origs (x (0 0)))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton tor-  (vars (b b-0 name) (x y expn))-  (defstrand init 2 (b b) (x x) (y y))-  (defstrand resp 2 (b b-0) (x x) (y y))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk b))-  (uniq-orig x y)-  (operation encryption-test (added-strand resp 2)-    (enc "hash" (exp (exp (gen) x) y)) (0 1))-  (traces-    ((send (enc (exp (gen) x) (pubk b)))-      (recv (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y)))))-    ((recv (enc (exp (gen) x) (pubk b-0)))-      (send (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y))))))-  (label 1)-  (parent 0)-  (unrealized (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton tor-  (vars (b name) (x y expn))-  (defstrand init 2 (b b) (x x) (y y))-  (deflistener (exp (exp (gen) x) y))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk b))-  (uniq-orig x)-  (operation encryption-test (added-listener (exp (exp (gen) x) y))-    (enc "hash" (exp (exp (gen) x) y)) (0 1))-  (traces-    ((send (enc (exp (gen) x) (pubk b)))-      (recv (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y)))))-    ((recv (exp (exp (gen) x) y)) (send (exp (exp (gen) x) y))))-  (label 2)-  (parent 0)-  (unrealized (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton tor-  (vars (b name) (x y expn))-  (defstrand init 2 (b b) (x x) (y y))-  (defstrand resp 2 (b b) (x x) (y y))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk b))-  (uniq-orig x y)-  (operation encryption-test (contracted (b-0 b)) (exp (gen) x) (1 0)-    (enc (exp (gen) x) (pubk b)))-  (traces-    ((send (enc (exp (gen) x) (pubk b)))-      (recv (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y)))))-    ((recv (enc (exp (gen) x) (pubk b)))-      (send (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y))))))-  (label 3)-  (parent 1)-  (unrealized)-  (shape)-  (maps ((0) ((b b) (x x) (y y))))-  (origs (y (1 1)) (x (0 0))))--(defskeleton tor-  (vars (b b-0 name) (x y expn))-  (defstrand init 2 (b b) (x x) (y y))-  (defstrand resp 2 (b b-0) (x x) (y y))-  (deflistener x)-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk b))-  (uniq-orig x y)-  (operation encryption-test (added-listener x) (exp (gen) x) (1 0)-    (enc (exp (gen) x) (pubk b)))-  (traces-    ((send (enc (exp (gen) x) (pubk b)))-      (recv (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y)))))-    ((recv (enc (exp (gen) x) (pubk b-0)))-      (send (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y)))))-    ((recv x) (send x)))-  (label 4)-  (parent 1)-  (unrealized (2 0))-  (comment "empty cohort"))--(defskeleton tor-  (vars (b name) (x y expn))-  (defstrand init 2 (b b) (x x) (y y))-  (deflistener (exp (exp (gen) x) y))-  (deflistener x)-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk b))-  (uniq-orig x)-  (operation encryption-test (added-listener x) (exp (exp (gen) x) y)-    (1 0))-  (traces-    ((send (enc (exp (gen) x) (pubk b)))-      (recv (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y)))))-    ((recv (exp (exp (gen) x) y)) (send (exp (exp (gen) x) y)))-    ((recv x) (send x)))-  (label 5)-  (parent 2)-  (unrealized (2 0))-  (comment "empty cohort"))--(comment "Nothing left to do")--(defprotocol tor diffie-hellman-  (defrole init-    (vars (x y expn) (b name) (n text))-    (trace (send (enc (exp (gen) x) (pubk b)))-      (recv (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y))))-      (send (enc n (exp (exp (gen) x) y))))-    (uniq-orig n x))-  (defrole resp-    (vars (x y expn) (b name) (n text))-    (trace (recv (enc (exp (gen) x) (pubk b)))-      (send (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y))))-      (recv (enc n (exp (exp (gen) x) y))))-    (uniq-orig y)))--(defskeleton tor-  (vars (n text) (b name) (x y expn))-  (defstrand resp 3 (n n) (b b) (x x) (y y))-  (non-orig (privk b))-  (uniq-orig y)-  (traces-    ((recv (enc (exp (gen) x) (pubk b)))-      (send (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y))))-      (recv (enc n (exp (exp (gen) x) y)))))-  (label 6)-  (unrealized)-  (shape)-  (maps ((0) ((b b) (x x) (y y) (n n))))-  (origs (y (0 1))))--(comment "Nothing left to do")--(defprotocol tor diffie-hellman-  (defrole init-    (vars (x y expn) (b name) (n text))-    (trace (send (enc (exp (gen) x) (pubk b)))-      (recv (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y))))-      (send (enc n (exp (exp (gen) x) y))))-    (uniq-orig n x))-  (defrole resp-    (vars (x y expn) (b name) (n text))-    (trace (recv (enc (exp (gen) x) (pubk b)))-      (send (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y))))-      (recv (enc n (exp (exp (gen) x) y))))-    (uniq-orig y)))--(defskeleton tor-  (vars (n text) (b name) (x y expn))-  (defstrand init 3 (n n) (b b) (x x) (y y))-  (deflistener n)-  (non-orig (privk b))-  (uniq-orig n x)-  (traces-    ((send (enc (exp (gen) x) (pubk b)))-      (recv (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y))))-      (send (enc n (exp (exp (gen) x) y)))) ((recv n) (send n)))-  (label 7)-  (unrealized (0 1) (1 0))-  (preskeleton)-  (comment "Not a skeleton"))--(defskeleton tor-  (vars (n text) (b name) (x y expn))-  (defstrand init 3 (n n) (b b) (x x) (y y))-  (deflistener n)-  (precedes ((0 2) (1 0)))-  (non-orig (privk b))-  (uniq-orig n x)-  (traces-    ((send (enc (exp (gen) x) (pubk b)))-      (recv (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y))))-      (send (enc n (exp (exp (gen) x) y)))) ((recv n) (send n)))-  (label 8)-  (parent 7)-  (unrealized (0 1) (1 0))-  (origs (n (0 2)) (x (0 0)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton tor-  (vars (n text) (b name) (x y expn))-  (defstrand init 3 (n n) (b b) (x x) (y y))-  (deflistener n)-  (deflistener (exp (exp (gen) x) y))-  (precedes ((0 0) (2 0)) ((0 2) (1 0)) ((2 1) (1 0)))-  (non-orig (privk b))-  (uniq-orig n x)-  (operation nonce-test (added-listener (exp (exp (gen) x) y)) n (1 0)-    (enc n (exp (exp (gen) x) y)))-  (traces-    ((send (enc (exp (gen) x) (pubk b)))-      (recv (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y))))-      (send (enc n (exp (exp (gen) x) y)))) ((recv n) (send n))-    ((recv (exp (exp (gen) x) y)) (send (exp (exp (gen) x) y))))-  (label 9)-  (parent 8)-  (unrealized (0 1) (2 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton tor-  (vars (n text) (b name) (x y expn))-  (defstrand init 3 (n n) (b b) (x x) (y y))-  (deflistener n)-  (deflistener (exp (exp (gen) x) y))-  (deflistener x)-  (precedes ((0 0) (3 0)) ((0 2) (1 0)) ((2 1) (1 0)) ((3 1) (2 0)))-  (non-orig (privk b))-  (uniq-orig n x)-  (operation encryption-test (added-listener x) (exp (exp (gen) x) y)-    (2 0))-  (traces-    ((send (enc (exp (gen) x) (pubk b)))-      (recv (cat (exp (gen) y) (enc "hash" (exp (exp (gen) x) y))))-      (send (enc n (exp (exp (gen) x) y)))) ((recv n) (send n))-    ((recv (exp (exp (gen) x) y)) (send (exp (exp (gen) x) y)))-    ((recv x) (send x)))-  (label 10)-  (parent 9)-  (unrealized (0 1) (3 0))-  (comment "empty cohort"))--(comment "Nothing left to do")
tst/uncarried_keys.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from uncarried_keys.scm")  (defprotocol uncarried-keys basic@@ -44,7 +44,7 @@   (label 1)   (parent 0)   (unrealized (0 3))-  (comment "5 in cohort - 5 not yet seen"))+  (comment "4 in cohort - 4 not yet seen"))  (defskeleton uncarried-keys   (vars (a text) (A B name) (K akey))@@ -110,27 +110,6 @@   (origs ((pubk A) (0 2)) (a (0 0))))  (defskeleton uncarried-keys-  (vars (a text) (A B name))-  (defstrand init 4 (a a) (A A) (B B) (K (pubk A)))-  (defstrand resp 2 (a a) (A A) (B B))-  (defstrand resp 2 (a a) (A A) (B B))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 3)))-  (non-orig (privk A) (privk B))-  (uniq-orig a (pubk A))-  (operation encryption-test (added-strand resp 2) (enc a A B (pubk A))-    (0 3))-  (traces-    ((send (enc "start" a A B (pubk B))) (recv (enc a A B (pubk A)))-      (send (enc a (pubk A) (pubk B))) (recv (enc a A B (pubk A))))-    ((recv (enc "start" a A B (pubk B))) (send (enc a A B (pubk A))))-    ((recv (enc "start" a A B (pubk B))) (send (enc a A B (pubk A)))))-  (label 5)-  (parent 1)-  (seen 4)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton uncarried-keys   (vars (a text) (A B name) (K akey))   (defstrand init 4 (a a) (A A) (B B) (K K))   (defstrand resp 2 (a a) (A A) (B B))@@ -144,7 +123,7 @@       (send (enc a K (pubk B))) (recv (enc a A B K)))     ((recv (enc "start" a A B (pubk B))) (send (enc a A B (pubk A))))     ((recv K) (send K)))-  (label 6)+  (label 5)   (parent 1)   (unrealized (2 0))   (comment "empty cohort"))
tst/uo.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from uo.scm")  (defprotocol uniq-orig basic
tst/wang-hash.tst view
@@ -1,6 +1,6 @@ (herald "Wang's Fair Exchange Protocol" (bound 10)) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from wang-hash.scm") (comment "Strand count bounded at 10") @@ -1197,10 +1197,9 @@           (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r             (pubk "encr" t)) (privk "sign" b))) (send (cat k r))))   (label 11)-  (seen 13)   (unrealized (0 1))   (origs)-  (comment "3 in cohort - 2 not yet seen"))+  (comment "2 in cohort - 2 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (b t a name) (k skey))@@ -1245,10 +1244,13 @@ (defskeleton wang   (vars (r text) (m data) (b t a name) (k skey))   (defstrand init1 3 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand resp2 2 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand resp3 2 (e1 (enc m k))+    (e2+      (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r+        (pubk "encr" t))) (x (hash k)) (a a) (b b) (t t))   (precedes ((1 1) (0 1)))   (non-orig (privk "sign" b))-  (operation encryption-test (added-strand resp2 2)+  (operation encryption-test (added-strand resp3 2)     (enc "eortag" (hash a b t (hash (enc m k)) (hash k))       (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r         (pubk "encr" t)) (privk "sign" b)) (0 1))@@ -1585,10 +1587,9 @@           (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r             (pubk "encr" t)) (privk "sign" b)))))   (label 14)-  (seen 16)   (unrealized (0 2))   (origs)-  (comment "3 in cohort - 2 not yet seen"))+  (comment "2 in cohort - 2 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (b t a name) (k skey))@@ -1635,10 +1636,13 @@ (defskeleton wang   (vars (r text) (m data) (b t a name) (k skey))   (defstrand init3 3 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand resp2 2 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand resp3 2 (e1 (enc m k))+    (e2+      (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r+        (pubk "encr" t))) (x (hash k)) (a a) (b b) (t t))   (precedes ((1 1) (0 2)))   (non-orig (privk "sign" b))-  (operation encryption-test (added-strand resp2 2)+  (operation encryption-test (added-strand resp3 2)     (enc "eortag" (hash a b t (hash (enc m k)) (hash k))       (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r         (pubk "encr" t)) (privk "sign" b)) (0 2))@@ -1981,10 +1985,9 @@           (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r             (pubk "encr" t)) (privk "sign" b)))))   (label 17)-  (seen 19)   (unrealized (0 1) (0 3))   (origs)-  (comment "3 in cohort - 2 not yet seen"))+  (comment "2 in cohort - 2 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (b t a name) (k skey))@@ -2035,10 +2038,13 @@ (defskeleton wang   (vars (r text) (m data) (b t a name) (k skey))   (defstrand init5 4 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand resp2 2 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand resp3 2 (e1 (enc m k))+    (e2+      (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r+        (pubk "encr" t))) (x (hash k)) (a a) (b b) (t t))   (precedes ((1 1) (0 1)))   (non-orig (privk "sign" b))-  (operation encryption-test (added-strand resp2 2)+  (operation encryption-test (added-strand resp3 2)     (enc "eortag" (hash a b t (hash (enc m k)) (hash k))       (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r         (pubk "encr" t)) (privk "sign" b)) (0 1))@@ -2379,18 +2385,17 @@           (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r             (pubk "encr" t)) (privk "sign" b))) (recv (cat k r))))   (label 20)-  (seen 21)   (unrealized (0 0))   (origs)-  (comment "5 in cohort - 1 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a t b name) (k skey))   (defstrand resp1 3 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)))   (non-orig (privk "sign" a))-  (operation encryption-test (added-strand init1 1)+  (operation encryption-test (added-strand init5 1)     (enc "eootag" (hash a b t (hash (enc m k)) (hash k))       (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r         (pubk "encr" t)) (privk "sign" a)) (0 0))@@ -2734,18 +2739,17 @@             (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r               (pubk "encr" t)) (privk "sign" b)))) (recv (cat k r))))   (label 22)-  (seen 23)   (unrealized (0 0))   (origs)-  (comment "5 in cohort - 1 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a t b name) (k skey))   (defstrand resp2 4 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)))   (non-orig (privk "sign" a))-  (operation encryption-test (added-strand init1 1)+  (operation encryption-test (added-strand init5 1)     (enc "eootag" (hash a b t (hash (enc m k)) (hash k))       (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r         (pubk "encr" t)) (privk "sign" a)) (0 0))@@ -3093,10 +3097,9 @@         (enc "abcf" (enc "abrq" a b t (hash e1) x (privk "sign" a))           (privk "sign" t)))))   (label 24)-  (seen 25)   (unrealized (0 0) (0 3))   (origs)-  (comment "5 in cohort - 1 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a t b name) (k skey))@@ -3104,10 +3107,10 @@     (e2       (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r         (pubk "encr" t))) (x (hash k)) (a a) (b b) (t t))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)))   (non-orig (privk "sign" a))-  (operation encryption-test (added-strand init1 1)+  (operation encryption-test (added-strand init5 1)     (enc "eootag" (hash a b t (hash (enc m k)) (hash k))       (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r         (pubk "encr" t)) (privk "sign" a)) (0 0))@@ -3155,9 +3158,8 @@              (pubk "encr" t)) (privk "sign" a))))))   (label 25)   (parent 24)-  (seen 26 27 28 29)   (unrealized (0 3))-  (comment "8 in cohort - 4 not yet seen"))+  (comment "4 in cohort - 4 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a t b name) (k skey))@@ -3165,10 +3167,10 @@     (e2       (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r         (pubk "encr" t))) (x (hash k)) (a a) (b b) (t t))-  (defstrand init2 2 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init3 2 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((1 1) (0 3)))   (non-orig (privk "sign" a))-  (operation encryption-test (displaced 1 2 init2 2)+  (operation encryption-test (displaced 1 2 init3 2)     (enc "abrq" a b t (hash (enc m k)) (hash k) (privk "sign" a)) (0 3))   (traces     ((recv@@ -3232,11 +3234,11 @@     (e2       (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r         (pubk "encr" t))) (x (hash k)) (a a) (b b) (t t))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init2 2 (r r-0) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init3 2 (r r-0) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((2 1) (0 3)))   (non-orig (privk "sign" a))-  (operation encryption-test (added-strand init2 2)+  (operation encryption-test (added-strand init3 2)     (enc "abrq" a b t (hash (enc m k)) (hash k) (privk "sign" a)) (0 3))   (traces     ((recv@@ -3307,10 +3309,10 @@     (e2       (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r         (pubk "encr" t))) (x (hash k)) (a a) (b b) (t t))-  (defstrand init4 3 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 3 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((1 2) (0 3)))   (non-orig (privk "sign" a))-  (operation encryption-test (displaced 1 2 init4 3)+  (operation encryption-test (displaced 1 2 init5 3)     (enc "abrq" a b t (hash (enc m k)) (hash k) (privk "sign" a)) (0 3))   (traces     ((recv@@ -3378,11 +3380,11 @@     (e2       (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r         (pubk "encr" t))) (x (hash k)) (a a) (b b) (t t))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init4 3 (r r-0) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 3 (r r-0) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((2 2) (0 3)))   (non-orig (privk "sign" a))-  (operation encryption-test (added-strand init4 3)+  (operation encryption-test (added-strand init5 3)     (enc "abrq" a b t (hash (enc m k)) (hash k) (privk "sign" a)) (0 3))   (traces     ((recv@@ -4152,19 +4154,18 @@         (enc "abcf" (enc "abrq" a b t y x (privk "sign" a))           (privk "sign" t)))))   (label 34)-  (seen 35 36)   (unrealized (0 0))   (origs)-  (comment "4 in cohort - 2 not yet seen"))+  (comment "2 in cohort - 2 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-ab1 3 (y (hash (enc m k))) (x (hash k)) (a a) (b b)     (t t))-  (defstrand init2 2 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init3 2 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 1) (0 0)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init2 2)+  (operation encryption-test (added-strand init3 2)     (enc "abrq" a b t (hash (enc m k)) (hash k) (privk "sign" a)) (0 0))   (traces     ((recv@@ -4197,10 +4198,10 @@   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-ab1 3 (y (hash (enc m k))) (x (hash k)) (a a) (b b)     (t t))-  (defstrand init4 3 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 3 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 2) (0 0)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init4 3)+  (operation encryption-test (added-strand init5 3)     (enc "abrq" a b t (hash (enc m k)) (hash k) (privk "sign" a)) (0 0))   (traces     ((recv@@ -4535,19 +4536,18 @@         (enc "abcf" (enc "abrq" a b t y (hash k) (privk "sign" a))           (privk "sign" t)))))   (label 37)-  (seen 38)   (unrealized (0 0) (0 1))   (origs)-  (comment "5 in cohort - 1 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-rc2 3 (y (hash (enc m k))) (r r) (a a) (b b) (t t)     (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init1 1)+  (operation encryption-test (added-strand init5 1)     (enc "eootag" (hash a b t (hash (enc m k)) (hash k))       (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r         (pubk "encr" t)) (privk "sign" a)) (0 0))@@ -4582,18 +4582,17 @@              (pubk "encr" t)) (privk "sign" a))))))   (label 38)   (parent 37)-  (seen 39 40 41 42)   (unrealized (0 1))-  (comment "8 in cohort - 4 not yet seen"))+  (comment "4 in cohort - 4 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-rc2 3 (y (hash (enc m k))) (r r) (a a) (b b) (t t)     (k k))-  (defstrand init2 2 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init3 2 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((1 1) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (displaced 1 2 init2 2)+  (operation encryption-test (displaced 1 2 init3 2)     (enc "abrq" a b t (hash (enc m k)) (hash k) (privk "sign" a)) (0 1))   (traces     ((recv@@ -4637,11 +4636,11 @@   (vars (r r-0 text) (m data) (a b t name) (k skey))   (defstrand ttp-rc2 3 (y (hash (enc m k))) (r r) (a a) (b b) (t t)     (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init2 2 (r r-0) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init3 2 (r r-0) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((2 1) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init2 2)+  (operation encryption-test (added-strand init3 2)     (enc "abrq" a b t (hash (enc m k)) (hash k) (privk "sign" a)) (0 1))   (traces     ((recv@@ -4692,10 +4691,10 @@   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-rc2 3 (y (hash (enc m k))) (r r) (a a) (b b) (t t)     (k k))-  (defstrand init4 3 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 3 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((1 2) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (displaced 1 2 init4 3)+  (operation encryption-test (displaced 1 2 init5 3)     (enc "abrq" a b t (hash (enc m k)) (hash k) (privk "sign" a)) (0 1))   (traces     ((recv@@ -4743,11 +4742,11 @@   (vars (r r-0 text) (m data) (a b t name) (k skey))   (defstrand ttp-rc2 3 (y (hash (enc m k))) (r r) (a a) (b b) (t t)     (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init4 3 (r r-0) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 3 (r r-0) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((2 2) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init4 3)+  (operation encryption-test (added-strand init5 3)     (enc "abrq" a b t (hash (enc m k)) (hash k) (privk "sign" a)) (0 1))   (traces     ((recv@@ -5100,19 +5099,18 @@         (enc "abcf" (enc "abrq" a b t y (hash k) (privk "sign" a))           (privk "sign" t)))))   (label 43)-  (seen 44)   (unrealized (0 0) (0 1))   (origs)-  (comment "5 in cohort - 1 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-cf2 3 (y (hash (enc m k))) (r r) (a a) (b b) (t t)     (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init1 1)+  (operation encryption-test (added-strand init5 1)     (enc "eootag" (hash a b t (hash (enc m k)) (hash k))       (enc "keytag" (hash a b t (hash (enc m k)) (hash k)) k r         (pubk "encr" t)) (privk "sign" a)) (0 0))@@ -5147,18 +5145,17 @@              (pubk "encr" t)) (privk "sign" a))))))   (label 44)   (parent 43)-  (seen 45 46 47 48)   (unrealized (0 1))-  (comment "8 in cohort - 4 not yet seen"))+  (comment "4 in cohort - 4 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-cf2 3 (y (hash (enc m k))) (r r) (a a) (b b) (t t)     (k k))-  (defstrand init2 2 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init3 2 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((1 1) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (displaced 1 2 init2 2)+  (operation encryption-test (displaced 1 2 init3 2)     (enc "abrq" a b t (hash (enc m k)) (hash k) (privk "sign" a)) (0 1))   (traces     ((recv@@ -5202,11 +5199,11 @@   (vars (r r-0 text) (m data) (a b t name) (k skey))   (defstrand ttp-cf2 3 (y (hash (enc m k))) (r r) (a a) (b b) (t t)     (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init2 2 (r r-0) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init3 2 (r r-0) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((2 1) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init2 2)+  (operation encryption-test (added-strand init3 2)     (enc "abrq" a b t (hash (enc m k)) (hash k) (privk "sign" a)) (0 1))   (traces     ((recv@@ -5257,10 +5254,10 @@   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-cf2 3 (y (hash (enc m k))) (r r) (a a) (b b) (t t)     (k k))-  (defstrand init4 3 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 3 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((1 2) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (displaced 1 2 init4 3)+  (operation encryption-test (displaced 1 2 init5 3)     (enc "abrq" a b t (hash (enc m k)) (hash k) (privk "sign" a)) (0 1))   (traces     ((recv@@ -5308,11 +5305,11 @@   (vars (r r-0 text) (m data) (a b t name) (k skey))   (defstrand ttp-cf2 3 (y (hash (enc m k))) (r r) (a a) (b b) (t t)     (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init4 3 (r r-0) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 3 (r r-0) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((2 2) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init4 3)+  (operation encryption-test (added-strand init5 3)     (enc "abrq" a b t (hash (enc m k)) (hash k) (privk "sign" a)) (0 1))   (traces     ((recv
tst/wang-key-hash.tst view
@@ -1,6 +1,6 @@ (herald "Wang's Fair Exchange Protocol" (bound 10)) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from wang-key-hash.scm") (comment "Strand count bounded at 10") @@ -2109,10 +2109,9 @@                 (enc "h" (cat "h" k)))) k r (pubk "encr" t))           (privk "sign" b))) (send (cat k r))))   (label 11)-  (seen 13)   (unrealized (0 1))   (origs)-  (comment "3 in cohort - 2 not yet seen"))+  (comment "2 in cohort - 2 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (b t a name) (k skey))@@ -2195,10 +2194,16 @@ (defskeleton wang   (vars (r text) (m data) (b t a name) (k skey))   (defstrand init1 3 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand resp2 2 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand resp3 2 (e1 (enc m k))+    (e2+      (enc "keytag"+        (enc "h"+          (cat "h" a b t (enc "h" (cat "h" (enc m k)))+            (enc "h" (cat "h" k)))) k r (pubk "encr" t)))+    (x (enc "h" (cat "h" k))) (a a) (b b) (t t))   (precedes ((1 1) (0 1)))   (non-orig (privk "sign" b))-  (operation encryption-test (added-strand resp2 2)+  (operation encryption-test (added-strand resp3 2)     (enc "eortag"       (enc "h"         (cat "h" a b t (enc "h" (cat "h" (enc m k)))@@ -2813,10 +2818,9 @@                 (enc "h" (cat "h" k)))) k r (pubk "encr" t))           (privk "sign" b)))))   (label 14)-  (seen 16)   (unrealized (0 2))   (origs)-  (comment "3 in cohort - 2 not yet seen"))+  (comment "2 in cohort - 2 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (b t a name) (k skey))@@ -2902,10 +2906,16 @@ (defskeleton wang   (vars (r text) (m data) (b t a name) (k skey))   (defstrand init3 3 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand resp2 2 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand resp3 2 (e1 (enc m k))+    (e2+      (enc "keytag"+        (enc "h"+          (cat "h" a b t (enc "h" (cat "h" (enc m k)))+            (enc "h" (cat "h" k)))) k r (pubk "encr" t)))+    (x (enc "h" (cat "h" k))) (a a) (b b) (t t))   (precedes ((1 1) (0 2)))   (non-orig (privk "sign" b))-  (operation encryption-test (added-strand resp2 2)+  (operation encryption-test (added-strand resp3 2)     (enc "eortag"       (enc "h"         (cat "h" a b t (enc "h" (cat "h" (enc m k)))@@ -3533,10 +3543,9 @@                 (enc "h" (cat "h" k)))) k r (pubk "encr" t))           (privk "sign" b)))))   (label 17)-  (seen 19)   (unrealized (0 1) (0 3))   (origs)-  (comment "3 in cohort - 2 not yet seen"))+  (comment "2 in cohort - 2 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (b t a name) (k skey))@@ -3632,10 +3641,16 @@ (defskeleton wang   (vars (r text) (m data) (b t a name) (k skey))   (defstrand init5 4 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand resp2 2 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand resp3 2 (e1 (enc m k))+    (e2+      (enc "keytag"+        (enc "h"+          (cat "h" a b t (enc "h" (cat "h" (enc m k)))+            (enc "h" (cat "h" k)))) k r (pubk "encr" t)))+    (x (enc "h" (cat "h" k))) (a a) (b b) (t t))   (precedes ((1 1) (0 1)))   (non-orig (privk "sign" b))-  (operation encryption-test (added-strand resp2 2)+  (operation encryption-test (added-strand resp3 2)     (enc "eortag"       (enc "h"         (cat "h" a b t (enc "h" (cat "h" (enc m k)))@@ -4260,18 +4275,17 @@                 (enc "h" (cat "h" k)))) k r (pubk "encr" t))           (privk "sign" b))) (recv (cat k r))))   (label 20)-  (seen 21)   (unrealized (0 0))   (origs)-  (comment "5 in cohort - 1 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a t b name) (k skey))   (defstrand resp1 3 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)))   (non-orig (privk "sign" a))-  (operation encryption-test (added-strand init1 1)+  (operation encryption-test (added-strand init5 1)     (enc "eootag"       (enc "h"         (cat "h" a b t (enc "h" (cat "h" (enc m k)))@@ -4907,18 +4921,17 @@                   (enc "h" (cat "h" k)))) k r (pubk "encr" t))             (privk "sign" b)))) (recv (cat k r))))   (label 22)-  (seen 23)   (unrealized (0 0))   (origs)-  (comment "5 in cohort - 1 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a t b name) (k skey))   (defstrand resp2 4 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)))   (non-orig (privk "sign" a))-  (operation encryption-test (added-strand init1 1)+  (operation encryption-test (added-strand init5 1)     (enc "eootag"       (enc "h"         (cat "h" a b t (enc "h" (cat "h" (enc m k)))@@ -5554,10 +5567,9 @@           (enc "abrq" a b t (enc "h" (cat "h" e1)) x (privk "sign" a))           (privk "sign" t)))))   (label 24)-  (seen 25)   (unrealized (0 0) (0 3))   (origs)-  (comment "5 in cohort - 1 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a t b name) (k skey))@@ -5568,10 +5580,10 @@           (cat "h" a b t (enc "h" (cat "h" (enc m k)))             (enc "h" (cat "h" k)))) k r (pubk "encr" t)))     (x (enc "h" (cat "h" k))) (a a) (b b) (t t))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)))   (non-orig (privk "sign" a))-  (operation encryption-test (added-strand init1 1)+  (operation encryption-test (added-strand init5 1)     (enc "eootag"       (enc "h"         (cat "h" a b t (enc "h" (cat "h" (enc m k)))@@ -5682,9 +5694,8 @@            (privk "sign" a))))))   (label 25)   (parent 24)-  (seen 26 27 28 29)   (unrealized (0 3))-  (comment "8 in cohort - 4 not yet seen"))+  (comment "4 in cohort - 4 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a t b name) (k skey))@@ -5695,10 +5706,10 @@           (cat "h" a b t (enc "h" (cat "h" (enc m k)))             (enc "h" (cat "h" k)))) k r (pubk "encr" t)))     (x (enc "h" (cat "h" k))) (a a) (b b) (t t))-  (defstrand init2 2 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init3 2 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((1 1) (0 3)))   (non-orig (privk "sign" a))-  (operation encryption-test (displaced 1 2 init2 2)+  (operation encryption-test (displaced 1 2 init3 2)     (enc "abrq" a b t (enc "h" (cat "h" (enc m k)))       (enc "h" (cat "h" k)) (privk "sign" a)) (0 3))   (traces@@ -5827,11 +5838,11 @@           (cat "h" a b t (enc "h" (cat "h" (enc m k)))             (enc "h" (cat "h" k)))) k r (pubk "encr" t)))     (x (enc "h" (cat "h" k))) (a a) (b b) (t t))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init2 2 (r r-0) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init3 2 (r r-0) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((2 1) (0 3)))   (non-orig (privk "sign" a))-  (operation encryption-test (added-strand init2 2)+  (operation encryption-test (added-strand init3 2)     (enc "abrq" a b t (enc "h" (cat "h" (enc m k)))       (enc "h" (cat "h" k)) (privk "sign" a)) (0 3))   (traces@@ -5977,10 +5988,10 @@           (cat "h" a b t (enc "h" (cat "h" (enc m k)))             (enc "h" (cat "h" k)))) k r (pubk "encr" t)))     (x (enc "h" (cat "h" k))) (a a) (b b) (t t))-  (defstrand init4 3 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 3 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((1 2) (0 3)))   (non-orig (privk "sign" a))-  (operation encryption-test (displaced 1 2 init4 3)+  (operation encryption-test (displaced 1 2 init5 3)     (enc "abrq" a b t (enc "h" (cat "h" (enc m k)))       (enc "h" (cat "h" k)) (privk "sign" a)) (0 3))   (traces@@ -6119,11 +6130,11 @@           (cat "h" a b t (enc "h" (cat "h" (enc m k)))             (enc "h" (cat "h" k)))) k r (pubk "encr" t)))     (x (enc "h" (cat "h" k))) (a a) (b b) (t t))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init4 3 (r r-0) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 3 (r r-0) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((2 2) (0 3)))   (non-orig (privk "sign" a))-  (operation encryption-test (added-strand init4 3)+  (operation encryption-test (added-strand init5 3)     (enc "abrq" a b t (enc "h" (cat "h" (enc m k)))       (enc "h" (cat "h" k)) (privk "sign" a)) (0 3))   (traces@@ -7415,19 +7426,18 @@         (enc "abcf" (enc "abrq" a b t y x (privk "sign" a))           (privk "sign" t)))))   (label 34)-  (seen 35 36)   (unrealized (0 0))   (origs)-  (comment "4 in cohort - 2 not yet seen"))+  (comment "2 in cohort - 2 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-ab1 3 (y (enc "h" (cat "h" (enc m k))))     (x (enc "h" (cat "h" k))) (a a) (b b) (t t))-  (defstrand init2 2 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init3 2 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 1) (0 0)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init2 2)+  (operation encryption-test (added-strand init3 2)     (enc "abrq" a b t (enc "h" (cat "h" (enc m k)))       (enc "h" (cat "h" k)) (privk "sign" a)) (0 0))   (traces@@ -7476,10 +7486,10 @@   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-ab1 3 (y (enc "h" (cat "h" (enc m k))))     (x (enc "h" (cat "h" k))) (a a) (b b) (t t))-  (defstrand init4 3 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 3 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 2) (0 0)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init4 3)+  (operation encryption-test (added-strand init5 3)     (enc "abrq" a b t (enc "h" (cat "h" (enc m k)))       (enc "h" (cat "h" k)) (privk "sign" a)) (0 0))   (traces@@ -8054,19 +8064,18 @@           (enc "abrq" a b t y (enc "h" (cat "h" k)) (privk "sign" a))           (privk "sign" t)))))   (label 37)-  (seen 38)   (unrealized (0 0) (0 1))   (origs)-  (comment "5 in cohort - 1 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-rc2 3 (y (enc "h" (cat "h" (enc m k)))) (r r) (a a)     (b b) (t t) (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init1 1)+  (operation encryption-test (added-strand init5 1)     (enc "eootag"       (enc "h"         (cat "h" a b t (enc "h" (cat "h" (enc m k)))@@ -8137,18 +8146,17 @@            (privk "sign" a))))))   (label 38)   (parent 37)-  (seen 39 40 41 42)   (unrealized (0 1))-  (comment "8 in cohort - 4 not yet seen"))+  (comment "4 in cohort - 4 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-rc2 3 (y (enc "h" (cat "h" (enc m k)))) (r r) (a a)     (b b) (t t) (k k))-  (defstrand init2 2 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init3 2 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((1 1) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (displaced 1 2 init2 2)+  (operation encryption-test (displaced 1 2 init3 2)     (enc "abrq" a b t (enc "h" (cat "h" (enc m k)))       (enc "h" (cat "h" k)) (privk "sign" a)) (0 1))   (traces@@ -8227,11 +8235,11 @@   (vars (r r-0 text) (m data) (a b t name) (k skey))   (defstrand ttp-rc2 3 (y (enc "h" (cat "h" (enc m k)))) (r r) (a a)     (b b) (t t) (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init2 2 (r r-0) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init3 2 (r r-0) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((2 1) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init2 2)+  (operation encryption-test (added-strand init3 2)     (enc "abrq" a b t (enc "h" (cat "h" (enc m k)))       (enc "h" (cat "h" k)) (privk "sign" a)) (0 1))   (traces@@ -8327,10 +8335,10 @@   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-rc2 3 (y (enc "h" (cat "h" (enc m k)))) (r r) (a a)     (b b) (t t) (k k))-  (defstrand init4 3 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 3 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((1 2) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (displaced 1 2 init4 3)+  (operation encryption-test (displaced 1 2 init5 3)     (enc "abrq" a b t (enc "h" (cat "h" (enc m k)))       (enc "h" (cat "h" k)) (privk "sign" a)) (0 1))   (traces@@ -8419,11 +8427,11 @@   (vars (r r-0 text) (m data) (a b t name) (k skey))   (defstrand ttp-rc2 3 (y (enc "h" (cat "h" (enc m k)))) (r r) (a a)     (b b) (t t) (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init4 3 (r r-0) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 3 (r r-0) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((2 2) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init4 3)+  (operation encryption-test (added-strand init5 3)     (enc "abrq" a b t (enc "h" (cat "h" (enc m k)))       (enc "h" (cat "h" k)) (privk "sign" a)) (0 1))   (traces@@ -9045,19 +9053,18 @@           (enc "abrq" a b t y (enc "h" (cat "h" k)) (privk "sign" a))           (privk "sign" t)))))   (label 43)-  (seen 44)   (unrealized (0 0) (0 1))   (origs)-  (comment "5 in cohort - 1 not yet seen"))+  (comment "1 in cohort - 1 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-cf2 3 (y (enc "h" (cat "h" (enc m k)))) (r r) (a a)     (b b) (t t) (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init1 1)+  (operation encryption-test (added-strand init5 1)     (enc "eootag"       (enc "h"         (cat "h" a b t (enc "h" (cat "h" (enc m k)))@@ -9128,18 +9135,17 @@            (privk "sign" a))))))   (label 44)   (parent 43)-  (seen 45 46 47 48)   (unrealized (0 1))-  (comment "8 in cohort - 4 not yet seen"))+  (comment "4 in cohort - 4 not yet seen"))  (defskeleton wang   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-cf2 3 (y (enc "h" (cat "h" (enc m k)))) (r r) (a a)     (b b) (t t) (k k))-  (defstrand init2 2 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init3 2 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((1 1) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (displaced 1 2 init2 2)+  (operation encryption-test (displaced 1 2 init3 2)     (enc "abrq" a b t (enc "h" (cat "h" (enc m k)))       (enc "h" (cat "h" k)) (privk "sign" a)) (0 1))   (traces@@ -9218,11 +9224,11 @@   (vars (r r-0 text) (m data) (a b t name) (k skey))   (defstrand ttp-cf2 3 (y (enc "h" (cat "h" (enc m k)))) (r r) (a a)     (b b) (t t) (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init2 2 (r r-0) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init3 2 (r r-0) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((2 1) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init2 2)+  (operation encryption-test (added-strand init3 2)     (enc "abrq" a b t (enc "h" (cat "h" (enc m k)))       (enc "h" (cat "h" k)) (privk "sign" a)) (0 1))   (traces@@ -9318,10 +9324,10 @@   (vars (r text) (m data) (a b t name) (k skey))   (defstrand ttp-cf2 3 (y (enc "h" (cat "h" (enc m k)))) (r r) (a a)     (b b) (t t) (k k))-  (defstrand init4 3 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 3 (r r) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((1 2) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (displaced 1 2 init4 3)+  (operation encryption-test (displaced 1 2 init5 3)     (enc "abrq" a b t (enc "h" (cat "h" (enc m k)))       (enc "h" (cat "h" k)) (privk "sign" a)) (0 1))   (traces@@ -9410,11 +9416,11 @@   (vars (r r-0 text) (m data) (a b t name) (k skey))   (defstrand ttp-cf2 3 (y (enc "h" (cat "h" (enc m k)))) (r r) (a a)     (b b) (t t) (k k))-  (defstrand init1 1 (r r) (m m) (a a) (b b) (t t) (k k))-  (defstrand init4 3 (r r-0) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 1 (r r) (m m) (a a) (b b) (t t) (k k))+  (defstrand init5 3 (r r-0) (m m) (a a) (b b) (t t) (k k))   (precedes ((1 0) (0 0)) ((2 2) (0 1)))   (non-orig (privk "encr" t) (privk "sign" a))-  (operation encryption-test (added-strand init4 3)+  (operation encryption-test (added-strand init5 3)     (enc "abrq" a b t (enc "h" (cat "h" (enc m k)))       (enc "h" (cat "h" k)) (privk "sign" a)) (0 1))   (traces
tst/weird.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from weird.scm")  (defprotocol weird basic
tst/wide-mouth-frog-scyther.tst view
@@ -1,7 +1,7 @@ (herald "Wide-Mouth Frog Protocol from Scyther"   (comment "This protocol has an infinite number of shapes")) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from wide-mouth-frog-scyther.lsp")  (defprotocol wide-mouth-frog basic
tst/wide-mouth-frog.tst view
@@ -1,7 +1,7 @@ (herald "Wide-Mouth Frog Protocol"   (comment "This protocol has an infinite number of shapes")) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from wide-mouth-frog.lsp")  (defprotocol wide-mouth-frog basic
tst/wonthull.tst view
@@ -1,4 +1,4 @@-(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from wonthull.scm")  (defprotocol wonthull basic@@ -77,7 +77,7 @@   (label 3)   (parent 1)   (unrealized (0 1))-  (comment "1 in cohort - 1 not yet seen"))+  (comment "3 in cohort - 3 not yet seen"))  (defskeleton wonthull   (vars (x1 x2 y3 text) (a name))@@ -119,6 +119,155 @@   (unrealized)   (comment "1 in cohort - 0 not yet seen")) +(defskeleton wonthull+  (vars (x1 x2 x4 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x2) (x3 x2) (x4 x4) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 y3) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 x2) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1 x2)+  (operation nonce-test (added-strand resp 2) x2 (0 1)+    (enc "okay" y3 x2 (pubk a)) (enc x1 x2 (pubk a))+    (enc x2 x2 (pubk a)))+  (traces+    ((send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))+      (recv (enc "okay" x2 x4 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" y3 x2 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" x2 x2 (pubk a)))))+  (label 6)+  (parent 3)+  (unrealized (0 1))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton wonthull+  (vars (x1 x4 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x1) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 1)+    (enc "okay" y3 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 7)+  (parent 3)+  (seen 10)+  (unrealized (0 1))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull+  (vars (x1 x2 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x2) (x3 x2) (x4 x2) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 y3) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 x2) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1 x2)+  (operation nonce-test (contracted (x4 x2)) x2 (0 1)+    (enc "okay" x2 x2 (pubk a)) (enc "okay" y3 x2 (pubk a))+    (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a)))+  (traces+    ((send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))+      (recv (enc "okay" x2 x2 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" y3 x2 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" x2 x2 (pubk a)))))+  (label 8)+  (parent 6)+  (seen 5)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull+  (vars (x1 x4 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x1) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 1)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 9)+  (parent 6)+  (seen 10)+  (unrealized (0 1))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull+  (vars (y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (x1 y3) (x4 y3)) y3 (0 1)+    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 10)+  (parent 7)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull+  (vars (x1 x4 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x1) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 1)+    (enc "okay" y3 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 11)+  (parent 7)+  (seen 10)+  (unrealized (0 1))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull+  (vars (y3 text) (a name))+  (defstrand init 2 (x1 y3) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation generalization deleted (2 0))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 12)+  (parent 10)+  (seen 5)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))+ (comment "Nothing left to do")  (defprotocol wonthull basic@@ -144,7 +293,7 @@     ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))       (recv (enc "okay" x3 x1 (pubk a))))     ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a)))))-  (label 6)+  (label 13)   (unrealized)   (shape)   (maps ((0 1) ((a a) (x1 x1) (x3 x3))))
tst/wonthull2.tst view
@@ -1,3012 +1,4101 @@-(comment "CPSA 2.3.0")-(comment "All input read from wonthull2.scm")--(defprotocol wonthull2 basic-  (defrole init-    (vars (a name) (x1 x2 x3 x4 text))-    (trace (send (cat (enc x1 x3 (pubk a)) (enc x3 x2 (pubk a))))-      (recv (enc "okay" x3 x4 (pubk a))))-    (non-orig (privk a))-    (uniq-orig x3))-  (defrole resp-    (vars (a name) (y1 y2 y3 text))-    (trace (recv (enc y1 y2 (pubk a)))-      (send (enc "okay" y3 y1 (pubk a))))))--(defskeleton wonthull2-  (vars (x1 x2 x3 x4 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x2) (x3 x3) (x4 x4) (a a))-  (non-orig (privk a))-  (uniq-orig x3)-  (traces-    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x2 (pubk a))))-      (recv (enc "okay" x3 x4 (pubk a)))))-  (label 0)-  (unrealized (0 1))-  (origs (x3 (0 0)))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x2 x4 y3 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x2) (x3 x1) (x4 x4) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (added-strand resp 2) x1 (0 1)-    (enc x1 x1 (pubk a)) (enc x1 x2 (pubk a)))-  (traces-    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x2 (pubk a))))-      (recv (enc "okay" x1 x4 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))-  (label 1)-  (parent 0)-  (unrealized (0 1))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x2 x3 x4 y3 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x2) (x3 x3) (x4 x4) (a a))-  (defstrand resp 2 (y1 x3) (y2 x2) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (added-strand resp 2) x3 (0 1)-    (enc x1 x3 (pubk a)) (enc x3 x2 (pubk a)))-  (traces-    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x2 (pubk a))))-      (recv (enc "okay" x3 x4 (pubk a))))-    ((recv (enc x3 x2 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 2)-  (parent 0)-  (seen 4)-  (unrealized (0 1))-  (comment "2 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x2 y3 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x2) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1 y3) (x4 y3)) y3 (0 1)-    (enc "okay" y3 y3 (pubk a)) (enc y3 x2 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x2 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 3)-  (parent 1)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x2 x4 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x2) (x3 x1) (x4 x4) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x2) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (added-strand resp 2) x1 (0 1)-    (enc "okay" y3 x1 (pubk a)) (enc x1 x1 (pubk a))-    (enc x1 x2 (pubk a)))-  (traces-    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x2 (pubk a))))-      (recv (enc "okay" x1 x4 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 x2 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))-  (label 4)-  (parent 1)-  (unrealized (0 1))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x2 y3 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x2) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x2) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x3 y3) (x4 y3)) y3 (0 1)-    (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))-    (enc y3 x2 (pubk a)))-  (traces-    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x2 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x2 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 5)-  (parent 2)-  (unrealized)-  (shape)-  (maps ((0) ((a a) (x1 x1) (x2 x2) (x3 y3) (x4 y3))))-  (origs (y3 (0 0))))--(defskeleton wonthull2-  (vars (x2 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x2) (x3 y3-0) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3-0) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3 y3-0)-  (operation generalization separated y3-0)-  (traces-    ((send (cat (enc y3 y3-0 (pubk a)) (enc y3-0 x2 (pubk a))))-      (recv (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 y3-0 (pubk a)))-      (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 6)-  (parent 3)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x2 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3-0) (x2 x2) (x3 y3-0) (x4 y3-0) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x2) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3-0)-  (operation nonce-test (contracted (x1 y3-0) (x4 y3-0)) y3-0 (0 1)-    (enc "okay" y3 y3-0 (pubk a)) (enc "okay" y3-0 y3-0 (pubk a))-    (enc y3-0 x2 (pubk a)) (enc y3-0 y3-0 (pubk a)))-  (traces-    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x2 (pubk a))))-      (recv (enc "okay" y3-0 y3-0 (pubk a))))-    ((recv (enc y3-0 y3-0 (pubk a)))-      (send (enc "okay" y3 y3-0 (pubk a))))-    ((recv (enc y3-0 x2 (pubk a)))-      (send (enc "okay" y3-0 y3-0 (pubk a)))))-  (label 7)-  (parent 4)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x2 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x2) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x2) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1 y3) (x4 y3)) y3 (0 1)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 x2 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x2 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x2 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 8)-  (parent 4)-  (seen 3)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x2 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x2) (x3 y3-0) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3-0) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3-0)-  (operation generalization forgot y3)-  (traces-    ((send (cat (enc y3 y3-0 (pubk a)) (enc y3-0 x2 (pubk a))))-      (recv (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 y3-0 (pubk a)))-      (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 9)-  (parent 6)-  (unrealized)-  (shape)-  (maps ((0) ((a a) (x1 y3) (x2 x2) (x3 y3-0) (x4 y3))))-  (origs (y3 (0 0)) (y3-0 (0 0))))--(defskeleton wonthull2-  (vars (x2 y3 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x2) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x2) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation generalization deleted (1 0))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x2 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x2 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 10)-  (parent 7)-  (seen 5)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(comment "Nothing left to do")--(defprotocol wonthull2 basic-  (defrole init-    (vars (a name) (x1 x2 x3 x4 text))-    (trace (send (cat (enc x1 x3 (pubk a)) (enc x3 x2 (pubk a))))-      (recv (enc "okay" x3 x4 (pubk a))))-    (non-orig (privk a))-    (uniq-orig x3))-  (defrole resp-    (vars (a name) (y1 y2 y3 text))-    (trace (recv (enc y1 y2 (pubk a)))-      (send (enc "okay" y3 y1 (pubk a))))))--(defskeleton wonthull2-  (vars (x1 x3 x1-0 x3-0 text) (a a-0 name))-  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x3-0) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x3-0)-  (traces-    ((send (cat (enc x1-0 x3-0 (pubk a)) (enc x3-0 x3 (pubk a))))-      (recv (enc "okay" x3-0 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0)))-      (send (enc "okay" x3 x1 (pubk a-0)))))-  (label 11)-  (seen 12)-  (unrealized (0 1))-  (origs (x3-0 (0 0)))-  (comment "6 in cohort - 5 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x3 x1-0 text) (a a-0 name))-  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 2 0 init 1) x3-0 (0 1)-    (enc x1-0 x3-0 (pubk a)) (enc x3-0 x3 (pubk a)))-  (traces-    ((send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0)))-      (send (enc "okay" x3 x1 (pubk a-0)))))-  (label 12)-  (parent 11)-  (unrealized (1 0))-  (origs (x3 (0 0)))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton wonthull2-  (vars (x3 text) (a name))-  (defstrand init 2 (x1 x3) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 2 1 resp 2) x1 (0 1)-    (enc x1 x3 (pubk a-0)) (enc x1 x1 (pubk a-0)))-  (traces-    ((send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))-  (label 13)-  (parent 11)-  (seen 18)-  (unrealized)-  (origs (x3 (0 0)))-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x3 x1-0 y3 text) (a a-0 name))-  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x1-0) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x1-0)-  (operation nonce-test (added-strand resp 2) x1-0 (0 1)-    (enc x1-0 x3 (pubk a)) (enc x1-0 x1-0 (pubk a)))-  (traces-    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x3 (pubk a))))-      (recv (enc "okay" x1-0 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x1-0 x1-0 (pubk a)))-      (send (enc "okay" y3 x1-0 (pubk a)))))-  (label 14)-  (parent 11)-  (seen 21)-  (unrealized (0 1))-  (comment "7 in cohort - 5 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x3 x1-0 text) (a name))-  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (displaced 2 1 resp 2) x3-0 (0 1)-    (enc x1-0 x3-0 (pubk a-0)) (enc x3-0 x3 (pubk a-0)))-  (traces-    ((send (cat (enc x1-0 x1 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a)))))-  (label 15)-  (parent 11)-  (seen 13 18 22)-  (unrealized (0 1))-  (origs (x1 (0 0)))-  (comment "6 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x3 x1-0 x3-0 y3 text) (a a-0 name))-  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x3-0) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3-0) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x3-0)-  (operation nonce-test (added-strand resp 2) x3-0 (0 1)-    (enc x1-0 x3-0 (pubk a)) (enc x3-0 x3 (pubk a)))-  (traces-    ((send (cat (enc x1-0 x3-0 (pubk a)) (enc x3-0 x3 (pubk a))))-      (recv (enc "okay" x3-0 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3-0 x3 (pubk a)))-      (send (enc "okay" y3 x3-0 (pubk a)))))-  (label 16)-  (parent 11)-  (seen 21 23 24 25 27)-  (unrealized (0 1))-  (comment "7 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)-    (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))-  (traces-    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a)))))-  (label 17)-  (parent 12)-  (unrealized)-  (shape)-  (maps ((0 1) ((x1 x1) (x3 x3) (a a) (x1-0 x1) (x3-0 x3) (a-0 a))))-  (origs (x3 (0 0))))--(defskeleton wonthull2-  (vars (x3 x1 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (precedes ((0 0) (1 0)) ((1 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1-0 x3) (a-0 a)) x3 (1 0)-    (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))-  (traces-    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))-  (label 18)-  (parent 12)-  (unrealized)-  (shape)-  (maps ((0 1) ((x1 x3) (x3 x3) (a a) (x1-0 x1) (x3-0 x3) (a-0 a))))-  (origs (x3 (0 0))))--(defskeleton wonthull2-  (vars (x1 x3 x1-0 y3 text) (a a-0 name))-  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (added-strand resp 2) x3 (1 0)-    (enc x3 x3 (pubk a)) (enc x1-0 x3 (pubk a)))-  (traces-    ((send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 19)-  (parent 12)-  (unrealized (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1 y3) (x1-0 y3)) y3 (0 1)-    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 20)-  (parent 14)-  (seen 33)-  (unrealized (1 0))-  (comment "6 in cohort - 5 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x3 y3 text) (a a-0 name))-  (defstrand init 2 (x1 x3) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 3 0 init 1) x1-0 (0 1)-    (enc "okay" y3 x1-0 (pubk a)) (enc x1-0 x3 (pubk a))-    (enc x1-0 x1-0 (pubk a)))-  (traces-    ((send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 21)-  (parent 14)-  (seen 24 35)-  (unrealized (1 0))-  (comment "4 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x3 y3 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (displaced 3 1 resp 2) x1-0 (0 1)-    (enc "okay" y3 x1-0 (pubk a-0)) (enc x1-0 x3 (pubk a-0))-    (enc x1-0 x1-0 (pubk a-0)))-  (traces-    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))-  (label 22)-  (parent 14)-  (seen 24 30)-  (unrealized (0 1))-  (comment "8 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x3 x1-0 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x1-0) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))-  (defstrand resp 2 (y1 x1-0) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x1-0)-  (operation nonce-test (added-strand resp 2) x1-0 (0 1)-    (enc "okay" y3 x1-0 (pubk a)) (enc x1-0 x3 (pubk a))-    (enc x1-0 x1-0 (pubk a)))-  (traces-    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x3 (pubk a))))-      (recv (enc "okay" x1-0 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x1-0 x1-0 (pubk a)))-      (send (enc "okay" y3 x1-0 (pubk a))))-    ((recv (enc x1-0 x3 (pubk a)))-      (send (enc "okay" y3-0 x1-0 (pubk a)))))-  (label 23)-  (parent 14)-  (seen 21 37 40)-  (unrealized (0 1))-  (comment "8 in cohort - 4 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 text) (a name))-  (defstrand init 2 (x1 x3) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 3 1 resp 2) x1 (0 1)-    (enc "okay" y3 x1 (pubk a-0)) (enc x1 x3 (pubk a-0))-    (enc x1 x1 (pubk a-0)))-  (traces-    ((send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 24)-  (parent 14)-  (seen 13)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x3 x1-0 y3 text) (a name))-  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (added-strand resp 2) x1 (0 1)-    (enc "okay" x3 x1 (pubk a)) (enc x1 x3 (pubk a))-    (enc x1-0 x1 (pubk a)))-  (traces-    ((send (cat (enc x1-0 x1 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))-  (label 25)-  (parent 15)-  (seen 24 37 42 43)-  (unrealized (0 1))-  (comment "8 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 text) (a a-0 name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1-0 y3) (x3-0 y3)) y3 (0 1)-    (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))-    (enc y3 x3 (pubk a)))-  (traces-    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 26)-  (parent 16)-  (seen 31 42 45)-  (unrealized (1 0))-  (comment "6 in cohort - 3 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x3 x1-0 y3 text) (a a-0 name))-  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 3 0 init 1) x3-0 (0 1)-    (enc "okay" y3 x3-0 (pubk a)) (enc x1-0 x3-0 (pubk a))-    (enc x3-0 x3 (pubk a)))-  (traces-    ((send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 27)-  (parent 16)-  (seen 19 43)-  (unrealized (1 0))-  (comment "5 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)-    (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a))-    (enc x1 x3 (pubk a)))-  (traces-    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 28)-  (parent 19)-  (seen 17)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1-0 x3) (a-0 a)) x3 (1 0)-    (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a))-    (enc x1 x3 (pubk a)))-  (traces-    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 29)-  (parent 19)-  (seen 18)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 30)-  (parent 20)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (y3 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 y3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 3 2 resp 2) y3 (1 0)-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a-0))) (send (enc "okay" y3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 31)-  (parent 20)-  (unrealized (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 32)-  (parent 20)-  (seen 51 53)-  (unrealized (1 0))-  (comment "5 in cohort - 3 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 3 2 resp 2) y3 (1 0)-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 33)-  (parent 20)-  (seen 53)-  (unrealized (1 0))-  (comment "3 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 34)-  (parent 20)-  (seen 51 54 56)-  (unrealized (1 0))-  (comment "5 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x3 y3 text) (a a-0 name))-  (defstrand init 2 (x1 x3) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 3 2 resp 2) x3 (1 0)-    (enc x3 x3 (pubk a)))-  (traces-    ((send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 35)-  (parent 21)-  (unrealized (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x1 y3 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 3 2 resp 2) x3 (1 0)-    (enc x3 x3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a-0))) (send (enc "okay" y3 x1 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 36)-  (parent 21)-  (seen 50)-  (unrealized (1 0))-  (comment "2 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (added-strand resp 2) x1 (0 1)-    (enc "okay" x3 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))-    (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a)))-  (traces-    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))-  (label 37)-  (parent 22)-  (seen 24 41 60 61)-  (unrealized (0 1))-  (comment "10 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3-0)-  (operation nonce-test (contracted (x1 y3-0) (x1-0 y3-0)) y3-0 (0 1)-    (enc "okay" y3 y3-0 (pubk a)) (enc "okay" y3-0 y3-0 (pubk a))-    (enc y3-0 x3 (pubk a)) (enc y3-0 y3-0 (pubk a)))-  (traces-    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))-      (recv (enc "okay" y3-0 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a-0)))-      (send (enc "okay" x3 y3-0 (pubk a-0))))-    ((recv (enc y3-0 y3-0 (pubk a)))-      (send (enc "okay" y3 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a)))-      (send (enc "okay" y3-0 y3-0 (pubk a)))))-  (label 38)-  (parent 23)-  (seen 44 60 63)-  (unrealized (1 0))-  (comment "9 in cohort - 5 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1 y3) (x1-0 y3)) y3 (0 1)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 39)-  (parent 23)-  (seen 32 61 62 65 67)-  (unrealized (1 0))-  (comment "9 in cohort - 3 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 x3) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 4 0 init 1) x1-0 (0 1)-    (enc "okay" y3 x1-0 (pubk a)) (enc "okay" y3-0 x1-0 (pubk a))-    (enc x1-0 x3 (pubk a)) (enc x1-0 x1-0 (pubk a)))-  (traces-    ((send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3-0 x3 (pubk a)))))-  (label 40)-  (parent 23)-  (seen 24 35 70)-  (unrealized (1 0))-  (comment "6 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 x3) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 4 1 resp 2) x1 (0 1)-    (enc "okay" y3 x1 (pubk a-0)) (enc "okay" y3-0 x1 (pubk a-0))-    (enc x1 x3 (pubk a-0)) (enc x1 x1 (pubk a-0)))-  (traces-    ((send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3-0 x3 (pubk a)))))-  (label 41)-  (parent 23)-  (seen 24)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1-0 y3)) y3 (0 1)-    (enc "okay" x3 y3 (pubk a)) (enc "okay" y3 y3 (pubk a))-    (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 42)-  (parent 25)-  (unrealized)-  (shape)-  (maps ((0 1) ((x1 y3) (x3 x3) (a a) (x1-0 x1) (x3-0 y3) (a-0 a))))-  (origs (y3 (0 0))))--(defskeleton wonthull2-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1-0 x3)) x3 (0 1)-    (enc "okay" x3 x3 (pubk a)) (enc "okay" y3 x3 (pubk a))-    (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))-  (traces-    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 43)-  (parent 25)-  (seen 18)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 text) (a a-0 name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (added-strand resp 2) x1 (1 0)-    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))-  (traces-    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))-  (label 44)-  (parent 26)-  (seen 51 72)-  (unrealized (1 0))-  (comment "5 in cohort - 3 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 text) (a a-0 name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 3 2 resp 2) y3 (1 0)-    (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 45)-  (parent 26)-  (seen 72)-  (unrealized (1 0))-  (comment "3 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 46)-  (parent 26)-  (seen 51 73 75)-  (unrealized (1 0))-  (comment "5 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)-    (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))-  (traces-    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 47)-  (parent 27)-  (seen 17)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x1-0 y3 text) (a a-0 name))-  (defstrand init 2 (x1 x1-0) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 3 2 resp 2) x3 (1 0)-    (enc x3 x3 (pubk a)) (enc x1-0 x3 (pubk a)))-  (traces-    ((send (cat (enc x1-0 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a-0))) (send (enc "okay" y3 x1 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 48)-  (parent 27)-  (unrealized (1 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3-0) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3-0) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3-0)-  (operation generalization separated y3-0)-  (traces-    ((send (cat (enc y3 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))-      (recv (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3-0 (pubk a)))-      (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 49)-  (parent 30)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (y3 text) (a name))-  (defstrand init 2 (x1 y3) (x2 y3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 50)-  (parent 31)-  (seen 13)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 y3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a-0))) (send (enc "okay" y3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 51)-  (parent 31)-  (unrealized (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3-0 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 52)-  (parent 32)-  (seen 30)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 4 2 resp 2) y3 (1 0)-    (enc "okay" y3-0 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 53)-  (parent 32)-  (unrealized (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc "okay" y3-0 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))-  (label 54)-  (parent 32)-  (seen 51 83)-  (unrealized (1 0))-  (comment "4 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 55)-  (parent 33)-  (seen 30)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 56)-  (parent 33)-  (seen 83)-  (unrealized (1 0))-  (comment "2 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3-0 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 57)-  (parent 34)-  (seen 30)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 text) (a name))-  (defstrand init 2 (x1 x3) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1 x3) (a-0 a)) x3 (1 0)-    (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a)))-  (traces-    ((send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 58)-  (parent 35)-  (seen 13)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x1 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a-0))) (send (enc "okay" y3 x1 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 59)-  (parent 36)-  (seen 81)-  (unrealized (1 0))-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3-0)-  (operation nonce-test (contracted (x1 y3-0)) y3-0 (0 1)-    (enc "okay" x3 y3-0 (pubk a)) (enc "okay" y3 y3-0 (pubk a))-    (enc "okay" y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))-    (enc y3-0 y3-0 (pubk a)))-  (traces-    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))-      (recv (enc "okay" y3-0 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" x3 y3-0 (pubk a))))-    ((recv (enc y3-0 y3-0 (pubk a)))-      (send (enc "okay" y3 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a)))-      (send (enc "okay" y3-0 y3-0 (pubk a)))))-  (label 60)-  (parent 37)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1 y3)) y3 (0 1)-    (enc "okay" x3 y3 (pubk a)) (enc "okay" y3 y3 (pubk a))-    (enc "okay" y3-0 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 61)-  (parent 37)-  (seen 30)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3-0) (x2 y3-0) (x3 y3-0) (x4 y3-0) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-0) (a a-0))-  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3-0)-  (operation nonce-test (displaced 4 2 resp 2) y3-0 (1 0)-    (enc y3-0 x3 (pubk a)) (enc y3-0 y3-0 (pubk a)))-  (traces-    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 y3-0 (pubk a))))-      (recv (enc "okay" y3-0 y3-0 (pubk a))))-    ((recv (enc y3-0 y3-0 (pubk a-0)))-      (send (enc "okay" y3-0 y3-0 (pubk a-0))))-    ((recv (enc y3-0 y3-0 (pubk a)))-      (send (enc "okay" y3 y3-0 (pubk a))))-    ((recv (enc y3-0 y3-0 (pubk a)))-      (send (enc "okay" y3-0 y3-0 (pubk a)))))-  (label 62)-  (parent 38)-  (seen 51 58)-  (unrealized (1 0))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3-0)-  (operation nonce-test (displaced 4 3 resp 2) y3-0 (1 0)-    (enc y3-0 x3 (pubk a)) (enc y3-0 y3-0 (pubk a)))-  (traces-    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))-      (recv (enc "okay" y3-0 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a-0)))-      (send (enc "okay" x3 y3-0 (pubk a-0))))-    ((recv (enc y3-0 y3-0 (pubk a)))-      (send (enc "okay" y3 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a)))-      (send (enc "okay" y3-0 y3-0 (pubk a)))))-  (label 63)-  (parent 38)-  (seen 51 72)-  (unrealized (1 0))-  (comment "5 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))-  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3-0)-  (operation nonce-test (added-strand resp 2) y3-0 (1 0)-    (enc y3-0 x3 (pubk a)) (enc y3-0 y3-0 (pubk a)))-  (traces-    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))-      (recv (enc "okay" y3-0 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a-0)))-      (send (enc "okay" x3 y3-0 (pubk a-0))))-    ((recv (enc y3-0 y3-0 (pubk a)))-      (send (enc "okay" y3 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a)))-      (send (enc "okay" y3-0 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a)))-      (send (enc "okay" y3-1 y3-0 (pubk a)))))-  (label 64)-  (parent 38)-  (seen 73 88)-  (unrealized (1 0))-  (comment "7 in cohort - 3 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 text) (a a-0 name))-  (defstrand init 2 (x1 x3) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 4 3 resp 2) y3-0 (1 0)-    (enc y3-0 x3 (pubk a)) (enc y3-0 y3-0 (pubk a)))-  (traces-    ((send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))-  (label 65)-  (parent 38)-  (seen 51)-  (unrealized (1 0))-  (comment "3 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 4 2 resp 2) y3-0 (1 0)-    (enc y3-0 x3 (pubk a)) (enc y3-0 y3-0 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 66)-  (parent 38)-  (seen 91)-  (unrealized (1 0))-  (comment "3 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 4 2 resp 2) y3 (1 0)-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 67)-  (parent 39)-  (seen 51 53)-  (unrealized (1 0))-  (comment "5 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))-  (label 68)-  (parent 39)-  (seen 51 54 96)-  (unrealized (1 0))-  (comment "8 in cohort - 3 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 4 3 resp 2) y3-0 (1 0)-    (enc y3-0 x3 (pubk a)) (enc y3-0 y3-0 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 69)-  (parent 39)-  (seen 99)-  (unrealized (1 0))-  (comment "3 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x1 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 4 2 resp 2) x3 (1 0)-    (enc x3 x3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a-0))) (send (enc "okay" y3 x1 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 70)-  (parent 40)-  (seen 59 92)-  (unrealized (1 0))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (contracted (a-0 a)) x1 (1 0)-    (enc "okay" y3 x1 (pubk a)) (enc x1 x3 (pubk a))-    (enc x1 x1 (pubk a)))-  (traces-    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))-  (label 71)-  (parent 44)-  (seen 86)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 text) (a a-0 name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (displaced 4 2 resp 2) x1 (1 0)-    (enc "okay" y3 x1 (pubk a)) (enc x1 x3 (pubk a))-    (enc x1 x1 (pubk a)))-  (traces-    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))-  (label 72)-  (parent 44)-  (unrealized (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (added-strand resp 2) x1 (1 0)-    (enc "okay" y3 x1 (pubk a)) (enc x1 x3 (pubk a))-    (enc x1 x1 (pubk a)))-  (traces-    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))-  (label 73)-  (parent 44)-  (seen 103)-  (unrealized (1 0))-  (comment "4 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))-    (enc y3 x3 (pubk a)))-  (traces-    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 74)-  (parent 45)-  (seen 42)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))-    (enc y3 x3 (pubk a)))-  (traces-    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 75)-  (parent 45)-  (seen 103)-  (unrealized (1 0))-  (comment "2 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3-0 y3 (pubk a)) (enc x1 y3 (pubk a))-    (enc y3 x3 (pubk a)))-  (traces-    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 76)-  (parent 46)-  (seen 42)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x1 y3 text) (a name))-  (defstrand init 2 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1-0 y3) (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 77)-  (parent 48)-  (seen 18)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x1 y3 text) (a name))-  (defstrand init 2 (x1 x1) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 78)-  (parent 48)-  (seen 17)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x1 x1-0 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 x1-0) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc x1-0 y3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc x1-0 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a-0))) (send (enc "okay" y3 x1 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 79)-  (parent 48)-  (unrealized (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3-0) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3-0) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a) (privk a-0))-  (uniq-orig y3-0)-  (operation generalization separated a-0)-  (traces-    ((send (cat (enc y3 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))-      (recv (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3-0 (pubk a)))-      (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 80)-  (parent 49)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 y3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 81)-  (parent 51)-  (seen 58)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 82)-  (parent 53)-  (seen 55)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))-  (label 83)-  (parent 53)-  (unrealized (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3-0 y3 (pubk a)) (enc "okay" y3-1 y3 (pubk a))-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))-  (label 84)-  (parent 54)-  (seen 57)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 85)-  (parent 56)-  (seen 55)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation generalization deleted (2 0))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 86)-  (parent 60)-  (seen 42)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3-0)-  (operation nonce-test (contracted (a-0 a)) y3-0 (1 0)-    (enc "okay" y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))-    (enc y3-0 y3-0 (pubk a)))-  (traces-    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))-      (recv (enc "okay" y3-0 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" x3 y3-0 (pubk a))))-    ((recv (enc y3-0 y3-0 (pubk a)))-      (send (enc "okay" y3 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a)))-      (send (enc "okay" y3-0 y3-0 (pubk a)))))-  (label 87)-  (parent 63)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))-  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3-0)-  (operation nonce-test (added-strand resp 2) y3-0 (1 0)-    (enc "okay" y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))-    (enc y3-0 y3-0 (pubk a)))-  (traces-    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))-      (recv (enc "okay" y3-0 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a-0)))-      (send (enc "okay" x3 y3-0 (pubk a-0))))-    ((recv (enc y3-0 y3-0 (pubk a)))-      (send (enc "okay" y3 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a)))-      (send (enc "okay" y3-0 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a)))-      (send (enc "okay" y3-1 y3-0 (pubk a)))))-  (label 88)-  (parent 63)-  (seen 103)-  (unrealized (1 0))-  (comment "3 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a name))-  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3-0)-  (operation nonce-test (contracted (a-0 a)) y3-0 (1 0)-    (enc "okay" y3-1 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))-    (enc y3-0 y3-0 (pubk a)))-  (traces-    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))-      (recv (enc "okay" y3-0 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" x3 y3-0 (pubk a))))-    ((recv (enc y3-0 y3-0 (pubk a)))-      (send (enc "okay" y3 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a)))-      (send (enc "okay" y3-0 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a)))-      (send (enc "okay" y3-1 y3-0 (pubk a)))))-  (label 89)-  (parent 64)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 x3) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 5 3 resp 2) y3-1 (1 0)-    (enc "okay" y3-0 y3-1 (pubk a)) (enc y3-1 x3 (pubk a))-    (enc y3-1 y3-1 (pubk a)))-  (traces-    ((send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3-0 x3 (pubk a)))))-  (label 90)-  (parent 64)-  (seen 81)-  (unrealized (1 0))-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 5 2 resp 2) y3-1 (1 0)-    (enc "okay" y3-0 y3-1 (pubk a)) (enc y3-1 x3 (pubk a))-    (enc y3-1 y3-1 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 91)-  (parent 64)-  (unrealized (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 text) (a name))-  (defstrand init 2 (x1 x3) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (a-0 a)) x3 (1 0)-    (enc "okay" x3 x3 (pubk a)) (enc x3 x3 (pubk a)))-  (traces-    ((send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))-  (label 92)-  (parent 65)-  (seen 50)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 93)-  (parent 66)-  (seen 86)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 94)-  (parent 66)-  (seen 115)-  (unrealized (1 0))-  (comment "2 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 95)-  (parent 67)-  (seen 55)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))-  (label 96)-  (parent 67)-  (seen 83 105)-  (unrealized (1 0))-  (comment "4 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3-1 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))-  (label 97)-  (parent 68)-  (seen 57)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 x3) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 5 3 resp 2) y3-1 (1 0)-    (enc "okay" y3-0 y3-1 (pubk a)) (enc y3-1 x3 (pubk a))-    (enc y3-1 y3-1 (pubk a)))-  (traces-    ((send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3-0 x3 (pubk a)))))-  (label 98)-  (parent 68)-  (seen 51 58)-  (unrealized (1 0))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 5 3 resp 2) y3-1 (1 0)-    (enc "okay" y3-0 y3-1 (pubk a)) (enc y3-1 x3 (pubk a))-    (enc y3-1 y3-1 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 99)-  (parent 68)-  (unrealized (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 100)-  (parent 69)-  (seen 111)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 101)-  (parent 69)-  (seen 119)-  (unrealized (1 0))-  (comment "2 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (contracted (a-0 a)) x1 (1 0)-    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))-    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))-  (traces-    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))-  (label 102)-  (parent 72)-  (seen 111)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (added-strand resp 2) x1 (1 0)-    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))-    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))-  (traces-    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))-  (label 103)-  (parent 72)-  (unrealized (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (contracted (a-0 a)) x1 (1 0)-    (enc "okay" y3 x1 (pubk a)) (enc "okay" y3-0 x1 (pubk a))-    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))-  (traces-    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))-  (label 104)-  (parent 73)-  (seen 113)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 x3) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 5 2 resp 2) x1 (1 0)-    (enc "okay" y3 x1 (pubk a)) (enc "okay" y3-0 x1 (pubk a))-    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))-  (traces-    ((send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3-0 x3 (pubk a)))))-  (label 105)-  (parent 73)-  (seen 81)-  (unrealized (1 0))-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 106)-  (parent 75)-  (seen 74)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x1 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1-0 y3) (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 107)-  (parent 79)-  (seen 29)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x1 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 x1) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 108)-  (parent 79)-  (seen 28)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3-0) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3-0) (y3 y3-0) (a a))-  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))-  (non-orig (privk a))-  (uniq-orig y3-0)-  (operation generalization forgot (privk a-0))-  (traces-    ((send (cat (enc y3 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))-      (recv (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3-0 (pubk a)))-      (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 109)-  (parent 80)-  (unrealized)-  (shape)-  (maps ((0 1) ((x1 y3) (x3 x3) (a a) (x1-0 y3) (x3-0 y3-0) (a-0 a-0))))-  (origs (y3-0 (0 0))))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc "okay" y3-1 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))-  (label 110)-  (parent 83)-  (seen 85)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation generalization deleted (2 0))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 111)-  (parent 87)-  (seen 86)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a name))-  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3-0)-  (operation nonce-test (contracted (a-0 a)) y3-0 (1 0)-    (enc "okay" y3-0 y3-0 (pubk a)) (enc "okay" y3-1 y3-0 (pubk a))-    (enc y3-0 x3 (pubk a)) (enc y3-0 y3-0 (pubk a)))-  (traces-    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))-      (recv (enc "okay" y3-0 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" x3 y3-0 (pubk a))))-    ((recv (enc y3-0 y3-0 (pubk a)))-      (send (enc "okay" y3 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a)))-      (send (enc "okay" y3-0 y3-0 (pubk a))))-    ((recv (enc y3-0 x3 (pubk a)))-      (send (enc "okay" y3-1 y3-0 (pubk a)))))-  (label 112)-  (parent 88)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation generalization deleted (2 0))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 113)-  (parent 89)-  (seen 86)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 114)-  (parent 91)-  (seen 113)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))-    ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))-  (label 115)-  (parent 91)-  (unrealized (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 116)-  (parent 94)-  (seen 71)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-1 y3 (pubk a))-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))-  (label 117)-  (parent 96)-  (seen 85)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 118)-  (parent 99)-  (seen 102)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))-    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))-  (label 119)-  (parent 99)-  (unrealized (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 120)-  (parent 101)-  (seen 122)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 x1 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))-    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (contracted (a-0 a)) x1 (1 0)-    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))-    (enc "okay" y3-0 x1 (pubk a)) (enc x1 x3 (pubk a))-    (enc x1 x1 (pubk a)))-  (traces-    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))-  (label 121)-  (parent 103)-  (seen 122)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation generalization deleted (2 0))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 122)-  (parent 112)-  (seen 111)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))-    ((1 1) (0 1)) ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc "okay" y3-1 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))-  (label 123)-  (parent 115)-  (seen 104)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull2-  (vars (x3 y3 y3-0 y3-1 text) (a name))-  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-1) (a a))-  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))-    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0))-    ((5 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0)-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc "okay" y3-1 y3 (pubk a)) (enc y3 x3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))-  (label 124)-  (parent 119)-  (seen 121)+(comment "CPSA 2.3.1")+(comment "All input read from wonthull2.scm")++(defprotocol wonthull2 basic+  (defrole init+    (vars (a name) (x1 x2 x3 x4 text))+    (trace (send (cat (enc x1 x3 (pubk a)) (enc x3 x2 (pubk a))))+      (recv (enc "okay" x3 x4 (pubk a))))+    (non-orig (privk a))+    (uniq-orig x3))+  (defrole resp+    (vars (a name) (y1 y2 y3 text))+    (trace (recv (enc y1 y2 (pubk a)))+      (send (enc "okay" y3 y1 (pubk a))))))++(defskeleton wonthull2+  (vars (x1 x2 x3 x4 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x2) (x3 x3) (x4 x4) (a a))+  (non-orig (privk a))+  (uniq-orig x3)+  (traces+    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x2 (pubk a))))+      (recv (enc "okay" x3 x4 (pubk a)))))+  (label 0)+  (unrealized (0 1))+  (origs (x3 (0 0)))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x2 x3 x4 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x2) (x3 x3) (x4 x4) (a a))+  (defstrand resp 2 (y1 x3) (y2 x2) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (0 1)+    (enc x1 x3 (pubk a)) (enc x3 x2 (pubk a)))+  (traces+    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x2 (pubk a))))+      (recv (enc "okay" x3 x4 (pubk a))))+    ((recv (enc x3 x2 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 1)+  (parent 0)+  (unrealized (0 1))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x2 x4 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x2) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 1)+    (enc x1 x1 (pubk a)) (enc x1 x2 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x2 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 2)+  (parent 0)+  (seen 4)+  (unrealized (0 1))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x2 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x2) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x2) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (x3 y3) (x4 y3)) y3 (0 1)+    (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))+    (enc y3 x2 (pubk a)))+  (traces+    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x2 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x2 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 3)+  (parent 1)+  (unrealized)+  (shape)+  (maps ((0) ((a a) (x1 x1) (x2 x2) (x3 y3) (x4 y3))))+  (origs (y3 (0 0))))++(defskeleton wonthull2+  (vars (x1 x2 x4 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x2) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x2) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 1)+    (enc "okay" y3 x1 (pubk a)) (enc x1 x1 (pubk a))+    (enc x1 x2 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x2 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x2 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 4)+  (parent 1)+  (unrealized (0 1))+  (comment "4 in cohort - 4 not yet seen"))++(defskeleton wonthull2+  (vars (x2 y3 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x2) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (x1 y3) (x4 y3)) y3 (0 1)+    (enc "okay" y3 y3 (pubk a)) (enc y3 x2 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x2 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 5)+  (parent 2)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x2 x4 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x2) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 1)+    (enc "okay" y3 x1 (pubk a)) (enc x1 x1 (pubk a))+    (enc x1 x2 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x2 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 6)+  (parent 2)+  (seen 10)+  (unrealized (0 1))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x2 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x2) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x2) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (x1 y3) (x4 y3)) y3 (0 1)+    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))+    (enc y3 x2 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x2 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x2 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 7)+  (parent 4)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x2 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3-0) (x2 x2) (x3 y3-0) (x4 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x2) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation nonce-test (contracted (x1 y3-0) (x4 y3-0)) y3-0 (0 1)+    (enc "okay" y3 y3-0 (pubk a)) (enc "okay" y3-0 y3-0 (pubk a))+    (enc y3-0 x2 (pubk a)) (enc y3-0 y3-0 (pubk a)))+  (traces+    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x2 (pubk a))))+      (recv (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x2 (pubk a))) (send (enc "okay" y3 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a)))))+  (label 8)+  (parent 4)+  (seen 5)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x2 x4 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x2) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x2) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x2) (y3 x1) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 1)+    (enc "okay" y3 x1 (pubk a)) (enc "okay" y3-0 x1 (pubk a))+    (enc x1 x1 (pubk a)) (enc x1 x2 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x2 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x2 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x2 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 9)+  (parent 4)+  (unrealized (0 1))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x2 x4 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x2) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x2) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 1)+    (enc "okay" y3 x1 (pubk a)) (enc "okay" y3-0 x1 (pubk a))+    (enc x1 x1 (pubk a)) (enc x1 x2 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x2 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x2 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 10)+  (parent 4)+  (unrealized (0 1))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x2 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x2) (x3 y3-0) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3-0) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3 y3-0)+  (operation generalization separated y3-0)+  (traces+    ((send (cat (enc y3 y3-0 (pubk a)) (enc y3-0 x2 (pubk a))))+      (recv (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 11)+  (parent 5)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x2 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x2) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (x4 x1)) x1 (0 1)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x1 (pubk a)) (enc x1 x2 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x2 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 12)+  (parent 6)+  (seen 5)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x2 y3 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x2) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x2) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation generalization deleted (2 0))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x2 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x2 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 13)+  (parent 7)+  (seen 3)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x2 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x2) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x2) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x2) (y3 x1) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (x4 x1)) x1 (0 1)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc "okay" y3-0 x1 (pubk a)) (enc x1 x1 (pubk a))+    (enc x1 x2 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x2 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x2 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x2 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 14)+  (parent 9)+  (seen 7)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x2 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x2) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x2) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (x4 x1)) x1 (0 1)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc "okay" y3-0 x1 (pubk a)) (enc x1 x1 (pubk a))+    (enc x1 x2 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x2 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x2 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 15)+  (parent 10)+  (seen 12)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x2 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x2) (x3 y3-0) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3-0) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation generalization forgot y3)+  (traces+    ((send (cat (enc y3 y3-0 (pubk a)) (enc y3-0 x2 (pubk a))))+      (recv (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 16)+  (parent 11)+  (unrealized)+  (shape)+  (maps ((0) ((a a) (x1 y3) (x2 x2) (x3 y3-0) (x4 y3))))+  (origs (y3 (0 0)) (y3-0 (0 0))))++(comment "Nothing left to do")++(defprotocol wonthull2 basic+  (defrole init+    (vars (a name) (x1 x2 x3 x4 text))+    (trace (send (cat (enc x1 x3 (pubk a)) (enc x3 x2 (pubk a))))+      (recv (enc "okay" x3 x4 (pubk a))))+    (non-orig (privk a))+    (uniq-orig x3))+  (defrole resp+    (vars (a name) (y1 y2 y3 text))+    (trace (recv (enc y1 y2 (pubk a)))+      (send (enc "okay" y3 y1 (pubk a))))))++(defskeleton wonthull2+  (vars (x1 x3 x1-0 x3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x3-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x3-0)+  (traces+    ((send (cat (enc x1-0 x3-0 (pubk a)) (enc x3-0 x3 (pubk a))))+      (recv (enc "okay" x3-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0)))+      (send (enc "okay" x3 x1 (pubk a-0)))))+  (label 17)+  (unrealized (0 1))+  (origs (x3-0 (0 0)))+  (comment "4 in cohort - 4 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x3 x1-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 2 1 resp 2) x3-0 (0 1)+    (enc x1-0 x3-0 (pubk a)) (enc x3-0 x3 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0)))+      (send (enc "okay" x3 x1 (pubk a-0)))))+  (label 18)+  (parent 17)+  (unrealized (1 0))+  (origs (x3 (0 0)))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x3 x1-0 text) (a name))+  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 2 1 resp 2) x3-0 (0 1)+    (enc x1-0 x3-0 (pubk a-0)) (enc x3-0 x3 (pubk a-0)))+  (traces+    ((send (cat (enc x1-0 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a)))))+  (label 19)+  (parent 17)+  (seen 22)+  (unrealized (0 1))+  (origs (x1 (0 0)))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x3 x1-0 x3-0 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x3-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3-0) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x3-0)+  (operation nonce-test (added-strand resp 2) x3-0 (0 1)+    (enc x1-0 x3-0 (pubk a)) (enc x3-0 x3 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x3-0 (pubk a)) (enc x3-0 x3 (pubk a))))+      (recv (enc "okay" x3-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3-0 x3 (pubk a)))+      (send (enc "okay" y3 x3-0 (pubk a)))))+  (label 20)+  (parent 17)+  (seen 26)+  (unrealized (0 1))+  (comment "4 in cohort - 3 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x3 x1-0 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (0 1)+    (enc x1-0 x3 (pubk a)) (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x3 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a)))))+  (label 21)+  (parent 17)+  (seen 25 29)+  (unrealized (0 1))+  (comment "5 in cohort - 3 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x3) (a-0 a)) x3 (1 0)+    (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 22)+  (parent 18)+  (unrealized)+  (shape)+  (maps ((0 1) ((x1 x3) (x3 x3) (a a) (x1-0 x1) (x3-0 x3) (a-0 a))))+  (origs (x3 (0 0))))++(defskeleton wonthull2+  (vars (x3 x1 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)+    (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a)))))+  (label 23)+  (parent 18)+  (unrealized)+  (shape)+  (maps ((0 1) ((x1 x1) (x3 x3) (a a) (x1-0 x1) (x3-0 x3) (a-0 a))))+  (origs (x3 (0 0))))++(defskeleton wonthull2+  (vars (x1 x3 x1-0 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (1 0)+    (enc x3 x3 (pubk a)) (enc x1-0 x3 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 24)+  (parent 18)+  (unrealized (1 0))+  (comment "4 in cohort - 4 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 1)+    (enc "okay" x3 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 25)+  (parent 19)+  (unrealized (0 1))+  (comment "4 in cohort - 4 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x3 x1-0 y3 text) (a name))+  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 1)+    (enc "okay" x3 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1-0 x1 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 26)+  (parent 19)+  (seen 40)+  (unrealized (0 1))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (x1-0 y3) (x3-0 y3)) y3 (0 1)+    (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))+    (enc y3 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 27)+  (parent 20)+  (seen 42)+  (unrealized (1 0))+  (comment "4 in cohort - 3 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x3 x1-0 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 3 1 resp 2) x3-0 (0 1)+    (enc "okay" y3 x3-0 (pubk a)) (enc x1-0 x3-0 (pubk a))+    (enc x3-0 x3 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 28)+  (parent 20)+  (seen 24 41)+  (unrealized (1 0))+  (comment "5 in cohort - 3 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x3 x1-0 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (0 1)+    (enc "okay" y3 x1-0 (pubk a)) (enc x1-0 x3 (pubk a))+    (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x3 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1-0 x3 (pubk a))) (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3-0 x1-0 (pubk a)))))+  (label 29)+  (parent 20)+  (seen 32 40)+  (unrealized (0 1))+  (comment "6 in cohort - 4 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (x1 y3) (x1-0 y3)) y3 (0 1)+    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 30)+  (parent 21)+  (seen 38)+  (unrealized (1 0))+  (comment "4 in cohort - 3 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x3 x1-0 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (0 1)+    (enc "okay" y3 x1-0 (pubk a)) (enc x1-0 x3 (pubk a))+    (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x3 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a)))))+  (label 31)+  (parent 21)+  (seen 51)+  (unrealized (0 1))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (displaced 3 2 resp 2) x1-0 (0 1)+    (enc "okay" y3 x1-0 (pubk a)) (enc x1-0 x3 (pubk a))+    (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a)))))+  (label 32)+  (parent 21)+  (seen 39)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x3) (a-0 a)) x3 (1 0)+    (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 33)+  (parent 24)+  (seen 22)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)+    (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 34)+  (parent 24)+  (seen 23)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x3 x1-0 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (1 0)+    (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1-0 x3 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 35)+  (parent 24)+  (unrealized (1 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x1-0 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (1 0)+    (enc "okay" y3 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3-0 x1-0 (pubk a)))))+  (label 36)+  (parent 24)+  (unrealized (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 1)+    (enc "okay" x3 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 37)+  (parent 25)+  (seen 38)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 3 2 resp 2) x1 (0 1)+    (enc "okay" x3 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 38)+  (parent 25)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 3 2 resp 2) x1 (0 1)+    (enc "okay" x3 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 39)+  (parent 25)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 1)+    (enc "okay" x3 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 40)+  (parent 25)+  (seen 39)+  (unrealized (0 1))+  (comment "5 in cohort - 4 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 3 1 resp 2) x1-0 (0 1)+    (enc "okay" x3 x1-0 (pubk a)) (enc "okay" y3 x1-0 (pubk a))+    (enc x1-0 x3 (pubk a)) (enc x1 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 41)+  (parent 26)+  (seen 22)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 3 2 resp 2) x1-0 (0 1)+    (enc "okay" x3 x1-0 (pubk a)) (enc "okay" y3 x1-0 (pubk a))+    (enc x1-0 x3 (pubk a)) (enc x1 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 42)+  (parent 26)+  (unrealized)+  (shape)+  (maps ((0 1) ((x1 y3) (x3 x3) (a a) (x1-0 x1) (x3-0 y3) (a-0 a))))+  (origs (y3 (0 0))))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 3 2 resp 2) y3 (1 0)+    (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 43)+  (parent 27)+  (unrealized (1 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0)+    (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 44)+  (parent 27)+  (seen 72)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0)+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 45)+  (parent 27)+  (seen 73 75)+  (unrealized (1 0))+  (comment "4 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)+    (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 46)+  (parent 28)+  (seen 23)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x3 x1-0 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (1 0)+    (enc x3 x3 (pubk a)) (enc x1-0 x3 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 47)+  (parent 28)+  (seen 35)+  (unrealized (1 0))+  (comment "4 in cohort - 3 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x1-0 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (1 0)+    (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3-0 x1-0 (pubk a)))))+  (label 48)+  (parent 28)+  (seen 63 64)+  (unrealized (1 0))+  (comment "3 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (x1 y3) (x1-0 y3)) y3 (0 1)+    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))+    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 49)+  (parent 29)+  (seen 45 70)+  (unrealized (1 0))+  (comment "5 in cohort - 3 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation nonce-test (contracted (x1 y3-0) (x1-0 y3-0)) y3-0 (0 1)+    (enc "okay" y3 y3-0 (pubk a)) (enc "okay" y3-0 y3-0 (pubk a))+    (enc y3-0 x3 (pubk a)) (enc y3-0 y3-0 (pubk a)))+  (traces+    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))+      (recv (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a-0)))+      (send (enc "okay" x3 y3-0 (pubk a-0))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" y3 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a)))))+  (label 50)+  (parent 29)+  (seen 55 69)+  (unrealized (1 0))+  (comment "5 in cohort - 3 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x3 x1-0 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (0 1)+    (enc "okay" y3 x1-0 (pubk a)) (enc "okay" y3-0 x1-0 (pubk a))+    (enc x1-0 x3 (pubk a)) (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x3 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1-0 x3 (pubk a))) (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a)))))+  (label 51)+  (parent 29)+  (seen 57)+  (unrealized (0 1))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x3 x1-0 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x3) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x3) (y3 x1-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (0 1)+    (enc "okay" y3 x1-0 (pubk a)) (enc "okay" y3-0 x1-0 (pubk a))+    (enc x1-0 x3 (pubk a)) (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x3 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1-0 x3 (pubk a))) (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x3 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a)))))+  (label 52)+  (parent 29)+  (seen 57)+  (unrealized (0 1))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 3 2 resp 2) y3 (1 0)+    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 53)+  (parent 30)+  (unrealized (1 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0)+    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 54)+  (parent 30)+  (seen 90)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0)+    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 55)+  (parent 30)+  (seen 91 93)+  (unrealized (1 0))+  (comment "4 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (x1-0 x1)) x1 (0 1)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 56)+  (parent 31)+  (seen 37 54)+  (unrealized (1 0))+  (comment "4 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (displaced 4 3 resp 2) x1-0 (0 1)+    (enc "okay" x1-0 x1-0 (pubk a)) (enc "okay" y3 x1-0 (pubk a))+    (enc x1-0 x3 (pubk a)) (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a)))))+  (label 57)+  (parent 31)+  (seen 39 58)+  (unrealized (1 0))+  (comment "3 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (1 0)+    (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a)))))+  (label 58)+  (parent 32)+  (seen 64)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (1 0)+    (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a)))))+  (label 59)+  (parent 32)+  (seen 63 64)+  (unrealized (1 0))+  (comment "2 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x3) (a-0 a)) x3 (1 0)+    (enc "okay" x3 x3 (pubk a)) (enc "okay" y3 x3 (pubk a))+    (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 60)+  (parent 35)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)+    (enc "okay" x3 x3 (pubk a)) (enc "okay" y3 x3 (pubk a))+    (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 61)+  (parent 35)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x1-0 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (1 0)+    (enc "okay" x1-0 x1-0 (pubk a)) (enc "okay" y3 x1-0 (pubk a))+    (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3-0 x1-0 (pubk a)))))+  (label 62)+  (parent 35)+  (unrealized (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a) (y3-0 y3)) x1+    (1 0) (enc "okay" y3 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 63)+  (parent 36)+  (seen 66)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (1 0)+    (enc "okay" y3 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a)))))+  (label 64)+  (parent 36)+  (seen 102)+  (unrealized (1 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3-0) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3-0) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation generalization separated y3-0)+  (traces+    ((send (cat (enc y3 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))+      (recv (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 65)+  (parent 38)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x1 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (1 0)) ((1 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation generalization deleted (2 0))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 66)+  (parent 39)+  (seen 22)+  (unrealized)+  (origs (x1 (0 0)))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 1)+    (enc "okay" x3 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc "okay" y3-0 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 67)+  (parent 40)+  (seen 69)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 1)+    (enc "okay" x3 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc "okay" y3-0 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 68)+  (parent 40)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 4 2 resp 2) x1 (0 1)+    (enc "okay" x3 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc "okay" y3-0 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 69)+  (parent 40)+  (seen 38)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation nonce-test (displaced 4 3 resp 2) x1 (0 1)+    (enc "okay" x3 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc "okay" y3-0 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))+      (recv (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" x3 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a)))))+  (label 70)+  (parent 40)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))+    (enc y3 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 71)+  (parent 43)+  (seen 42)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))+    (enc y3 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 72)+  (parent 43)+  (unrealized (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 73)+  (parent 43)+  (seen 107)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3-0 y3 (pubk a)) (enc x1 y3 (pubk a))+    (enc y3 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 74)+  (parent 44)+  (seen 42)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0)+    (enc "okay" y3 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 75)+  (parent 44)+  (seen 107)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" y3 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 76)+  (parent 45)+  (seen 105)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0)+    (enc "okay" y3 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 77)+  (parent 45)+  (seen 110)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x3) (a-0 a)) x3 (1 0)+    (enc "okay" x3 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 78)+  (parent 47)+  (seen 100)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)+    (enc "okay" x3 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 79)+  (parent 47)+  (seen 101)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x1-0 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (1 0)+    (enc "okay" x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3-0 x1-0 (pubk a)))))+  (label 80)+  (parent 47)+  (seen 102)+  (unrealized (1 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0)+    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 81)+  (parent 49)+  (seen 77)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 4 2 resp 2) y3 (1 0)+    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 82)+  (parent 49)+  (seen 73)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0)+    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))+  (label 83)+  (parent 49)+  (seen 75 113 115)+  (unrealized (1 0))+  (comment "4 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation nonce-test (added-strand resp 2) y3-0 (1 0)+    (enc y3-0 x3 (pubk a)) (enc y3-0 y3-0 (pubk a)))+  (traces+    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))+      (recv (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a-0)))+      (send (enc "okay" x3 y3-0 (pubk a-0))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" y3 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a)))))+  (label 84)+  (parent 50)+  (seen 95)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation nonce-test (displaced 4 3 resp 2) y3-0 (1 0)+    (enc y3-0 x3 (pubk a)) (enc y3-0 y3-0 (pubk a)))+  (traces+    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))+      (recv (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a-0)))+      (send (enc "okay" x3 y3-0 (pubk a-0))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" y3 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a)))))+  (label 85)+  (parent 50)+  (seen 91)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))+  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation nonce-test (added-strand resp 2) y3-0 (1 0)+    (enc y3-0 x3 (pubk a)) (enc y3-0 y3-0 (pubk a)))+  (traces+    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))+      (recv (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a-0)))+      (send (enc "okay" x3 y3-0 (pubk a-0))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" y3 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-1 y3-0 (pubk a)))))+  (label 86)+  (parent 50)+  (seen 93 118 120)+  (unrealized (1 0))+  (comment "4 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (x1-0 x1)) x1 (0 1)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc "okay" y3-0 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 87)+  (parent 51)+  (seen 67 86 97)+  (unrealized (1 0))+  (comment "5 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (x1-0 x1)) x1 (0 1)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc "okay" y3-0 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 88)+  (parent 52)+  (seen 68 83)+  (unrealized (1 0))+  (comment "5 in cohort - 3 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 89)+  (parent 53)+  (seen 38)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 90)+  (parent 53)+  (unrealized (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 91)+  (parent 53)+  (seen 128)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3-0 y3 (pubk a)) (enc y3 x3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 92)+  (parent 54)+  (seen 38)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0)+    (enc "okay" y3-0 y3 (pubk a)) (enc y3 x3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))+  (label 93)+  (parent 54)+  (seen 128)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3-0 y3 (pubk a)) (enc y3 x3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 94)+  (parent 55)+  (seen 38)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0)+    (enc "okay" y3-0 y3 (pubk a)) (enc y3 x3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 95)+  (parent 55)+  (seen 131)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 4 3 resp 2) x1 (1 0)+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 96)+  (parent 56)+  (seen 90)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0)+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 97)+  (parent 56)+  (seen 93 134)+  (unrealized (1 0))+  (comment "4 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 2 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (1 0)+    (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a)))))+  (label 98)+  (parent 57)+  (seen 63 64)+  (unrealized (1 0))+  (comment "2 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 99)+  (parent 58)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation generalization deleted (2 0))+  (traces+    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 100)+  (parent 60)+  (seen 22)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation generalization deleted (2 0))+  (traces+    ((send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 101)+  (parent 61)+  (seen 23)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a) (y3-0 y3)) x1+    (1 0) (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 102)+  (parent 62)+  (seen 137)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3-0) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3-0) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a) (privk a-0))+  (uniq-orig y3-0)+  (operation generalization separated a-0)+  (traces+    ((send (cat (enc y3 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))+      (recv (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 103)+  (parent 65)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation generalization deleted (2 0))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 104)+  (parent 68)+  (seen 105)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation generalization deleted (2 0))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 105)+  (parent 70)+  (seen 42)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))+    (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a)))+  (traces+    ((send (cat (enc x1 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 106)+  (parent 72)+  (seen 71)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 107)+  (parent 72)+  (unrealized (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 108)+  (parent 73)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" y3 x1 (pubk a)) (enc "okay" y3-0 x1 (pubk a))+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 109)+  (parent 75)+  (seen 76)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0)+    (enc "okay" y3 x1 (pubk a)) (enc "okay" y3-0 x1 (pubk a))+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 110)+  (parent 75)+  (unrealized (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 111)+  (parent 77)+  (seen 127)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 112)+  (parent 81)+  (seen 133)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))+  (label 113)+  (parent 81)+  (seen 110)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 114)+  (parent 82)+  (seen 140)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))+  (label 115)+  (parent 82)+  (seen 107)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3-1 y3 (pubk a)) (enc y3 x3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))+  (label 116)+  (parent 83)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation nonce-test (contracted (a-0 a)) y3-0 (1 0)+    (enc "okay" y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))+    (enc y3-0 y3-0 (pubk a)))+  (traces+    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))+      (recv (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" x3 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" y3 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a)))))+  (label 117)+  (parent 84)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))+  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation nonce-test (added-strand resp 2) y3-0 (1 0)+    (enc "okay" y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))+    (enc y3-0 y3-0 (pubk a)))+  (traces+    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))+      (recv (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a-0)))+      (send (enc "okay" x3 y3-0 (pubk a-0))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" y3 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-1 y3-0 (pubk a)))))+  (label 118)+  (parent 84)+  (seen 131)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation nonce-test (contracted (a-0 a)) y3-0 (1 0)+    (enc "okay" y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))+    (enc y3-0 y3-0 (pubk a)))+  (traces+    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))+      (recv (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" x3 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" y3 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a)))))+  (label 119)+  (parent 85)+  (seen 89)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))+  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation nonce-test (added-strand resp 2) y3-0 (1 0)+    (enc "okay" y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))+    (enc y3-0 y3-0 (pubk a)))+  (traces+    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))+      (recv (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a-0)))+      (send (enc "okay" x3 y3-0 (pubk a-0))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" y3 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-1 y3-0 (pubk a)))))+  (label 120)+  (parent 85)+  (seen 128)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a name))+  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation nonce-test (contracted (a-0 a)) y3-0 (1 0)+    (enc "okay" y3-1 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))+    (enc y3-0 y3-0 (pubk a)))+  (traces+    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))+      (recv (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" x3 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" y3 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-1 y3-0 (pubk a)))))+  (label 121)+  (parent 86)+  (seen 92)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (0 1))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0)+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 122)+  (parent 87)+  (seen 118 136)+  (unrealized (1 0))+  (comment "3 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 5 4 resp 2) x1 (1 0)+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 123)+  (parent 87)+  (seen 120 134)+  (unrealized (1 0))+  (comment "3 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (0 1))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0)+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 124)+  (parent 88)+  (seen 113)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0)+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 125)+  (parent 88)+  (seen 75 151)+  (unrealized (1 0))+  (comment "4 in cohort - 2 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 5 4 resp 2) x1 (1 0)+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 126)+  (parent 88)+  (seen 115 153)+  (unrealized (1 0))+  (comment "3 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))+    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 127)+  (parent 90)+  (seen 89)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))+    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))+  (label 128)+  (parent 90)+  (unrealized (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))+    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 129)+  (parent 91)+  (seen 89)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3-0 y3 (pubk a)) (enc "okay" y3-1 y3 (pubk a))+    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))+  (label 130)+  (parent 93)+  (seen 94)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-1) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0)+    (enc "okay" y3-0 y3 (pubk a)) (enc "okay" y3-1 y3 (pubk a))+    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 131)+  (parent 93)+  (unrealized (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))+    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 132)+  (parent 95)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 133)+  (parent 96)+  (seen 89)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 134)+  (parent 96)+  (seen 128)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" y3-0 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 135)+  (parent 97)+  (seen 94)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0)+    (enc "okay" y3-0 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 136)+  (parent 97)+  (seen 131)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x1 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation generalization deleted (2 0))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 137)+  (parent 99)+  (seen 66)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3-0) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3-0) (y3 y3-0) (a a))+  (precedes ((0 0) (1 0)) ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (0 1)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation generalization forgot (privk a-0))+  (traces+    ((send (cat (enc y3 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))+      (recv (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 138)+  (parent 103)+  (unrealized)+  (shape)+  (maps ((0 1) ((x1 y3) (x3 x3) (a a) (x1-0 y3) (x3-0 y3-0) (a-0 a-0))))+  (origs (y3-0 (0 0))))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc "okay" y3-0 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 139)+  (parent 107)+  (seen 108)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((1 1) (0 1)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation generalization deleted (3 0))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 140)+  (parent 108)+  (seen 105)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc "okay" y3-0 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 141)+  (parent 110)+  (seen 155)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-1 y3 (pubk a))+    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))+  (label 142)+  (parent 113)+  (seen 158)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-1 y3 (pubk a))+    (enc y3 x3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))+  (label 143)+  (parent 115)+  (seen 157)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation generalization deleted (3 0))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 144)+  (parent 116)+  (seen 105)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (0 1))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation generalization deleted (2 0))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 145)+  (parent 117)+  (seen 140)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a name))+  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation nonce-test (contracted (a-0 a)) y3-0 (1 0)+    (enc "okay" y3-0 y3-0 (pubk a)) (enc "okay" y3-1 y3-0 (pubk a))+    (enc y3-0 x3 (pubk a)) (enc y3-0 y3-0 (pubk a)))+  (traces+    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))+      (recv (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" x3 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" y3 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-1 y3-0 (pubk a)))))+  (label 146)+  (parent 118)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a name))+  (defstrand init 2 (x1 y3-0) (x2 x3) (x3 y3-0) (x4 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3-0) (y2 y3-0) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3-0)+  (operation nonce-test (contracted (a-0 a)) y3-0 (1 0)+    (enc "okay" y3-0 y3-0 (pubk a)) (enc "okay" y3-1 y3-0 (pubk a))+    (enc y3-0 x3 (pubk a)) (enc y3-0 y3-0 (pubk a)))+  (traces+    ((send (cat (enc y3-0 y3-0 (pubk a)) (enc y3-0 x3 (pubk a))))+      (recv (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" x3 y3-0 (pubk a))))+    ((recv (enc y3-0 x3 (pubk a))) (send (enc "okay" y3 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-0 y3-0 (pubk a))))+    ((recv (enc y3-0 y3-0 (pubk a)))+      (send (enc "okay" y3-1 y3-0 (pubk a)))))+  (label 147)+  (parent 120)+  (seen 127)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (0 1))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 148)+  (parent 122)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 149)+  (parent 123)+  (seen 133)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (0 1))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 150)+  (parent 124)+  (seen 112)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 151)+  (parent 124)+  (seen 110)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" y3-0 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 152)+  (parent 125)+  (seen 76)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 5 3 resp 2) x1 (1 0)+    (enc "okay" y3-0 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 153)+  (parent 125)+  (seen 107)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc x1 x3 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 154)+  (parent 126)+  (seen 114)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))+    (enc "okay" y3-1 y3 (pubk a)) (enc y3 x3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a)))))+  (label 155)+  (parent 128)+  (seen 129)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 y3-1 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-1) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0)+    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))+    (enc "okay" y3-1 y3 (pubk a)) (enc y3 x3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-1 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 156)+  (parent 131)+  (seen 139)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((1 1) (0 1)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation generalization deleted (2 0))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 157)+  (parent 132)+  (seen 140)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3-0 x1 (pubk a))+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 158)+  (parent 134)+  (seen 129)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3-0 x1 (pubk a))+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 159)+  (parent 136)+  (seen 132)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation generalization deleted (2 0))+  (traces+    ((send (cat (enc y3 y3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 160)+  (parent 146)+  (seen 108)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation generalization deleted (2 0))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 161)+  (parent 148)+  (seen 145)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((0 0) (5 0))+    ((1 1) (0 1)) ((2 1) (0 1)) ((3 1) (0 1)) ((4 1) (1 0))+    ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3-0 x1 (pubk a))+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 162)+  (parent 151)+  (seen 111)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull2+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 2 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 0) (3 0)) ((0 0) (4 0)) ((1 1) (0 1))+    ((2 1) (0 1)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0)+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3-0 x1 (pubk a))+    (enc x1 x3 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (cat (enc x1 x1 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 163)+  (parent 153)+  (seen 108)   (unrealized)   (comment "1 in cohort - 0 not yet seen"))
tst/wonthull3.tst view
@@ -1,2262 +1,3697 @@-(comment "CPSA 2.3.0")-(comment "All input read from wonthull3.scm")--(defprotocol wonthull3 basic-  (defrole init-    (vars (a name) (x1 x2 x3 x4 text))-    (trace (send (enc x3 (pubk a)))-      (send (cat (enc x1 x2 (pubk a)) (enc x3 x2 (pubk a))))-      (recv (enc "okay" x3 x4 (pubk a))))-    (non-orig (privk a))-    (uniq-orig x3))-  (defrole resp-    (vars (a name) (y1 y2 y3 text))-    (trace (recv (enc y1 y2 (pubk a)))-      (send (enc "okay" y3 y1 (pubk a))))))--(defskeleton wonthull3-  (vars (x1 x2 x3 x4 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x2) (x3 x3) (x4 x4) (a a))-  (non-orig (privk a))-  (uniq-orig x3)-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x2 (pubk a)) (enc x3 x2 (pubk a))))-      (recv (enc "okay" x3 x4 (pubk a)))))-  (label 0)-  (unrealized (0 2))-  (origs (x3 (0 0)))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x2 x4 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x2) (x3 x2) (x4 x4) (a a))-  (non-orig (privk a))-  (uniq-orig x2)-  (operation nonce-test (displaced 1 0 init 2) x3 (0 2)-    (enc x3 (pubk a)) (enc x3 x2 (pubk a)))-  (traces-    ((send (enc x2 (pubk a)))-      (send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))-      (recv (enc "okay" x2 x4 (pubk a)))))-  (label 1)-  (parent 0)-  (unrealized (0 2))-  (origs (x2 (0 0)))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x2 x3 x4 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x2) (x3 x3) (x4 x4) (a a))-  (defstrand resp 2 (y1 x3) (y2 x2) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (added-strand resp 2) x3 (0 2) (enc x3 (pubk a))-    (enc x3 x2 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x2 (pubk a)) (enc x3 x2 (pubk a))))-      (recv (enc "okay" x3 x4 (pubk a))))-    ((recv (enc x3 x2 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 2)-  (parent 0)-  (unrealized (0 2) (1 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x2 x4 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x2) (x3 x2) (x4 x4) (a a))-  (defstrand resp 2 (y1 x2) (y2 x2) (y3 y3) (a a))-  (precedes ((0 0) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x2)-  (operation nonce-test (added-strand resp 2) x2 (0 2) (enc x2 (pubk a))-    (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a)))-  (traces-    ((send (enc x2 (pubk a)))-      (send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))-      (recv (enc "okay" x2 x4 (pubk a))))-    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" y3 x2 (pubk a)))))-  (label 3)-  (parent 1)-  (seen 5)-  (unrealized (0 2) (1 0))-  (comment "3 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x2 x4 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x2) (x3 x1) (x4 x4) (a a))-  (defstrand resp 2 (y1 x1) (y2 x2) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (displaced 2 0 init 2) x3 (1 0)-    (enc x3 (pubk a)))-  (traces-    ((send (enc x1 (pubk a)))-      (send (cat (enc x1 x2 (pubk a)) (enc x1 x2 (pubk a))))-      (recv (enc "okay" x1 x4 (pubk a))))-    ((recv (enc x1 x2 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))-  (label 4)-  (parent 2)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x2 x4 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x2) (x3 x2) (x4 x4) (a a))-  (defstrand resp 2 (y1 x2) (y2 x2) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x2)-  (operation nonce-test (displaced 2 0 init 2) x3 (1 0)-    (enc x3 (pubk a)))-  (traces-    ((send (enc x2 (pubk a)))-      (send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))-      (recv (enc "okay" x2 x4 (pubk a))))-    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" y3 x2 (pubk a)))))-  (label 5)-  (parent 2)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x2 x3 x4 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x2) (x3 x3) (x4 x4) (a a))-  (defstrand resp 2 (y1 x3) (y2 x2) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 2 0 init 2) x3 (1 0)-    (enc x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x2 (pubk a)) (enc x3 x2 (pubk a))))-      (recv (enc "okay" x3 x4 (pubk a))))-    ((recv (enc x3 x2 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 6)-  (parent 2)-  (seen 5)-  (unrealized (0 2))-  (comment "2 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x4 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x4) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (displaced 2 0 init 2) x2 (1 0)-    (enc x2 (pubk a)))-  (traces-    ((send (enc x1 (pubk a)))-      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))-      (recv (enc "okay" x1 x4 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))-  (label 7)-  (parent 3)-  (unrealized (0 2))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x2 y3 text) (a name))-  (defstrand init 3 (x1 y3) (x2 x2) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x2) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1 y3) (x4 y3)) y3 (0 2)-    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a)) (enc y3 x2 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 x2 (pubk a)) (enc y3 x2 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x2 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 8)-  (parent 4)-  (seen 10)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x1 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x2 y3) (x4 y3)) y3 (0 2)-    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 9)-  (parent 5)-  (seen 10)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x2 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x2) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x2) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x3 y3) (x4 y3)) y3 (0 2)-    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a)) (enc y3 x2 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 x2 (pubk a)) (enc y3 x2 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x2 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 10)-  (parent 6)-  (unrealized)-  (shape)-  (maps ((0) ((a a) (x1 x1) (x2 x2) (x3 y3) (x4 y3))))-  (origs (y3 (0 0))))--(defskeleton wonthull3-  (vars (y3 text) (a name))-  (defstrand init 3 (x1 y3) (x2 y3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1 y3) (x4 y3)) y3 (0 2)-    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 11)-  (parent 7)-  (seen 9)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(comment "Nothing left to do")--(defprotocol wonthull3 basic-  (defrole init-    (vars (a name) (x1 x2 x3 x4 text))-    (trace (send (enc x3 (pubk a)))-      (send (cat (enc x1 x2 (pubk a)) (enc x3 x2 (pubk a))))-      (recv (enc "okay" x3 x4 (pubk a))))-    (non-orig (privk a))-    (uniq-orig x3))-  (defrole resp-    (vars (a name) (y1 y2 y3 text))-    (trace (recv (enc y1 y2 (pubk a)))-      (send (enc "okay" y3 y1 (pubk a))))))--(defskeleton wonthull3-  (vars (x1 x3 x1-0 x3-0 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3-0) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3-0)-  (traces-    ((send (enc x3-0 (pubk a)))-      (send (cat (enc x1-0 x3 (pubk a)) (enc x3-0 x3 (pubk a))))-      (recv (enc "okay" x3-0 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0)))-      (send (enc "okay" x3 x1 (pubk a-0)))))-  (label 12)-  (seen 13)-  (unrealized (0 2))-  (origs (x3-0 (0 0)))-  (comment "4 in cohort - 3 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x3 x1-0 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 2 0 init 2) x3-0 (0 2)-    (enc x3-0 (pubk a)) (enc x3-0 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0)))-      (send (enc "okay" x3 x1 (pubk a-0)))))-  (label 13)-  (parent 12)-  (unrealized (1 0))-  (origs (x3 (0 0)))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x3 x1-0 text) (a name))-  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (displaced 2 1 resp 2) x3-0 (0 2)-    (enc x3-0 (pubk a-0)) (enc x3-0 x3 (pubk a-0)))-  (traces-    ((send (enc x1 (pubk a)))-      (send (cat (enc x1-0 x3 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a)))))-  (label 14)-  (parent 12)-  (seen 17)-  (unrealized (0 2))-  (origs (x1 (0 0)))-  (comment "4 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x3 x1-0 x3-0 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3-0) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3-0) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3-0)-  (operation nonce-test (added-strand resp 2) x3-0 (0 2)-    (enc x3-0 (pubk a)) (enc x3-0 x3 (pubk a)))-  (traces-    ((send (enc x3-0 (pubk a)))-      (send (cat (enc x1-0 x3 (pubk a)) (enc x3-0 x3 (pubk a))))-      (recv (enc "okay" x3-0 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3-0 x3 (pubk a)))-      (send (enc "okay" y3 x3-0 (pubk a)))))-  (label 15)-  (parent 12)-  (unrealized (0 2) (2 0))-  (comment "4 in cohort - 4 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)-    (enc x3 (pubk a)) (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a)))))-  (label 16)-  (parent 13)-  (unrealized)-  (shape)-  (maps ((0 1) ((x1 x1) (x3 x3) (a a) (x1-0 x1) (x3-0 x3) (a-0 a))))-  (origs (x3 (0 0))))--(defskeleton wonthull3-  (vars (x3 x1 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1-0 x3) (a-0 a)) x3 (1 0)-    (enc x3 (pubk a)) (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))-  (label 17)-  (parent 13)-  (unrealized)-  (shape)-  (maps ((0 1) ((x1 x3) (x3 x3) (a a) (x1-0 x1) (x3-0 x3) (a-0 a))))-  (origs (x3 (0 0))))--(defskeleton wonthull3-  (vars (x1 x3 x1-0 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))-    (enc x3 x3 (pubk a)) (enc x1-0 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 18)-  (parent 13)-  (seen 25)-  (unrealized (1 0) (2 0))-  (comment "3 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x3 x1-0 y3 text) (a name))-  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (2 0)) ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (added-strand resp 2) x1 (0 2) (enc x1 (pubk a))-    (enc "okay" x3 x1 (pubk a)) (enc x1 x3 (pubk a)))-  (traces-    ((send (enc x1 (pubk a)))-      (send (cat (enc x1-0 x3 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))-  (label 19)-  (parent 14)-  (unrealized (0 2) (2 0))-  (comment "4 in cohort - 4 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x3 x1-0 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x1-0) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x1-0) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x1-0)-  (operation nonce-test (displaced 3 0 init 2) x3-0 (2 0)-    (enc x3-0 (pubk a)))-  (traces-    ((send (enc x1-0 (pubk a)))-      (send (cat (enc x1-0 x3 (pubk a)) (enc x1-0 x3 (pubk a))))-      (recv (enc "okay" x1-0 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x1-0 x3 (pubk a)))-      (send (enc "okay" y3 x1-0 (pubk a)))))-  (label 20)-  (parent 15)-  (seen 26 31)-  (unrealized (0 2))-  (comment "4 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x3 x1-0 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 3 0 init 2) x3-0 (2 0)-    (enc x3-0 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 21)-  (parent 15)-  (seen 25 27)-  (unrealized (1 0))-  (comment "5 in cohort - 3 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x3 x1-0 x3-0 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3-0) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3-0) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3-0)-  (operation nonce-test (displaced 3 0 init 2) x3-0 (2 0)-    (enc x3-0 (pubk a)))-  (traces-    ((send (enc x3-0 (pubk a)))-      (send (cat (enc x1-0 x3 (pubk a)) (enc x3-0 x3 (pubk a))))-      (recv (enc "okay" x3-0 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3-0 x3 (pubk a)))-      (send (enc "okay" y3 x3-0 (pubk a)))))-  (label 22)-  (parent 15)-  (seen 21 28)-  (unrealized (0 2))-  (comment "4 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x3 x1-0 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((1 1) (2 0)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 3 1 resp 2) x3-0 (2 0)-    (enc x3-0 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 23)-  (parent 15)-  (seen 29)-  (unrealized (1 0))-  (comment "3 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x1-0 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))-  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x1-0)-  (operation nonce-test (displaced 3 0 init 2) x3 (2 0)-    (enc x3 (pubk a)))-  (traces-    ((send (enc x1-0 (pubk a)))-      (send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))-      (recv (enc "okay" x1-0 x1 (pubk a))))-    ((recv (enc x1 x1-0 (pubk a-0)))-      (send (enc "okay" x1-0 x1 (pubk a-0))))-    ((recv (enc x1-0 x1-0 (pubk a)))-      (send (enc "okay" y3 x1-0 (pubk a)))))-  (label 24)-  (parent 18)-  (unrealized (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x3 x1-0 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 3 0 init 2) x3 (2 0)-    (enc x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 25)-  (parent 18)-  (unrealized (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (displaced 3 0 init 2) x1-0 (2 0)-    (enc x1-0 (pubk a)))-  (traces-    ((send (enc x1 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))-  (label 26)-  (parent 19)-  (seen 41 42)-  (unrealized (0 2))-  (comment "5 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 3 0 init 2) x1-0 (2 0)-    (enc x1-0 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 27)-  (parent 19)-  (seen 17)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x3 x1-0 y3 text) (a name))-  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (displaced 3 0 init 2) x1 (2 0)-    (enc x1 (pubk a)))-  (traces-    ((send (enc x1 (pubk a)))-      (send (cat (enc x1-0 x3 (pubk a)) (enc x1 x3 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))-  (label 28)-  (parent 19)-  (seen 27 43)-  (unrealized (0 2))-  (comment "5 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((1 1) (2 0)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 3 1 resp 2) x1-0 (2 0)-    (enc x1-0 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 29)-  (parent 19)-  (seen 17)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 y3 text) (a a-0 name))-  (defstrand init 3 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1 y3) (x1-0 y3)) y3 (0 2)-    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 30)-  (parent 20)-  (seen 41 44)-  (unrealized (1 0))-  (comment "4 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x3 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x3) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 3 0 init 2) x1-0 (0 2)-    (enc x1-0 (pubk a)) (enc "okay" y3 x1-0 (pubk a))-    (enc x1-0 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 31)-  (parent 20)-  (seen 24 42)-  (unrealized (1 0))-  (comment "4 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)-    (enc x3 (pubk a)) (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 32)-  (parent 21)-  (seen 16)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x3 x1-0 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (3 0)) ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2))-    ((2 1) (0 2)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))-    (enc x3 x3 (pubk a)) (enc x1-0 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3-0 x3 (pubk a)))))-  (label 33)-  (parent 21)-  (seen 25)-  (unrealized (1 0) (3 0))-  (comment "4 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x1-0 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 3 2 resp 2) x3 (1 0)-    (enc x3 (pubk a)) (enc x3 x3 (pubk a)) (enc x1-0 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1-0 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a-0))) (send (enc "okay" y3 x1 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 34)-  (parent 21)-  (unrealized (1 0))-  (comment "3 in cohort - 3 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1-0 y3) (x3-0 y3)) y3 (0 2)-    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 35)-  (parent 22)-  (seen 43 54)-  (unrealized (1 0))-  (comment "5 in cohort - 3 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((1 1) (2 0)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)-    (enc x3 (pubk a)) (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 36)-  (parent 23)-  (seen 16)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x3 x1-0 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (3 0)) ((0 1) (1 0)) ((1 1) (2 0)) ((2 1) (0 2))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))-    (enc x3 x3 (pubk a)) (enc x1-0 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3-0 x3 (pubk a)))))-  (label 37)-  (parent 23)-  (seen 57)-  (unrealized (1 0) (3 0))-  (comment "3 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x1 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x1 (1 0)-    (enc x1 (pubk a)) (enc "okay" y3 x1 (pubk a)) (enc x1 x1 (pubk a)))-  (traces-    ((send (enc x1 (pubk a)))-      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))-  (label 38)-  (parent 24)-  (unrealized)-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)-    (enc x3 (pubk a)) (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a))-    (enc x1 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 39)-  (parent 25)-  (seen 16)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1-0 x3) (a-0 a)) x3 (1 0)-    (enc x3 (pubk a)) (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a))-    (enc x1 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 40)-  (parent 25)-  (seen 17)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 y3 text) (a name))-  (defstrand init 3 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1 y3)) y3 (0 2) (enc y3 (pubk a))-    (enc "okay" x3 y3 (pubk a)) (enc "okay" y3 y3 (pubk a))-    (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 41)-  (parent 26)-  (seen 43)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 y3 text) (a name))-  (defstrand init 3 (x1 x3) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1 x3)) x3 (0 2) (enc x3 (pubk a))-    (enc "okay" x3 x3 (pubk a)) (enc "okay" y3 x3 (pubk a))-    (enc x3 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 42)-  (parent 26)-  (seen 58)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1-0 y3)) y3 (0 2)-    (enc y3 (pubk a)) (enc "okay" x3 y3 (pubk a))-    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 43)-  (parent 28)-  (unrealized)-  (shape)-  (maps ((0 1) ((x1 y3) (x3 x3) (a a) (x1-0 x1) (x3-0 y3) (a-0 a))))-  (origs (y3 (0 0))))--(defskeleton wonthull3-  (vars (x3 y3 text) (a a-0 name))-  (defstrand init 3 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 3 2 resp 2) y3 (1 0)-    (enc y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 44)-  (parent 30)-  (unrealized (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (3 0)) ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2))-    ((2 1) (0 2)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0) (enc y3 (pubk a))-    (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 45)-  (parent 30)-  (seen 61)-  (unrealized (1 0) (3 0))-  (comment "4 in cohort - 3 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 x3) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (3 0)) ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2))-    ((2 1) (0 2)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))-    (enc x3 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3-0 x3 (pubk a)))))-  (label 46)-  (parent 31)-  (seen 24)-  (unrealized (1 0) (3 0))-  (comment "4 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x1 y3 text) (a a-0 name))-  (defstrand init 3 (x1 y3) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 3 2 resp 2) x3 (1 0)-    (enc x3 (pubk a)) (enc x3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a-0))) (send (enc "okay" y3 x1 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 47)-  (parent 31)-  (unrealized (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x1-0 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))-  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))-  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x1-0)-  (operation nonce-test (displaced 4 0 init 2) x3 (3 0)-    (enc x3 (pubk a)))-  (traces-    ((send (enc x1-0 (pubk a)))-      (send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))-      (recv (enc "okay" x1-0 x1 (pubk a))))-    ((recv (enc x1 x1-0 (pubk a-0)))-      (send (enc "okay" x1-0 x1 (pubk a-0))))-    ((recv (enc x1-0 x1-0 (pubk a)))-      (send (enc "okay" y3 x1-0 (pubk a))))-    ((recv (enc x1-0 x1-0 (pubk a)))-      (send (enc "okay" y3-0 x1-0 (pubk a)))))-  (label 48)-  (parent 33)-  (seen 38)-  (unrealized (1 0))-  (comment "2 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x1-0 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 4 2 resp 2) x3 (3 0)-    (enc x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1-0 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a-0))) (send (enc "okay" y3 x1 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 49)-  (parent 33)-  (unrealized (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x1 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1-0 y3) (a-0 a)) y3 (1 0)-    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 50)-  (parent 34)-  (seen 17)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x1 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) y3 (1 0)-    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 51)-  (parent 34)-  (seen 16)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x1-0 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (3 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0) (enc y3 (pubk a))-    (enc "okay" y3 y3 (pubk a)) (enc x1-0 y3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1-0 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a-0))) (send (enc "okay" y3 x1 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 52)-  (parent 34)-  (seen 49 67 70)-  (unrealized (1 0) (3 0))-  (comment "4 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 text) (a a-0 name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 3 0 init 2) y3 (1 0)-    (enc y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))-  (label 53)-  (parent 35)-  (seen 17 71)-  (unrealized (1 0))-  (comment "7 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 3 2 resp 2) y3 (1 0)-    (enc y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 54)-  (parent 35)-  (seen 71)-  (unrealized (1 0))-  (comment "3 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (3 0)) ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2))-    ((2 1) (0 2)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0) (enc y3 (pubk a))-    (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 55)-  (parent 35)-  (seen 61)-  (unrealized (1 0) (3 0))-  (comment "4 in cohort - 3 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x1-0 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))-  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))-  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3-0) (a a))-  (precedes ((0 1) (3 0)) ((1 1) (2 0)) ((2 1) (0 2)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x1-0)-  (operation nonce-test (displaced 4 0 init 2) x3 (3 0)-    (enc x3 (pubk a)))-  (traces-    ((send (enc x1-0 (pubk a)))-      (send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))-      (recv (enc "okay" x1-0 x1 (pubk a))))-    ((recv (enc x1 x1-0 (pubk a-0)))-      (send (enc "okay" x1-0 x1 (pubk a-0))))-    ((recv (enc x1-0 x1-0 (pubk a)))-      (send (enc "okay" y3 x1-0 (pubk a))))-    ((recv (enc x1-0 x1-0 (pubk a)))-      (send (enc "okay" y3-0 x1-0 (pubk a)))))-  (label 56)-  (parent 37)-  (unrealized (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x3 x1-0 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 1) (3 0)) ((1 1) (2 0)) ((2 1) (0 2)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 4 0 init 2) x3 (3 0)-    (enc x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3-0 x3 (pubk a)))))-  (label 57)-  (parent 37)-  (unrealized (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x1 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))-  (precedes ((0 1) (1 0)) ((1 1) (0 2)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation generalization deleted (2 0))-  (traces-    ((send (enc x1 (pubk a)))-      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))-  (label 58)-  (parent 38)-  (seen 17)-  (unrealized)-  (origs (x1 (0 0)))-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 y3 text) (a name))-  (defstrand init 3 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0) (enc y3 (pubk a))-    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 59)-  (parent 44)-  (seen 41)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (3 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0) (enc y3 (pubk a))-    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 60)-  (parent 44)-  (seen 63 81)-  (unrealized (1 0) (3 0))-  (comment "4 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 4 0 init 2) y3 (3 0)-    (enc y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 61)-  (parent 45)-  (seen 81)-  (unrealized (1 0))-  (comment "3 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x3 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x3) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 4 0 init 2) y3-0 (3 0)-    (enc y3-0 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 62)-  (parent 45)-  (seen 38 82)-  (unrealized (1 0))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 4 2 resp 2) y3 (3 0)-    (enc y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 63)-  (parent 45)-  (unrealized (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x1 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 y3) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 4 2 resp 2) x3 (3 0)-    (enc x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a-0))) (send (enc "okay" y3 x1 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 64)-  (parent 46)-  (unrealized (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (y3 text) (a name))-  (defstrand init 3 (x1 y3) (x2 y3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1 y3) (a-0 a)) y3 (1 0)-    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 65)-  (parent 47)-  (seen 58)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x1 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 y3) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 0) (3 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0) (enc y3 (pubk a))-    (enc "okay" y3 y3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a-0))) (send (enc "okay" y3 x1 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 66)-  (parent 47)-  (seen 64 67)-  (unrealized (1 0) (3 0))-  (comment "4 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x1 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 y3) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 4 2 resp 2) x1-0 (1 0)-    (enc x1-0 (pubk a)) (enc "okay" y3-0 x1-0 (pubk a))-    (enc x1-0 x1-0 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a-0))) (send (enc "okay" y3 x1 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 67)-  (parent 48)-  (unrealized (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x1 y3 y3-0 text) (a name))-  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1-0 y3) (a-0 a)) y3 (1 0)-    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a))-    (enc "okay" y3-0 y3 (pubk a)) (enc x1 y3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 68)-  (parent 49)-  (seen 40)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x1 y3 y3-0 text) (a name))-  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) y3 (1 0)-    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a))-    (enc "okay" y3-0 y3 (pubk a)) (enc x1 y3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 69)-  (parent 49)-  (seen 39)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x1 x1-0 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 x1-0) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 4 0 init 2) y3 (3 0)-    (enc y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1-0 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a-0))) (send (enc "okay" y3 x1 (pubk a-0))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 70)-  (parent 52)-  (unrealized (1 0))-  (comment "2 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 text) (a a-0 name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 3 2 resp 2) x3 (1 0)-    (enc x3 (pubk a)) (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))-  (label 71)-  (parent 53)-  (seen 50)-  (unrealized (1 0))-  (comment "2 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (3 0)) ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2))-    ((2 1) (0 2)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))-    (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 72)-  (parent 53)-  (seen 62 75)-  (unrealized (1 0) (3 0))-  (comment "4 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0) (enc y3 (pubk a))-    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))-  (label 73)-  (parent 54)-  (seen 43)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 0) (3 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (added-strand resp 2) y3 (1 0) (enc y3 (pubk a))-    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 74)-  (parent 54)-  (seen 77 81)-  (unrealized (1 0) (3 0))-  (comment "4 in cohort - 2 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 4 0 init 2) y3-0 (3 0)-    (enc y3-0 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 75)-  (parent 55)-  (seen 40 91)-  (unrealized (1 0))-  (comment "3 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 4 0 init 2) y3 (3 0)-    (enc y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 76)-  (parent 55)-  (seen 75 92)-  (unrealized (1 0))-  (comment "4 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 4 2 resp 2) y3 (3 0)-    (enc y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 77)-  (parent 55)-  (seen 90)-  (unrealized (1 0))-  (comment "2 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x1 y3 y3-0 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))-  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))-  (precedes ((0 1) (3 0)) ((1 1) (2 0)) ((2 1) (0 2)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x1)-  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x1 (1 0)-    (enc x1 (pubk a)) (enc "okay" y3-0 x1 (pubk a))-    (enc x1 x1 (pubk a)))-  (traces-    ((send (enc x1 (pubk a)))-      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))-      (recv (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))-  (label 78)-  (parent 56)-  (seen 38)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 y3-0 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 1) (3 0)) ((1 1) (2 0)) ((2 1) (0 2)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)-    (enc x3 (pubk a)) (enc "okay" y3-0 x3 (pubk a)) (enc x3 x3 (pubk a))-    (enc x1 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3-0 x3 (pubk a)))))-  (label 79)-  (parent 57)-  (seen 39)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 y3-0 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 1) (3 0)) ((1 1) (2 0)) ((2 1) (0 2)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (contracted (x1-0 x3) (a-0 a)) x3 (1 0)-    (enc x3 (pubk a)) (enc "okay" y3-0 x3 (pubk a)) (enc x3 x3 (pubk a))-    (enc x1 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3-0 x3 (pubk a)))))-  (label 80)-  (parent 57)-  (seen 40)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 4 0 init 2) y3 (3 0)-    (enc y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 81)-  (parent 60)-  (unrealized (1 0))-  (comment "1 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x3 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x3) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 4 0 init 2) y3-0 (3 0)-    (enc y3-0 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x3 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 82)-  (parent 60)-  (seen 86)-  (unrealized (1 0))-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 3 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0) (enc y3 (pubk a))-    (enc "okay" y3-0 y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 83)-  (parent 61)-  (seen 41)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 3 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0) (enc y3 (pubk a))-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 84)-  (parent 63)-  (seen 59)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (y3 y3-0 text) (a name))-  (defstrand init 3 (x1 y3) (x2 y3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1 y3) (a-0 a)) y3 (1 0)-    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a))-    (enc "okay" y3-0 y3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 85)-  (parent 64)-  (seen 38)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (y3 y3-0 text) (a name))-  (defstrand init 3 (x1 y3) (x2 y3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1 y3) (a-0 a)) y3 (1 0)-    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a))-    (enc "okay" y3-0 y3 (pubk a)) (enc y3 y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 86)-  (parent 67)-  (seen 38)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x1 y3 y3-0 text) (a name))-  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1-0 y3) (a-0 a)) y3 (1 0)-    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a))-    (enc "okay" y3-0 y3 (pubk a)) (enc x1 y3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 87)-  (parent 70)-  (seen 40)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x1 y3 y3-0 text) (a name))-  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 x1) (a a))-  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) y3 (1 0)-    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a))-    (enc "okay" y3-0 y3 (pubk a)) (enc x1 y3 (pubk a))-    (enc y3 y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))-      (recv (enc "okay" y3 x1 (pubk a))))-    ((recv (enc x1 y3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 88)-  (parent 70)-  (seen 39)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 0) (3 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))-    (enc "okay" x3 x3 (pubk a)) (enc x3 x3 (pubk a))-    (enc x1 x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 89)-  (parent 71)-  (seen 82 90 91)-  (unrealized (1 0) (3 0))-  (comment "4 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 4 2 resp 2) x3 (3 0)-    (enc x3 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 90)-  (parent 72)-  (seen 68)-  (unrealized (1 0))-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 text) (a a-0 name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig x3)-  (operation nonce-test (displaced 4 0 init 2) y3-0 (3 0)-    (enc y3-0 (pubk a)))-  (traces-    ((send (enc x3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))-      (recv (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))-    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))-  (label 91)-  (parent 74)-  (seen 87)-  (unrealized (1 0))-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 y3-0 text) (a a-0 name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (displaced 4 0 init 2) y3 (3 0)-    (enc y3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 92)-  (parent 74)-  (seen 91)-  (unrealized (1 0))-  (comment "2 in cohort - 1 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 y3-0 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0) (enc y3 (pubk a))-    (enc "okay" y3-0 y3 (pubk a)) (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 93)-  (parent 76)-  (seen 43)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 y3-0 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0) (enc y3 (pubk a))-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 94)-  (parent 77)-  (seen 73)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 y3 y3-0 text) (a name))-  (defstrand init 3 (x1 y3) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0) (enc y3 (pubk a))-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc y3 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 95)-  (parent 81)-  (seen 59)-  (unrealized)-  (comment "1 in cohort - 0 not yet seen"))--(defskeleton wonthull3-  (vars (x3 x1 y3 y3-0 text) (a name))-  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))-  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))-  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))-    ((3 1) (1 0)))-  (non-orig (privk a))-  (uniq-orig y3)-  (operation nonce-test (contracted (a-0 a)) y3 (1 0) (enc y3 (pubk a))-    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))-    (enc y3 x3 (pubk a)))-  (traces-    ((send (enc y3 (pubk a)))-      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))-      (recv (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))-    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))-  (label 96)-  (parent 92)-  (seen 73)+(comment "CPSA 2.3.1")+(comment "All input read from wonthull3.scm")++(defprotocol wonthull3 basic+  (defrole init+    (vars (a name) (x1 x2 x3 x4 text))+    (trace (send (enc x3 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x3 x2 (pubk a))))+      (recv (enc "okay" x3 x4 (pubk a))))+    (non-orig (privk a))+    (uniq-orig x3))+  (defrole resp+    (vars (a name) (y1 y2 y3 text))+    (trace (recv (enc y1 y2 (pubk a)))+      (send (enc "okay" y3 y1 (pubk a))))))++(defskeleton wonthull3+  (vars (x1 x2 x3 x4 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 x3) (x4 x4) (a a))+  (non-orig (privk a))+  (uniq-orig x3)+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x3 x2 (pubk a))))+      (recv (enc "okay" x3 x4 (pubk a)))))+  (label 0)+  (unrealized (0 2))+  (origs (x3 (0 0)))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x2 x4 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 x2) (x4 x4) (a a))+  (non-orig (privk a))+  (uniq-orig x2)+  (operation nonce-test (displaced 1 0 init 2) x3 (0 2)+    (enc x3 (pubk a)) (enc x3 x2 (pubk a)))+  (traces+    ((send (enc x2 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))+      (recv (enc "okay" x2 x4 (pubk a)))))+  (label 1)+  (parent 0)+  (unrealized (0 2))+  (origs (x2 (0 0)))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x2 x3 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 x3) (x4 x4) (a a))+  (defstrand resp 2 (y1 x3) (y2 x2) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (0 2) (enc x3 (pubk a))+    (enc x3 x2 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x3 x2 (pubk a))))+      (recv (enc "okay" x3 x4 (pubk a))))+    ((recv (enc x3 x2 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 2)+  (parent 0)+  (unrealized (0 2) (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x2 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 x2) (x4 x4) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 y3) (a a))+  (precedes ((0 0) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x2)+  (operation nonce-test (added-strand resp 2) x2 (0 2) (enc x2 (pubk a))+    (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a)))+  (traces+    ((send (enc x2 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))+      (recv (enc "okay" x2 x4 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" y3 x2 (pubk a)))))+  (label 3)+  (parent 1)+  (unrealized (0 2) (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x2 x3 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 x3) (x4 x4) (a a))+  (defstrand resp 2 (y1 x3) (y2 x2) (y3 y3) (a a))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 2 0 init 2) x3 (1 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x3 x2 (pubk a))))+      (recv (enc "okay" x3 x4 (pubk a))))+    ((recv (enc x3 x2 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 4)+  (parent 2)+  (seen 5)+  (unrealized (0 2))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x2 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 x2) (x4 x4) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 y3) (a a))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x2)+  (operation nonce-test (displaced 2 0 init 2) x2 (1 0)+    (enc x2 (pubk a)))+  (traces+    ((send (enc x2 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))+      (recv (enc "okay" x2 x4 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" y3 x2 (pubk a)))))+  (label 5)+  (parent 3)+  (unrealized (0 2))+  (comment "4 in cohort - 4 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x2 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x2) (y3 y3) (a a))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (x3 y3) (x4 y3)) y3 (0 2)+    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a)) (enc y3 x2 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc y3 x2 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x2 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 6)+  (parent 4)+  (unrealized)+  (shape)+  (maps ((0) ((a a) (x1 x1) (x2 x2) (x3 y3) (x4 y3))))+  (origs (y3 (0 0))))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (x2 y3) (x4 y3)) y3 (0 2)+    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 7)+  (parent 5)+  (seen 6)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x2 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 x2) (x4 x4) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 y3) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 x2) (a a))+  (precedes ((0 0) (2 0)) ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x2)+  (operation nonce-test (added-strand resp 2) x2 (0 2) (enc x2 (pubk a))+    (enc "okay" y3 x2 (pubk a)) (enc x1 x2 (pubk a))+    (enc x2 x2 (pubk a)))+  (traces+    ((send (enc x2 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))+      (recv (enc "okay" x2 x4 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" y3 x2 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" x2 x2 (pubk a)))))+  (label 8)+  (parent 5)+  (unrealized (0 2) (2 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x2 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 x2) (x4 x4) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 y3) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x2)+  (operation nonce-test (added-strand resp 2) x2 (0 2) (enc x2 (pubk a))+    (enc "okay" y3 x2 (pubk a)) (enc x1 x2 (pubk a))+    (enc x2 x2 (pubk a)))+  (traces+    ((send (enc x2 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))+      (recv (enc "okay" x2 x4 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" y3 x2 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" x1 x2 (pubk a)))))+  (label 9)+  (parent 5)+  (unrealized (0 2) (2 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x4 y3 y3-0 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (2 0)) ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 2) (enc x1 (pubk a))+    (enc "okay" y3 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 10)+  (parent 5)+  (unrealized (0 2) (2 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x2 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 x2) (x4 x4) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 y3) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 x2) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x2)+  (operation nonce-test (displaced 3 0 init 2) x2 (2 0)+    (enc x2 (pubk a)))+  (traces+    ((send (enc x2 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))+      (recv (enc "okay" x2 x4 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" y3 x2 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" x2 x2 (pubk a)))))+  (label 11)+  (parent 8)+  (unrealized (0 2))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x2 x4 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 x2) (x4 x4) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 x1) (a a))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x2)+  (operation nonce-test (displaced 3 0 init 2) x2 (2 0)+    (enc x2 (pubk a)))+  (traces+    ((send (enc x2 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))+      (recv (enc "okay" x2 x4 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" x1 x2 (pubk a)))))+  (label 12)+  (parent 9)+  (unrealized (0 2))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 3 0 init 2) x2 (2 0)+    (enc x2 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 13)+  (parent 9)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 x4) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 x1) (a a))+  (precedes ((0 1) (1 0)) ((1 1) (2 0)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 3 1 resp 2) x2 (2 0)+    (enc x2 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 x4 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" x1 y3 (pubk a)))))+  (label 14)+  (parent 9)+  (unrealized (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 3 0 init 1) x1 (2 0)+    (enc x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 15)+  (parent 10)+  (seen 19)+  (unrealized (0 2))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x2 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 x2) (x4 x2) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 y3) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 x2) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x2)+  (operation nonce-test (contracted (x4 x2)) x2 (0 2) (enc x2 (pubk a))+    (enc "okay" x2 x2 (pubk a)) (enc "okay" y3 x2 (pubk a))+    (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a)))+  (traces+    ((send (enc x2 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))+      (recv (enc "okay" x2 x2 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" y3 x2 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" x2 x2 (pubk a)))))+  (label 16)+  (parent 11)+  (seen 7)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x2 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 x2) (x4 x4) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 y3) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 x2) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 x1) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x2)+  (operation nonce-test (added-strand resp 2) x2 (0 2) (enc x2 (pubk a))+    (enc "okay" x2 x2 (pubk a)) (enc "okay" y3 x2 (pubk a))+    (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a)))+  (traces+    ((send (enc x2 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))+      (recv (enc "okay" x2 x4 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" y3 x2 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" x2 x2 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" x1 x2 (pubk a)))))+  (label 17)+  (parent 11)+  (unrealized (0 2) (3 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x4 y3 y3-0 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 2) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 18)+  (parent 11)+  (seen 13)+  (unrealized (0 2) (3 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (x2 x1) (x4 x1)) x1 (0 2)+    (enc x1 (pubk a)) (enc "okay" x1 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 19)+  (parent 12)+  (seen 7)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x2 x4 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 x2) (x4 x4) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 x1) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 x2) (a a))+  (precedes ((0 0) (2 0)) ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x2)+  (operation nonce-test (added-strand resp 2) x2 (0 2) (enc x2 (pubk a))+    (enc "okay" x1 x2 (pubk a)) (enc x1 x2 (pubk a))+    (enc x2 x2 (pubk a)))+  (traces+    ((send (enc x2 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))+      (recv (enc "okay" x2 x4 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" x1 x2 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" x2 x2 (pubk a)))))+  (label 20)+  (parent 12)+  (seen 26)+  (unrealized (0 2) (2 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 2) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 21)+  (parent 12)+  (seen 13)+  (unrealized (0 2) (2 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (x4 x1)) x1 (0 2) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 22)+  (parent 13)+  (seen 19)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 x1) (a a))+  (precedes ((0 1) (1 0)) ((1 1) (2 0)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (x4 y3)) y3 (0 2) (enc y3 (pubk a))+    (enc "okay" x1 y3 (pubk a)) (enc "okay" y3 y3 (pubk a))+    (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" x1 y3 (pubk a)))))+  (label 23)+  (parent 14)+  (seen 7)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (1 0)) ((1 1) (2 0)) ((2 1) (0 2))+    ((3 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 2) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 24)+  (parent 14)+  (unrealized (0 2) (3 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (2 0)) ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 2) (enc x1 (pubk a))+    (enc "okay" y3 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 25)+  (parent 15)+  (seen 13)+  (unrealized (0 2) (2 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x2 x4 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 x2) (x4 x4) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 x2) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 x1) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x2)+  (operation nonce-test (displaced 4 0 init 2) x2 (3 0)+    (enc x2 (pubk a)))+  (traces+    ((send (enc x2 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))+      (recv (enc "okay" x2 x4 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" x2 x2 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" x1 x2 (pubk a)))))+  (label 26)+  (parent 17)+  (unrealized (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 4 0 init 2) x2 (3 0)+    (enc x2 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 27)+  (parent 17)+  (seen 22)+  (unrealized (0 2))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 x4) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 x1) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (3 0)) ((2 1) (0 2))+    ((3 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 4 1 resp 2) x2 (3 0)+    (enc x2 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 x4 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" x1 y3 (pubk a)))))+  (label 28)+  (parent 17)+  (seen 23)+  (unrealized (0 2))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (3 0)) ((1 1) (2 0)) ((2 1) (0 2))+    ((3 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 4 0 init 2) x1 (3 0)+    (enc x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 29)+  (parent 24)+  (unrealized (0 2))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x2 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x2) (x3 x2) (x4 x2) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 x2) (a a))+  (defstrand resp 2 (y1 x2) (y2 x2) (y3 x1) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x2)+  (operation nonce-test (contracted (x4 x2)) x2 (0 2) (enc x2 (pubk a))+    (enc "okay" x1 x2 (pubk a)) (enc "okay" x2 x2 (pubk a))+    (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a)))+  (traces+    ((send (enc x2 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x2 x2 (pubk a))))+      (recv (enc "okay" x2 x2 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" x2 x2 (pubk a))))+    ((recv (enc x2 x2 (pubk a))) (send (enc "okay" x1 x2 (pubk a)))))+  (label 30)+  (parent 26)+  (seen 7)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 2) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 31)+  (parent 26)+  (seen 13)+  (unrealized (0 2) (3 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x4 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x4) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (3 0))+    ((2 1) (0 2)) ((3 1) (0 2)) ((4 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 2) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x4 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 32)+  (parent 28)+  (seen 29)+  (unrealized (0 2) (4 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (3 0)) ((1 1) (2 0)) ((2 1) (0 2))+    ((3 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (x4 x1)) x1 (0 2) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 33)+  (parent 29)+  (seen 22)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(comment "Nothing left to do")++(defprotocol wonthull3 basic+  (defrole init+    (vars (a name) (x1 x2 x3 x4 text))+    (trace (send (enc x3 (pubk a)))+      (send (cat (enc x1 x2 (pubk a)) (enc x3 x2 (pubk a))))+      (recv (enc "okay" x3 x4 (pubk a))))+    (non-orig (privk a))+    (uniq-orig x3))+  (defrole resp+    (vars (a name) (y1 y2 y3 text))+    (trace (recv (enc y1 y2 (pubk a)))+      (send (enc "okay" y3 y1 (pubk a))))))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 x3-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x3-0)+  (traces+    ((send (enc x3-0 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x3-0 x3 (pubk a))))+      (recv (enc "okay" x3-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0)))+      (send (enc "okay" x3 x1 (pubk a-0)))))+  (label 34)+  (unrealized (0 2))+  (origs (x3-0 (0 0)))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 2 1 resp 2) x3-0 (0 2)+    (enc x3-0 (pubk a)) (enc x3-0 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0)))+      (send (enc "okay" x3 x1 (pubk a-0)))))+  (label 35)+  (parent 34)+  (unrealized (1 0))+  (origs (x3 (0 0)))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 text) (a name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 2 1 resp 2) x3-0 (0 2)+    (enc x3-0 (pubk a-0)) (enc x3-0 x3 (pubk a-0)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a)))))+  (label 36)+  (parent 34)+  (seen 38)+  (unrealized (0 2))+  (origs (x1 (0 0)))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 x3-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3-0) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x3-0)+  (operation nonce-test (added-strand resp 2) x3-0 (0 2)+    (enc x3-0 (pubk a)) (enc x3-0 x3 (pubk a)))+  (traces+    ((send (enc x3-0 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x3-0 x3 (pubk a))))+      (recv (enc "okay" x3-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3-0 x3 (pubk a)))+      (send (enc "okay" y3 x3-0 (pubk a)))))+  (label 37)+  (parent 34)+  (unrealized (0 2) (2 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x3) (a-0 a)) x3 (1 0)+    (enc x3 (pubk a)) (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 38)+  (parent 35)+  (unrealized)+  (shape)+  (maps ((0 1) ((x1 x3) (x3 x3) (a a) (x1-0 x1) (x3-0 x3) (a-0 a))))+  (origs (x3 (0 0))))++(defskeleton wonthull3+  (vars (x3 x1 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)+    (enc x3 (pubk a)) (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a)))))+  (label 39)+  (parent 35)+  (unrealized)+  (shape)+  (maps ((0 1) ((x1 x1) (x3 x3) (a a) (x1-0 x1) (x3-0 x3) (a-0 a))))+  (origs (x3 (0 0))))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))+    (enc x3 x3 (pubk a)) (enc x1-0 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 40)+  (parent 35)+  (unrealized (1 0) (2 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 y3 text) (a name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (2 0)) ((0 1) (1 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (0 2) (enc x1 (pubk a))+    (enc "okay" x3 x1 (pubk a)) (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 41)+  (parent 36)+  (unrealized (0 2) (2 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 x3-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3-0) (y2 x3) (y3 y3) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x3-0)+  (operation nonce-test (displaced 3 0 init 2) x3-0 (2 0)+    (enc x3-0 (pubk a)))+  (traces+    ((send (enc x3-0 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x3-0 x3 (pubk a))))+      (recv (enc "okay" x3-0 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3-0 x3 (pubk a)))+      (send (enc "okay" y3 x3-0 (pubk a)))))+  (label 42)+  (parent 37)+  (seen 44)+  (unrealized (0 2))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 3 0 init 2) x3 (2 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 43)+  (parent 40)+  (unrealized (1 0))+  (comment "5 in cohort - 5 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 y3 text) (a name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 y3) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 3 0 init 2) x1 (2 0)+    (enc x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x1 x3 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 44)+  (parent 41)+  (unrealized (0 2))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (x1-0 y3) (x3-0 y3)) y3 (0 2)+    (enc y3 (pubk a)) (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 45)+  (parent 42)+  (seen 53)+  (unrealized (1 0))+  (comment "4 in cohort - 3 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 3 1 resp 2) x3-0 (0 2)+    (enc x3-0 (pubk a)) (enc "okay" y3 x3-0 (pubk a))+    (enc x3-0 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 46)+  (parent 42)+  (seen 43 52)+  (unrealized (1 0))+  (comment "4 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x3) (a-0 a)) x3 (1 0)+    (enc x3 (pubk a)) (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 47)+  (parent 43)+  (seen 38)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)+    (enc x3 (pubk a)) (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 48)+  (parent 43)+  (seen 39)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x1-0) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))+    (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1-0 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x1-0 x3 (pubk a)))))+  (label 49)+  (parent 43)+  (unrealized (1 0) (3 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))+    (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1-0 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 50)+  (parent 43)+  (unrealized (1 0) (3 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x1-0 y3 y3-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3-0) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (1 0)+    (enc x1-0 (pubk a)) (enc "okay" y3 x1-0 (pubk a))+    (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (enc x1-0 (pubk a)))+      (send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3-0 x1-0 (pubk a)))))+  (label 51)+  (parent 43)+  (unrealized (1 0) (3 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 3 1 resp 2) x1-0 (0 2)+    (enc x1-0 (pubk a)) (enc "okay" x3 x1-0 (pubk a))+    (enc "okay" y3 x1-0 (pubk a)) (enc x1-0 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 52)+  (parent 44)+  (seen 38)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 3 2 resp 2) x1-0 (0 2)+    (enc x1-0 (pubk a)) (enc "okay" x3 x1-0 (pubk a))+    (enc "okay" y3 x1-0 (pubk a)) (enc x1-0 x3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 53)+  (parent 44)+  (unrealized)+  (shape)+  (maps ((0 1) ((x1 y3) (x3 x3) (a a) (x1-0 x1) (x3-0 y3) (a-0 a))))+  (origs (y3 (0 0))))++(defskeleton wonthull3+  (vars (x3 x1 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 3 0 init 2) y3 (1 0)+    (enc y3 (pubk a)) (enc y3 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 54)+  (parent 45)+  (seen 38)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 3 2 resp 2) y3 (1 0)+    (enc y3 (pubk a)) (enc y3 x3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 55)+  (parent 45)+  (seen 64)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0) (enc y3 (pubk a))+    (enc y3 x3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 56)+  (parent 45)+  (unrealized (1 0) (3 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)+    (enc x3 (pubk a)) (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 57)+  (parent 46)+  (seen 39)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 y3 y3-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))+    (enc x3 x3 (pubk a)) (enc x1-0 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3-0 x3 (pubk a)))))+  (label 58)+  (parent 46)+  (seen 43)+  (unrealized (1 0) (3 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x1-0) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 4 0 init 2) x3 (3 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x1-0 x3 (pubk a)))))+  (label 59)+  (parent 49)+  (unrealized (1 0))+  (comment "4 in cohort - 4 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (displaced 4 0 init 2) x3 (3 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc x1-0 (pubk a)))+      (send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a)))))+  (label 60)+  (parent 49)+  (unrealized (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 y3) (x3 y3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 x1-0) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 4 2 resp 2) x3 (3 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1-0 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 y3 (pubk a-0))) (send (enc "okay" y3 x1 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" x1-0 y3 (pubk a)))))+  (label 61)+  (parent 49)+  (unrealized (1 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 4 0 init 2) x3 (3 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 62)+  (parent 50)+  (unrealized (1 0))+  (comment "4 in cohort - 4 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (displaced 4 0 init 1) x1-0 (3 0)+    (enc x1-0 (pubk a)))+  (traces+    ((send (enc x1-0 (pubk a)))+      (send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a)))))+  (label 63)+  (parent 51)+  (unrealized (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 3 2 resp 2) x3 (1 0)+    (enc x3 (pubk a)) (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 64)+  (parent 54)+  (unrealized (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (1 0)) ((0 1) (2 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))+    (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 65)+  (parent 54)+  (unrealized (1 0) (3 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0) (enc y3 (pubk a))+    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 66)+  (parent 55)+  (seen 53)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0) (enc y3 (pubk a))+    (enc "okay" y3 y3 (pubk a)) (enc y3 x3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 67)+  (parent 55)+  (unrealized (1 0) (3 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 4 0 init 2) y3 (3 0)+    (enc y3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 68)+  (parent 56)+  (seen 86 87)+  (unrealized (1 0))+  (comment "3 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x1-0 y3 y3-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3-0) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (displaced 4 0 init 2) x3 (3 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc x1-0 (pubk a)))+      (send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3-0 x1-0 (pubk a)))))+  (label 69)+  (parent 58)+  (seen 60 82 83)+  (unrealized (1 0))+  (comment "3 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x3) (a-0 a)) x3 (1 0)+    (enc x3 (pubk a)) (enc "okay" x1 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x1 x3 (pubk a)))))+  (label 70)+  (parent 59)+  (seen 38)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)+    (enc x3 (pubk a)) (enc "okay" x1 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x1 x3 (pubk a)))))+  (label 71)+  (parent 59)+  (seen 39)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))+    (enc "okay" x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1-0 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x1-0 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 72)+  (parent 59)+  (unrealized (1 0) (3 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (1 0)+    (enc x1-0 (pubk a)) (enc "okay" x1-0 x1-0 (pubk a))+    (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (enc x1-0 (pubk a)))+      (send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a)))))+  (label 73)+  (parent 59)+  (seen 60)+  (unrealized (1 0) (3 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x1 (1 0)+    (enc x1 (pubk a)) (enc "okay" x1 x1 (pubk a))+    (enc "okay" y3 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 74)+  (parent 60)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) y3 (1 0)+    (enc y3 (pubk a)) (enc "okay" x1 y3 (pubk a))+    (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 y3 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" x1 y3 (pubk a)))))+  (label 75)+  (parent 61)+  (seen 71)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (x1-0 y3) (a-0 a)) y3 (1 0)+    (enc y3 (pubk a)) (enc "okay" x1 y3 (pubk a))+    (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" x1 y3 (pubk a)))))+  (label 76)+  (parent 61)+  (seen 70)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0))+    ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (1 0)+    (enc x1-0 (pubk a)) (enc "okay" x1-0 x1-0 (pubk a))+    (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (enc x1-0 (pubk a)))+      (send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a)))))+  (label 77)+  (parent 61)+  (unrealized (1 0) (4 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x3) (a-0 a)) x3 (1 0)+    (enc x3 (pubk a)) (enc "okay" x3 x3 (pubk a))+    (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 78)+  (parent 62)+  (seen 84)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)+    (enc x3 (pubk a)) (enc "okay" x3 x3 (pubk a))+    (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 79)+  (parent 62)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x1-0) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))+    (enc "okay" x3 x3 (pubk a)) (enc "okay" y3 x3 (pubk a))+    (enc x3 x3 (pubk a)) (enc x1-0 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x1-0 x3 (pubk a)))))+  (label 80)+  (parent 62)+  (seen 89)+  (unrealized (1 0) (4 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x1-0 y3 y3-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3-0) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (1 0)+    (enc x1-0 (pubk a)) (enc "okay" x1-0 x1-0 (pubk a))+    (enc "okay" y3 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (enc x1-0 (pubk a)))+      (send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3-0 x1-0 (pubk a)))))+  (label 81)+  (parent 62)+  (seen 60)+  (unrealized (1 0) (4 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x1 (1 0)+    (enc x1 (pubk a)) (enc "okay" y3 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 82)+  (parent 63)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (1 0)+    (enc x1-0 (pubk a)) (enc "okay" y3 x1-0 (pubk a))+    (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (enc x1-0 (pubk a)))+      (send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a)))))+  (label 83)+  (parent 63)+  (seen 60)+  (unrealized (1 0) (3 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (a-0 a)) x3 (1 0) (enc x3 (pubk a))+    (enc "okay" x3 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 84)+  (parent 64)+  (seen 38)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))+    (enc "okay" x3 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 85)+  (parent 64)+  (unrealized (1 0) (3 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 4 0 init 2) x3 (3 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 86)+  (parent 65)+  (seen 47 96)+  (unrealized (1 0))+  (comment "5 in cohort - 3 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 4 0 init 2) y3 (3 0)+    (enc y3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a-0))) (send (enc "okay" x3 y3 (pubk a-0))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 87)+  (parent 67)+  (seen 96)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0) (enc y3 (pubk a))+    (enc "okay" y3-0 y3 (pubk a)) (enc y3 x3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 88)+  (parent 68)+  (seen 53)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x3 x1-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 4 0 init 2) x3 (3 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1-0 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a-0))) (send (enc "okay" x3 x1 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x1-0 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 89)+  (parent 72)+  (unrealized (1 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull3+  (vars (x1 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation generalization deleted (2 0))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 90)+  (parent 74)+  (seen 95)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (3 0))+    ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (displaced 5 0 init 2) x1-0 (4 0)+    (enc x1-0 (pubk a)))+  (traces+    ((send (enc x1-0 (pubk a)))+      (send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a)))))+  (label 91)+  (parent 77)+  (unrealized (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation generalization deleted (2 0))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 92)+  (parent 79)+  (seen 39)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((0 1) (4 0)) ((1 1) (0 2))+    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (displaced 5 0 init 2) x3 (4 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc x1-0 (pubk a)))+      (send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a)))))+  (label 93)+  (parent 80)+  (seen 74)+  (unrealized (1 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 y3) (x3 y3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 y3) (y3 y3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 x1-0) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (4 0))+    ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 5 2 resp 2) x3 (4 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1-0 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 y3 (pubk a-0))) (send (enc "okay" y3 x1 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" x1-0 y3 (pubk a)))))+  (label 94)+  (parent 80)+  (seen 75 76)+  (unrealized (1 0))+  (comment "3 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 1) (1 0)) ((1 1) (0 2)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation generalization deleted (2 0))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 95)+  (parent 82)+  (seen 38)+  (unrealized)+  (origs (x1 (0 0)))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 4 0 init 2) x3 (3 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a)))))+  (label 96)+  (parent 85)+  (seen 78)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x1) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))+    (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x1 x3 (pubk a)))))+  (label 97)+  (parent 86)+  (unrealized (1 0) (4 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))+    (enc "okay" y3 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 98)+  (parent 86)+  (seen 96 109)+  (unrealized (1 0) (4 0))+  (comment "3 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0) (enc x1 (pubk a))+    (enc "okay" y3 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 99)+  (parent 86)+  (unrealized (1 0) (4 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 y3-0 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 x3) (y3 y3-0) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0) (enc y3 (pubk a))+    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))+    (enc y3 x3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc y3 x3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" x3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 x3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 100)+  (parent 87)+  (seen 66)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x3) (a-0 a)) x3 (1 0)+    (enc x3 (pubk a)) (enc "okay" x3 x3 (pubk a))+    (enc "okay" x1 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x1 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 101)+  (parent 89)+  (seen 84)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x3 (1 0)+    (enc x3 (pubk a)) (enc "okay" x3 x3 (pubk a))+    (enc "okay" x1 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x1 x3 (pubk a))) (send (enc "okay" x3 x1 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x1 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 102)+  (parent 89)+  (seen 92)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (1 0)+    (enc x1-0 (pubk a)) (enc "okay" x1-0 x1-0 (pubk a))+    (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (enc x1-0 (pubk a)))+      (send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a)))))+  (label 103)+  (parent 89)+  (seen 60)+  (unrealized (1 0) (4 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (3 0))+    ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (x1-0 x1) (a-0 a)) x1 (1 0)+    (enc x1 (pubk a)) (enc "okay" x1 x1 (pubk a))+    (enc "okay" y3 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 104)+  (parent 91)+  (seen 74)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 x1-0 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1-0) (x2 x1-0) (x3 x1-0) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1-0) (y3 x1-0) (a a-0))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 x1-0) (a a))+  (defstrand resp 2 (y1 x1-0) (y2 x1-0) (y3 y3) (a a))+  (precedes ((0 0) (5 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (4 0)) ((3 1) (1 0)) ((4 1) (1 0)) ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1-0)+  (operation nonce-test (added-strand resp 2) x1-0 (1 0)+    (enc x1-0 (pubk a)) (enc "okay" x1-0 x1-0 (pubk a))+    (enc x1-0 x1-0 (pubk a)))+  (traces+    ((send (enc x1-0 (pubk a)))+      (send (cat (enc x1-0 x1-0 (pubk a)) (enc x1-0 x1-0 (pubk a))))+      (recv (enc "okay" x1-0 x1 (pubk a))))+    ((recv (enc x1 x1-0 (pubk a-0)))+      (send (enc "okay" x1-0 x1 (pubk a-0))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" x1-0 x1-0 (pubk a))))+    ((recv (enc x1-0 x1-0 (pubk a)))+      (send (enc "okay" y3 x1-0 (pubk a)))))+  (label 105)+  (parent 94)+  (seen 91)+  (unrealized (1 0) (5 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 y3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x1) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))+    (enc "okay" x3 x3 (pubk a)) (enc "okay" y3 x3 (pubk a))+    (enc x3 x3 (pubk a)) (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" y3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x1 x3 (pubk a)))))+  (label 106)+  (parent 96)+  (unrealized (1 0) (4 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 107)+  (parent 96)+  (unrealized (1 0) (4 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 5 0 init 2) x3 (4 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x1 x3 (pubk a)))))+  (label 108)+  (parent 97)+  (seen 70 113)+  (unrealized (1 0))+  (comment "4 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((0 1) (4 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 5 0 init 2) x3 (4 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 109)+  (parent 97)+  (seen 74)+  (unrealized (1 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))+    ((3 1) (4 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 5 3 resp 2) x3 (4 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a-0))) (send (enc "okay" y3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" x1 y3 (pubk a)))))+  (label 110)+  (parent 97)+  (seen 76)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))+    ((3 1) (4 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 5 3 resp 2) x3 (4 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a-0))) (send (enc "okay" y3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 111)+  (parent 98)+  (seen 119)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 5 0 init 1) x1 (4 0)+    (enc x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 112)+  (parent 99)+  (seen 82 116)+  (unrealized (1 0))+  (comment "3 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (displaced 5 0 init 2) x3 (4 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x1 x3 (pubk a)))))+  (label 113)+  (parent 106)+  (seen 101)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((0 1) (4 0)) ((1 1) (0 2))+    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 5 0 init 2) x3 (4 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 114)+  (parent 106)+  (seen 74)+  (unrealized (1 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (4 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 5 3 resp 2) x3 (4 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a-0))) (send (enc "okay" y3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" x1 y3 (pubk a)))))+  (label 115)+  (parent 106)+  (seen 76)+  (unrealized (1 0))+  (comment "3 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 5 0 init 1) x1 (4 0)+    (enc x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 116)+  (parent 107)+  (seen 74)+  (unrealized (1 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x3 x1 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x3) (x3 x3) (x4 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a-0))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x1) (a a))+  (defstrand resp 2 (y1 x3) (y2 x3) (y3 x3) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x3)+  (operation nonce-test (added-strand resp 2) x3 (1 0) (enc x3 (pubk a))+    (enc "okay" x1 x3 (pubk a)) (enc x3 x3 (pubk a))+    (enc x1 x3 (pubk a)))+  (traces+    ((send (enc x3 (pubk a)))+      (send (cat (enc x1 x3 (pubk a)) (enc x3 x3 (pubk a))))+      (recv (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a-0))) (send (enc "okay" x3 x3 (pubk a-0))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x1 x3 (pubk a))))+    ((recv (enc x3 x3 (pubk a))) (send (enc "okay" x3 x3 (pubk a)))))+  (label 117)+  (parent 108)+  (seen 113)+  (unrealized (1 0) (4 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 118)+  (parent 108)+  (seen 116)+  (unrealized (1 0) (4 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (5 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (4 0)) ((4 1) (1 0)) ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 119)+  (parent 110)+  (unrealized (1 0) (5 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0) (enc y3 (pubk a))+    (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 120)+  (parent 111)+  (seen 84)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0))+    ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0) (enc y3 (pubk a))+    (enc "okay" y3 y3 (pubk a)) (enc x1 y3 (pubk a))+    (enc y3 y3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a-0))) (send (enc "okay" y3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 121)+  (parent 111)+  (unrealized (1 0) (4 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0) (enc x1 (pubk a))+    (enc "okay" y3 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 122)+  (parent 112)+  (seen 116)+  (unrealized (1 0) (4 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (1 0)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 123)+  (parent 113)+  (seen 116)+  (unrealized (1 0) (4 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (4 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a) (y3 x1)) x1 (1 0)+    (enc x1 (pubk a)) (enc "okay" x1 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 124)+  (parent 115)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (5 0)) ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2))+    ((2 1) (1 0)) ((3 1) (4 0)) ((4 1) (1 0)) ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 125)+  (parent 115)+  (seen 127 128)+  (unrealized (1 0) (5 0))+  (comment "2 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((0 1) (4 0)) ((1 1) (0 2))+    ((2 1) (0 2)) ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 5 0 init 2) x3 (4 0)+    (enc x3 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 126)+  (parent 117)+  (seen 90)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (3 0))+    ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 6 0 init 2) x1 (5 0)+    (enc x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 127)+  (parent 119)+  (seen 104)+  (unrealized (1 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (5 0))+    ((3 1) (4 0)) ((4 1) (1 0)) ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 6 2 resp 2) x1 (5 0)+    (enc x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 128)+  (parent 119)+  (unrealized (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (3 0))+    ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 5 0 init 2) y3 (4 0)+    (enc y3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a-0))) (send (enc "okay" y3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 129)+  (parent 121)+  (unrealized (1 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull3+  (vars (y3 text) (a a-0 name))+  (defstrand init 3 (x1 y3) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (0 2))+    ((3 1) (4 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 5 3 resp 2) x1 (4 0)+    (enc x1 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a-0))) (send (enc "okay" y3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a)))))+  (label 130)+  (parent 122)+  (seen 131)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0)) ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation generalization deleted (2 0))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 131)+  (parent 124)+  (seen 90)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (3 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 132)+  (parent 126)+  (seen 116)+  (unrealized (1 0) (3 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (5 0))+    ((3 1) (4 0)) ((4 1) (1 0)) ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 133)+  (parent 128)+  (seen 104)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 y3-0 text) (a name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (3 0))+    ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0) (enc y3 (pubk a))+    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))+    (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 134)+  (parent 129)+  (seen 78)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 x1) (a a))+  (precedes ((0 0) (5 0)) ((0 1) (2 0)) ((0 1) (4 0)) ((1 1) (0 2))+    ((2 1) (3 0)) ((3 1) (1 0)) ((4 1) (1 0)) ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0) (enc y3 (pubk a))+    (enc "okay" y3 y3 (pubk a)) (enc "okay" y3-0 y3 (pubk a))+    (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a-0))) (send (enc "okay" y3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" x1 y3 (pubk a)))))+  (label 135)+  (parent 129)+  (unrealized (1 0) (5 0))+  (comment "3 in cohort - 3 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 y3-0 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3-0) (a a))+  (precedes ((0 0) (5 0)) ((0 1) (2 0)) ((0 1) (4 0)) ((1 1) (0 2))+    ((2 1) (3 0)) ((3 1) (1 0)) ((4 1) (1 0)) ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3-0 x1 (pubk a)))))+  (label 136)+  (parent 129)+  (seen 127)+  (unrealized (1 0) (5 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (y3 y3-0 text) (a a-0 name))+  (defstrand init 3 (x1 y3) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3-0) (a a))+  (precedes ((0 0) (4 0)) ((0 1) (2 0)) ((1 1) (0 2)) ((2 1) (3 0))+    ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (added-strand resp 2) y3 (1 0) (enc y3 (pubk a))+    (enc "okay" y3 y3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc y3 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a-0))) (send (enc "okay" y3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3-0 y3 (pubk a)))))+  (label 137)+  (parent 130)+  (seen 127)+  (unrealized (1 0) (4 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (3 0))+    ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 6 0 init 2) y3 (5 0)+    (enc y3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a-0))) (send (enc "okay" y3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" x1 y3 (pubk a)))))+  (label 138)+  (parent 135)+  (seen 125)+  (unrealized (1 0))+  (comment "2 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (4 0)) ((0 1) (5 0)) ((1 1) (0 2))+    ((2 1) (3 0)) ((3 1) (1 0)) ((4 1) (1 0)) ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 6 0 init 2) y3-0 (5 0)+    (enc y3-0 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a)))))+  (label 139)+  (parent 135)+  (seen 104)+  (unrealized (1 0))+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a-0))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (3 0))+    ((3 1) (1 0)) ((4 1) (5 0)) ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (displaced 6 4 resp 2) y3-0 (5 0)+    (enc y3-0 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a-0))) (send (enc "okay" y3 y3 (pubk a-0))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" x1 y3 (pubk a)))))+  (label 140)+  (parent 135)+  (unrealized (1 0))+  (comment "2 in cohort - 2 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (3 0))+    ((3 1) (1 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0) (enc y3 (pubk a))+    (enc "okay" x1 y3 (pubk a)) (enc "okay" y3 y3 (pubk a))+    (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" x1 y3 (pubk a)))))+  (label 141)+  (parent 138)+  (seen 101)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (4 0)) ((1 1) (0 2)) ((2 1) (3 0))+    ((3 1) (1 0)) ((4 1) (5 0)) ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation nonce-test (contracted (a-0 a)) y3 (1 0) (enc y3 (pubk a))+    (enc "okay" x1 y3 (pubk a)) (enc "okay" y3 y3 (pubk a))+    (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a)))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" x1 y3 (pubk a)))))+  (label 142)+  (parent 140)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 0) (6 0)) ((0 1) (2 0)) ((0 1) (4 0)) ((1 1) (0 2))+    ((2 1) (3 0)) ((3 1) (1 0)) ((4 1) (5 0)) ((5 1) (1 0))+    ((6 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (added-strand resp 2) x1 (1 0) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 143)+  (parent 140)+  (unrealized (1 0) (6 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 y3) (x3 y3) (x4 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 y3) (a a))+  (defstrand resp 2 (y1 y3) (y2 y3) (y3 x1) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((1 1) (0 2)) ((2 1) (1 0))+    ((3 1) (4 0)) ((4 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig y3)+  (operation generalization deleted (2 0))+  (traces+    ((send (enc y3 (pubk a)))+      (send (cat (enc x1 y3 (pubk a)) (enc y3 y3 (pubk a))))+      (recv (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" y3 y3 (pubk a))))+    ((recv (enc y3 y3 (pubk a))) (send (enc "okay" x1 y3 (pubk a)))))+  (label 144)+  (parent 142)+  (seen 76)+  (unrealized)+  (comment "1 in cohort - 0 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a a-0 name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a-0))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (4 0)) ((0 1) (6 0)) ((1 1) (0 2))+    ((2 1) (3 0)) ((3 1) (1 0)) ((4 1) (5 0)) ((5 1) (1 0))+    ((6 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (displaced 7 0 init 2) x1 (6 0)+    (enc x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a-0))) (send (enc "okay" x1 x1 (pubk a-0))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 145)+  (parent 143)+  (unrealized (1 0))+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (4 0)) ((0 1) (6 0)) ((1 1) (0 2))+    ((2 1) (3 0)) ((3 1) (1 0)) ((4 1) (5 0)) ((5 1) (1 0))+    ((6 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation nonce-test (contracted (a-0 a)) x1 (1 0) (enc x1 (pubk a))+    (enc "okay" x1 x1 (pubk a)) (enc "okay" y3 x1 (pubk a))+    (enc x1 x1 (pubk a)))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 146)+  (parent 145)+  (unrealized)+  (comment "1 in cohort - 1 not yet seen"))++(defskeleton wonthull3+  (vars (x1 y3 text) (a name))+  (defstrand init 3 (x1 x1) (x2 x1) (x3 x1) (x4 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 x1) (a a))+  (defstrand resp 2 (y1 x1) (y2 x1) (y3 y3) (a a))+  (precedes ((0 1) (2 0)) ((0 1) (3 0)) ((0 1) (5 0)) ((1 1) (0 2))+    ((2 1) (1 0)) ((3 1) (4 0)) ((4 1) (1 0)) ((5 1) (1 0)))+  (non-orig (privk a))+  (uniq-orig x1)+  (operation generalization deleted (2 0))+  (traces+    ((send (enc x1 (pubk a)))+      (send (cat (enc x1 x1 (pubk a)) (enc x1 x1 (pubk a))))+      (recv (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" x1 x1 (pubk a))))+    ((recv (enc x1 x1 (pubk a))) (send (enc "okay" y3 x1 (pubk a)))))+  (label 147)+  (parent 146)+  (seen 104)   (unrealized)   (comment "1 in cohort - 0 not yet seen"))
tst/woolam.tst view
@@ -1,6 +1,6 @@ (herald "Woo-Lam Protocol") -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from woolam.scm")  (defprotocol woolam basic
tst/yahalom-6.3.6.tst view
@@ -5,7 +5,7 @@   (url "http://www.eecs.umich.edu/acal/swerve/docs/49-1.pdf")   (bound 15)) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from yahalom-6.3.6.scm") (comment "Strand count bounded at 15")
tst/yahalom.tst view
@@ -1,6 +1,6 @@ (herald "Yahalom Protocol Without Forwarding" (bound 15)) -(comment "CPSA 2.3.0")+(comment "CPSA 2.3.1") (comment "All input read from yahalom.scm") (comment "Strand count bounded at 15")