% `Pconn.m4'
.PS
cct_init


P1: [ 
  C1: pconnex(,A)
   thinlines_
   arrow <- left 0.2 from C1.H.w; `"\sl H"' rjust
   arrow <- right 0.2 down 0.05 from C1.N.e; `"\sl N"' ljust
   arrow <- left 0.3 from C1.G.w; `"\sl G"' wid 0.1 rjust
   thicklines_
   `"\tt pconnex(,A)"' at last [].s below
  C2: pconnex(,AF) with .w at C1.e+(0.3,0)
   thinlines_
   arrow <- right 0.2 up 0.1 from C2.H.e; `"\sl H"' ljust
   arrow <- left 0.2 up 0.1 from C2.N.w; `"\sl N"' rjust
   arrow <- left 0.3 from C2.G.w; `"\sl G"' rjust
   `"\tt (,AF)"' at last [].s below
  C03: pconnex(,AC) with .w at C2.e+(0.2,0)
   `"\tt (,AC)"' at last [].s below
  C3: pconnex(,ACF) with .w at last [].e+(0.2,0)
   `"\tt (,ACF)"' at last [].s below
  C4: pconnex(,P) with .w at last [].e+(0.2,0)
   `"\tt (,P)"' at (C4,last "") below
  C5: pconnex(U,D) with .w at last [].e+(0.2,0)
   `"\tt (U,D)"' at last [].s below
  C6: pconnex(U,DF) with .w at last [].e+(0.2,0)
   `"\tt (U,DF)"' at last [].s below
  C7: pconnex(U,J) with .w at last [].e+(0.2,0)
   `"\tt (U,J)"' at last [].s below
  C8: pconnex(U,JF) with .w at last [].e+(0.2,0)
   `"\tt (U,JF)"' at last [].s below
  ]

P2: [ 
  C9: pconnex(,G)
   `"\tt (,G)"' at last [].s below
  C91: pconnex(,GF) with .w at last [].e+(0.2,0)
   `"\tt (,GF)"' at last [].s below
  C92: pconnex(L,GF) with .w at last [].e+(0.2,0)
   `"\tt (L,GF)"' at last [].s below
  C10: pconnex(,GC) with .w at last [].e + (0.2,0)
   `"\tt (,GC)"' ht 11pt__ at last [].s below
 ] with .nw at P1.C1.sw + (0,-0.25)

.PE