.PS
# Ladder.m4
cct_init
 iflatex(command "{\tt")

 setdir_(R)
 { l_contact ; {"l`'iflatex(\)_contact" at last [].s below}
  move right_ dimen_/4 
  l_contact(,type=P) ; {"(,type=P)" at last [].s below}
  move right_ dimen_/4
  l_contact(,type=N) ; {"(,type=N)" at last [].s below}
  move right_ dimen_/4
  l_contact(,type=NC) ; {"(,type=NC)" at last [].s below}
  }
 move down_ dimen_*5/4; right_
 { l_coil ; {"l`'iflatex(\)_coil" at last [].s below}
  move right_ dimen_/2
  l_coil(,type=P) ; {"(,type=P)" at last [].s below}
  move right_ dimen_/2
  l_coil(,type=N) ; {"(,type=N)" at last [].s below}
  move right_ dimen_/2
  l_coil(,type=S) ; {"(,type=S)" at last [].s below}
  move right_ dimen_/2
  l_coil(,type=NC) ; {"(,type=NC)" at last [].s below}
  }

  iflatex(command "}%")
.PE