.PS
# `Tstrip.m4'
cct_init(svg_font(sans-serif,10.5bp__))

define(`vdots',`line dotted 5bp__ thick 1 down_ 12bp__')
T:[
 S1: tstrip(U)
  thinlines_
  arrow <- left 0.15 from S1.L1; "L1" rjust
  arrow <- left 0.15 from S1.L4; "L4" wid 0.2 rjust
  vdots at (0.5 between last "" and 2nd last "")
  arrow <- right 0.25 from S1.R1; "R1" ljust
  arrow <- right 0.25 from S1.R4; "R4" ljust
  vdots at (0.5 between last "" and 2nd last "")+(6bp__,0)
  arrow <- right 0.15 up 0.10 from S1.T1; "T1" ljust
  arrow <- right 0.15 up 0.10 from S1.T4; "T4" ljust
  vdots at (0.5 between last "" and 2nd last "")+(6bp__,0)
  thicklines_
  CS1: "`tstrip(U)'" at S1.s+(0,-0.15)
 S2: tstrip(R,5,DO;wid=1.0;ht=0.25) with .sw at S1.se+(0.8,0.15)
  thinlines_
  arrow <- up 0.2 right 0.1 from S2.T1; "T1" above 
  arrow <- up 0.2 right 0.1 from S2.T5; "T5" above 
  "..." at 0.5 between last "" and 2nd last "" above
 CS2: `"tstrip(R,5,"' ht 0.1 ljust \
      `"  DO;wid=1.0;ht=0.25)"' wid 1.35*72bp__ ljust at S2.sw+(-0.1,-0.2)
]

C: [
  C1: ccoax
    `"ccoax"' at C1.s below
    thinlines_
    arrow <- down 0.05 left 0.15 from C1.C.w; "svg_it(C)" rjust
    arrow <- down 0.05 right 0.1 from C1.S.e
      "svg_it(S)" wid 0.1 ljust
    thicklines_
  C2: ccoax(at C1+(0,0.4),F)
    `"ccoax(,F)"' at C2.s below
  ] with .w at T.e+(0.6,0.0)

B: [
  tbox(V`'svg_sub(2))
  { `"tbox(V`'svg_sub(2))"' wid 1.5 at last [].s below }
  tbox(V`'svg_sub(1),,,<) at last []+(0,-0.4)
  { `"tbox(V`'svg_sub(1),,,&lt;)"' at last [].s below }
  tbox(V`'svg_sub(1),,,<<) at last []+(0,-0.4)
  { `"tbox(V`'svg_sub(1),,,&lt;&gt;)"' at last [].s below }
] with .w at C.e + (0.5,-0.1)


 command "</g>" # end font
.PE