NAME=BODY
0000 body  = [a:] d list [end] e
000B list  = cond [, cond].. c [prim].. | [prim]..
0019 end   = . | ; | :a
0020 cond  = $< hh | $= hh | $> hh | $ hh = hh [,hh]
0035 prim  = EMIT() | EMIT(hh[,hh][,hh][,hh][,hh][,hh]) | XOR(hh) |
0035		XOR($[hh][,hh]) | i | a | < | - | > | +
0079 hh    = hd | hd hd
0080 hd 	= 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 |
0080		  8 | 9 | A | B | C | D | E | F