.PS
# Arrester.m4
cct_init

divert(-1)

divert(0)dnl

movewid = movewid/2
  M: arrester
     {"\tt arr{}ester()" at last [].s below}
  N: arrester(,D) with .A at M.end+(movewid,0)
     {"\strut\tt $\cdots$(,D)" at last [].s below}
  P: arrester(,LD) with .A at N.B+(movewid,0)
     {"\tt (,LD)" at last [].s below}
  move; H: arrester(,S)
     {"\tt (,S)" at last [].s below}
  move; Q: arrester(,E)
     {"\tt (,E)" at last [].s below}
  R: arrester(,ED) with .A at Q.end+(movewid,0) 
     {"\tt $\cdots$(,ED)" at last [].s below}
  thinlines_
  Loopover_(`X',
   `spline <- from X.A up 8bp__ then up 6bp__ right 4bp__; "\sl A" ljust
    spline <- from X.B up 8bp__ then up 6bp__ left 4bp__; "\sl B" rjust
    arrow <- from X.G right 12bp__ up 2bp__; "\sl G" ljust',N,R)

.PE