B1: box "\MTA/" with .n at (C1.s.x, C1.s.y-3*lineht)
B8: box "\MTA/" with .w at (B1.e.x+linewid, B1.e.y)
B2: box invis "$\ldots$" with .w at (B8.e.x+linewid, B1.e.y)
B9: box invis "$\ldots$" with .w at (B2.e.x+linewid, B1.e.y)
B3: box "\MTA/" with .w at (B9.e.x+linewid, B1.e.y)
C2: ellipse "\UA/" with .s at (B3.n.x, C1.s.y)
B4: box width B3.e.x+linewid/3-(B1.w.x-linewid/3) \
move to (B4.n.x, B4.n.y-lineht/2); "\MTS/"
B5: box "\TMA/" with .w at (C1.e.x+linewid, C1.e.y)
B6: box "\TMA/" with .e at (C2.w.x-linewid, C2.w.y)
B7: box "\KDS/" with .c at ((B5.c.x+B6.c.x)/2, B5.c.y)
line <- -> from C1.e to B5.w
line <- -> from C2.w to B6.e