print-special-tree

(print-special-tree num-paths path-length) will print the same tree that (make-special-tree num-paths path-length) would generate.

CL-USER 9 > (print-graph (make-special-tree 3 2))
10
0 1 0 0 1 0 0 1 0 0 
1 0 1 0 0 0 0 0 0 0 
0 1 0 1 0 0 0 0 0 0 
0 0 1 0 0 0 0 0 0 0 
1 0 0 0 0 1 0 0 0 0 
0 0 0 0 1 0 1 0 0 0 
0 0 0 0 0 1 0 0 0 0 
1 0 0 0 0 0 0 0 1 0 
0 0 0 0 0 0 0 1 0 1 
0 0 0 0 0 0 0 0 1 0 
Nil