Bomen

1 files changed, 51 insertions, 0 deletions

diff --git a/tree-gen-bootstrap-base.tex b/tree-gen-bootstrap-base.tex
new file mode 100644
index 0000000..8d56dfd
--- /dev/null
+++ b/tree-gen-bootstrap-base.tex
@@ -0,0 +1,51 @@
+\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\[\axjustifies\trans{\lambda}{\Nil}{\left(\Nil,\emptyset\right)}{\Nil}{\Nil}{\left(\Nil,\emptyset\right)}\using{\rlambdans}\]
+\justifies{}\trans{\StmOutput}{\Nil}{\left(\texttt{"c$s$"}:\Nil,\emptyset\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\routputns}\]
+\justifies{}\trans{\StmPush~\texttt{"c$s$"}:\StmOutput}{\Nil}{\left(\Nil,\emptyset\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmExec}{\Nil}{\left(\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\Nil,\{\texttt{""}\mapsto\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"},\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rexecns}\]
+\justifies{}\trans{\StmGet:\StmExec}{\Nil}{\left(\texttt{""}:\Nil,\{\texttt{""}\mapsto\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"},\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rgetns}\]
+\justifies{}\trans{\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{""}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{""}\mapsto\texttt{"\textquotedblright{}\textquotedblright{}\textquotedblright{}c\textit{q}($s$)\textquotedblright{}\textquotedblright{}\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gh\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gt\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}g\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}o\textbackslash{}\textquotedblright{}+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}gq++\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gp\textbackslash{}\textquotedblright{}\textbackslash{}\textquotedblright{}pgx\textquotedblright{}\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"},\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rputns}\]
+\justifies{}\trans{\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{""}\mapsto\texttt{"\textquotedblright{}\textquotedblright{}\textquotedblright{}c\textit{q}($s$)\textquotedblright{}\textquotedblright{}\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gh\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gt\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}g\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}o\textbackslash{}\textquotedblright{}+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}gq++\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gp\textbackslash{}\textquotedblright{}\textbackslash{}\textquotedblright{}pgx\textquotedblright{}\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"},\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{""}:\texttt{"\textquotedblright{}\textquotedblright{}\textquotedblright{}c\textit{q}($s$)\textquotedblright{}\textquotedblright{}\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gh\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gt\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}g\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}o\textbackslash{}\textquotedblright{}+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}gq++\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gp\textbackslash{}\textquotedblright{}\textbackslash{}\textquotedblright{}pgx\textquotedblright{}\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rputns}\]
+\justifies{}\trans{\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"w"}:\texttt{"\textquotedblright{}\textquotedblright{}\textquotedblright{}c\textit{q}($s$)\textquotedblright{}\textquotedblright{}\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gh\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gt\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}g\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}o\textbackslash{}\textquotedblright{}+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}gq++\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gp\textbackslash{}\textquotedblright{}\textbackslash{}\textquotedblright{}pgx\textquotedblright{}\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rgetns}\]
+\justifies{}\trans{\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"\textquotedblright{}\textquotedblright{}\textquotedblright{}c\textit{q}($s$)\textquotedblright{}\textquotedblright{}\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gh\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gt\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}g\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}o\textbackslash{}\textquotedblright{}+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}gq++\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gp\textbackslash{}\textquotedblright{}\textbackslash{}\textquotedblright{}pgx\textquotedblright{}\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}:\texttt{"\textquotedblright{}\textquotedblright{}\textquotedblright{}c\textit{q}($s$)\textquotedblright{}\textquotedblright{}\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gh\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gt\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}g\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}o\textbackslash{}\textquotedblright{}+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}gq++\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gp\textbackslash{}\textquotedblright{}\textbackslash{}\textquotedblright{}pgx\textquotedblright{}"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rcatns}\]
+\justifies{}\trans{\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"u"}:\texttt{"\textquotedblright{}\textquotedblright{}\textquotedblright{}c\textit{q}($s$)\textquotedblright{}\textquotedblright{}\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gh\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gt\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}g\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}o\textbackslash{}\textquotedblright{}+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}gq++\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gp\textbackslash{}\textquotedblright{}\textbackslash{}\textquotedblright{}pgx\textquotedblright{}"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rgetns}\]
+\justifies{}\trans{\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"\textquotedblright{}\textquotedblright{}\textquotedblright{}c\textit{q}($s$)\textquotedblright{}\textquotedblright{}\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gh\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gt\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}g\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}o\textbackslash{}\textquotedblright{}+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}gq++\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gp\textbackslash{}\textquotedblright{}\textbackslash{}\textquotedblright{}pgx\textquotedblright{}"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}\textquotedblright{}\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gh\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gt\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}g\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}o\textbackslash{}\textquotedblright{}+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}gq++\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gp\textbackslash{}\textquotedblright{}\textbackslash{}\textquotedblright{}pgx\textquotedblright{}"}:\texttt{"\textquotedblright{}\textquotedblright{}"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rcatns}\]
+\justifies{}\trans{\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"\textquotedblright{}\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gh\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gt\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}p\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}g\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}o\textbackslash{}\textquotedblright{}+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}v\textbackslash{}\textquotedblright{}gq\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}gq++\textbackslash{}\textquotedblright{}u\textbackslash{}\textquotedblright{}g+\textbackslash{}\textquotedblright{}w\textbackslash{}\textquotedblright{}gp\textbackslash{}\textquotedblright{}\textbackslash{}\textquotedblright{}pgx\textquotedblright{}"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}"}:\texttt{"\textquotedblright{}\textquotedblright{}"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rcatns}\]
+\justifies{}\trans{\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}"}:\texttt{"\textquotedblright{}\textquotedblright{}"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rquotifyns}\]
+\justifies{}\trans{\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"u"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}"}:\texttt{"\textquotedblright{}\textquotedblright{}"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rgetns}\]
+\justifies{}\trans{\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}"}:\texttt{"\textquotedblright{}\textquotedblright{}"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"c$s$"}:\texttt{"\textquotedblright{}\textquotedblright{}"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rquotifyns}\]
+\justifies{}\trans{\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"v"}:\texttt{"\textquotedblright{}\textquotedblright{}"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rgetns}\]
+\justifies{}\trans{\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"\textquotedblright{}\textquotedblright{}"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{""}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rquotifyns}\]
+\justifies{}\trans{\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"w"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rgetns}\]
+\justifies{}\trans{\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}o"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"o"}:\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rcatns}\]
+\justifies{}\trans{\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"\textquotedblright{}c\textit{q}($s$)\textquotedblright{}"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"c$s$"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rquotifyns}\]
+\justifies{}\trans{\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"v"}:\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rgetns}\]
+\justifies{}\trans{\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{""}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"w"}:\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rgetns}\]
+\justifies{}\trans{\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\Nil,\{\texttt{"w"}\mapsto\texttt{""},\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"w"}:\texttt{""}:\Nil,\{\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"w"}\mapsto\texttt{"c"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rputns}\]
+\justifies{}\trans{\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{""}:\Nil,\{\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"w"}\mapsto\texttt{"c"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"c"}:\Nil,\{\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"w"}\mapsto\texttt{"c"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rtailns}\]
+\justifies{}\trans{\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"w"}:\Nil,\{\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"w"}\mapsto\texttt{"c"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rgetns}\]
+\justifies{}\trans{\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\Nil,\{\texttt{"v"}\mapsto\texttt{"c$s$"},\texttt{"w"}\mapsto\texttt{"c"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"v"}:\texttt{"c$s$"}:\Nil,\{\texttt{"w"}\mapsto\texttt{"c"},\texttt{"v"}\mapsto\texttt{"$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rputns}\]
+\justifies{}\trans{\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"c$s$"}:\Nil,\{\texttt{"w"}\mapsto\texttt{"c"},\texttt{"v"}\mapsto\texttt{"$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmCat:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"$s$"}:\texttt{"c"}:\Nil,\{\texttt{"w"}\mapsto\texttt{"c"},\texttt{"v"}\mapsto\texttt{"$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rcatns}\]
+\justifies{}\trans{\StmGet:\StmCat:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"v"}:\texttt{"c"}:\Nil,\{\texttt{"w"}\mapsto\texttt{"c"},\texttt{"v"}\mapsto\texttt{"$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rgetns}\]
+\justifies{}\trans{\StmPush~\texttt{"v"}:\StmGet:\StmCat:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"c"}:\Nil,\{\texttt{"w"}\mapsto\texttt{"c"},\texttt{"v"}\mapsto\texttt{"$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmHead:\StmPush~\texttt{"v"}:\StmGet:\StmCat:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"c"}:\Nil,\{\texttt{"w"}\mapsto\texttt{"c"},\texttt{"v"}\mapsto\texttt{"$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rheadns}\]
+\justifies{}\trans{\StmGet:\StmHead:\StmPush~\texttt{"v"}:\StmGet:\StmCat:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"w"}:\Nil,\{\texttt{"w"}\mapsto\texttt{"c"},\texttt{"v"}\mapsto\texttt{"$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rgetns}\]
+\justifies{}\trans{\StmPush~\texttt{"w"}:\StmGet:\StmHead:\StmPush~\texttt{"v"}:\StmGet:\StmCat:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\Nil,\{\texttt{"w"}\mapsto\texttt{"c"},\texttt{"v"}\mapsto\texttt{"$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmHead:\StmPush~\texttt{"v"}:\StmGet:\StmCat:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"w"}:\texttt{"c"}:\Nil,\{\texttt{"v"}\mapsto\texttt{"$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rputns}\]
+\justifies{}\trans{\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmHead:\StmPush~\texttt{"v"}:\StmGet:\StmCat:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"c"}:\Nil,\{\texttt{"v"}\mapsto\texttt{"$s$"},\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmPut:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmHead:\StmPush~\texttt{"v"}:\StmGet:\StmCat:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"v"}:\texttt{"$s$"}:\texttt{"c"}:\Nil,\{\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rputns}\]
+\justifies{}\trans{\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmHead:\StmPush~\texttt{"v"}:\StmGet:\StmCat:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"$s$"}:\texttt{"c"}:\Nil,\{\texttt{"u"}\mapsto\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}\}\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmPut:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmHead:\StmPush~\texttt{"v"}:\StmGet:\StmCat:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"u"}:\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}:\texttt{"$s$"}:\texttt{"c"}:\Nil,\emptyset\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rputns}\]
+\justifies{}\trans{\StmPush~\texttt{"u"}:\StmPut:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmHead:\StmPush~\texttt{"v"}:\StmGet:\StmCat:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}:\texttt{"$s$"}:\texttt{"c"}:\Nil,\emptyset\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}\]
+\justifies{}\trans{\StmPush~\texttt{"\textquotedblright{}u\textquotedblright{}p\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gh\textquotedblright{}v\textquotedblright{}g+\textquotedblright{}v\textquotedblright{}p\textquotedblright{}w\textquotedblright{}gt\textquotedblright{}w\textquotedblright{}p\textquotedblright{}w\textquotedblright{}g\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}o\textquotedblright{}+\textquotedblright{}w\textquotedblright{}gq\textquotedblright{}v\textquotedblright{}gq\textquotedblright{}u\textquotedblright{}gq++\textquotedblright{}u\textquotedblright{}g+\textquotedblright{}w\textquotedblright{}gp\textquotedblright{}\textquotedblright{}pgx"}:\StmPush~\texttt{"u"}:\StmPut:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmHead:\StmPush~\texttt{"v"}:\StmGet:\StmCat:\StmPush~\texttt{"v"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmTail:\StmPush~\texttt{"w"}:\StmPut:\StmPush~\texttt{"w"}:\StmGet:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"o"}:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmQuotify:\StmPush~\texttt{"v"}:\StmGet:\StmQuotify:\StmPush~\texttt{"u"}:\StmGet:\StmQuotify:\StmCat:\StmCat:\StmPush~\texttt{"u"}:\StmGet:\StmCat:\StmPush~\texttt{"w"}:\StmGet:\StmPut:\StmPush~\texttt{""}:\StmPut:\StmGet:\StmExec}{\Nil}{\left(\texttt{"$s$"}:\texttt{"c"}:\Nil,\emptyset\right)}{\Nil}{\texttt{"c$s$"}:\Nil}{\left(\Nil,\emptyset\right)}\using{\rpushns}
\ No newline at end of file