.EQ
delim %%
gfont C
.EN
.RS
.PS
scale=1.2
line   from (7.000000, 8.225000) to (7.000000, 8.062500);
line   from (5.800000, 8.225000) to (5.800000, 8.062500);
line   from (4.600000, 8.225000) to (4.600000, 8.062500);
line   from (3.400000, 8.225000) to (3.400000, 8.062500);
line   from (2.200000, 8.225000) to (2.200000, 8.062500);
line   from (1.000000, 8.225000) to (1.000000, 8.062500);
line   from (0.800000, 8.150000) to (7.187500, 8.150000);

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.0,8.15) to (1.2,8.6);
line from (1.2,8.6) to (2.0,8.6);
line from (2.0,8.6) to (2.2,8.15);
line from (2.2,8.15) to (2.4,8.6);
line from (2.4,8.6) to (6.8,8.6);
line from (6.8,8.6) to (7.0,8.15);

line -> from (1.0,7.5) to (1.0,7.0);
line -> from (2.2,7.5) to (2.2,7.0);

"\s10\fC%I ~=~ t sub 1%\fP" at (2.2,8.78);

"\s10\fC%t sub 0 %\fP" at (1.0,7.95) ;
"\s10\fC%t sub 1 %\fP" at (2.2,7.95) ;
"\s10\fC%t sub 2 %\fP" at (3.4,7.95) ;
"\s10\fC%t sub 3 %\fP" at (4.6,7.95) ;
"\s10\fC%t sub 4 %\fP" at (5.8,7.95) ;
"\s10\fC%t sub 5 %\fP" at (7.0,7.95) ;

"\s10\fCkeep(A=a)\fP" at (1.0,7.7) ;
"\s10\fCA = a\fP" at (1.0,6.85) ;
"\s10\fCq(A)\fP" at (2.2,7.7) ;
"\s10\fCq(A)\fP" at (2.2,6.85) ;

"\s10\fCA\fP" at (0.5,6.4) ljust;
"\s10\fCa\fP" at (1.0,6.4) ;
"\s10\fCb\fP" at (2.2,6.4) ;
"\s10\fCb\fP" at (3.4,6.4) ;
"\s10\fCb\fP" at (4.6,6.4) ;
"\s10\fCb\fP" at (5.8,6.4) ;
"\s10\fCb\fP" at (7.0,6.4) ;
.PE
.EQ
delim %%
gfont C
.EN
