.EQ
delim %%
gfont C
.EN
.RS
.PS
scale=1.2
line   from (7.000000, 8.225000) to (7.000000, 8.062500);
line   from (5.500000, 8.225000) to (5.500000, 8.062500);
line   from (2.500000, 8.225000) to (2.500000, 8.062500);
line   from (1.000000, 8.225000) to (1.000000, 8.062500);
line   from (0.800000, 8.150000) to (4.0,8.15);
line from (4.07,8.15) to (7.187500, 8.150000);

line from (4.1,8.2) to (4.0,8.1);
line from (4.05,8.2) to (3.95,8.1);

line from (1.0,8.15) to (1.1,8.65);
line from (1.1,8.65) to (6.9,8.65);
line from (6.9,8.65) to (7.0,8.15);

line -> from (1.5,7.5) to (1.8,7.5);
line -> from (3.2,7.5) to (3.7,7.5);
line -> from (4.4,7.5) to (4.8,7.5);

line -> from (1.0,7.3) to (1.0,7.0);
line -> from (2.5,7.3) to (2.5,7.0);
line -> from (5.5,7.3) to (5.5,7.0);

spline -> from (1.3,6.8)\
	 then to (1.8,6.4)\
	 then to (2.3,6.3);
spline -> from (2.8,6.8)\
	 then to (3.3,6.4)\
	 then to (3.8,6.3);
spline -> from (4.3,6.8)\
	 then to (4.8,6.4)\
	 then to (5.3,6.3);
spline -> from (5.8,6.8)\
	 then to (6.3,6.4)\
	 then to (6.8,6.3);

"\s10\fC@A = B\fP" at (1.0,6.8) ;
"\s10\fC@A = B\fP" at (2.5,6.8) ;
"\s10\fC@A = B\fP" at (5.5,6.8) ;

"\s18\fR. . .\fP" at (3.8,7.52) ljust;
"\s18\fR. . .\fP" at (3.8,6.52) ljust;
"\s18\fR. . .\fP" at (3.8,6.88) ljust;
"\s18\fR. . .\fP" at (3.8,6.32) ljust;
"\s10\fC%t sub 0 %\fP" at (1.0,7.95) ;
"\s10\fC%t sub 1 %\fP" at (2.5,7.95) ;
"\s10\fC%t sub n-1 %\fP" at (5.5,7.95) ;
"\s10\fC%t sub n %\fP" at (7.0,7.95) ;
"\s10\fC(A gets B)\fP" at (1.0,7.6) ;
"\s10\fCkeep(@A = B)\fP" at (1.0,7.4) ;
"\s10\fCkeep(@A = B)\fP" at (2.5,7.5) ;
"\s10\fCkeep(@A = B)\fP" at (5.5,7.5) ;
"\s10\fCB\fP" at (0.5,6.5) ljust;
"\s10\fC%v sub 0 %\fP" at (1.0,6.5) ;
"\s10\fC%v sub 1 %\fP" at (2.5,6.5) ;
"\s10\fC%v sub n-1 %\fP" at (5.5,6.5) ;
"\s10\fC%v sub n %\fP" at (7.0,6.5) ;
"\s10\fCA\fP" at (0.5,6.3) ljust;
"\s10\fC\(em\fP" at (1.0,6.3) ;
"\s10\fC% v sub 0 %\fP" at (2.5,6.3) ;
"\s10\fC% v sub n-2 %\fP" at (5.5,6.3) ;
"\s10\fC% v sub n-1 %\fP" at (7.0,6.3) ;
.PE
.EQ
delim %%
gfont C
.EN
