@@ -83,2152 +83,2318 @@
838322:1 DEDENT
848422:1 DEDENT
858522:1 NEWLINE
86−22:1 glyph +$
87−22:4 name list
88−22:9 glyph |$
89−22:12 glyph [
90−22:13 tight tvar A
91−22:14 tight glyph ]
92−23:3 INDENT
93−23:3 lit ~
94−24:3 NEWLINE
95−24:3 glyph [
96−24:4 tight name i
97−24:5 tight glyph =
98−24:6 tight tvar A
99−24:8 name t
100−24:9 tight glyph =
101−24:10 tight glyph (
102−24:11 tight name list
103−24:16 tvar A
104−24:17 tight glyph )
105−24:18 tight glyph ]
106−26:1 DEDENT
107−26:1 NEWLINE
108−26:1 glyph +$
109−26:4 name unit
110−26:9 glyph |$
111−26:12 glyph [
112−26:13 tight tvar A
113−26:14 tight glyph ]
114−27:3 INDENT
115−27:3 lit ~
116−28:3 NEWLINE
117−28:3 glyph [
118−28:4 tight lit ~
119−28:6 name u
120−28:7 tight glyph =
121−28:8 tight tvar A
122−28:9 tight glyph ]
123−30:1 DEDENT
124−30:1 NEWLINE
125−30:1 glyph ++
126−30:4 name fall
127−30:9 glyph |=
128−30:12 name args
129−30:16 tight glyph =
130−30:17 tight glyph [
131−30:18 tight glyph (
132−30:19 tight name unit
133−30:24 tvar A
134−30:25 tight glyph )
135−30:27 tvar A
136−30:28 tight glyph ]
137−31:3 INDENT
138−31:3 glyph ?-
139−31:6 name args
140−32:5 INDENT
141−32:5 glyph [
142−32:6 tight name maybe
143−32:12 name fallback
144−32:20 tight glyph ]
145−33:7 INDENT
146−33:7 glyph ?-
147−33:10 name maybe
148−34:9 INDENT
149−34:9 lit ~
150−34:11 name fallback
151−35:9 NEWLINE
152−35:9 glyph [
153−35:10 tight lit ~
154−35:12 name value
155−35:17 tight glyph ]
156−35:19 name value
157−37:1 DEDENT
158−37:1 DEDENT
159−37:1 DEDENT
160−37:1 DEDENT
161−37:1 NEWLINE
162−37:1 glyph ++
163−37:4 name need
164−37:9 glyph |=
165−37:12 name maybe
166−37:17 tight glyph =
167−37:18 tight glyph (
168−37:19 tight name unit
169−37:24 tvar A
170−37:25 tight glyph )
171−38:3 INDENT
172−38:3 glyph ?-
173−38:6 name maybe
174−39:5 INDENT
175−39:5 lit ~
176−39:7 glyph !!
177−40:5 NEWLINE
178−40:5 glyph [
179−40:6 tight lit ~
180−40:8 name value
181−40:13 tight glyph ]
182−40:15 name value
183−42:1 DEDENT
184−42:1 DEDENT
185−42:1 NEWLINE
186−42:1 glyph ++
187−42:4 name weld
188−42:9 glyph |=
189−42:12 name args
190−42:16 tight glyph =
191−42:17 tight glyph [
192−42:18 tight glyph (
193−42:19 tight name list
194−42:24 tvar A
195−42:25 tight glyph )
196−42:27 glyph (
197−42:28 tight name list
198−42:33 tvar A
199−42:34 tight glyph )
200−42:35 tight glyph ]
201−43:3 INDENT
202−43:3 glyph ?-
203−43:6 name args
204−44:5 INDENT
205−44:5 glyph [
206−44:6 tight name xs
207−44:9 name ys
208−44:11 tight glyph ]
209−45:7 INDENT
210−45:7 glyph ^-
211−45:10 glyph (
212−45:11 tight name list
213−45:16 tvar A
214−45:17 tight glyph )
215−46:9 INDENT
216−46:9 glyph ?-
217−46:12 name xs
218−47:11 INDENT
219−47:11 lit ~
220−47:13 name ys
221−48:11 NEWLINE
222−48:11 glyph [
223−48:12 tight name item
224−48:17 name rest
225−48:21 tight glyph ]
226−48:23 glyph [
227−48:24 tight name item
228−48:29 glyph (
229−48:30 tight name weld
230−48:35 name rest
231−48:40 name ys
232−48:42 tight glyph )
233−48:43 tight glyph ]
234−50:1 DEDENT
235−50:1 DEDENT
236−50:1 DEDENT
237−50:1 DEDENT
238−50:1 DEDENT
239−50:1 NEWLINE
240−50:1 glyph ++
241−50:4 name turn
242−50:9 glyph |=
243−50:12 name args
244−50:16 tight glyph =
245−50:17 tight glyph [
246−50:18 tight glyph (
247−50:19 tight name list
248−50:24 tvar A
249−50:25 tight glyph )
250−50:27 glyph $-(
251−50:30 tight tvar A
252−50:32 tvar B
253−50:33 tight glyph )
254−50:34 tight glyph ]
255−51:3 INDENT
256−51:3 glyph ?-
257−51:6 name args
258−52:5 INDENT
259−52:5 glyph [
260−52:6 tight name xs
261−52:9 name f
262−52:10 tight glyph ]
263−53:7 INDENT
264−53:7 glyph ^-
265−53:10 glyph (
266−53:11 tight name list
267−53:16 tvar B
268−53:17 tight glyph )
269−54:9 INDENT
270−54:9 glyph ?-
271−54:12 name xs
272−55:11 INDENT
273−55:11 lit ~
274−55:13 lit ~
275−56:11 NEWLINE
276−56:11 glyph [
277−56:12 tight name item
278−56:17 name rest
279−56:21 tight glyph ]
280−56:23 glyph [
281−56:24 tight glyph (
282−56:25 tight name f
283−56:27 name item
284−56:31 tight glyph )
285−56:33 glyph (
286−56:34 tight name turn
287−56:39 name rest
288−56:44 name f
289−56:45 tight glyph )
290−56:46 tight glyph ]
291−58:1 DEDENT
292−58:1 DEDENT
293−58:1 DEDENT
294−58:1 DEDENT
295−58:1 DEDENT
296−58:1 NEWLINE
297−58:1 glyph +$
298−58:4 name dime
299−58:9 glyph [
300−58:10 tight name p
301−58:11 tight glyph =
302−58:12 tight aura @ta
303−58:16 name q
304−58:17 tight glyph =
305−58:18 tight aura @
306−58:19 tight glyph ]
86+22:1 glyph ++
87+22:4 name eq
88+22:7 glyph |=
89+22:10 name args
90+22:14 tight glyph =
91+22:15 tight glyph [
92+22:16 tight tvar A
93+22:18 tvar A
94+22:19 tight glyph ]
95+22:21 glyph (
96+22:22 tight wing eq-data.internal
97+22:39 name args
98+22:43 tight glyph )
99+24:1 NEWLINE
100+24:1 glyph +$
101+24:4 name list
102+24:9 glyph |$
103+24:12 glyph [
104+24:13 tight tvar A
105+24:14 tight glyph ]
106+25:3 INDENT
107+25:3 lit ~
108+26:3 NEWLINE
109+26:3 glyph [
110+26:4 tight name i
111+26:5 tight glyph =
112+26:6 tight tvar A
113+26:8 name t
114+26:9 tight glyph =
115+26:10 tight glyph (
116+26:11 tight name list
117+26:16 tvar A
118+26:17 tight glyph )
119+26:18 tight glyph ]
120+28:1 DEDENT
121+28:1 NEWLINE
122+28:1 glyph +$
123+28:4 name unit
124+28:9 glyph |$
125+28:12 glyph [
126+28:13 tight tvar A
127+28:14 tight glyph ]
128+29:3 INDENT
129+29:3 lit ~
130+30:3 NEWLINE
131+30:3 glyph [
132+30:4 tight lit ~
133+30:6 name u
134+30:7 tight glyph =
135+30:8 tight tvar A
136+30:9 tight glyph ]
137+32:1 DEDENT
138+32:1 NEWLINE
139+32:1 glyph ++
140+32:4 name fall
141+32:9 glyph |=
142+32:12 name args
143+32:16 tight glyph =
144+32:17 tight glyph [
145+32:18 tight glyph (
146+32:19 tight name unit
147+32:24 tvar A
148+32:25 tight glyph )
149+32:27 tvar A
150+32:28 tight glyph ]
151+33:3 INDENT
152+33:3 glyph ?-
153+33:6 name args
154+34:5 INDENT
155+34:5 glyph [
156+34:6 tight name maybe
157+34:12 name fallback
158+34:20 tight glyph ]
159+35:7 INDENT
160+35:7 glyph ?-
161+35:10 name maybe
162+36:9 INDENT
163+36:9 lit ~
164+36:11 name fallback
165+37:9 NEWLINE
166+37:9 glyph [
167+37:10 tight lit ~
168+37:12 name value
169+37:17 tight glyph ]
170+37:19 name value
171+39:1 DEDENT
172+39:1 DEDENT
173+39:1 DEDENT
174+39:1 DEDENT
175+39:1 NEWLINE
176+39:1 glyph ++
177+39:4 name need
178+39:9 glyph |=
179+39:12 name maybe
180+39:17 tight glyph =
181+39:18 tight glyph (
182+39:19 tight name unit
183+39:24 tvar A
184+39:25 tight glyph )
185+40:3 INDENT
186+40:3 glyph ?-
187+40:6 name maybe
188+41:5 INDENT
189+41:5 lit ~
190+41:7 glyph !!
191+42:5 NEWLINE
192+42:5 glyph [
193+42:6 tight lit ~
194+42:8 name value
195+42:13 tight glyph ]
196+42:15 name value
197+44:1 DEDENT
198+44:1 DEDENT
199+44:1 NEWLINE
200+44:1 glyph ++
201+44:4 name weld
202+44:9 glyph |=
203+44:12 name args
204+44:16 tight glyph =
205+44:17 tight glyph [
206+44:18 tight glyph (
207+44:19 tight name list
208+44:24 tvar A
209+44:25 tight glyph )
210+44:27 glyph (
211+44:28 tight name list
212+44:33 tvar A
213+44:34 tight glyph )
214+44:35 tight glyph ]
215+45:3 INDENT
216+45:3 glyph ?-
217+45:6 name args
218+46:5 INDENT
219+46:5 glyph [
220+46:6 tight name xs
221+46:9 name ys
222+46:11 tight glyph ]
223+47:7 INDENT
224+47:7 glyph ^-
225+47:10 glyph (
226+47:11 tight name list
227+47:16 tvar A
228+47:17 tight glyph )
229+48:9 INDENT
230+48:9 glyph ?-
231+48:12 name xs
232+49:11 INDENT
233+49:11 lit ~
234+49:13 name ys
235+50:11 NEWLINE
236+50:11 glyph [
237+50:12 tight name item
238+50:17 name rest
239+50:21 tight glyph ]
240+50:23 glyph [
241+50:24 tight name item
242+50:29 glyph (
243+50:30 tight name weld
244+50:35 name rest
245+50:40 name ys
246+50:42 tight glyph )
247+50:43 tight glyph ]
248+52:1 DEDENT
249+52:1 DEDENT
250+52:1 DEDENT
251+52:1 DEDENT
252+52:1 DEDENT
253+52:1 NEWLINE
254+52:1 glyph ++
255+52:4 name turn
256+52:9 glyph |=
257+52:12 name args
258+52:16 tight glyph =
259+52:17 tight glyph [
260+52:18 tight glyph (
261+52:19 tight name list
262+52:24 tvar A
263+52:25 tight glyph )
264+52:27 glyph $-(
265+52:30 tight tvar A
266+52:32 tvar B
267+52:33 tight glyph )
268+52:34 tight glyph ]
269+53:3 INDENT
270+53:3 glyph ?-
271+53:6 name args
272+54:5 INDENT
273+54:5 glyph [
274+54:6 tight name xs
275+54:9 name f
276+54:10 tight glyph ]
277+55:7 INDENT
278+55:7 glyph ^-
279+55:10 glyph (
280+55:11 tight name list
281+55:16 tvar B
282+55:17 tight glyph )
283+56:9 INDENT
284+56:9 glyph ?-
285+56:12 name xs
286+57:11 INDENT
287+57:11 lit ~
288+57:13 lit ~
289+58:11 NEWLINE
290+58:11 glyph [
291+58:12 tight name item
292+58:17 name rest
293+58:21 tight glyph ]
294+58:23 glyph [
295+58:24 tight glyph (
296+58:25 tight name f
297+58:27 name item
298+58:31 tight glyph )
299+58:33 glyph (
300+58:34 tight name turn
301+58:39 name rest
302+58:44 name f
303+58:45 tight glyph )
304+58:46 tight glyph ]
305+60:1 DEDENT
306+60:1 DEDENT
307+60:1 DEDENT
308+60:1 DEDENT
309+60:1 DEDENT
30731060:1 NEWLINE
30831160:1 glyph +$
309−60:4 name hair
312+60:4 name dime
31031360:9 glyph [
31131460:10 tight name p
31231560:11 tight glyph =
313−60:12 tight aura @ud
316+60:12 tight aura @ta
31431760:16 name q
31531860:17 tight glyph =
316−60:18 tight aura @ud
317−60:21 tight glyph ]
319+60:18 tight aura @
320+60:19 tight glyph ]
31832162:1 NEWLINE
31932262:1 glyph +$
320−62:4 name pint
323+62:4 name hair
32132462:9 glyph [
32232562:10 tight name p
32332662:11 tight glyph =
324−62:12 tight glyph [
325−62:13 tight name p
326−62:14 tight glyph =
327−62:15 tight aura @
328−62:17 name q
329−62:18 tight glyph =
330−62:19 tight aura @
331−62:20 tight glyph ]
332−62:22 name q
333−62:23 tight glyph =
334−62:24 tight glyph [
335−62:25 tight name p
336−62:26 tight glyph =
337−62:27 tight aura @
338−62:29 name q
339−62:30 tight glyph =
340−62:31 tight aura @
341−62:32 tight glyph ]
342−62:33 tight glyph ]
327+62:12 tight aura @ud
328+62:16 name q
329+62:17 tight glyph =
330+62:18 tight aura @ud
331+62:21 tight glyph ]
34333264:1 NEWLINE
34433364:1 glyph +$
345−64:4 name coin
346−65:3 INDENT
347−65:3 glyph [
348−65:4 tight lit %$
349−65:7 name p
350−65:8 tight glyph =
351−65:9 tight name dime
352−65:13 tight glyph ]
353−66:3 NEWLINE
354−66:3 glyph [
355−66:4 tight lit %blob
356−66:10 name p
357−66:11 tight glyph =
358−66:12 tight glyph *
359−66:13 tight glyph ]
360−67:3 NEWLINE
334+64:4 name pint
335+64:9 glyph [
336+64:10 tight name p
337+64:11 tight glyph =
338+64:12 tight glyph [
339+64:13 tight name p
340+64:14 tight glyph =
341+64:15 tight aura @
342+64:17 name q
343+64:18 tight glyph =
344+64:19 tight aura @
345+64:20 tight glyph ]
346+64:22 name q
347+64:23 tight glyph =
348+64:24 tight glyph [
349+64:25 tight name p
350+64:26 tight glyph =
351+64:27 tight aura @
352+64:29 name q
353+64:30 tight glyph =
354+64:31 tight aura @
355+64:32 tight glyph ]
356+64:33 tight glyph ]
357+66:1 NEWLINE
358+66:1 glyph +$
359+66:4 name coin
360+67:3 INDENT
36136167:3 glyph [
362−67:4 tight lit %many
363−67:10 name p
364−67:11 tight glyph =
365−67:12 tight glyph (
366−67:13 tight name list
367−67:18 name coin
368−67:22 tight glyph )
369−67:23 tight glyph ]
370−69:1 DEDENT
371−69:1 NEWLINE
372−69:1 glyph +$
373−69:4 name pair
374−69:9 glyph |$
375−69:12 glyph [
376−69:13 tight tvar A
377−69:15 tvar B
378−69:16 tight glyph ]
379−69:18 glyph [
380−69:19 tight name p
381−69:20 tight glyph =
382−69:21 tight tvar A
383−69:23 name q
384−69:24 tight glyph =
385−69:25 tight tvar B
386−69:26 tight glyph ]
362+67:4 tight lit %$
363+67:7 name p
364+67:8 tight glyph =
365+67:9 tight name dime
366+67:13 tight glyph ]
367+68:3 NEWLINE
368+68:3 glyph [
369+68:4 tight lit %blob
370+68:10 name p
371+68:11 tight glyph =
372+68:12 tight glyph *
373+68:13 tight glyph ]
374+69:3 NEWLINE
375+69:3 glyph [
376+69:4 tight lit %many
377+69:10 name p
378+69:11 tight glyph =
379+69:12 tight glyph (
380+69:13 tight name list
381+69:18 name coin
382+69:22 tight glyph )
383+69:23 tight glyph ]
384+71:1 DEDENT
38738571:1 NEWLINE
38838671:1 glyph +$
389−71:4 name trel
387+71:4 name pair
39038871:9 glyph |$
39138971:12 glyph [
39239071:13 tight tvar A
39339171:15 tvar B
394−71:17 tvar C
395−71:18 tight glyph ]
396−71:20 glyph [
397−71:21 tight name p
398−71:22 tight glyph =
399−71:23 tight tvar A
400−71:25 name q
401−71:26 tight glyph =
402−71:27 tight tvar B
403−71:29 name r
404−71:30 tight glyph =
405−71:31 tight tvar C
406−71:32 tight glyph ]
392+71:16 tight glyph ]
393+71:18 glyph [
394+71:19 tight name p
395+71:20 tight glyph =
396+71:21 tight tvar A
397+71:23 name q
398+71:24 tight glyph =
399+71:25 tight tvar B
400+71:26 tight glyph ]
40740173:1 NEWLINE
40840273:1 glyph +$
409−73:4 name qual
403+73:4 name trel
41040473:9 glyph |$
41140573:12 glyph [
41240673:13 tight tvar A
41340773:15 tvar B
41440873:17 tvar C
415−73:19 tvar D
416−73:20 tight glyph ]
417−73:22 glyph [
418−73:23 tight name p
419−73:24 tight glyph =
420−73:25 tight tvar A
421−73:27 name q
422−73:28 tight glyph =
423−73:29 tight tvar B
424−73:31 name r
425−73:32 tight glyph =
426−73:33 tight tvar C
427−73:35 name s
428−73:36 tight glyph =
429−73:37 tight tvar D
430−73:38 tight glyph ]
409+73:18 tight glyph ]
410+73:20 glyph [
411+73:21 tight name p
412+73:22 tight glyph =
413+73:23 tight tvar A
414+73:25 name q
415+73:26 tight glyph =
416+73:27 tight tvar B
417+73:29 name r
418+73:30 tight glyph =
419+73:31 tight tvar C
420+73:32 tight glyph ]
43142175:1 NEWLINE
43242275:1 glyph +$
433−75:4 name cord
434−75:9 aura @t
423+75:4 name qual
424+75:9 glyph |$
425+75:12 glyph [
426+75:13 tight tvar A
427+75:15 tvar B
428+75:17 tvar C
429+75:19 tvar D
430+75:20 tight glyph ]
431+75:22 glyph [
432+75:23 tight name p
433+75:24 tight glyph =
434+75:25 tight tvar A
435+75:27 name q
436+75:28 tight glyph =
437+75:29 tight tvar B
438+75:31 name r
439+75:32 tight glyph =
440+75:33 tight tvar C
441+75:35 name s
442+75:36 tight glyph =
443+75:37 tight tvar D
444+75:38 tight glyph ]
43544577:1 NEWLINE
43644677:1 glyph +$
437−77:4 name knot
438−77:9 aura @ta
447+77:4 name cord
448+77:9 aura @t
43944979:1 NEWLINE
44045079:1 glyph +$
441−79:4 name tape
442−79:9 glyph (
443−79:10 tight name list
444−79:15 aura @tD
445−79:18 tight glyph )
451+79:4 name knot
452+79:9 aura @ta
44645381:1 NEWLINE
44745481:1 glyph +$
448−81:4 name path
455+81:4 name tape
44945681:9 glyph (
45045781:10 tight name list
451−81:15 name knot
452−81:19 tight glyph )
458+81:15 aura @tD
459+81:18 tight glyph )
45346083:1 NEWLINE
45446183:1 glyph +$
455−83:4 name tank
456−84:3 INDENT
457−84:3 name cord
458−85:3 NEWLINE
459−85:3 glyph [
460−85:4 tight lit %leaf
461−85:10 name p
462−85:11 tight glyph =
463−85:12 tight name tape
464−85:16 tight glyph ]
465−86:3 NEWLINE
466−86:3 glyph [
467−86:4 tight lit %palm
468−86:10 name p
469−86:11 tight glyph =
470−86:12 tight glyph (
471−86:13 tight name qual
472−86:18 name tape
473−86:23 name tape
474−86:28 name tape
475−86:33 name tape
476−86:37 tight glyph )
477−86:39 name q
478−86:40 tight glyph =
479−86:41 tight glyph (
480−86:42 tight name list
481−86:47 name tank
482−86:51 tight glyph )
483−86:52 tight glyph ]
462+83:4 name path
463+83:9 glyph (
464+83:10 tight name list
465+83:15 name knot
466+83:19 tight glyph )
467+85:1 NEWLINE
468+85:1 glyph +$
469+85:4 name tank
470+86:3 INDENT
471+86:3 name cord
48447287:3 NEWLINE
48547387:3 glyph [
486−87:4 tight lit %rose
474+87:4 tight lit %leaf
48747587:10 name p
48847687:11 tight glyph =
489−87:12 tight glyph (
490−87:13 tight name trel
491−87:18 name tape
492−87:23 name tape
493−87:28 name tape
494−87:32 tight glyph )
495−87:34 name q
496−87:35 tight glyph =
497−87:36 tight glyph (
498−87:37 tight name list
499−87:42 name tank
500−87:46 tight glyph )
501−87:47 tight glyph ]
502−89:1 DEDENT
503−89:1 NEWLINE
504−89:1 glyph +$
505−89:4 name nail
506−89:9 glyph [
507−89:10 tight name p
477+87:12 tight name tape
478+87:16 tight glyph ]
479+88:3 NEWLINE
480+88:3 glyph [
481+88:4 tight lit %palm
482+88:10 name p
483+88:11 tight glyph =
484+88:12 tight glyph (
485+88:13 tight name qual
486+88:18 name tape
487+88:23 name tape
488+88:28 name tape
489+88:33 name tape
490+88:37 tight glyph )
491+88:39 name q
492+88:40 tight glyph =
493+88:41 tight glyph (
494+88:42 tight name list
495+88:47 name tank
496+88:51 tight glyph )
497+88:52 tight glyph ]
498+89:3 NEWLINE
499+89:3 glyph [
500+89:4 tight lit %rose
501+89:10 name p
50850289:11 tight glyph =
509−89:12 tight name hair
510−89:17 name q
511−89:18 tight glyph =
512−89:19 tight name tape
513−89:23 tight glyph ]
503+89:12 tight glyph (
504+89:13 tight name trel
505+89:18 name tape
506+89:23 name tape
507+89:28 name tape
508+89:32 tight glyph )
509+89:34 name q
510+89:35 tight glyph =
511+89:36 tight glyph (
512+89:37 tight name list
513+89:42 name tank
514+89:46 tight glyph )
515+89:47 tight glyph ]
516+91:1 DEDENT
51451791:1 NEWLINE
51551891:1 glyph +$
516−91:4 name edge
519+91:4 name nail
51752091:9 glyph [
51852191:10 tight name p
51952291:11 tight glyph =
52052391:12 tight name hair
52152491:17 name q
52252591:18 tight glyph =
523−91:19 tight glyph (
524−91:20 tight name unit
525−91:25 glyph [
526−91:26 tight name p
527−91:27 tight glyph =
528−91:28 tight glyph *
529−91:30 name q
530−91:31 tight glyph =
531−91:32 tight name nail
532−91:36 tight glyph ]
533−91:37 tight glyph )
534−91:38 tight glyph ]
526+91:19 tight name tape
527+91:23 tight glyph ]
53552893:1 NEWLINE
53652993:1 glyph +$
537−93:4 name rule
538−93:9 glyph $-(
539−93:12 tight name nail
540−93:17 name edge
541−93:21 tight glyph )
530+93:4 name edge
531+93:9 glyph [
532+93:10 tight name p
533+93:11 tight glyph =
534+93:12 tight name hair
535+93:17 name q
536+93:18 tight glyph =
537+93:19 tight glyph (
538+93:20 tight name unit
539+93:25 glyph [
540+93:26 tight name p
541+93:27 tight glyph =
542+93:28 tight glyph *
543+93:30 name q
544+93:31 tight glyph =
545+93:32 tight name nail
546+93:36 tight glyph ]
547+93:37 tight glyph )
548+93:38 tight glyph ]
54254995:1 NEWLINE
54355095:1 glyph +$
544−95:4 name spot
545−95:9 glyph [
546−95:10 tight name p
547−95:11 tight glyph =
548−95:12 tight name path
549−95:17 name q
550−95:18 tight glyph =
551−95:19 tight name pint
552−95:23 tight glyph ]
551+95:4 name rule
552+95:9 glyph $-(
553+95:12 tight name nail
554+95:17 name edge
555+95:21 tight glyph )
55355697:1 NEWLINE
55455797:1 glyph +$
555−97:4 name toon
556−98:3 INDENT
557−98:3 glyph [
558−98:4 tight lit %0
559−98:7 name p
560−98:8 tight glyph =
561−98:9 tight glyph *
562−98:10 tight glyph ]
563−99:3 NEWLINE
564−99:3 glyph [
565−99:4 tight lit %1
566−99:7 name p
567−99:8 tight glyph =
568−99:9 tight glyph *
569−99:10 tight glyph ]
570−100:3 NEWLINE
558+97:4 name spot
559+97:9 glyph [
560+97:10 tight name p
561+97:11 tight glyph =
562+97:12 tight name path
563+97:17 name q
564+97:18 tight glyph =
565+97:19 tight name pint
566+97:23 tight glyph ]
567+99:1 NEWLINE
568+99:1 glyph +$
569+99:4 name toon
570+100:3 INDENT
571571100:3 glyph [
572−100:4 tight lit %2
572+100:4 tight lit %0
573573100:7 name p
574574100:8 tight glyph =
575−100:9 tight glyph (
576−100:10 tight name list
577−100:15 name tank
578−100:19 tight glyph )
579−100:20 tight glyph ]
580−102:1 DEDENT
581−102:1 NEWLINE
582−102:1 glyph +$
583−102:4 name like
584−102:9 glyph |$
585−102:12 glyph [
586−102:13 tight tvar A
587−102:14 tight glyph ]
588−102:16 glyph [
589−102:17 tight name p
590−102:18 tight glyph =
591−102:19 tight name hair
592−102:24 name q
593−102:25 tight glyph =
594−102:26 tight glyph (
595−102:27 tight name unit
596−102:32 glyph [
597−102:33 tight name p
598−102:34 tight glyph =
599−102:35 tight tvar A
600−102:37 name q
601−102:38 tight glyph =
602−102:39 tight name nail
603−102:43 tight glyph ]
604−102:44 tight glyph )
605−102:45 tight glyph ]
575+100:9 tight glyph *
576+100:10 tight glyph ]
577+101:3 NEWLINE
578+101:3 glyph [
579+101:4 tight lit %1
580+101:7 name p
581+101:8 tight glyph =
582+101:9 tight glyph *
583+101:10 tight glyph ]
584+102:3 NEWLINE
585+102:3 glyph [
586+102:4 tight lit %2
587+102:7 name p
588+102:8 tight glyph =
589+102:9 tight glyph (
590+102:10 tight name list
591+102:15 name tank
592+102:19 tight glyph )
593+102:20 tight glyph ]
594+104:1 DEDENT
606595104:1 NEWLINE
607−104:1 glyph ++
596+104:1 glyph +$
608597104:4 name like
609−104:9 glyph |=
598+104:9 glyph |$
610599104:12 glyph [
611−104:13 tight name f
612−104:14 tight glyph =
613−104:15 tight glyph $-(
614−104:18 tight tvar A
615−104:20 tvar B
616−104:21 tight glyph )
617−104:23 name result
618−104:29 tight glyph =
619−104:30 tight glyph (
620−104:31 tight name like
621−104:36 tvar A
622−104:37 tight glyph )
623−104:38 tight glyph ]
624−105:3 INDENT
625−105:3 glyph ++
626−105:6 name mapped
627−106:5 INDENT
628−106:5 glyph ^-
629−106:8 glyph (
630−106:9 tight name unit
631−106:14 glyph [
632−106:15 tight name p
633−106:16 tight glyph =
634−106:17 tight tvar B
635−106:19 name q
636−106:20 tight glyph =
637−106:21 tight name nail
638−106:25 tight glyph ]
639−106:26 tight glyph )
640−107:7 INDENT
641−107:7 glyph ?-
642−107:10 wing q.result
643−108:9 INDENT
644−108:9 lit ~
645−108:11 lit ~
646−109:9 NEWLINE
647−109:9 glyph [
648−109:10 tight lit ~
649−109:12 name value
650−109:17 tight glyph ]
651−109:19 glyph `
652−109:20 tight glyph [
653−109:21 tight name p
654−109:22 tight glyph =
655−109:23 tight glyph (
656−109:24 tight name f
657−109:26 wing p.value
658−109:33 tight glyph )
659−109:35 name q
660−109:36 tight glyph =
661−109:37 tight wing q.value
662−109:44 tight glyph ]
663−110:3 DEDENT
664−110:3 DEDENT
665−110:3 DEDENT
666−110:3 NEWLINE
667−110:3 glyph ^-
668−110:6 glyph (
669−110:7 tight name like
670−110:12 tvar B
671−110:13 tight glyph )
672−110:15 glyph [
673−110:16 tight name p
674−110:17 tight glyph =
675−110:18 tight wing p.result
676−110:27 name q
677−110:28 tight glyph =
678−110:29 tight name mapped
679−110:35 tight glyph ]
680−112:1 DEDENT
681−112:1 NEWLINE
682−112:1 glyph ++
683−112:4 name wonk
684−112:9 glyph |=
685−112:12 name veq
686−112:15 tight glyph =
687−112:16 tight glyph (
688−112:17 tight name like
689−112:22 tvar A
690−112:23 tight glyph )
691−113:3 INDENT
692−113:3 glyph ?-
693−113:6 wing q.veq
694−114:5 INDENT
695−114:5 lit ~
696−114:7 glyph !!
697−115:5 NEWLINE
698−115:5 glyph [
699−115:6 tight lit ~
700−115:8 name product
701−115:15 tight glyph ]
702−115:17 wing p.product
703−117:1 DEDENT
704−117:1 DEDENT
705−117:1 NEWLINE
706−117:1 glyph +$
707−117:4 name lone
708−117:9 glyph |$
709−117:12 glyph [
710−117:13 tight tvar A
711−117:14 tight glyph ]
712−117:16 glyph [
713−117:17 tight name p
714−117:18 tight glyph =
715−117:19 tight tvar A
716−117:20 tight glyph ]
600+104:13 tight tvar A
601+104:14 tight glyph ]
602+104:16 glyph [
603+104:17 tight name p
604+104:18 tight glyph =
605+104:19 tight name hair
606+104:24 name q
607+104:25 tight glyph =
608+104:26 tight glyph (
609+104:27 tight name unit
610+104:32 glyph [
611+104:33 tight name p
612+104:34 tight glyph =
613+104:35 tight tvar A
614+104:37 name q
615+104:38 tight glyph =
616+104:39 tight name nail
617+104:43 tight glyph ]
618+104:44 tight glyph )
619+104:45 tight glyph ]
620+106:1 NEWLINE
621+106:1 glyph ++
622+106:4 name like
623+106:9 glyph |=
624+106:12 glyph [
625+106:13 tight name f
626+106:14 tight glyph =
627+106:15 tight glyph $-(
628+106:18 tight tvar A
629+106:20 tvar B
630+106:21 tight glyph )
631+106:23 name result
632+106:29 tight glyph =
633+106:30 tight glyph (
634+106:31 tight name like
635+106:36 tvar A
636+106:37 tight glyph )
637+106:38 tight glyph ]
638+107:3 INDENT
639+107:3 glyph ++
640+107:6 name mapped
641+108:5 INDENT
642+108:5 glyph ^-
643+108:8 glyph (
644+108:9 tight name unit
645+108:14 glyph [
646+108:15 tight name p
647+108:16 tight glyph =
648+108:17 tight tvar B
649+108:19 name q
650+108:20 tight glyph =
651+108:21 tight name nail
652+108:25 tight glyph ]
653+108:26 tight glyph )
654+109:7 INDENT
655+109:7 glyph ?-
656+109:10 wing q.result
657+110:9 INDENT
658+110:9 lit ~
659+110:11 lit ~
660+111:9 NEWLINE
661+111:9 glyph [
662+111:10 tight lit ~
663+111:12 name value
664+111:17 tight glyph ]
665+111:19 glyph `
666+111:20 tight glyph [
667+111:21 tight name p
668+111:22 tight glyph =
669+111:23 tight glyph (
670+111:24 tight name f
671+111:26 wing p.value
672+111:33 tight glyph )
673+111:35 name q
674+111:36 tight glyph =
675+111:37 tight wing q.value
676+111:44 tight glyph ]
677+112:3 DEDENT
678+112:3 DEDENT
679+112:3 DEDENT
680+112:3 NEWLINE
681+112:3 glyph ^-
682+112:6 glyph (
683+112:7 tight name like
684+112:12 tvar B
685+112:13 tight glyph )
686+112:15 glyph [
687+112:16 tight name p
688+112:17 tight glyph =
689+112:18 tight wing p.result
690+112:27 name q
691+112:28 tight glyph =
692+112:29 tight name mapped
693+112:35 tight glyph ]
694+114:1 DEDENT
695+114:1 NEWLINE
696+114:1 glyph ++
697+114:4 name wonk
698+114:9 glyph |=
699+114:12 name veq
700+114:15 tight glyph =
701+114:16 tight glyph (
702+114:17 tight name like
703+114:22 tvar A
704+114:23 tight glyph )
705+115:3 INDENT
706+115:3 glyph ?-
707+115:6 wing q.veq
708+116:5 INDENT
709+116:5 lit ~
710+116:7 glyph !!
711+117:5 NEWLINE
712+117:5 glyph [
713+117:6 tight lit ~
714+117:8 name product
715+117:15 tight glyph ]
716+117:17 wing p.product
717+119:1 DEDENT
718+119:1 DEDENT
717719119:1 NEWLINE
718720119:1 glyph +$
719−119:4 name lest
721+119:4 name lone
720722119:9 glyph |$
721723119:12 glyph [
722724119:13 tight tvar A
723725119:14 tight glyph ]
724726119:16 glyph [
725−119:17 tight name i
727+119:17 tight name p
726728119:18 tight glyph =
727729119:19 tight tvar A
728−119:21 name t
729−119:22 tight glyph =
730−119:23 tight glyph (
731−119:24 tight name list
732−119:29 tvar A
733−119:30 tight glyph )
734−119:31 tight glyph ]
730+119:20 tight glyph ]
735731121:1 NEWLINE
736732121:1 glyph +$
737−121:4 name pole
733+121:4 name lest
738734121:9 glyph |$
739735121:12 glyph [
740736121:13 tight tvar A
741737121:14 tight glyph ]
742−122:3 INDENT
743−122:3 lit ~
744−123:3 NEWLINE
745−123:3 glyph [
746−123:4 tight tvar A
747−123:6 glyph (
748−123:7 tight name pole
749−123:12 tvar A
750−123:13 tight glyph )
738+121:16 glyph [
739+121:17 tight name i
740+121:18 tight glyph =
741+121:19 tight tvar A
742+121:21 name t
743+121:22 tight glyph =
744+121:23 tight glyph (
745+121:24 tight name list
746+121:29 tvar A
747+121:30 tight glyph )
748+121:31 tight glyph ]
749+123:1 NEWLINE
750+123:1 glyph +$
751+123:4 name pole
752+123:9 glyph |$
753+123:12 glyph [
754+123:13 tight tvar A
751755123:14 tight glyph ]
752−125:1 DEDENT
753−125:1 NEWLINE
754−125:1 glyph +$
755−125:4 name quip
756−125:9 glyph |$
757−125:12 glyph [
758−125:13 tight tvar A
759−125:15 tvar B
760−125:16 tight glyph ]
761−125:18 glyph [
762−125:19 tight glyph (
763−125:20 tight name list
764−125:25 tvar A
765−125:26 tight glyph )
766−125:28 tvar B
767−125:29 tight glyph ]
756+124:3 INDENT
757+124:3 lit ~
758+125:3 NEWLINE
759+125:3 glyph [
760+125:4 tight tvar A
761+125:6 glyph (
762+125:7 tight name pole
763+125:12 tvar A
764+125:13 tight glyph )
765+125:14 tight glyph ]
766+127:1 DEDENT
768767127:1 NEWLINE
769768127:1 glyph +$
770−127:4 name tree
769+127:4 name quip
771770127:9 glyph |$
772771127:12 glyph [
773772127:13 tight tvar A
774−127:14 tight glyph ]
775−128:3 INDENT
776−128:3 lit ~
777−129:3 NEWLINE
778−129:3 glyph [
779−129:4 tight name n
780−129:5 tight glyph =
781−129:6 tight tvar A
782−129:8 name l
783−129:9 tight glyph =
784−129:10 tight glyph (
785−129:11 tight name tree
786−129:16 tvar A
787−129:17 tight glyph )
788−129:19 name r
789−129:20 tight glyph =
790−129:21 tight glyph (
791−129:22 tight name tree
792−129:27 tvar A
793−129:28 tight glyph )
794−129:29 tight glyph ]
795−131:1 DEDENT
796−131:1 NEWLINE
797−131:1 glyph +$
798−131:4 name each
799−131:9 glyph |$
800−131:12 glyph [
801−131:13 tight tvar A
802−131:15 tvar B
803−131:16 tight glyph ]
804−132:3 INDENT
805−132:3 glyph [
806−132:4 tight lit %|
807−132:7 name p
808−132:8 tight glyph =
809−132:9 tight tvar B
810−132:10 tight glyph ]
811−133:3 NEWLINE
812−133:3 glyph [
813−133:4 tight lit %&
814−133:7 name p
815−133:8 tight glyph =
816−133:9 tight tvar A
817−133:10 tight glyph ]
818−135:1 DEDENT
819−135:1 NEWLINE
820−135:1 glyph +$
821−135:4 name bloq
822−135:9 aura @
773+127:15 tvar B
774+127:16 tight glyph ]
775+127:18 glyph [
776+127:19 tight glyph (
777+127:20 tight name list
778+127:25 tvar A
779+127:26 tight glyph )
780+127:28 tvar B
781+127:29 tight glyph ]
782+129:1 NEWLINE
783+129:1 glyph +$
784+129:4 name tree
785+129:9 glyph |$
786+129:12 glyph [
787+129:13 tight tvar A
788+129:14 tight glyph ]
789+130:3 INDENT
790+130:3 lit ~
791+131:3 NEWLINE
792+131:3 glyph [
793+131:4 tight name n
794+131:5 tight glyph =
795+131:6 tight tvar A
796+131:8 name l
797+131:9 tight glyph =
798+131:10 tight glyph (
799+131:11 tight name tree
800+131:16 tvar A
801+131:17 tight glyph )
802+131:19 name r
803+131:20 tight glyph =
804+131:21 tight glyph (
805+131:22 tight name tree
806+131:27 tvar A
807+131:28 tight glyph )
808+131:29 tight glyph ]
809+133:1 DEDENT
810+133:1 NEWLINE
811+133:1 glyph +$
812+133:4 name each
813+133:9 glyph |$
814+133:12 glyph [
815+133:13 tight tvar A
816+133:15 tvar B
817+133:16 tight glyph ]
818+134:3 INDENT
819+134:3 glyph [
820+134:4 tight lit %|
821+134:7 name p
822+134:8 tight glyph =
823+134:9 tight tvar B
824+134:10 tight glyph ]
825+135:3 NEWLINE
826+135:3 glyph [
827+135:4 tight lit %&
828+135:7 name p
829+135:8 tight glyph =
830+135:9 tight tvar A
831+135:10 tight glyph ]
832+137:1 DEDENT
823833137:1 NEWLINE
824−137:1 glyph ++
825−137:4 name some
826−137:9 glyph |=
827−137:12 name item
828−137:16 tight glyph =
829−137:17 tight tvar A
830−137:19 glyph `
831−137:20 tight name item
834+137:1 glyph +$
835+137:4 name bloq
836+137:9 aura @
832837139:1 NEWLINE
833838139:1 glyph ++
834−139:4 name lure
839+139:4 name some
835840139:9 glyph |=
836841139:12 name item
837842139:16 tight glyph =
838843139:17 tight tvar A
839−140:3 INDENT
840−140:3 glyph ^-
841−140:6 glyph (
842−140:7 tight name list
843−140:12 tvar A
844−140:13 tight glyph )
845−140:15 glyph [
846−140:16 tight name item
847−140:21 lit ~
848−140:22 tight glyph ]
849−142:1 DEDENT
850−142:1 NEWLINE
851−142:1 glyph ++
852−142:4 name snoc
853−142:9 glyph |=
854−142:12 name args
855−142:16 tight glyph =
856−142:17 tight glyph [
857−142:18 tight glyph (
858−142:19 tight name list
859−142:24 tvar A
860−142:25 tight glyph )
861−142:27 tvar A
862−142:28 tight glyph ]
863−143:3 INDENT
864−143:3 glyph ?-
865−143:6 name args
866−144:5 INDENT
867−144:5 glyph [
868−144:6 tight name xs
869−144:9 name item
870−144:13 tight glyph ]
871−144:15 glyph (
872−144:16 tight name weld
873−144:21 name xs
874−144:24 glyph [
875−144:25 tight name item
876−144:30 lit ~
877−144:31 tight glyph ]
878−144:32 tight glyph )
879−146:1 DEDENT
880−146:1 DEDENT
881−146:1 NEWLINE
882−146:1 glyph ++
883−146:4 name flop
884−146:9 glyph |=
885−146:12 name xs
886−146:14 tight glyph =
887−146:15 tight glyph (
888−146:16 tight name list
889−146:21 tvar A
890−146:22 tight glyph )
891−147:3 INDENT
892−147:3 glyph ++
893−147:6 name reverse-into
894−147:19 glyph |=
895−147:22 name args
896−147:26 tight glyph =
897−147:27 tight glyph [
898−147:28 tight glyph (
899−147:29 tight name list
900−147:34 tvar A
901−147:35 tight glyph )
902−147:37 glyph (
903−147:38 tight name list
904−147:43 tvar A
905−147:44 tight glyph )
906−147:45 tight glyph ]
907−148:5 INDENT
908−148:5 glyph ?-
909−148:8 name args
910−149:7 INDENT
911−149:7 glyph [
912−149:8 tight name rest
913−149:13 name acc
914−149:16 tight glyph ]
915−150:9 INDENT
916−150:9 glyph ?-
917−150:12 name rest
918−151:11 INDENT
919−151:11 lit ~
844+139:19 glyph `
845+139:20 tight name item
846+141:1 NEWLINE
847+141:1 glyph ++
848+141:4 name lure
849+141:9 glyph |=
850+141:12 name item
851+141:16 tight glyph =
852+141:17 tight tvar A
853+142:3 INDENT
854+142:3 glyph ^-
855+142:6 glyph (
856+142:7 tight name list
857+142:12 tvar A
858+142:13 tight glyph )
859+142:15 glyph [
860+142:16 tight name item
861+142:21 lit ~
862+142:22 tight glyph ]
863+144:1 DEDENT
864+144:1 NEWLINE
865+144:1 glyph ++
866+144:4 name snoc
867+144:9 glyph |=
868+144:12 name args
869+144:16 tight glyph =
870+144:17 tight glyph [
871+144:18 tight glyph (
872+144:19 tight name list
873+144:24 tvar A
874+144:25 tight glyph )
875+144:27 tvar A
876+144:28 tight glyph ]
877+145:3 INDENT
878+145:3 glyph ?-
879+145:6 name args
880+146:5 INDENT
881+146:5 glyph [
882+146:6 tight name xs
883+146:9 name item
884+146:13 tight glyph ]
885+146:15 glyph (
886+146:16 tight name weld
887+146:21 name xs
888+146:24 glyph [
889+146:25 tight name item
890+146:30 lit ~
891+146:31 tight glyph ]
892+146:32 tight glyph )
893+148:1 DEDENT
894+148:1 DEDENT
895+148:1 NEWLINE
896+148:1 glyph ++
897+148:4 name flop
898+148:9 glyph |=
899+148:12 name xs
900+148:14 tight glyph =
901+148:15 tight glyph (
902+148:16 tight name list
903+148:21 tvar A
904+148:22 tight glyph )
905+149:3 INDENT
906+149:3 glyph ++
907+149:6 name reverse-into
908+149:19 glyph |=
909+149:22 name args
910+149:26 tight glyph =
911+149:27 tight glyph [
912+149:28 tight glyph (
913+149:29 tight name list
914+149:34 tvar A
915+149:35 tight glyph )
916+149:37 glyph (
917+149:38 tight name list
918+149:43 tvar A
919+149:44 tight glyph )
920+149:45 tight glyph ]
921+150:5 INDENT
922+150:5 glyph ?-
923+150:8 name args
924+151:7 INDENT
925+151:7 glyph [
926+151:8 tight name rest
920927151:13 name acc
921−152:11 NEWLINE
922−152:11 glyph [
923−152:12 tight name item
924−152:17 name more
925−152:21 tight glyph ]
926−152:23 glyph (
927−152:24 tight name reverse-into
928−152:37 name more
929−152:42 glyph [
930−152:43 tight name item
931−152:48 name acc
932−152:51 tight glyph ]
933−152:52 tight glyph )
934−153:3 DEDENT
935−153:3 DEDENT
936−153:3 DEDENT
937−153:3 DEDENT
938−153:3 NEWLINE
939−153:3 glyph (
940−153:4 tight name reverse-into
941−153:17 name xs
942−153:20 lit ~
943−153:21 tight glyph )
944−155:1 DEDENT
945−155:1 NEWLINE
946−155:1 glyph ++
947−155:4 name drop
948−155:9 glyph |=
949−155:12 name maybe
950−155:17 tight glyph =
951−155:18 tight glyph (
952−155:19 tight name unit
953−155:24 tvar A
954−155:25 tight glyph )
955−156:3 INDENT
956−156:3 glyph ^-
957−156:6 glyph (
958−156:7 tight name list
959−156:12 tvar A
960−156:13 tight glyph )
961−157:5 INDENT
962−157:5 glyph ?-
963−157:8 name maybe
964−158:7 INDENT
965−158:7 lit ~
966−158:9 lit ~
967−159:7 NEWLINE
968−159:7 glyph [
969−159:8 tight lit ~
970−159:10 name value
971−159:15 tight glyph ]
972−159:17 glyph [
973−159:18 tight name value
974−159:24 lit ~
975−159:25 tight glyph ]
976−161:1 DEDENT
977−161:1 DEDENT
978−161:1 DEDENT
979−161:1 NEWLINE
980−161:1 glyph ++
981−161:4 name bond
982−161:9 glyph |=
983−161:12 name fallback
984−161:20 tight glyph =
985−161:21 tight glyph $-(
986−161:24 tight lit ~
987−161:26 tvar A
988−161:27 tight glyph )
989−162:3 INDENT
990−162:3 glyph |=
991−162:6 name maybe
992−162:11 tight glyph =
993−162:12 tight glyph (
994−162:13 tight name unit
995−162:18 tvar A
996−162:19 tight glyph )
997−163:5 INDENT
998−163:5 glyph ?-
999−163:8 name maybe
1000−164:7 INDENT
1001−164:7 lit ~
1002−164:9 glyph (
1003−164:10 tight name fallback
1004−164:19 lit ~
1005−164:20 tight glyph )
1006−165:7 NEWLINE
1007−165:7 glyph [
1008−165:8 tight lit ~
1009−165:10 name value
1010−165:15 tight glyph ]
1011−165:17 name value
1012−167:1 DEDENT
1013−167:1 DEDENT
1014−167:1 DEDENT
1015−167:1 NEWLINE
1016−167:1 glyph ++
1017−167:4 name bind
1018−167:9 glyph |=
1019−167:12 name args
1020−167:16 tight glyph =
1021−167:17 tight glyph [
1022−167:18 tight glyph (
1023−167:19 tight name unit
1024−167:24 tvar A
1025−167:25 tight glyph )
1026−167:27 glyph $-(
1027−167:30 tight tvar A
1028−167:32 tvar B
1029−167:33 tight glyph )
1030−167:34 tight glyph ]
1031−168:3 INDENT
1032−168:3 glyph ?-
1033−168:6 name args
1034−169:5 INDENT
1035−169:5 glyph [
1036−169:6 tight name maybe
1037−169:12 name f
1038−169:13 tight glyph ]
1039−169:15 glyph ^-
1040−169:18 glyph (
928+151:16 tight glyph ]
929+152:9 INDENT
930+152:9 glyph ?-
931+152:12 name rest
932+153:11 INDENT
933+153:11 lit ~
934+153:13 name acc
935+154:11 NEWLINE
936+154:11 glyph [
937+154:12 tight name item
938+154:17 name more
939+154:21 tight glyph ]
940+154:23 glyph (
941+154:24 tight name reverse-into
942+154:37 name more
943+154:42 glyph [
944+154:43 tight name item
945+154:48 name acc
946+154:51 tight glyph ]
947+154:52 tight glyph )
948+155:3 DEDENT
949+155:3 DEDENT
950+155:3 DEDENT
951+155:3 DEDENT
952+155:3 NEWLINE
953+155:3 glyph (
954+155:4 tight name reverse-into
955+155:17 name xs
956+155:20 lit ~
957+155:21 tight glyph )
958+157:1 DEDENT
959+157:1 NEWLINE
960+157:1 glyph ++
961+157:4 name drop
962+157:9 glyph |=
963+157:12 name maybe
964+157:17 tight glyph =
965+157:18 tight glyph (
966+157:19 tight name unit
967+157:24 tvar A
968+157:25 tight glyph )
969+158:3 INDENT
970+158:3 glyph ^-
971+158:6 glyph (
972+158:7 tight name list
973+158:12 tvar A
974+158:13 tight glyph )
975+159:5 INDENT
976+159:5 glyph ?-
977+159:8 name maybe
978+160:7 INDENT
979+160:7 lit ~
980+160:9 lit ~
981+161:7 NEWLINE
982+161:7 glyph [
983+161:8 tight lit ~
984+161:10 name value
985+161:15 tight glyph ]
986+161:17 glyph [
987+161:18 tight name value
988+161:24 lit ~
989+161:25 tight glyph ]
990+163:1 DEDENT
991+163:1 DEDENT
992+163:1 DEDENT
993+163:1 NEWLINE
994+163:1 glyph ++
995+163:4 name bond
996+163:9 glyph |=
997+163:12 name fallback
998+163:20 tight glyph =
999+163:21 tight glyph $-(
1000+163:24 tight lit ~
1001+163:26 tvar A
1002+163:27 tight glyph )
1003+164:3 INDENT
1004+164:3 glyph |=
1005+164:6 name maybe
1006+164:11 tight glyph =
1007+164:12 tight glyph (
1008+164:13 tight name unit
1009+164:18 tvar A
1010+164:19 tight glyph )
1011+165:5 INDENT
1012+165:5 glyph ?-
1013+165:8 name maybe
1014+166:7 INDENT
1015+166:7 lit ~
1016+166:9 glyph (
1017+166:10 tight name fallback
1018+166:19 lit ~
1019+166:20 tight glyph )
1020+167:7 NEWLINE
1021+167:7 glyph [
1022+167:8 tight lit ~
1023+167:10 name value
1024+167:15 tight glyph ]
1025+167:17 name value
1026+169:1 DEDENT
1027+169:1 DEDENT
1028+169:1 DEDENT
1029+169:1 NEWLINE
1030+169:1 glyph ++
1031+169:4 name bind
1032+169:9 glyph |=
1033+169:12 name args
1034+169:16 tight glyph =
1035+169:17 tight glyph [
1036+169:18 tight glyph (
10411037169:19 tight name unit
1042−169:24 tvar B
1038+169:24 tvar A
10431039169:25 tight glyph )
1044−170:7 INDENT
1045−170:7 glyph ?-
1046−170:10 name maybe
1047−171:9 INDENT
1048−171:9 lit ~
1049−171:11 lit ~
1050−172:9 NEWLINE
1051−172:9 glyph [
1052−172:10 tight lit ~
1053−172:12 name value
1054−172:17 tight glyph ]
1055−172:19 glyph `
1056−172:20 tight glyph (
1057−172:21 tight name f
1058−172:23 name value
1059−172:28 tight glyph )
1060−174:1 DEDENT
1061−174:1 DEDENT
1062−174:1 DEDENT
1063−174:1 DEDENT
1064−174:1 NEWLINE
1065−174:1 glyph ++
1066−174:4 name biff
1067−174:9 glyph |=
1068−174:12 name args
1069−174:16 tight glyph =
1070−174:17 tight glyph [
1071−174:18 tight glyph (
1072−174:19 tight name unit
1073−174:24 tvar A
1074−174:25 tight glyph )
1075−174:27 glyph $-(
1076−174:30 tight tvar A
1077−174:32 glyph (
1078−174:33 tight name unit
1079−174:38 tvar B
1080−174:39 tight glyph )
1081−174:40 tight glyph )
1082−174:41 tight glyph ]
1083−175:3 INDENT
1084−175:3 glyph ?-
1085−175:6 name args
1086−176:5 INDENT
1087−176:5 glyph [
1088−176:6 tight name maybe
1089−176:12 name f
1090−176:13 tight glyph ]
1091−176:15 glyph ^-
1092−176:18 glyph (
1040+169:27 glyph $-(
1041+169:30 tight tvar A
1042+169:32 tvar B
1043+169:33 tight glyph )
1044+169:34 tight glyph ]
1045+170:3 INDENT
1046+170:3 glyph ?-
1047+170:6 name args
1048+171:5 INDENT
1049+171:5 glyph [
1050+171:6 tight name maybe
1051+171:12 name f
1052+171:13 tight glyph ]
1053+171:15 glyph ^-
1054+171:18 glyph (
1055+171:19 tight name unit
1056+171:24 tvar B
1057+171:25 tight glyph )
1058+172:7 INDENT
1059+172:7 glyph ?-
1060+172:10 name maybe
1061+173:9 INDENT
1062+173:9 lit ~
1063+173:11 lit ~
1064+174:9 NEWLINE
1065+174:9 glyph [
1066+174:10 tight lit ~
1067+174:12 name value
1068+174:17 tight glyph ]
1069+174:19 glyph `
1070+174:20 tight glyph (
1071+174:21 tight name f
1072+174:23 name value
1073+174:28 tight glyph )
1074+176:1 DEDENT
1075+176:1 DEDENT
1076+176:1 DEDENT
1077+176:1 DEDENT
1078+176:1 NEWLINE
1079+176:1 glyph ++
1080+176:4 name biff
1081+176:9 glyph |=
1082+176:12 name args
1083+176:16 tight glyph =
1084+176:17 tight glyph [
1085+176:18 tight glyph (
10931086176:19 tight name unit
1094−176:24 tvar B
1087+176:24 tvar A
10951088176:25 tight glyph )
1096−177:7 INDENT
1097−177:7 glyph ?-
1098−177:10 name maybe
1099−178:9 INDENT
1100−178:9 lit ~
1101−178:11 lit ~
1102−179:9 NEWLINE
1103−179:9 glyph [
1104−179:10 tight lit ~
1105−179:12 name value
1106−179:17 tight glyph ]
1107−179:19 glyph (
1108−179:20 tight name f
1109−179:22 name value
1110−179:27 tight glyph )
1111−181:1 DEDENT
1112−181:1 DEDENT
1113−181:1 DEDENT
1114−181:1 DEDENT
1115−181:1 NEWLINE
1116−181:1 glyph ++
1117−181:4 name both
1118−181:9 glyph |=
1119−181:12 name args
1120−181:16 tight glyph =
1121−181:17 tight glyph [
1122−181:18 tight glyph (
1123−181:19 tight name unit
1124−181:24 tvar A
1125−181:25 tight glyph )
1126−181:27 glyph (
1127−181:28 tight name unit
1128−181:33 tvar B
1129−181:34 tight glyph )
1130−181:35 tight glyph ]
1131−182:3 INDENT
1132−182:3 glyph ?-
1133−182:6 name args
1134−183:5 INDENT
1135−183:5 glyph [
1136−183:6 tight name first
1137−183:12 name second
1138−183:18 tight glyph ]
1139−183:20 glyph ^-
1140−183:23 glyph (
1141−183:24 tight name unit
1142−183:29 glyph [
1143−183:30 tight tvar A
1144−183:32 tvar B
1145−183:33 tight glyph ]
1089+176:27 glyph $-(
1090+176:30 tight tvar A
1091+176:32 glyph (
1092+176:33 tight name unit
1093+176:38 tvar B
1094+176:39 tight glyph )
1095+176:40 tight glyph )
1096+176:41 tight glyph ]
1097+177:3 INDENT
1098+177:3 glyph ?-
1099+177:6 name args
1100+178:5 INDENT
1101+178:5 glyph [
1102+178:6 tight name maybe
1103+178:12 name f
1104+178:13 tight glyph ]
1105+178:15 glyph ^-
1106+178:18 glyph (
1107+178:19 tight name unit
1108+178:24 tvar B
1109+178:25 tight glyph )
1110+179:7 INDENT
1111+179:7 glyph ?-
1112+179:10 name maybe
1113+180:9 INDENT
1114+180:9 lit ~
1115+180:11 lit ~
1116+181:9 NEWLINE
1117+181:9 glyph [
1118+181:10 tight lit ~
1119+181:12 name value
1120+181:17 tight glyph ]
1121+181:19 glyph (
1122+181:20 tight name f
1123+181:22 name value
1124+181:27 tight glyph )
1125+183:1 DEDENT
1126+183:1 DEDENT
1127+183:1 DEDENT
1128+183:1 DEDENT
1129+183:1 NEWLINE
1130+183:1 glyph ++
1131+183:4 name both
1132+183:9 glyph |=
1133+183:12 name args
1134+183:16 tight glyph =
1135+183:17 tight glyph [
1136+183:18 tight glyph (
1137+183:19 tight name unit
1138+183:24 tvar A
1139+183:25 tight glyph )
1140+183:27 glyph (
1141+183:28 tight name unit
1142+183:33 tvar B
11461143183:34 tight glyph )
1147−184:7 INDENT
1148−184:7 glyph ?-
1149−184:10 name first
1150−185:9 INDENT
1151−185:9 lit ~
1152−185:11 lit ~
1153−186:9 NEWLINE
1154−186:9 glyph [
1155−186:10 tight lit ~
1156−186:12 name a
1157−186:13 tight glyph ]
1158−187:11 INDENT
1159−187:11 glyph ?-
1160−187:14 name second
1161−188:13 INDENT
1162−188:13 lit ~
1163−188:15 lit ~
1164−189:13 NEWLINE
1165−189:13 glyph [
1166−189:14 tight lit ~
1167−189:16 name b
1168−189:17 tight glyph ]
1169−189:19 glyph `
1170−189:20 tight glyph [
1171−189:21 tight name a
1172−189:23 name b
1173−189:24 tight glyph ]
1174−191:1 DEDENT
1175−191:1 DEDENT
1176−191:1 DEDENT
1177−191:1 DEDENT
1178−191:1 DEDENT
1179−191:1 DEDENT
1180−191:1 NEWLINE
1181−191:1 glyph ++
1182−191:4 name clap
1183−191:9 glyph |=
1184−191:12 name args
1185−191:16 tight glyph =
1186−191:17 tight glyph [
1187−191:18 tight glyph (
1188−191:19 tight name unit
1189−191:24 tvar A
1190−191:25 tight glyph )
1191−191:27 glyph (
1192−191:28 tight name unit
1193−191:33 tvar A
1194−191:34 tight glyph )
1195−191:36 glyph $-(
1196−191:39 tight glyph [
1197−191:40 tight tvar A
1198−191:42 tvar A
1199−191:43 tight glyph ]
1200−191:45 tvar A
1201−191:46 tight glyph )
1202−191:47 tight glyph ]
1203−192:3 INDENT
1204−192:3 glyph ?-
1205−192:6 name args
1206−193:5 INDENT
1207−193:5 glyph [
1208−193:6 tight name first
1209−193:12 name second
1210−193:19 name combine
1211−193:26 tight glyph ]
1212−193:28 glyph ^-
1213−193:31 glyph (
1214−193:32 tight name unit
1215−193:37 tvar A
1216−193:38 tight glyph )
1217−194:7 INDENT
1218−194:7 glyph ?-
1219−194:10 name first
1220−195:9 INDENT
1221−195:9 lit ~
1222−195:11 name second
1223−196:9 NEWLINE
1224−196:9 glyph [
1225−196:10 tight lit ~
1226−196:12 name a
1227−196:13 tight glyph ]
1228−197:11 INDENT
1229−197:11 glyph ?-
1230−197:14 name second
1231−198:13 INDENT
1232−198:13 lit ~
1233−198:15 name first
1234−199:13 NEWLINE
1235−199:13 glyph [
1236−199:14 tight lit ~
1237−199:16 name b
1238−199:17 tight glyph ]
1239−199:19 glyph `
1240−199:20 tight glyph (
1241−199:21 tight name combine
1242−199:29 name a
1243−199:31 name b
1244−199:32 tight glyph )
1245−201:1 DEDENT
1246−201:1 DEDENT
1247−201:1 DEDENT
1248−201:1 DEDENT
1249−201:1 DEDENT
1250−201:1 DEDENT
1251−201:1 NEWLINE
1252−201:1 glyph ++
1253−201:4 name clef
1254−201:9 glyph |=
1255−201:12 name args
1256−201:16 tight glyph =
1257−201:17 tight glyph [
1258−201:18 tight glyph (
1259−201:19 tight name unit
1260−201:24 tvar A
1261−201:25 tight glyph )
1262−201:27 glyph (
1263−201:28 tight name unit
1264−201:33 tvar B
1265−201:34 tight glyph )
1266−201:36 glyph $-(
1267−201:39 tight glyph [
1268−201:40 tight tvar A
1269−201:42 tvar B
1270−201:43 tight glyph ]
1271−201:45 glyph (
1272−201:46 tight name unit
1273−201:51 tvar C
1274−201:52 tight glyph )
1275−201:53 tight glyph )
1276−201:54 tight glyph ]
1277−202:3 INDENT
1278−202:3 glyph ?-
1279−202:6 name args
1280−203:5 INDENT
1281−203:5 glyph [
1282−203:6 tight name first
1283−203:12 name second
1284−203:19 name combine
1285−203:26 tight glyph ]
1286−203:28 glyph ^-
1287−203:31 glyph (
1288−203:32 tight name unit
1289−203:37 tvar C
1290−203:38 tight glyph )
1291−204:7 INDENT
1292−204:7 glyph ?-
1293−204:10 name first
1294−205:9 INDENT
1295−205:9 lit ~
1296−205:11 lit ~
1297−206:9 NEWLINE
1298−206:9 glyph [
1299−206:10 tight lit ~
1300−206:12 name a
1301−206:13 tight glyph ]
1302−207:11 INDENT
1303−207:11 glyph ?-
1304−207:14 name second
1305−208:13 INDENT
1306−208:13 lit ~
1307−208:15 lit ~
1308−209:13 NEWLINE
1309−209:13 glyph [
1310−209:14 tight lit ~
1311−209:16 name b
1312−209:17 tight glyph ]
1313−209:19 glyph (
1314−209:20 tight name combine
1315−209:28 name a
1316−209:30 name b
1317−209:31 tight glyph )
1318−211:1 DEDENT
1319−211:1 DEDENT
1320−211:1 DEDENT
1321−211:1 DEDENT
1322−211:1 DEDENT
1323−211:1 DEDENT
1324−211:1 NEWLINE
1325−211:1 glyph ++
1326−211:4 name skim
1327−211:9 glyph |=
1328−211:12 name args
1329−211:16 tight glyph =
1330−211:17 tight glyph [
1331−211:18 tight glyph (
1332−211:19 tight name list
1333−211:24 tvar A
1334−211:25 tight glyph )
1335−211:27 glyph $-(
1336−211:30 tight tvar A
1337−211:32 glyph ?
1338−211:33 tight glyph )
1339−211:34 tight glyph ]
1340−212:3 INDENT
1341−212:3 glyph ?-
1342−212:6 name args
1343−213:5 INDENT
1344−213:5 glyph [
1345−213:6 tight name xs
1346−213:9 name predicate
1347−213:18 tight glyph ]
1348−213:20 glyph ^-
1349−213:23 glyph (
1350−213:24 tight name list
1351−213:29 tvar A
1352−213:30 tight glyph )
1353−214:9 INDENT
1354−214:9 glyph ?-
1355−214:12 name xs
1356−215:11 INDENT
1357−215:11 lit ~
1358−215:13 lit ~
1359−216:11 NEWLINE
1360−216:11 glyph [
1361−216:12 tight name item
1362−216:17 name rest
1363−216:21 tight glyph ]
1364−217:13 INDENT
1365−217:13 glyph ?-
1366−217:16 glyph (
1367−217:17 tight name predicate
1368−217:27 name item
1369−217:31 tight glyph )
1370−218:15 INDENT
1371−218:15 lit %.y
1372−218:19 glyph [
1373−218:20 tight name item
1374−218:25 glyph (
1375−218:26 tight name skim
1376−218:31 name rest
1377−218:36 name predicate
1378−218:45 tight glyph )
1379−218:46 tight glyph ]
1380−219:15 NEWLINE
1381−219:15 lit %.n
1382−219:19 glyph (
1383−219:20 tight name skim
1384−219:25 name rest
1385−219:30 name predicate
1386−219:39 tight glyph )
1387−221:1 DEDENT
1388−221:1 DEDENT
1389−221:1 DEDENT
1390−221:1 DEDENT
1391−221:1 DEDENT
1392−221:1 DEDENT
1393−221:1 NEWLINE
1394−221:1 glyph ++
1395−221:4 name skip
1396−221:9 glyph |=
1397−221:12 name args
1398−221:16 tight glyph =
1399−221:17 tight glyph [
1400−221:18 tight glyph (
1401−221:19 tight name list
1402−221:24 tvar A
1403−221:25 tight glyph )
1404−221:27 glyph $-(
1405−221:30 tight tvar A
1406−221:32 glyph ?
1407−221:33 tight glyph )
1408−221:34 tight glyph ]
1409−222:3 INDENT
1410−222:3 glyph ?-
1411−222:6 name args
1412−223:5 INDENT
1413−223:5 glyph [
1414−223:6 tight name xs
1415−223:9 name predicate
1416−223:18 tight glyph ]
1417−223:20 glyph ^-
1418−223:23 glyph (
1419−223:24 tight name list
1420−223:29 tvar A
1421−223:30 tight glyph )
1422−224:9 INDENT
1423−224:9 glyph ?-
1424−224:12 name xs
1425−225:11 INDENT
1426−225:11 lit ~
1427−225:13 lit ~
1428−226:11 NEWLINE
1429−226:11 glyph [
1430−226:12 tight name item
1431−226:17 name rest
1432−226:21 tight glyph ]
1433−227:13 INDENT
1434−227:13 glyph ?-
1435−227:16 glyph (
1436−227:17 tight name predicate
1437−227:27 name item
1438−227:31 tight glyph )
1439−228:15 INDENT
1440−228:15 lit %.y
1441−228:19 glyph (
1442−228:20 tight name skip
1443−228:25 name rest
1444−228:30 name predicate
1445−228:39 tight glyph )
1446−229:15 NEWLINE
1447−229:15 lit %.n
1448−229:19 glyph [
1449−229:20 tight name item
1450−229:25 glyph (
1451−229:26 tight name skip
1452−229:31 name rest
1453−229:36 name predicate
1454−229:45 tight glyph )
1455−229:46 tight glyph ]
1456−231:1 DEDENT
1457−231:1 DEDENT
1458−231:1 DEDENT
1459−231:1 DEDENT
1460−231:1 DEDENT
1461−231:1 DEDENT
1462−231:1 NEWLINE
1463−231:1 glyph ++
1464−231:4 name levy
1465−231:9 glyph |=
1466−231:12 name args
1467−231:16 tight glyph =
1468−231:17 tight glyph [
1469−231:18 tight glyph (
1470−231:19 tight name list
1471−231:24 tvar A
1472−231:25 tight glyph )
1473−231:27 glyph $-(
1474−231:30 tight tvar A
1475−231:32 glyph ?
1476−231:33 tight glyph )
1477−231:34 tight glyph ]
1478−232:3 INDENT
1479−232:3 glyph ^-
1480−232:6 glyph ?
1481−233:5 INDENT
1482−233:5 glyph ?-
1483−233:8 name args
1484−234:7 INDENT
1485−234:7 glyph [
1486−234:8 tight name xs
1487−234:11 name predicate
1488−234:20 tight glyph ]
1489−235:9 INDENT
1490−235:9 glyph ?-
1491−235:12 name xs
1492−236:11 INDENT
1493−236:11 lit ~
1494−236:13 lit %.y
1495−237:11 NEWLINE
1496−237:11 glyph [
1497−237:12 tight name item
1498−237:17 name rest
1499−237:21 tight glyph ]
1500−238:13 INDENT
1501−238:13 glyph ?-
1502−238:16 glyph (
1503−238:17 tight name predicate
1504−238:27 name item
1505−238:31 tight glyph )
1506−239:15 INDENT
1507−239:15 lit %.y
1508−239:19 glyph (
1509−239:20 tight name levy
1510−239:25 name rest
1511−239:30 name predicate
1512−239:39 tight glyph )
1513−240:15 NEWLINE
1514−240:15 lit %.n
1515−240:19 lit %.n
1516−242:1 DEDENT
1517−242:1 DEDENT
1518−242:1 DEDENT
1519−242:1 DEDENT
1520−242:1 DEDENT
1521−242:1 DEDENT
1522−242:1 DEDENT
1523−242:1 NEWLINE
1524−242:1 glyph ++
1525−242:4 name lien
1526−242:9 glyph |=
1527−242:12 name args
1528−242:16 tight glyph =
1529−242:17 tight glyph [
1530−242:18 tight glyph (
1531−242:19 tight name list
1532−242:24 tvar A
1533−242:25 tight glyph )
1534−242:27 glyph $-(
1535−242:30 tight tvar A
1536−242:32 glyph ?
1537−242:33 tight glyph )
1538−242:34 tight glyph ]
1539−243:3 INDENT
1540−243:3 glyph ^-
1541−243:6 glyph ?
1542−244:5 INDENT
1543−244:5 glyph ?-
1544−244:8 name args
1545−245:7 INDENT
1546−245:7 glyph [
1547−245:8 tight name xs
1548−245:11 name predicate
1549−245:20 tight glyph ]
1550−246:9 INDENT
1551−246:9 glyph ?-
1552−246:12 name xs
1553−247:11 INDENT
1554−247:11 lit ~
1555−247:13 lit %.n
1556−248:11 NEWLINE
1557−248:11 glyph [
1558−248:12 tight name item
1559−248:17 name rest
1560−248:21 tight glyph ]
1561−249:13 INDENT
1562−249:13 glyph ?-
1563−249:16 glyph (
1564−249:17 tight name predicate
1565−249:27 name item
1566−249:31 tight glyph )
1567−250:15 INDENT
1568−250:15 lit %.y
1569−250:19 lit %.y
1570−251:15 NEWLINE
1571−251:15 lit %.n
1572−251:19 glyph (
1573−251:20 tight name lien
1574−251:25 name rest
1575−251:30 name predicate
1576−251:39 tight glyph )
1577−253:1 DEDENT
1578−253:1 DEDENT
1579−253:1 DEDENT
1580−253:1 DEDENT
1581−253:1 DEDENT
1582−253:1 DEDENT
1583−253:1 DEDENT
1584−253:1 NEWLINE
1585−253:1 glyph ++
1586−253:4 name roll
1587−253:9 glyph |=
1588−253:12 name args
1589−253:16 tight glyph =
1590−253:17 tight glyph [
1591−253:18 tight glyph (
1592−253:19 tight name list
1593−253:24 tvar A
1594−253:25 tight glyph )
1595−253:27 tvar B
1596−253:29 glyph $-(
1597−253:32 tight glyph [
1598−253:33 tight tvar A
1599−253:35 tvar B
1600−253:36 tight glyph ]
1601−253:38 tvar B
1602−253:39 tight glyph )
1603−253:40 tight glyph ]
1604−254:3 INDENT
1605−254:3 glyph ?-
1606−254:6 name args
1607−255:5 INDENT
1608−255:5 glyph [
1609−255:6 tight name xs
1610−255:9 name start
1611−255:15 name combine
1612−255:22 tight glyph ]
1613−256:7 INDENT
1614−256:7 glyph ?-
1615−256:10 name xs
1616−257:9 INDENT
1617−257:9 lit ~
1618−257:11 name start
1619−258:9 NEWLINE
1620−258:9 glyph [
1621−258:10 tight name item
1622−258:15 name rest
1623−258:19 tight glyph ]
1624−258:21 glyph (
1625−258:22 tight name roll
1626−258:27 name rest
1627−258:32 glyph (
1628−258:33 tight name combine
1629−258:41 name item
1630−258:46 name start
1631−258:51 tight glyph )
1632−258:53 name combine
1633−258:60 tight glyph )
1634−260:1 DEDENT
1635−260:1 DEDENT
1636−260:1 DEDENT
1637−260:1 DEDENT
1638−260:1 NEWLINE
1639−260:1 glyph ++
1640−260:4 name reel
1641−260:9 glyph |=
1642−260:12 name args
1643−260:16 tight glyph =
1644−260:17 tight glyph [
1645−260:18 tight glyph (
1646−260:19 tight name list
1647−260:24 tvar A
1648−260:25 tight glyph )
1649−260:27 tvar B
1650−260:29 glyph $-(
1651−260:32 tight glyph [
1652−260:33 tight tvar A
1653−260:35 tvar B
1654−260:36 tight glyph ]
1655−260:38 tvar B
1656−260:39 tight glyph )
1657−260:40 tight glyph ]
1658−261:3 INDENT
1659−261:3 glyph ?-
1660−261:6 name args
1661−262:5 INDENT
1662−262:5 glyph [
1663−262:6 tight name xs
1664−262:9 name start
1665−262:15 name combine
1666−262:22 tight glyph ]
1667−263:7 INDENT
1668−263:7 glyph ?-
1669−263:10 name xs
1670−264:9 INDENT
1671−264:9 lit ~
1672−264:11 name start
1673−265:9 NEWLINE
1674−265:9 glyph [
1675−265:10 tight name item
1676−265:15 name rest
1677−265:19 tight glyph ]
1678−265:21 glyph (
1679−265:22 tight name combine
1680−265:30 name item
1681−265:35 glyph (
1682−265:36 tight name reel
1683−265:41 name rest
1684−265:46 name start
1685−265:52 name combine
1686−265:59 tight glyph )
1687−265:60 tight glyph )
1688−267:1 DEDENT
1689−267:1 DEDENT
1690−267:1 DEDENT
1691−267:1 DEDENT
1692−267:1 NEWLINE
1693−267:1 glyph ++
1694−267:4 name flit
1695−267:9 glyph |=
1696−267:12 name predicate
1697−267:21 tight glyph =
1698−267:22 tight glyph $-(
1699−267:25 tight tvar A
1700−267:27 glyph ?
1701−267:28 tight glyph )
1702−268:3 INDENT
1703−268:3 glyph |=
1704−268:6 name value
1705−268:11 tight glyph =
1706−268:12 tight tvar A
1707−269:5 INDENT
1708−269:5 glyph ^-
1709−269:8 glyph (
1710−269:9 tight name unit
1711−269:14 tvar A
1712−269:15 tight glyph )
1713−270:7 INDENT
1714−270:7 glyph ?-
1715−270:10 glyph (
1716−270:11 tight name predicate
1717−270:21 name value
1718−270:26 tight glyph )
1719−271:9 INDENT
1720−271:9 lit %.y
1721−271:13 glyph `
1722−271:14 tight name value
1723−272:9 NEWLINE
1724−272:9 lit %.n
1725−272:13 lit ~
1726−274:1 DEDENT
1727−274:1 DEDENT
1728−274:1 DEDENT
1729−274:1 DEDENT
1730−274:1 NEWLINE
1731−274:1 glyph ++
1732−274:4 name murn
1733−274:9 glyph |=
1734−274:12 name args
1735−274:16 tight glyph =
1736−274:17 tight glyph [
1737−274:18 tight glyph (
1738−274:19 tight name list
1739−274:24 tvar A
1740−274:25 tight glyph )
1741−274:27 glyph $-(
1742−274:30 tight tvar A
1743−274:32 glyph (
1744−274:33 tight name unit
1745−274:38 tvar B
1746−274:39 tight glyph )
1747−274:40 tight glyph )
1748−274:41 tight glyph ]
1749−275:3 INDENT
1750−275:3 glyph ?-
1751−275:6 name args
1752−276:5 INDENT
1753−276:5 glyph [
1754−276:6 tight name xs
1755−276:9 name f
1756−276:10 tight glyph ]
1757−276:12 glyph ^-
1758−276:15 glyph (
1759−276:16 tight name list
1760−276:21 tvar B
1761−276:22 tight glyph )
1762−277:9 INDENT
1763−277:9 glyph ?-
1764−277:12 name xs
1765−278:11 INDENT
1766−278:11 lit ~
1767−278:13 lit ~
1768−279:11 NEWLINE
1769−279:11 glyph [
1770−279:12 tight name item
1771−279:17 name rest
1772−279:21 tight glyph ]
1773−280:13 INDENT
1774−280:13 glyph ?-
1775−280:16 glyph (
1776−280:17 tight name f
1777−280:19 name item
1778−280:23 tight glyph )
1779−281:15 INDENT
1780−281:15 lit ~
1781−281:17 glyph (
1782−281:18 tight name murn
1783−281:23 name rest
1784−281:28 name f
1785−281:29 tight glyph )
1786−282:15 NEWLINE
1787−282:15 glyph [
1788−282:16 tight lit ~
1789−282:18 name value
1790−282:23 tight glyph ]
1791−282:25 glyph [
1792−282:26 tight name value
1793−282:32 glyph (
1794−282:33 tight name murn
1795−282:38 name rest
1796−282:43 name f
1797−282:44 tight glyph )
1798−282:45 tight glyph ]
1799−284:1 DEDENT
1800−284:1 DEDENT
1801−284:1 DEDENT
1802−284:1 DEDENT
1803−284:1 DEDENT
1804−284:1 DEDENT
1805−284:1 NEWLINE
1806−284:1 glyph ++
1807−284:4 name join
1808−284:9 glyph |=
1809−284:12 name args
1810−284:16 tight glyph =
1811−284:17 tight glyph [
1812−284:18 tight tvar A
1813−284:20 glyph (
1814−284:21 tight name list
1815−284:26 tvar A
1816−284:27 tight glyph )
1817−284:28 tight glyph ]
1818−285:3 INDENT
1819−285:3 glyph ?-
1820−285:6 name args
1821−286:5 INDENT
1822−286:5 glyph [
1823−286:6 tight name separator
1824−286:16 name xs
1825−286:18 tight glyph ]
1826−286:20 glyph ^-
1827−286:23 glyph (
1828−286:24 tight name list
1829−286:29 tvar A
1830−286:30 tight glyph )
1831−287:9 INDENT
1832−287:9 glyph ?-
1833−287:12 name xs
1834−288:11 INDENT
1835−288:11 lit ~
1836−288:13 lit ~
1837−289:11 NEWLINE
1838−289:11 glyph [
1839−289:12 tight name item
1840−289:17 name rest
1841−289:21 tight glyph ]
1842−290:13 INDENT
1843−290:13 glyph ?-
1844−290:16 name rest
1845−291:15 INDENT
1846−291:15 lit ~
1847−291:17 glyph [
1848−291:18 tight name item
1849−291:23 lit ~
1850−291:24 tight glyph ]
1851−292:15 NEWLINE
1852−292:15 glyph [
1853−292:16 tight name next
1854−292:21 name more
1855−292:25 tight glyph ]
1856−292:27 glyph [
1857−292:28 tight name item
1858−292:33 glyph [
1859−292:34 tight name separator
1860−292:44 glyph (
1861−292:45 tight name join
1862−292:50 name separator
1863−292:60 name rest
1864−292:64 tight glyph )
1865−292:65 tight glyph ]
1866−292:66 tight glyph ]
1867−294:1 DEDENT
1868−294:1 DEDENT
1869−294:1 DEDENT
1870−294:1 DEDENT
1871−294:1 DEDENT
1872−294:1 DEDENT
1873−294:1 NEWLINE
1874−294:1 glyph ++
1875−294:4 name snip
1876−294:9 glyph |=
1877−294:12 name xs
1878−294:14 tight glyph =
1879−294:15 tight glyph (
1880−294:16 tight name list
1881−294:21 tvar A
1882−294:22 tight glyph )
1883−295:3 INDENT
1884−295:3 glyph ^-
1885−295:6 glyph (
1886−295:7 tight name list
1887−295:12 tvar A
1888−295:13 tight glyph )
1889−296:5 INDENT
1890−296:5 glyph ?-
1891−296:8 name xs
1892−297:7 INDENT
1893−297:7 lit ~
1894−297:9 lit ~
1895−298:7 NEWLINE
1896−298:7 glyph [
1897−298:8 tight name item
1898−298:13 name rest
1899−298:17 tight glyph ]
1144+183:35 tight glyph ]
1145+184:3 INDENT
1146+184:3 glyph ?-
1147+184:6 name args
1148+185:5 INDENT
1149+185:5 glyph [
1150+185:6 tight name first
1151+185:12 name second
1152+185:18 tight glyph ]
1153+185:20 glyph ^-
1154+185:23 glyph (
1155+185:24 tight name unit
1156+185:29 glyph [
1157+185:30 tight tvar A
1158+185:32 tvar B
1159+185:33 tight glyph ]
1160+185:34 tight glyph )
1161+186:7 INDENT
1162+186:7 glyph ?-
1163+186:10 name first
1164+187:9 INDENT
1165+187:9 lit ~
1166+187:11 lit ~
1167+188:9 NEWLINE
1168+188:9 glyph [
1169+188:10 tight lit ~
1170+188:12 name a
1171+188:13 tight glyph ]
1172+189:11 INDENT
1173+189:11 glyph ?-
1174+189:14 name second
1175+190:13 INDENT
1176+190:13 lit ~
1177+190:15 lit ~
1178+191:13 NEWLINE
1179+191:13 glyph [
1180+191:14 tight lit ~
1181+191:16 name b
1182+191:17 tight glyph ]
1183+191:19 glyph `
1184+191:20 tight glyph [
1185+191:21 tight name a
1186+191:23 name b
1187+191:24 tight glyph ]
1188+193:1 DEDENT
1189+193:1 DEDENT
1190+193:1 DEDENT
1191+193:1 DEDENT
1192+193:1 DEDENT
1193+193:1 DEDENT
1194+193:1 NEWLINE
1195+193:1 glyph ++
1196+193:4 name clap
1197+193:9 glyph |=
1198+193:12 name args
1199+193:16 tight glyph =
1200+193:17 tight glyph [
1201+193:18 tight glyph (
1202+193:19 tight name unit
1203+193:24 tvar A
1204+193:25 tight glyph )
1205+193:27 glyph (
1206+193:28 tight name unit
1207+193:33 tvar A
1208+193:34 tight glyph )
1209+193:36 glyph $-(
1210+193:39 tight glyph [
1211+193:40 tight tvar A
1212+193:42 tvar A
1213+193:43 tight glyph ]
1214+193:45 tvar A
1215+193:46 tight glyph )
1216+193:47 tight glyph ]
1217+194:3 INDENT
1218+194:3 glyph ?-
1219+194:6 name args
1220+195:5 INDENT
1221+195:5 glyph [
1222+195:6 tight name first
1223+195:12 name second
1224+195:19 name combine
1225+195:26 tight glyph ]
1226+195:28 glyph ^-
1227+195:31 glyph (
1228+195:32 tight name unit
1229+195:37 tvar A
1230+195:38 tight glyph )
1231+196:7 INDENT
1232+196:7 glyph ?-
1233+196:10 name first
1234+197:9 INDENT
1235+197:9 lit ~
1236+197:11 name second
1237+198:9 NEWLINE
1238+198:9 glyph [
1239+198:10 tight lit ~
1240+198:12 name a
1241+198:13 tight glyph ]
1242+199:11 INDENT
1243+199:11 glyph ?-
1244+199:14 name second
1245+200:13 INDENT
1246+200:13 lit ~
1247+200:15 name first
1248+201:13 NEWLINE
1249+201:13 glyph [
1250+201:14 tight lit ~
1251+201:16 name b
1252+201:17 tight glyph ]
1253+201:19 glyph `
1254+201:20 tight glyph (
1255+201:21 tight name combine
1256+201:29 name a
1257+201:31 name b
1258+201:32 tight glyph )
1259+203:1 DEDENT
1260+203:1 DEDENT
1261+203:1 DEDENT
1262+203:1 DEDENT
1263+203:1 DEDENT
1264+203:1 DEDENT
1265+203:1 NEWLINE
1266+203:1 glyph ++
1267+203:4 name hunt
1268+203:9 glyph |=
1269+203:12 name args
1270+203:16 tight glyph =
1271+203:17 tight glyph [
1272+203:18 tight glyph $-(
1273+203:21 tight glyph [
1274+203:22 tight tvar A
1275+203:24 tvar A
1276+203:25 tight glyph ]
1277+203:27 glyph ?
1278+203:28 tight glyph )
1279+203:30 glyph (
1280+203:31 tight name unit
1281+203:36 tvar A
1282+203:37 tight glyph )
1283+203:39 glyph (
1284+203:40 tight name unit
1285+203:45 tvar A
1286+203:46 tight glyph )
1287+203:47 tight glyph ]
1288+204:3 INDENT
1289+204:3 glyph ?-
1290+204:6 name args
1291+205:5 INDENT
1292+205:5 glyph [
1293+205:6 tight name choose
1294+205:13 name first
1295+205:19 name second
1296+205:25 tight glyph ]
1297+205:27 glyph ^-
1298+205:30 glyph (
1299+205:31 tight name unit
1300+205:36 tvar A
1301+205:37 tight glyph )
1302+206:7 INDENT
1303+206:7 glyph ?-
1304+206:10 name first
1305+207:9 INDENT
1306+207:9 lit ~
1307+207:11 name second
1308+208:9 NEWLINE
1309+208:9 glyph [
1310+208:10 tight lit ~
1311+208:12 name a
1312+208:13 tight glyph ]
1313+209:11 INDENT
1314+209:11 glyph ?-
1315+209:14 name second
1316+210:13 INDENT
1317+210:13 lit ~
1318+210:15 name first
1319+211:13 NEWLINE
1320+211:13 glyph [
1321+211:14 tight lit ~
1322+211:16 name b
1323+211:17 tight glyph ]
1324+212:15 INDENT
1325+212:15 glyph ?-
1326+212:18 glyph (
1327+212:19 tight name choose
1328+212:26 name a
1329+212:28 name b
1330+212:29 tight glyph )
1331+213:17 INDENT
1332+213:17 lit %.y
1333+213:21 name first
1334+214:17 NEWLINE
1335+214:17 lit %.n
1336+214:21 name second
1337+216:1 DEDENT
1338+216:1 DEDENT
1339+216:1 DEDENT
1340+216:1 DEDENT
1341+216:1 DEDENT
1342+216:1 DEDENT
1343+216:1 DEDENT
1344+216:1 DEDENT
1345+216:1 NEWLINE
1346+216:1 glyph ++
1347+216:4 name mate
1348+216:9 glyph |=
1349+216:12 name args
1350+216:16 tight glyph =
1351+216:17 tight glyph [
1352+216:18 tight glyph (
1353+216:19 tight name unit
1354+216:24 tvar A
1355+216:25 tight glyph )
1356+216:27 glyph (
1357+216:28 tight name unit
1358+216:33 tvar A
1359+216:34 tight glyph )
1360+216:35 tight glyph ]
1361+217:3 INDENT
1362+217:3 glyph ?-
1363+217:6 name args
1364+218:5 INDENT
1365+218:5 glyph [
1366+218:6 tight name first
1367+218:12 name second
1368+218:18 tight glyph ]
1369+218:20 glyph ^-
1370+218:23 glyph (
1371+218:24 tight name unit
1372+218:29 tvar A
1373+218:30 tight glyph )
1374+219:7 INDENT
1375+219:7 glyph ?-
1376+219:10 name second
1377+220:9 INDENT
1378+220:9 lit ~
1379+220:11 name first
1380+221:9 NEWLINE
1381+221:9 glyph [
1382+221:10 tight lit ~
1383+221:12 name b
1384+221:13 tight glyph ]
1385+222:11 INDENT
1386+222:11 glyph ?-
1387+222:14 name first
1388+223:13 INDENT
1389+223:13 lit ~
1390+223:15 name second
1391+224:13 NEWLINE
1392+224:13 glyph [
1393+224:14 tight lit ~
1394+224:16 name a
1395+224:17 tight glyph ]
1396+225:15 INDENT
1397+225:15 glyph ?-
1398+225:18 glyph (
1399+225:19 tight name eq
1400+225:22 name a
1401+225:24 name b
1402+225:25 tight glyph )
1403+226:17 INDENT
1404+226:17 lit %.y
1405+226:21 name first
1406+227:17 NEWLINE
1407+227:17 lit %.n
1408+227:21 glyph !!
1409+229:1 DEDENT
1410+229:1 DEDENT
1411+229:1 DEDENT
1412+229:1 DEDENT
1413+229:1 DEDENT
1414+229:1 DEDENT
1415+229:1 DEDENT
1416+229:1 DEDENT
1417+229:1 NEWLINE
1418+229:1 glyph ++
1419+229:4 name clef
1420+229:9 glyph |=
1421+229:12 name args
1422+229:16 tight glyph =
1423+229:17 tight glyph [
1424+229:18 tight glyph (
1425+229:19 tight name unit
1426+229:24 tvar A
1427+229:25 tight glyph )
1428+229:27 glyph (
1429+229:28 tight name unit
1430+229:33 tvar B
1431+229:34 tight glyph )
1432+229:36 glyph $-(
1433+229:39 tight glyph [
1434+229:40 tight tvar A
1435+229:42 tvar B
1436+229:43 tight glyph ]
1437+229:45 glyph (
1438+229:46 tight name unit
1439+229:51 tvar C
1440+229:52 tight glyph )
1441+229:53 tight glyph )
1442+229:54 tight glyph ]
1443+230:3 INDENT
1444+230:3 glyph ?-
1445+230:6 name args
1446+231:5 INDENT
1447+231:5 glyph [
1448+231:6 tight name first
1449+231:12 name second
1450+231:19 name combine
1451+231:26 tight glyph ]
1452+231:28 glyph ^-
1453+231:31 glyph (
1454+231:32 tight name unit
1455+231:37 tvar C
1456+231:38 tight glyph )
1457+232:7 INDENT
1458+232:7 glyph ?-
1459+232:10 name first
1460+233:9 INDENT
1461+233:9 lit ~
1462+233:11 lit ~
1463+234:9 NEWLINE
1464+234:9 glyph [
1465+234:10 tight lit ~
1466+234:12 name a
1467+234:13 tight glyph ]
1468+235:11 INDENT
1469+235:11 glyph ?-
1470+235:14 name second
1471+236:13 INDENT
1472+236:13 lit ~
1473+236:15 lit ~
1474+237:13 NEWLINE
1475+237:13 glyph [
1476+237:14 tight lit ~
1477+237:16 name b
1478+237:17 tight glyph ]
1479+237:19 glyph (
1480+237:20 tight name combine
1481+237:28 name a
1482+237:30 name b
1483+237:31 tight glyph )
1484+239:1 DEDENT
1485+239:1 DEDENT
1486+239:1 DEDENT
1487+239:1 DEDENT
1488+239:1 DEDENT
1489+239:1 DEDENT
1490+239:1 NEWLINE
1491+239:1 glyph ++
1492+239:4 name skim
1493+239:9 glyph |=
1494+239:12 name args
1495+239:16 tight glyph =
1496+239:17 tight glyph [
1497+239:18 tight glyph (
1498+239:19 tight name list
1499+239:24 tvar A
1500+239:25 tight glyph )
1501+239:27 glyph $-(
1502+239:30 tight tvar A
1503+239:32 glyph ?
1504+239:33 tight glyph )
1505+239:34 tight glyph ]
1506+240:3 INDENT
1507+240:3 glyph ?-
1508+240:6 name args
1509+241:5 INDENT
1510+241:5 glyph [
1511+241:6 tight name xs
1512+241:9 name predicate
1513+241:18 tight glyph ]
1514+241:20 glyph ^-
1515+241:23 glyph (
1516+241:24 tight name list
1517+241:29 tvar A
1518+241:30 tight glyph )
1519+242:9 INDENT
1520+242:9 glyph ?-
1521+242:12 name xs
1522+243:11 INDENT
1523+243:11 lit ~
1524+243:13 lit ~
1525+244:11 NEWLINE
1526+244:11 glyph [
1527+244:12 tight name item
1528+244:17 name rest
1529+244:21 tight glyph ]
1530+245:13 INDENT
1531+245:13 glyph ?-
1532+245:16 glyph (
1533+245:17 tight name predicate
1534+245:27 name item
1535+245:31 tight glyph )
1536+246:15 INDENT
1537+246:15 lit %.y
1538+246:19 glyph [
1539+246:20 tight name item
1540+246:25 glyph (
1541+246:26 tight name skim
1542+246:31 name rest
1543+246:36 name predicate
1544+246:45 tight glyph )
1545+246:46 tight glyph ]
1546+247:15 NEWLINE
1547+247:15 lit %.n
1548+247:19 glyph (
1549+247:20 tight name skim
1550+247:25 name rest
1551+247:30 name predicate
1552+247:39 tight glyph )
1553+249:1 DEDENT
1554+249:1 DEDENT
1555+249:1 DEDENT
1556+249:1 DEDENT
1557+249:1 DEDENT
1558+249:1 DEDENT
1559+249:1 NEWLINE
1560+249:1 glyph ++
1561+249:4 name skip
1562+249:9 glyph |=
1563+249:12 name args
1564+249:16 tight glyph =
1565+249:17 tight glyph [
1566+249:18 tight glyph (
1567+249:19 tight name list
1568+249:24 tvar A
1569+249:25 tight glyph )
1570+249:27 glyph $-(
1571+249:30 tight tvar A
1572+249:32 glyph ?
1573+249:33 tight glyph )
1574+249:34 tight glyph ]
1575+250:3 INDENT
1576+250:3 glyph ?-
1577+250:6 name args
1578+251:5 INDENT
1579+251:5 glyph [
1580+251:6 tight name xs
1581+251:9 name predicate
1582+251:18 tight glyph ]
1583+251:20 glyph ^-
1584+251:23 glyph (
1585+251:24 tight name list
1586+251:29 tvar A
1587+251:30 tight glyph )
1588+252:9 INDENT
1589+252:9 glyph ?-
1590+252:12 name xs
1591+253:11 INDENT
1592+253:11 lit ~
1593+253:13 lit ~
1594+254:11 NEWLINE
1595+254:11 glyph [
1596+254:12 tight name item
1597+254:17 name rest
1598+254:21 tight glyph ]
1599+255:13 INDENT
1600+255:13 glyph ?-
1601+255:16 glyph (
1602+255:17 tight name predicate
1603+255:27 name item
1604+255:31 tight glyph )
1605+256:15 INDENT
1606+256:15 lit %.y
1607+256:19 glyph (
1608+256:20 tight name skip
1609+256:25 name rest
1610+256:30 name predicate
1611+256:39 tight glyph )
1612+257:15 NEWLINE
1613+257:15 lit %.n
1614+257:19 glyph [
1615+257:20 tight name item
1616+257:25 glyph (
1617+257:26 tight name skip
1618+257:31 name rest
1619+257:36 name predicate
1620+257:45 tight glyph )
1621+257:46 tight glyph ]
1622+259:1 DEDENT
1623+259:1 DEDENT
1624+259:1 DEDENT
1625+259:1 DEDENT
1626+259:1 DEDENT
1627+259:1 DEDENT
1628+259:1 NEWLINE
1629+259:1 glyph ++
1630+259:4 name levy
1631+259:9 glyph |=
1632+259:12 name args
1633+259:16 tight glyph =
1634+259:17 tight glyph [
1635+259:18 tight glyph (
1636+259:19 tight name list
1637+259:24 tvar A
1638+259:25 tight glyph )
1639+259:27 glyph $-(
1640+259:30 tight tvar A
1641+259:32 glyph ?
1642+259:33 tight glyph )
1643+259:34 tight glyph ]
1644+260:3 INDENT
1645+260:3 glyph ^-
1646+260:6 glyph ?
1647+261:5 INDENT
1648+261:5 glyph ?-
1649+261:8 name args
1650+262:7 INDENT
1651+262:7 glyph [
1652+262:8 tight name xs
1653+262:11 name predicate
1654+262:20 tight glyph ]
1655+263:9 INDENT
1656+263:9 glyph ?-
1657+263:12 name xs
1658+264:11 INDENT
1659+264:11 lit ~
1660+264:13 lit %.y
1661+265:11 NEWLINE
1662+265:11 glyph [
1663+265:12 tight name item
1664+265:17 name rest
1665+265:21 tight glyph ]
1666+266:13 INDENT
1667+266:13 glyph ?-
1668+266:16 glyph (
1669+266:17 tight name predicate
1670+266:27 name item
1671+266:31 tight glyph )
1672+267:15 INDENT
1673+267:15 lit %.y
1674+267:19 glyph (
1675+267:20 tight name levy
1676+267:25 name rest
1677+267:30 name predicate
1678+267:39 tight glyph )
1679+268:15 NEWLINE
1680+268:15 lit %.n
1681+268:19 lit %.n
1682+270:1 DEDENT
1683+270:1 DEDENT
1684+270:1 DEDENT
1685+270:1 DEDENT
1686+270:1 DEDENT
1687+270:1 DEDENT
1688+270:1 DEDENT
1689+270:1 NEWLINE
1690+270:1 glyph ++
1691+270:4 name lien
1692+270:9 glyph |=
1693+270:12 name args
1694+270:16 tight glyph =
1695+270:17 tight glyph [
1696+270:18 tight glyph (
1697+270:19 tight name list
1698+270:24 tvar A
1699+270:25 tight glyph )
1700+270:27 glyph $-(
1701+270:30 tight tvar A
1702+270:32 glyph ?
1703+270:33 tight glyph )
1704+270:34 tight glyph ]
1705+271:3 INDENT
1706+271:3 glyph ^-
1707+271:6 glyph ?
1708+272:5 INDENT
1709+272:5 glyph ?-
1710+272:8 name args
1711+273:7 INDENT
1712+273:7 glyph [
1713+273:8 tight name xs
1714+273:11 name predicate
1715+273:20 tight glyph ]
1716+274:9 INDENT
1717+274:9 glyph ?-
1718+274:12 name xs
1719+275:11 INDENT
1720+275:11 lit ~
1721+275:13 lit %.n
1722+276:11 NEWLINE
1723+276:11 glyph [
1724+276:12 tight name item
1725+276:17 name rest
1726+276:21 tight glyph ]
1727+277:13 INDENT
1728+277:13 glyph ?-
1729+277:16 glyph (
1730+277:17 tight name predicate
1731+277:27 name item
1732+277:31 tight glyph )
1733+278:15 INDENT
1734+278:15 lit %.y
1735+278:19 lit %.y
1736+279:15 NEWLINE
1737+279:15 lit %.n
1738+279:19 glyph (
1739+279:20 tight name lien
1740+279:25 name rest
1741+279:30 name predicate
1742+279:39 tight glyph )
1743+281:1 DEDENT
1744+281:1 DEDENT
1745+281:1 DEDENT
1746+281:1 DEDENT
1747+281:1 DEDENT
1748+281:1 DEDENT
1749+281:1 DEDENT
1750+281:1 NEWLINE
1751+281:1 glyph ++
1752+281:4 name roll
1753+281:9 glyph |=
1754+281:12 name args
1755+281:16 tight glyph =
1756+281:17 tight glyph [
1757+281:18 tight glyph (
1758+281:19 tight name list
1759+281:24 tvar A
1760+281:25 tight glyph )
1761+281:27 tvar B
1762+281:29 glyph $-(
1763+281:32 tight glyph [
1764+281:33 tight tvar A
1765+281:35 tvar B
1766+281:36 tight glyph ]
1767+281:38 tvar B
1768+281:39 tight glyph )
1769+281:40 tight glyph ]
1770+282:3 INDENT
1771+282:3 glyph ?-
1772+282:6 name args
1773+283:5 INDENT
1774+283:5 glyph [
1775+283:6 tight name xs
1776+283:9 name start
1777+283:15 name combine
1778+283:22 tight glyph ]
1779+284:7 INDENT
1780+284:7 glyph ?-
1781+284:10 name xs
1782+285:9 INDENT
1783+285:9 lit ~
1784+285:11 name start
1785+286:9 NEWLINE
1786+286:9 glyph [
1787+286:10 tight name item
1788+286:15 name rest
1789+286:19 tight glyph ]
1790+286:21 glyph (
1791+286:22 tight name roll
1792+286:27 name rest
1793+286:32 glyph (
1794+286:33 tight name combine
1795+286:41 name item
1796+286:46 name start
1797+286:51 tight glyph )
1798+286:53 name combine
1799+286:60 tight glyph )
1800+288:1 DEDENT
1801+288:1 DEDENT
1802+288:1 DEDENT
1803+288:1 DEDENT
1804+288:1 NEWLINE
1805+288:1 glyph ++
1806+288:4 name reel
1807+288:9 glyph |=
1808+288:12 name args
1809+288:16 tight glyph =
1810+288:17 tight glyph [
1811+288:18 tight glyph (
1812+288:19 tight name list
1813+288:24 tvar A
1814+288:25 tight glyph )
1815+288:27 tvar B
1816+288:29 glyph $-(
1817+288:32 tight glyph [
1818+288:33 tight tvar A
1819+288:35 tvar B
1820+288:36 tight glyph ]
1821+288:38 tvar B
1822+288:39 tight glyph )
1823+288:40 tight glyph ]
1824+289:3 INDENT
1825+289:3 glyph ?-
1826+289:6 name args
1827+290:5 INDENT
1828+290:5 glyph [
1829+290:6 tight name xs
1830+290:9 name start
1831+290:15 name combine
1832+290:22 tight glyph ]
1833+291:7 INDENT
1834+291:7 glyph ?-
1835+291:10 name xs
1836+292:9 INDENT
1837+292:9 lit ~
1838+292:11 name start
1839+293:9 NEWLINE
1840+293:9 glyph [
1841+293:10 tight name item
1842+293:15 name rest
1843+293:19 tight glyph ]
1844+293:21 glyph (
1845+293:22 tight name combine
1846+293:30 name item
1847+293:35 glyph (
1848+293:36 tight name reel
1849+293:41 name rest
1850+293:46 name start
1851+293:52 name combine
1852+293:59 tight glyph )
1853+293:60 tight glyph )
1854+295:1 DEDENT
1855+295:1 DEDENT
1856+295:1 DEDENT
1857+295:1 DEDENT
1858+295:1 NEWLINE
1859+295:1 glyph ++
1860+295:4 name flit
1861+295:9 glyph |=
1862+295:12 name predicate
1863+295:21 tight glyph =
1864+295:22 tight glyph $-(
1865+295:25 tight tvar A
1866+295:27 glyph ?
1867+295:28 tight glyph )
1868+296:3 INDENT
1869+296:3 glyph |=
1870+296:6 name value
1871+296:11 tight glyph =
1872+296:12 tight tvar A
1873+297:5 INDENT
1874+297:5 glyph ^-
1875+297:8 glyph (
1876+297:9 tight name unit
1877+297:14 tvar A
1878+297:15 tight glyph )
1879+298:7 INDENT
1880+298:7 glyph ?-
1881+298:10 glyph (
1882+298:11 tight name predicate
1883+298:21 name value
1884+298:26 tight glyph )
19001885299:9 INDENT
1901−299:9 glyph ?-
1902−299:12 name rest
1903−300:11 INDENT
1904−300:11 lit ~
1886+299:9 lit %.y
1887+299:13 glyph `
1888+299:14 tight name value
1889+300:9 NEWLINE
1890+300:9 lit %.n
19051891300:13 lit ~
1906−301:11 NEWLINE
1907−301:11 glyph [
1908−301:12 tight name next
1909−301:17 name more
1910−301:21 tight glyph ]
1911−301:23 glyph [
1912−301:24 tight name item
1913−301:29 glyph (
1914−301:30 tight name snip
1915−301:35 name rest
1916−301:39 tight glyph )
1917−301:40 tight glyph ]
1918−303:1 DEDENT
1919−303:1 DEDENT
1920−303:1 DEDENT
1921−303:1 DEDENT
1922−303:1 DEDENT
1923−303:1 NEWLINE
1924−303:1 glyph ++
1925−303:4 name rear
1926−303:9 glyph |=
1927−303:12 name xs
1928−303:14 tight glyph =
1929−303:15 tight glyph (
1930−303:16 tight name list
1931−303:21 tvar A
1932−303:22 tight glyph )
1933−304:3 INDENT
1934−304:3 glyph ?-
1935−304:6 name xs
1936−305:5 INDENT
1937−305:5 lit ~
1938−305:7 glyph !!
1939−306:5 NEWLINE
1940−306:5 glyph [
1941−306:6 tight name item
1942−306:11 name rest
1943−306:15 tight glyph ]
1944−307:7 INDENT
1945−307:7 glyph ?-
1946−307:10 name rest
1947−308:9 INDENT
1948−308:9 lit ~
1949−308:11 name item
1950−309:9 NEWLINE
1951−309:9 glyph [
1952−309:10 tight name next
1953−309:15 name more
1954−309:19 tight glyph ]
1955−309:21 glyph (
1956−309:22 tight name rear
1957−309:27 name rest
1958−309:31 tight glyph )
1959−311:1 DEDENT
1960−311:1 DEDENT
1961−311:1 DEDENT
1962−311:1 DEDENT
1963−311:1 NEWLINE
1964−311:1 glyph ++
1965−311:4 name cork
1966−311:9 glyph |=
1967−311:12 name gates
1968−311:17 tight glyph =
1969−311:18 tight glyph [
1970−311:19 tight glyph $-(
1971−311:22 tight tvar A
1972−311:24 tvar B
1973−311:25 tight glyph )
1974−311:27 glyph $-(
1975−311:30 tight tvar B
1976−311:32 tvar C
1977−311:33 tight glyph )
1978−311:34 tight glyph ]
1979−312:3 INDENT
1980−312:3 glyph ?-
1981−312:6 name gates
1982−313:5 INDENT
1983−313:5 glyph [
1984−313:6 tight name f
1985−313:8 name g
1986−313:9 tight glyph ]
1987−313:11 glyph |=
1988−313:14 name x
1989−313:15 tight glyph =
1990−313:16 tight tvar A
1991−313:18 glyph (
1992−313:19 tight name g
1993−313:21 glyph (
1994−313:22 tight name f
1995−313:24 name x
1996−313:25 tight glyph )
1997−313:26 tight glyph )
1998−315:1 DEDENT
1999−315:1 DEDENT
2000−315:1 NEWLINE
2001−315:1 glyph ++
2002−315:4 name corl
2003−315:9 glyph |=
2004−315:12 name gates
2005−315:17 tight glyph =
2006−315:18 tight glyph [
2007−315:19 tight glyph $-(
2008−315:22 tight tvar B
2009−315:24 tvar C
2010−315:25 tight glyph )
2011−315:27 glyph $-(
2012−315:30 tight tvar A
2013−315:32 tvar B
2014−315:33 tight glyph )
2015−315:34 tight glyph ]
2016−316:3 INDENT
2017−316:3 glyph ?-
2018−316:6 name gates
2019−317:5 INDENT
2020−317:5 glyph [
2021−317:6 tight name f
2022−317:8 name g
2023−317:9 tight glyph ]
2024−317:11 glyph |=
2025−317:14 name x
2026−317:15 tight glyph =
2027−317:16 tight tvar A
2028−317:18 glyph (
2029−317:19 tight name f
2030−317:21 glyph (
2031−317:22 tight name g
2032−317:24 name x
2033−317:25 tight glyph )
2034−317:26 tight glyph )
2035−319:1 DEDENT
2036−319:1 DEDENT
2037−319:1 NEWLINE
2038−319:1 glyph ++
2039−319:4 name cury
2040−319:9 glyph |=
2041−319:12 name args
2042−319:16 tight glyph =
2043−319:17 tight glyph [
2044−319:18 tight glyph $-(
2045−319:21 tight glyph [
2046−319:22 tight tvar A
2047−319:24 tvar B
2048−319:25 tight glyph ]
2049−319:27 tvar C
2050−319:28 tight glyph )
2051−319:30 tvar A
2052−319:31 tight glyph ]
2053−320:3 INDENT
2054−320:3 glyph ?-
2055−320:6 name args
2056−321:5 INDENT
2057−321:5 glyph [
2058−321:6 tight name f
2059−321:8 name a
2060−321:9 tight glyph ]
2061−321:11 glyph |=
2062−321:14 name b
2063−321:15 tight glyph =
2064−321:16 tight tvar B
2065−321:18 glyph (
2066−321:19 tight name f
2067−321:21 name a
2068−321:23 name b
2069−321:24 tight glyph )
2070−323:1 DEDENT
2071−323:1 DEDENT
2072−323:1 NEWLINE
2073−323:1 glyph ++
2074−323:4 name curr
2075−323:9 glyph |=
2076−323:12 name args
2077−323:16 tight glyph =
2078−323:17 tight glyph [
2079−323:18 tight glyph $-(
2080−323:21 tight glyph [
2081−323:22 tight tvar A
2082−323:24 tvar B
2083−323:25 tight glyph ]
2084−323:27 tvar C
2085−323:28 tight glyph )
2086−323:30 tvar B
2087−323:31 tight glyph ]
2088−324:3 INDENT
2089−324:3 glyph ?-
2090−324:6 name args
2091−325:5 INDENT
2092−325:5 glyph [
2093−325:6 tight name f
2094−325:8 name b
2095−325:9 tight glyph ]
2096−325:11 glyph |=
2097−325:14 name a
2098−325:15 tight glyph =
2099−325:16 tight tvar A
2100−325:18 glyph (
2101−325:19 tight name f
2102−325:21 name a
2103−325:23 name b
2104−325:24 tight glyph )
2105−327:1 DEDENT
2106−327:1 DEDENT
2107−327:1 NEWLINE
2108−327:1 glyph +$
2109−327:4 name cmd
2110−327:8 glyph |$
2111−327:11 glyph [
2112−327:12 tight tvar M
2113−327:13 tight glyph ]
2114−328:3 INDENT
2115−328:3 glyph [
2116−328:4 tight lit %poke
2117−328:10 name p
2118−328:11 tight glyph =
2119−328:12 tight name raw-poke
2120−328:21 name reply
2121−328:26 tight glyph =
2122−328:27 tight glyph $-(
2123−328:30 tight glyph (
2124−328:31 tight name unit
2125−328:36 aura @t
2126−328:38 tight glyph )
2127−328:40 tvar M
2128−328:41 tight glyph )
2129−328:42 tight glyph ]
2130−329:3 NEWLINE
2131−329:3 glyph [
2132−329:4 tight lit %go
2133−329:8 name url
2134−329:11 tight glyph =
2135−329:12 tight aura @t
2136−329:14 tight glyph ]
2137−330:3 NEWLINE
2138−330:3 glyph [
2139−330:4 tight lit %wait
2140−330:10 name gap
2141−330:13 tight glyph =
2142−330:14 tight aura @dr
2143−330:18 name msg
2144−330:21 tight glyph =
2145−330:22 tight tvar M
2146−330:23 tight glyph ]
2147−331:3 NEWLINE
2148−331:3 glyph [
2149−331:4 tight lit %now
2150−331:9 name reply
1892+302:1 DEDENT
1893+302:1 DEDENT
1894+302:1 DEDENT
1895+302:1 DEDENT
1896+302:1 NEWLINE
1897+302:1 glyph ++
1898+302:4 name murn
1899+302:9 glyph |=
1900+302:12 name args
1901+302:16 tight glyph =
1902+302:17 tight glyph [
1903+302:18 tight glyph (
1904+302:19 tight name list
1905+302:24 tvar A
1906+302:25 tight glyph )
1907+302:27 glyph $-(
1908+302:30 tight tvar A
1909+302:32 glyph (
1910+302:33 tight name unit
1911+302:38 tvar B
1912+302:39 tight glyph )
1913+302:40 tight glyph )
1914+302:41 tight glyph ]
1915+303:3 INDENT
1916+303:3 glyph ?-
1917+303:6 name args
1918+304:5 INDENT
1919+304:5 glyph [
1920+304:6 tight name xs
1921+304:9 name f
1922+304:10 tight glyph ]
1923+304:12 glyph ^-
1924+304:15 glyph (
1925+304:16 tight name list
1926+304:21 tvar B
1927+304:22 tight glyph )
1928+305:9 INDENT
1929+305:9 glyph ?-
1930+305:12 name xs
1931+306:11 INDENT
1932+306:11 lit ~
1933+306:13 lit ~
1934+307:11 NEWLINE
1935+307:11 glyph [
1936+307:12 tight name item
1937+307:17 name rest
1938+307:21 tight glyph ]
1939+308:13 INDENT
1940+308:13 glyph ?-
1941+308:16 glyph (
1942+308:17 tight name f
1943+308:19 name item
1944+308:23 tight glyph )
1945+309:15 INDENT
1946+309:15 lit ~
1947+309:17 glyph (
1948+309:18 tight name murn
1949+309:23 name rest
1950+309:28 name f
1951+309:29 tight glyph )
1952+310:15 NEWLINE
1953+310:15 glyph [
1954+310:16 tight lit ~
1955+310:18 name value
1956+310:23 tight glyph ]
1957+310:25 glyph [
1958+310:26 tight name value
1959+310:32 glyph (
1960+310:33 tight name murn
1961+310:38 name rest
1962+310:43 name f
1963+310:44 tight glyph )
1964+310:45 tight glyph ]
1965+312:1 DEDENT
1966+312:1 DEDENT
1967+312:1 DEDENT
1968+312:1 DEDENT
1969+312:1 DEDENT
1970+312:1 DEDENT
1971+312:1 NEWLINE
1972+312:1 glyph ++
1973+312:4 name join
1974+312:9 glyph |=
1975+312:12 name args
1976+312:16 tight glyph =
1977+312:17 tight glyph [
1978+312:18 tight tvar A
1979+312:20 glyph (
1980+312:21 tight name list
1981+312:26 tvar A
1982+312:27 tight glyph )
1983+312:28 tight glyph ]
1984+313:3 INDENT
1985+313:3 glyph ?-
1986+313:6 name args
1987+314:5 INDENT
1988+314:5 glyph [
1989+314:6 tight name separator
1990+314:16 name xs
1991+314:18 tight glyph ]
1992+314:20 glyph ^-
1993+314:23 glyph (
1994+314:24 tight name list
1995+314:29 tvar A
1996+314:30 tight glyph )
1997+315:9 INDENT
1998+315:9 glyph ?-
1999+315:12 name xs
2000+316:11 INDENT
2001+316:11 lit ~
2002+316:13 lit ~
2003+317:11 NEWLINE
2004+317:11 glyph [
2005+317:12 tight name item
2006+317:17 name rest
2007+317:21 tight glyph ]
2008+318:13 INDENT
2009+318:13 glyph ?-
2010+318:16 name rest
2011+319:15 INDENT
2012+319:15 lit ~
2013+319:17 glyph [
2014+319:18 tight name item
2015+319:23 lit ~
2016+319:24 tight glyph ]
2017+320:15 NEWLINE
2018+320:15 glyph [
2019+320:16 tight name next
2020+320:21 name more
2021+320:25 tight glyph ]
2022+320:27 glyph [
2023+320:28 tight name item
2024+320:33 glyph [
2025+320:34 tight name separator
2026+320:44 glyph (
2027+320:45 tight name join
2028+320:50 name separator
2029+320:60 name rest
2030+320:64 tight glyph )
2031+320:65 tight glyph ]
2032+320:66 tight glyph ]
2033+322:1 DEDENT
2034+322:1 DEDENT
2035+322:1 DEDENT
2036+322:1 DEDENT
2037+322:1 DEDENT
2038+322:1 DEDENT
2039+322:1 NEWLINE
2040+322:1 glyph ++
2041+322:4 name snip
2042+322:9 glyph |=
2043+322:12 name xs
2044+322:14 tight glyph =
2045+322:15 tight glyph (
2046+322:16 tight name list
2047+322:21 tvar A
2048+322:22 tight glyph )
2049+323:3 INDENT
2050+323:3 glyph ^-
2051+323:6 glyph (
2052+323:7 tight name list
2053+323:12 tvar A
2054+323:13 tight glyph )
2055+324:5 INDENT
2056+324:5 glyph ?-
2057+324:8 name xs
2058+325:7 INDENT
2059+325:7 lit ~
2060+325:9 lit ~
2061+326:7 NEWLINE
2062+326:7 glyph [
2063+326:8 tight name item
2064+326:13 name rest
2065+326:17 tight glyph ]
2066+327:9 INDENT
2067+327:9 glyph ?-
2068+327:12 name rest
2069+328:11 INDENT
2070+328:11 lit ~
2071+328:13 lit ~
2072+329:11 NEWLINE
2073+329:11 glyph [
2074+329:12 tight name next
2075+329:17 name more
2076+329:21 tight glyph ]
2077+329:23 glyph [
2078+329:24 tight name item
2079+329:29 glyph (
2080+329:30 tight name snip
2081+329:35 name rest
2082+329:39 tight glyph )
2083+329:40 tight glyph ]
2084+331:1 DEDENT
2085+331:1 DEDENT
2086+331:1 DEDENT
2087+331:1 DEDENT
2088+331:1 DEDENT
2089+331:1 NEWLINE
2090+331:1 glyph ++
2091+331:4 name rear
2092+331:9 glyph |=
2093+331:12 name xs
21512094331:14 tight glyph =
2152−331:15 tight glyph $-(
2153−331:18 tight aura @da
2154−331:22 tvar M
2155−331:23 tight glyph )
2156−331:24 tight glyph ]
2157−332:3 NEWLINE
2158−332:3 glyph [
2159−332:4 tight lit %who
2160−332:9 name reply
2161−332:14 tight glyph =
2162−332:15 tight glyph $-(
2163−332:18 tight aura @p
2164−332:21 tvar M
2165−332:22 tight glyph )
2166−332:23 tight glyph ]
2167−334:1 DEDENT
2168−334:1 NEWLINE
2169−334:1 glyph ++
2170−334:4 name gth
2171−334:8 glyph |=
2172−334:11 name args
2173−334:15 tight glyph =
2174−334:16 tight glyph [
2175−334:17 tight tvar A
2176−334:19 tvar A
2177−334:20 tight glyph ]
2178−334:22 glyph (
2179−334:23 tight wing gth-atom.internal
2180−334:41 name args
2181−334:45 tight glyph )
2182−335:1 NEWLINE
2183−335:1 glyph ++
2184−335:4 name add
2185−335:8 glyph |=
2186−335:11 name args
2187−335:15 tight glyph =
2188−335:16 tight glyph [
2189−335:17 tight tvar A
2190−335:19 tvar A
2191−335:20 tight glyph ]
2192−335:22 glyph (
2193−335:23 tight wing add-atom.internal
2194−335:41 name args
2195−335:45 tight glyph )
2196−336:1 NEWLINE
2197−336:1 glyph ++
2198−336:4 name dec
2199−336:8 glyph |=
2200−336:11 name atom
2201−336:15 tight glyph =
2202−336:16 tight tvar A
2203−336:18 glyph (
2204−336:19 tight wing dec-atom.internal
2205−336:37 name atom
2206−336:41 tight glyph )
2207−338:1 NEWLINE
2208−338:1 glyph +$
2209−338:4 name ask
2210−338:8 glyph |$
2211−338:11 glyph [
2212−338:12 tight tvar M
2213−338:13 tight glyph ]
2214−338:15 glyph (
2215−338:16 tight wing ask.internal
2216−338:29 tvar M
2217−338:30 tight glyph )
2095+331:15 tight glyph (
2096+331:16 tight name list
2097+331:21 tvar A
2098+331:22 tight glyph )
2099+332:3 INDENT
2100+332:3 glyph ?-
2101+332:6 name xs
2102+333:5 INDENT
2103+333:5 lit ~
2104+333:7 glyph !!
2105+334:5 NEWLINE
2106+334:5 glyph [
2107+334:6 tight name item
2108+334:11 name rest
2109+334:15 tight glyph ]
2110+335:7 INDENT
2111+335:7 glyph ?-
2112+335:10 name rest
2113+336:9 INDENT
2114+336:9 lit ~
2115+336:11 name item
2116+337:9 NEWLINE
2117+337:9 glyph [
2118+337:10 tight name next
2119+337:15 name more
2120+337:19 tight glyph ]
2121+337:21 glyph (
2122+337:22 tight name rear
2123+337:27 name rest
2124+337:31 tight glyph )
2125+339:1 DEDENT
2126+339:1 DEDENT
2127+339:1 DEDENT
2128+339:1 DEDENT
22182129339:1 NEWLINE
22192130339:1 glyph ++
2220−339:4 name pure
2131+339:4 name cork
22212132339:9 glyph |=
2222−339:12 name x
2223−339:13 tight glyph =
2224−339:14 tight tvar M
2225−339:16 glyph ^-
2226−339:19 glyph (
2227−339:20 tight name ask
2228−339:24 tvar M
2133+339:12 name gates
2134+339:17 tight glyph =
2135+339:18 tight glyph [
2136+339:19 tight glyph $-(
2137+339:22 tight tvar A
2138+339:24 tvar B
22292139339:25 tight glyph )
2230−339:27 glyph [
2231−339:28 tight lit %pure
2232−339:34 name x
2233−339:35 tight glyph ]
2234−339:36 NEWLINE
2140+339:27 glyph $-(
2141+339:30 tight tvar B
2142+339:32 tvar C
2143+339:33 tight glyph )
2144+339:34 tight glyph ]
2145+340:3 INDENT
2146+340:3 glyph ?-
2147+340:6 name gates
2148+341:5 INDENT
2149+341:5 glyph [
2150+341:6 tight name f
2151+341:8 name g
2152+341:9 tight glyph ]
2153+341:11 glyph |=
2154+341:14 name x
2155+341:15 tight glyph =
2156+341:16 tight tvar A
2157+341:18 glyph (
2158+341:19 tight name g
2159+341:21 glyph (
2160+341:22 tight name f
2161+341:24 name x
2162+341:25 tight glyph )
2163+341:26 tight glyph )
2164+343:1 DEDENT
2165+343:1 DEDENT
2166+343:1 NEWLINE
2167+343:1 glyph ++
2168+343:4 name corl
2169+343:9 glyph |=
2170+343:12 name gates
2171+343:17 tight glyph =
2172+343:18 tight glyph [
2173+343:19 tight glyph $-(
2174+343:22 tight tvar B
2175+343:24 tvar C
2176+343:25 tight glyph )
2177+343:27 glyph $-(
2178+343:30 tight tvar A
2179+343:32 tvar B
2180+343:33 tight glyph )
2181+343:34 tight glyph ]
2182+344:3 INDENT
2183+344:3 glyph ?-
2184+344:6 name gates
2185+345:5 INDENT
2186+345:5 glyph [
2187+345:6 tight name f
2188+345:8 name g
2189+345:9 tight glyph ]
2190+345:11 glyph |=
2191+345:14 name x
2192+345:15 tight glyph =
2193+345:16 tight tvar A
2194+345:18 glyph (
2195+345:19 tight name f
2196+345:21 glyph (
2197+345:22 tight name g
2198+345:24 name x
2199+345:25 tight glyph )
2200+345:26 tight glyph )
2201+347:1 DEDENT
2202+347:1 DEDENT
2203+347:1 NEWLINE
2204+347:1 glyph ++
2205+347:4 name cury
2206+347:9 glyph |=
2207+347:12 name args
2208+347:16 tight glyph =
2209+347:17 tight glyph [
2210+347:18 tight glyph $-(
2211+347:21 tight glyph [
2212+347:22 tight tvar A
2213+347:24 tvar B
2214+347:25 tight glyph ]
2215+347:27 tvar C
2216+347:28 tight glyph )
2217+347:30 tvar A
2218+347:31 tight glyph ]
2219+348:3 INDENT
2220+348:3 glyph ?-
2221+348:6 name args
2222+349:5 INDENT
2223+349:5 glyph [
2224+349:6 tight name f
2225+349:8 name a
2226+349:9 tight glyph ]
2227+349:11 glyph |=
2228+349:14 name b
2229+349:15 tight glyph =
2230+349:16 tight tvar B
2231+349:18 glyph (
2232+349:19 tight name f
2233+349:21 name a
2234+349:23 name b
2235+349:24 tight glyph )
2236+351:1 DEDENT
2237+351:1 DEDENT
2238+351:1 NEWLINE
2239+351:1 glyph ++
2240+351:4 name curr
2241+351:9 glyph |=
2242+351:12 name args
2243+351:16 tight glyph =
2244+351:17 tight glyph [
2245+351:18 tight glyph $-(
2246+351:21 tight glyph [
2247+351:22 tight tvar A
2248+351:24 tvar B
2249+351:25 tight glyph ]
2250+351:27 tvar C
2251+351:28 tight glyph )
2252+351:30 tvar B
2253+351:31 tight glyph ]
2254+352:3 INDENT
2255+352:3 glyph ?-
2256+352:6 name args
2257+353:5 INDENT
2258+353:5 glyph [
2259+353:6 tight name f
2260+353:8 name b
2261+353:9 tight glyph ]
2262+353:11 glyph |=
2263+353:14 name a
2264+353:15 tight glyph =
2265+353:16 tight tvar A
2266+353:18 glyph (
2267+353:19 tight name f
2268+353:21 name a
2269+353:23 name b
2270+353:24 tight glyph )
2271+355:1 DEDENT
2272+355:1 DEDENT
2273+355:1 NEWLINE
2274+355:1 glyph +$
2275+355:4 name cmd
2276+355:8 glyph |$
2277+355:11 glyph [
2278+355:12 tight tvar M
2279+355:13 tight glyph ]
2280+356:3 INDENT
2281+356:3 glyph [
2282+356:4 tight lit %poke
2283+356:10 name p
2284+356:11 tight glyph =
2285+356:12 tight name raw-poke
2286+356:21 name reply
2287+356:26 tight glyph =
2288+356:27 tight glyph $-(
2289+356:30 tight glyph (
2290+356:31 tight name unit
2291+356:36 aura @t
2292+356:38 tight glyph )
2293+356:40 tvar M
2294+356:41 tight glyph )
2295+356:42 tight glyph ]
2296+357:3 NEWLINE
2297+357:3 glyph [
2298+357:4 tight lit %go
2299+357:8 name url
2300+357:11 tight glyph =
2301+357:12 tight aura @t
2302+357:14 tight glyph ]
2303+358:3 NEWLINE
2304+358:3 glyph [
2305+358:4 tight lit %wait
2306+358:10 name gap
2307+358:13 tight glyph =
2308+358:14 tight aura @dr
2309+358:18 name msg
2310+358:21 tight glyph =
2311+358:22 tight tvar M
2312+358:23 tight glyph ]
2313+359:3 NEWLINE
2314+359:3 glyph [
2315+359:4 tight lit %now
2316+359:9 name reply
2317+359:14 tight glyph =
2318+359:15 tight glyph $-(
2319+359:18 tight aura @da
2320+359:22 tvar M
2321+359:23 tight glyph )
2322+359:24 tight glyph ]
2323+360:3 NEWLINE
2324+360:3 glyph [
2325+360:4 tight lit %who
2326+360:9 name reply
2327+360:14 tight glyph =
2328+360:15 tight glyph $-(
2329+360:18 tight aura @p
2330+360:21 tvar M
2331+360:22 tight glyph )
2332+360:23 tight glyph ]
2333+362:1 DEDENT
2334+362:1 NEWLINE
2335+362:1 glyph ++
2336+362:4 name gth
2337+362:8 glyph |=
2338+362:11 name args
2339+362:15 tight glyph =
2340+362:16 tight glyph [
2341+362:17 tight tvar A
2342+362:19 tvar A
2343+362:20 tight glyph ]
2344+362:22 glyph (
2345+362:23 tight wing gth-atom.internal
2346+362:41 name args
2347+362:45 tight glyph )
2348+363:1 NEWLINE
2349+363:1 glyph ++
2350+363:4 name add
2351+363:8 glyph |=
2352+363:11 name args
2353+363:15 tight glyph =
2354+363:16 tight glyph [
2355+363:17 tight tvar A
2356+363:19 tvar A
2357+363:20 tight glyph ]
2358+363:22 glyph (
2359+363:23 tight wing add-atom.internal
2360+363:41 name args
2361+363:45 tight glyph )
2362+364:1 NEWLINE
2363+364:1 glyph ++
2364+364:4 name dec
2365+364:8 glyph |=
2366+364:11 name atom
2367+364:15 tight glyph =
2368+364:16 tight tvar A
2369+364:18 glyph (
2370+364:19 tight wing dec-atom.internal
2371+364:37 name atom
2372+364:41 tight glyph )
2373+366:1 NEWLINE
2374+366:1 glyph +$
2375+366:4 name ask
2376+366:8 glyph |$
2377+366:11 glyph [
2378+366:12 tight tvar M
2379+366:13 tight glyph ]
2380+366:15 glyph (
2381+366:16 tight wing ask.internal
2382+366:29 tvar M
2383+366:30 tight glyph )
2384+367:1 NEWLINE
2385+367:1 glyph ++
2386+367:4 name pure
2387+367:9 glyph |=
2388+367:12 name x
2389+367:13 tight glyph =
2390+367:14 tight tvar M
2391+367:16 glyph ^-
2392+367:19 glyph (
2393+367:20 tight name ask
2394+367:24 tvar M
2395+367:25 tight glyph )
2396+367:27 glyph [
2397+367:28 tight lit %pure
2398+367:34 name x
2399+367:35 tight glyph ]
2400+367:36 NEWLINE