event log
> 0 (* :tagged -1)
> 1 :tagged
> 2 (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
> 3 (replace (* :open-tag :value :close-tag) "<cfunction struct>")
> 4 (* :open-tag :value :close-tag)
> 5 :open-tag
> 6 (* (constant :tag) "<" (capture :w+ :tag-name) ">")
> 7 (constant :tag)
7 > (constant :tag)
> 8 "<"
8 > "<"
> 9 (capture :w+ :tag-name)
> 10 :w+
> 11 (some :w)
> 12 :w
> 13 (range "az" "AZ" "09")
13 > (range "az" "AZ" "09")
12 > :w
> 14 :w
> 15 (range "az" "AZ" "09")
15 > (range "az" "AZ" "09")
14 > :w
11 > (some :w)
10 > :w+
9 > (capture :w+ :tag-name)
> 16 ">"
16 > ">"
6 > (* (constant :tag) "<" (capture :w+ :tag-name) ">")
5 > :open-tag
> 17 :value
> 18 (* (constant :value) (group (any (+ :tagged :untagged))))
> 19 (constant :value)
19 > (constant :value)
> 20 (group (any (+ :tagged :untagged)))
> 21 (any (+ :tagged :untagged))
> 22 (+ :tagged :untagged)
> 23 :tagged
> 24 (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
> 25 (replace (* :open-tag :value :close-tag) "<cfunction struct>")
> 26 (* :open-tag :value :close-tag)
> 27 :open-tag
> 28 (* (constant :tag) "<" (capture :w+ :tag-name) ">")
> 29 (constant :tag)
29 > (constant :tag)
> 30 "<"
30 > "<"
> 31 (capture :w+ :tag-name)
> 32 :w+
> 33 (some :w)
> 34 :w
> 35 (range "az" "AZ" "09")
35 > (range "az" "AZ" "09")
34 > :w
> 36 :w
> 37 (range "az" "AZ" "09")
37 > (range "az" "AZ" "09")
36 > :w
> 38 :w
> 39 (range "az" "AZ" "09")
39 > (range "az" "AZ" "09")
38 > :w
33 > (some :w)
32 > :w+
31 > (capture :w+ :tag-name)
> 40 ">"
40 > ">"
28 > (* (constant :tag) "<" (capture :w+ :tag-name) ">")
27 > :open-tag
> 41 :value
> 42 (* (constant :value) (group (any (+ :tagged :untagged))))
> 43 (constant :value)
43 > (constant :value)
> 44 (group (any (+ :tagged :untagged)))
> 45 (any (+ :tagged :untagged))
> 46 (+ :tagged :untagged)
> 47 :tagged
> 48 (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
> 49 (replace (* :open-tag :value :close-tag) "<cfunction struct>")
> 50 (* :open-tag :value :close-tag)
> 51 :open-tag
> 52 (* (constant :tag) "<" (capture :w+ :tag-name) ">")
> 53 (constant :tag)
53 > (constant :tag)
> 54 "<"
54 > "<"
52 > (* (constant :tag) "<" (capture :w+ :tag-name) ">")
51 > :open-tag
50 > (* :open-tag :value :close-tag)
49 > (replace (* :open-tag :value :close-tag) "<cfunction struct>")
48 > (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
47 > :tagged
> 55 :untagged
> 56 (capture (some (if-not "<" 1)))
> 57 (some (if-not "<" 1))
> 58 (if-not "<" 1)
> 59 "<"
59 > "<"
> 60 1
60 > 1
58 > (if-not "<" 1)
> 61 (if-not "<" 1)
> 62 "<"
62 > "<"
> 63 1
63 > 1
61 > (if-not "<" 1)
> 64 (if-not "<" 1)
> 65 "<"
65 > "<"
> 66 1
66 > 1
64 > (if-not "<" 1)
> 67 (if-not "<" 1)
> 68 "<"
68 > "<"
> 69 1
69 > 1
67 > (if-not "<" 1)
> 70 (if-not "<" 1)
> 71 "<"
71 > "<"
> 72 1
72 > 1
70 > (if-not "<" 1)
> 73 (if-not "<" 1)
> 74 "<"
74 > "<"
73 > (if-not "<" 1)
57 > (some (if-not "<" 1))
56 > (capture (some (if-not "<" 1)))
55 > :untagged
46 > (+ :tagged :untagged)
> 75 (+ :tagged :untagged)
> 76 :tagged
> 77 (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
> 78 (replace (* :open-tag :value :close-tag) "<cfunction struct>")
> 79 (* :open-tag :value :close-tag)
> 80 :open-tag
> 81 (* (constant :tag) "<" (capture :w+ :tag-name) ">")
> 82 (constant :tag)
82 > (constant :tag)
> 83 "<"
83 > "<"
> 84 (capture :w+ :tag-name)
> 85 :w+
> 86 (some :w)
> 87 :w
> 88 (range "az" "AZ" "09")
88 > (range "az" "AZ" "09")
87 > :w
86 > (some :w)
85 > :w+
84 > (capture :w+ :tag-name)
81 > (* (constant :tag) "<" (capture :w+ :tag-name) ">")
80 > :open-tag
79 > (* :open-tag :value :close-tag)
78 > (replace (* :open-tag :value :close-tag) "<cfunction struct>")
77 > (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
76 > :tagged
> 89 :untagged
> 90 (capture (some (if-not "<" 1)))
> 91 (some (if-not "<" 1))
> 92 (if-not "<" 1)
> 93 "<"
93 > "<"
92 > (if-not "<" 1)
91 > (some (if-not "<" 1))
90 > (capture (some (if-not "<" 1)))
89 > :untagged
75 > (+ :tagged :untagged)
45 > (any (+ :tagged :untagged))
44 > (group (any (+ :tagged :untagged)))
42 > (* (constant :value) (group (any (+ :tagged :untagged))))
41 > :value
> 94 :close-tag
> 95 (drop (* "</" (cmt (* (backref :tag-name) (capture :w+)) "<function =>") ">"))
> 96 (* "</" (cmt (* (backref :tag-name) (capture :w+)) "<function =>") ">")
> 97 "</"
97 > "</"
> 98 (cmt (* (backref :tag-name) (capture :w+)) "<function =>")
> 99 (* (backref :tag-name) (capture :w+))
> 100 (backref :tag-name)
100 > (backref :tag-name)
> 101 (capture :w+)
> 102 :w+
> 103 (some :w)
> 104 :w
> 105 (range "az" "AZ" "09")
105 > (range "az" "AZ" "09")
104 > :w
> 106 :w
> 107 (range "az" "AZ" "09")
107 > (range "az" "AZ" "09")
106 > :w
> 108 :w
> 109 (range "az" "AZ" "09")
109 > (range "az" "AZ" "09")
108 > :w
103 > (some :w)
102 > :w+
101 > (capture :w+)
99 > (* (backref :tag-name) (capture :w+))
98 > (cmt (* (backref :tag-name) (capture :w+)) "<function =>")
> 110 ">"
110 > ">"
96 > (* "</" (cmt (* (backref :tag-name) (capture :w+)) "<function =>") ">")
95 > (drop (* "</" (cmt (* (backref :tag-name) (capture :w+)) "<function =>") ">"))
94 > :close-tag
26 > (* :open-tag :value :close-tag)
25 > (replace (* :open-tag :value :close-tag) "<cfunction struct>")
24 > (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
23 > :tagged
22 > (+ :tagged :untagged)
> 111 (+ :tagged :untagged)
> 112 :tagged
> 113 (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
> 114 (replace (* :open-tag :value :close-tag) "<cfunction struct>")
> 115 (* :open-tag :value :close-tag)
> 116 :open-tag
> 117 (* (constant :tag) "<" (capture :w+ :tag-name) ">")
> 118 (constant :tag)
118 > (constant :tag)
> 119 "<"
119 > "<"
117 > (* (constant :tag) "<" (capture :w+ :tag-name) ">")
116 > :open-tag
115 > (* :open-tag :value :close-tag)
114 > (replace (* :open-tag :value :close-tag) "<cfunction struct>")
113 > (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
112 > :tagged
> 120 :untagged
> 121 (capture (some (if-not "<" 1)))
> 122 (some (if-not "<" 1))
> 123 (if-not "<" 1)
> 124 "<"
124 > "<"
> 125 1
125 > 1
123 > (if-not "<" 1)
> 126 (if-not "<" 1)
> 127 "<"
127 > "<"
126 > (if-not "<" 1)
122 > (some (if-not "<" 1))
121 > (capture (some (if-not "<" 1)))
120 > :untagged
111 > (+ :tagged :untagged)
> 128 (+ :tagged :untagged)
> 129 :tagged
> 130 (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
> 131 (replace (* :open-tag :value :close-tag) "<cfunction struct>")
> 132 (* :open-tag :value :close-tag)
> 133 :open-tag
> 134 (* (constant :tag) "<" (capture :w+ :tag-name) ">")
> 135 (constant :tag)
135 > (constant :tag)
> 136 "<"
136 > "<"
> 137 (capture :w+ :tag-name)
> 138 :w+
> 139 (some :w)
> 140 :w
> 141 (range "az" "AZ" "09")
141 > (range "az" "AZ" "09")
140 > :w
> 142 :w
> 143 (range "az" "AZ" "09")
143 > (range "az" "AZ" "09")
142 > :w
> 144 :w
> 145 (range "az" "AZ" "09")
145 > (range "az" "AZ" "09")
144 > :w
> 146 :w
> 147 (range "az" "AZ" "09")
147 > (range "az" "AZ" "09")
146 > :w
> 148 :w
> 149 (range "az" "AZ" "09")
149 > (range "az" "AZ" "09")
148 > :w
> 150 :w
> 151 (range "az" "AZ" "09")
151 > (range "az" "AZ" "09")
150 > :w
> 152 :w
> 153 (range "az" "AZ" "09")
153 > (range "az" "AZ" "09")
152 > :w
139 > (some :w)
138 > :w+
137 > (capture :w+ :tag-name)
> 154 ">"
154 > ">"
134 > (* (constant :tag) "<" (capture :w+ :tag-name) ">")
133 > :open-tag
> 155 :value
> 156 (* (constant :value) (group (any (+ :tagged :untagged))))
> 157 (constant :value)
157 > (constant :value)
> 158 (group (any (+ :tagged :untagged)))
> 159 (any (+ :tagged :untagged))
> 160 (+ :tagged :untagged)
> 161 :tagged
> 162 (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
> 163 (replace (* :open-tag :value :close-tag) "<cfunction struct>")
> 164 (* :open-tag :value :close-tag)
> 165 :open-tag
> 166 (* (constant :tag) "<" (capture :w+ :tag-name) ">")
> 167 (constant :tag)
167 > (constant :tag)
> 168 "<"
168 > "<"
166 > (* (constant :tag) "<" (capture :w+ :tag-name) ">")
165 > :open-tag
164 > (* :open-tag :value :close-tag)
163 > (replace (* :open-tag :value :close-tag) "<cfunction struct>")
162 > (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
161 > :tagged
> 169 :untagged
> 170 (capture (some (if-not "<" 1)))
> 171 (some (if-not "<" 1))
> 172 (if-not "<" 1)
> 173 "<"
173 > "<"
> 174 1
174 > 1
172 > (if-not "<" 1)
> 175 (if-not "<" 1)
> 176 "<"
176 > "<"
> 177 1
177 > 1
175 > (if-not "<" 1)
> 178 (if-not "<" 1)
> 179 "<"
179 > "<"
> 180 1
180 > 1
178 > (if-not "<" 1)
> 181 (if-not "<" 1)
> 182 "<"
182 > "<"
> 183 1
183 > 1
181 > (if-not "<" 1)
> 184 (if-not "<" 1)
> 185 "<"
185 > "<"
> 186 1
186 > 1
184 > (if-not "<" 1)
> 187 (if-not "<" 1)
> 188 "<"
188 > "<"
187 > (if-not "<" 1)
171 > (some (if-not "<" 1))
170 > (capture (some (if-not "<" 1)))
169 > :untagged
160 > (+ :tagged :untagged)
> 189 (+ :tagged :untagged)
> 190 :tagged
> 191 (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
> 192 (replace (* :open-tag :value :close-tag) "<cfunction struct>")
> 193 (* :open-tag :value :close-tag)
> 194 :open-tag
> 195 (* (constant :tag) "<" (capture :w+ :tag-name) ">")
> 196 (constant :tag)
196 > (constant :tag)
> 197 "<"
197 > "<"
> 198 (capture :w+ :tag-name)
> 199 :w+
> 200 (some :w)
> 201 :w
> 202 (range "az" "AZ" "09")
202 > (range "az" "AZ" "09")
201 > :w
200 > (some :w)
199 > :w+
198 > (capture :w+ :tag-name)
195 > (* (constant :tag) "<" (capture :w+ :tag-name) ">")
194 > :open-tag
193 > (* :open-tag :value :close-tag)
192 > (replace (* :open-tag :value :close-tag) "<cfunction struct>")
191 > (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
190 > :tagged
> 203 :untagged
> 204 (capture (some (if-not "<" 1)))
> 205 (some (if-not "<" 1))
> 206 (if-not "<" 1)
> 207 "<"
207 > "<"
206 > (if-not "<" 1)
205 > (some (if-not "<" 1))
204 > (capture (some (if-not "<" 1)))
203 > :untagged
189 > (+ :tagged :untagged)
159 > (any (+ :tagged :untagged))
158 > (group (any (+ :tagged :untagged)))
156 > (* (constant :value) (group (any (+ :tagged :untagged))))
155 > :value
> 208 :close-tag
> 209 (drop (* "</" (cmt (* (backref :tag-name) (capture :w+)) "<function =>") ">"))
> 210 (* "</" (cmt (* (backref :tag-name) (capture :w+)) "<function =>") ">")
> 211 "</"
211 > "</"
> 212 (cmt (* (backref :tag-name) (capture :w+)) "<function =>")
> 213 (* (backref :tag-name) (capture :w+))
> 214 (backref :tag-name)
214 > (backref :tag-name)
> 215 (capture :w+)
> 216 :w+
> 217 (some :w)
> 218 :w
> 219 (range "az" "AZ" "09")
219 > (range "az" "AZ" "09")
218 > :w
> 220 :w
> 221 (range "az" "AZ" "09")
221 > (range "az" "AZ" "09")
220 > :w
> 222 :w
> 223 (range "az" "AZ" "09")
223 > (range "az" "AZ" "09")
222 > :w
> 224 :w
> 225 (range "az" "AZ" "09")
225 > (range "az" "AZ" "09")
224 > :w
> 226 :w
> 227 (range "az" "AZ" "09")
227 > (range "az" "AZ" "09")
226 > :w
> 228 :w
> 229 (range "az" "AZ" "09")
229 > (range "az" "AZ" "09")
228 > :w
> 230 :w
> 231 (range "az" "AZ" "09")
231 > (range "az" "AZ" "09")
230 > :w
217 > (some :w)
216 > :w+
215 > (capture :w+)
213 > (* (backref :tag-name) (capture :w+))
212 > (cmt (* (backref :tag-name) (capture :w+)) "<function =>")
> 232 ">"
232 > ">"
210 > (* "</" (cmt (* (backref :tag-name) (capture :w+)) "<function =>") ">")
209 > (drop (* "</" (cmt (* (backref :tag-name) (capture :w+)) "<function =>") ">"))
208 > :close-tag
132 > (* :open-tag :value :close-tag)
131 > (replace (* :open-tag :value :close-tag) "<cfunction struct>")
130 > (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
129 > :tagged
128 > (+ :tagged :untagged)
> 233 (+ :tagged :untagged)
> 234 :tagged
> 235 (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
> 236 (replace (* :open-tag :value :close-tag) "<cfunction struct>")
> 237 (* :open-tag :value :close-tag)
> 238 :open-tag
> 239 (* (constant :tag) "<" (capture :w+ :tag-name) ">")
> 240 (constant :tag)
240 > (constant :tag)
> 241 "<"
241 > "<"
239 > (* (constant :tag) "<" (capture :w+ :tag-name) ">")
238 > :open-tag
237 > (* :open-tag :value :close-tag)
236 > (replace (* :open-tag :value :close-tag) "<cfunction struct>")
235 > (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
234 > :tagged
> 242 :untagged
> 243 (capture (some (if-not "<" 1)))
> 244 (some (if-not "<" 1))
> 245 (if-not "<" 1)
> 246 "<"
246 > "<"
> 247 1
247 > 1
245 > (if-not "<" 1)
> 248 (if-not "<" 1)
> 249 "<"
249 > "<"
248 > (if-not "<" 1)
244 > (some (if-not "<" 1))
243 > (capture (some (if-not "<" 1)))
242 > :untagged
233 > (+ :tagged :untagged)
> 250 (+ :tagged :untagged)
> 251 :tagged
> 252 (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
> 253 (replace (* :open-tag :value :close-tag) "<cfunction struct>")
> 254 (* :open-tag :value :close-tag)
> 255 :open-tag
> 256 (* (constant :tag) "<" (capture :w+ :tag-name) ">")
> 257 (constant :tag)
257 > (constant :tag)
> 258 "<"
258 > "<"
> 259 (capture :w+ :tag-name)
> 260 :w+
> 261 (some :w)
> 262 :w
> 263 (range "az" "AZ" "09")
263 > (range "az" "AZ" "09")
262 > :w
261 > (some :w)
260 > :w+
259 > (capture :w+ :tag-name)
256 > (* (constant :tag) "<" (capture :w+ :tag-name) ">")
255 > :open-tag
254 > (* :open-tag :value :close-tag)
253 > (replace (* :open-tag :value :close-tag) "<cfunction struct>")
252 > (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
251 > :tagged
> 264 :untagged
> 265 (capture (some (if-not "<" 1)))
> 266 (some (if-not "<" 1))
> 267 (if-not "<" 1)
> 268 "<"
268 > "<"
267 > (if-not "<" 1)
266 > (some (if-not "<" 1))
265 > (capture (some (if-not "<" 1)))
264 > :untagged
250 > (+ :tagged :untagged)
21 > (any (+ :tagged :untagged))
20 > (group (any (+ :tagged :untagged)))
18 > (* (constant :value) (group (any (+ :tagged :untagged))))
17 > :value
> 269 :close-tag
> 270 (drop (* "</" (cmt (* (backref :tag-name) (capture :w+)) "<function =>") ">"))
> 271 (* "</" (cmt (* (backref :tag-name) (capture :w+)) "<function =>") ">")
> 272 "</"
272 > "</"
> 273 (cmt (* (backref :tag-name) (capture :w+)) "<function =>")
> 274 (* (backref :tag-name) (capture :w+))
> 275 (backref :tag-name)
275 > (backref :tag-name)
> 276 (capture :w+)
> 277 :w+
> 278 (some :w)
> 279 :w
> 280 (range "az" "AZ" "09")
280 > (range "az" "AZ" "09")
279 > :w
> 281 :w
> 282 (range "az" "AZ" "09")
282 > (range "az" "AZ" "09")
281 > :w
278 > (some :w)
277 > :w+
276 > (capture :w+)
274 > (* (backref :tag-name) (capture :w+))
273 > (cmt (* (backref :tag-name) (capture :w+)) "<function =>")
> 283 ">"
283 > ">"
271 > (* "</" (cmt (* (backref :tag-name) (capture :w+)) "<function =>") ">")
270 > (drop (* "</" (cmt (* (backref :tag-name) (capture :w+)) "<function =>") ">"))
269 > :close-tag
4 > (* :open-tag :value :close-tag)
3 > (replace (* :open-tag :value :close-tag) "<cfunction struct>")
2 > (unref (replace (* :open-tag :value :close-tag) "<cfunction struct>"))
1 > :tagged
> 284 -1
284 > -1
0 > (* :tagged -1)