/*********************************************************************
/ MML detail (4) part A
/*********************************************************************
.next
#define 	A	d2	d4r8r16rc&
#define 	B	r8g+a]	>ef]g+a[[
#define 	C	r8ef]	>c+d]ef[[
	t116o6l32	v11 $A
		o5l4	v11 f2	fr
		o5l32	v11 $A
		o3l16	v9	$B	< $B
		o3l16	v9	$C	< $C
		o3l4	v11 d2	dr
		o2l4	v11 a2	ar
		o2l4	v11 d2	dr
.next
#define 	A	<b-2	b-4r8r16rb-&
#define 	B	r8ab-]	>f+g]ab-[[
#define 	C	r8f+g]	>d+e]f+g[[
	$A
	e2		er
	$A
	< $B	< $B
	< $C	< $C
	d2		dr
	a2		ar
	d2		dr
.next
#define 	A	a4r8r16ra&	>e4r8r16<rg&
#define 	B	r8d+e]	>cc+]d+e[[
	$A
	er		gr
	$A
	< $C	< $C
	< $B	< $B
	c+r 	<ar
	r1
	c+r 	<ar
.next
#define 	A	f4r8r16ra&	d4r4
#define 	B	r8g+a]	>ef]g+a[[
#define 	C	r8ef]	>c+d]ef[[
	$A
	<ar 	fr
	$A
	< $B	< $B
	< $C	< $C
	>dr 	dr
	r2		ar
	>dr 	dr
.next
#define 	A	>c2 c4r8r16<rb-&
	$A
	>e2 				gr
	$A
	<r8b>c] d+e]b>c[[	<<r8b>c]d+e]f+g[[
	<r8f+g] b>c]f+g[[	<r8f+g] b>c]d+e[[
	c2					er
	r1
	c2					er
.next
#define 	A	a4r8r16>rc& <f4r4
	$A
	fr					<ar
	$A
	<r8b>c] ef]b>c[[	<<r8b>c]ef]g+a[[
	<r8g+a] b>c]g+a[[	<r8g+a] b>c]ef[[
	fr					fr
	r1
	fr					fr
.next
#define 	A	>e2 e4r8r16rd&
#define 	B	r8a+b]	>gg+]a+b[[
#define 	C	r8gg+]	>d+e]gg+[[
	$A
	>g+2	br
	$A
	< $B	< $B
	< $C	< $C
	e2		g+r
	r1
	e2		g+r
.next
#define 	A	c+4r8r16re& <a4r8r16ra&
#define 	B	r8d+e]	>cc+]d+e[[
#define 	C	r8<b>c] g+a]b>c[[
	$A
	ar		cr
	$A
	$B		< $B
	$C		< $C
	ar		ar
	>er 	er
	ar		ar
.next
#define 	A	>g2 <!+1a4r8r16ra&
#define 	C	r8f+g]	>d+e]f+g[[
#define 	X	b-2 !+1ar
	$A
	>c+2	r2
	$A
	< $C	< $C
	< $B	< $B
	$X
	e2		r2
	$X
.next
#define 	A	>f+2	<!+1a4r8r16ra&
#define 	B	r8ff+]	>de-]ff+[[
#define 	C	r8de-]	b>c]de-[[
	$A
	c2		r2
	$A
	< $B	< $B
	< $C	< $C
	$X
	e-2 	r2
	$X
.next
#define 	A	>f4r8r16rf& e4r8r16rd&
	$A
	<g+r				g+r
	$A
	<r8ef]	a+b]>ef[[	<<r8a+b] >gg+]a+b[[
	<r8c+d] gg+]>c+d[[	<<r8gg+] >d+e]gg+[[
	br					er
	dr					<br
	br					er
.next
#define 	A	c+4r8r16re& <a4r4
	$A
	ar					cr
	$A
	r8d+e]	>cc+]d+e[[	<r8cc+]  d+e]g+a[[
	r8cc+]	g+a]>cc+[[	<<r8g+a] >cc+]d+e[[
	ar					ar
	>er 				er
	ar					ar
.next
#define 	A	g2		<!+1a4r8r16ra&
#define 	B	r8f+g]	>d+e]f+g[[
#define 	C	r8d+e]	>cc+]d+e[[
	$A
	c+2 	r2
	$A
	< $B	< $B
	< $C	< $C
	< $X
	< e2	r2
	< $X
.next
#define 	A	>f+2	<!+1a4r8r16ra&
#define 	B	r8ff+]	>de-]ff+[[
#define 	C	r8de-]	b>c]de-[[
	$A
	c2		r2
	$A
	< $B	< $B
	< $C	< $C
	$X
	e-2 	r2
	$X
.next
#define 	A	>f4r8r16rf& e4r8r16rd&
	$A
	<g+r				g+r
	$A
	<r8ef]	a+b]>ef[[	<r8ef]	>c+d]d+e
	<r8c+d] gg+]>c+d[[	<r8c+d] ab-]gg+
	br					b-r
	dr					dr
	br					b-r
.next
#define 	A		c+6&e6& 		]g6&]b-6&b6&[
#define 	B	l18 e&f&f+&g&g+&a&	]b-&b&>c&]c+&d&e&<b&>f&g+&[ l12
#define 	C	l18 r6	g&g+&a&b-&b&>c& ]c+&d&d+&]e&d&c+&	l12 fr[
#define 	D		ar	b-6&>c+6&		]e6&]g6&br[
	t144l12 <ar>	$A
		l12 c+r 	$B
		l12 <ar 	r3r2
		l12 r1
			$C
		l12 $D
		l12 er		r3r3]]>g+r[
		l12 ar		r3r3]]>>dr[
.next
	>er[	$A
	>c+r[	< $B
	]>>ar[	r3r2
	]>er[	r3r2
	$C
	$D
	er[ 	r3r3]]>g+r[
	<ar[	r3r3]]>>dr[
.next
#define 	A	>c+r	{<<b>fg+}6
#define 	B	<ardr	<ardr	<ar>dr
	t-4 v11 >er<b6& >er<b6& >er<b6&
		v11 $A		$A		$A
		v11 >arr6	arr6	arr6
		v11 >err6	err6	err6
		v11 $B
		v11 er<g+r	er<g+r	erg+r
		v11 c+r<fr	c+r<fr	c+rfr
		v11 $B
.next
#define 	A	l18 !+2'10b-9agfe	t88 dc+ece<b>	t-2 ]e<b->e
	>er 	t76 o5	$A
	{>c+r}6 	o4	$A
	ar			r3r2
	er			r3r2
	<ar 		o3	$A
	er			o2	$A
	c+r 		r3r2
	<ar 		r3r2
.next
#define 	A	t-2 ]<a12r12[[	t76 >>!+2c+9<b-agf	t88 ege-gdg t-2 ]c+g<b
	$A
	$A
	r1
	r1
	$A
	$A
	r1
	r1
.next
#define 	A	t-2 ]>g12<a12[[ t92 >>!+2e9dc+<b-a] t+4 >gfedc+]b-agf
	$A
	$A
	r1
	r1
	$A
	$A
	r1
	r1
.next
#define 	A	e[>edc+<b-a[>b-ag	fedc+e<b->c+<ab-
	$A
	$A
	r1
	r1
	$A
	$A
	r1
	r1
.next
#define 	A	fgegdec+e<b-	>c+<ab-gb-fgeg
	$A
	$A
	r1
	r1
	$A
	$A
	r1
	r1
.next
#define 	A	t-2 dec+e<b->c+<ab-g+	t-2 agaf+afaea
	$A
	$A
	r1
	r1
	$A
	$A
	r1
	r1
.next
#define 	A	t156l6	!+1e-a	t-4 !+1ca	t-4 !+1c+a
	$A
	$A
	r1
	r1
	$A
	$A
	r1
	r1
/---------------------------------------------------------------------