Clojure vector persistent digraph

clojure-vector-persistent-tree.dot

  digraph {
          node[shape=record]
          newrank=true;
          subgraph cluster_level1{
                  style=dotted;
                  vec2[shape=plaintext]
                  node0[label = "<f0> root |<f1> tail"];
                  node1[label="<f0>|<f1>"];
                  node2[label="<f0>|<f1>"];
                  node3[label="<f0>|<f1>"];
                  node4[label="<f0> 1|<f1> 2"];
                  node5[label="<f0> 3|<f1> 4"];
                  node6[label="<f0> 5|<f1> 6"];
                  node7[label="<f0> 7|<f1> 8"];
                  vec2 -> node0;
          }
          subgraph cluster_level2{
                  style=dotted
                  vec3[shape=plaintext]
                  node8[label="<f0> root|<f1> tail"];
                  node9[label="<f0>|<f1>"];
                  node10[label="<f0>|<f1>"];
                  node11[label="<f0> 9|<f1>",color=green];
                  vec3 -> node8;
          }
          {rank=same; node0;node8;}
          {rank=same; node7;node11}
          node0:f0 -> node1;
          node0:f1 -> node7;
          node1:f0 -> node2;
          node1:f1 -> node3;
          node2:f0 -> node4;
          node2:f1 -> node5;
          node3:f0 -> node6;
          node8:f0 -> node9;
          node8:f1 -> node11;
          node9:f0 -> node2;
          node9:f1 -> node10;
          node10:f0 -> node6;
          node10:f1 -> node7;
  }