NAME=BODY
0000 body '04'= pattern e | source [m object] e
000B pattern  = a [d] = alt [sep c alt]..
0017 source   = [pfx.0] d line [d specs] [m src]..
0025 src      = [pfx.1] d line [d specs]
002F object   = [flg] d emit [emit].. [m obj].. [:a]
0040 obj      = [a:] d (ref = bb) [d] [emit].. |
0040		[a:] d emit [emit]..
005B alt      = [prim]..
005F bb       = b | b,b
0067 emit     = ref | "[" field [field].. "]" | ! b
0073 field    = b | ref
0077 flg      = | ! |'"'| # | $ || & |"'"||| * | + || - | .
0090 line     = prim [prim.i]..
0095 specs     = spec [, spec]..
009B pfx.0    = < | >
009F pfx.1    = < | > | "="
00A5 prim     = .# | +# | -# | ~# | .#@ | +#@ | -#@ | ~#@ |
00A5		.## | +## | -## | ~## | g | l | a
00DA ref      = $0 | $1 | $2 | $3 | $4 | $5 | $6 | $7 | $8 | $9 |
00DA		$A | $B | $C | $D | $E
0107 prim.i   = prim [i]
010C sep      = "|" | "|="
0113 spec     = except | NEXT | GLOBAL | FPFX | def
0128 except   = < ref = bb [& ref = bb] >
0134 def      = ref = b | ref = mod [,mod] [,mod] | (ref = bb flg)
014B mod      = LOOP | NEXT | EXIT | ABS | WORD | QUAD