*phase*  10
Cd_graph Adj Adj_list
  Vertex Neighbors 
  Empty_cd_graph 
  Ident Construct
  Any_vertex_list
  Empty
*phase* 20
Nany_vertex_list
  Any_vertex Syntax_vertex String
*phase* 30
Labeled_vertex
*phase* 40
Alternat