autocrop
setTimes
/treeedge {exch (-) ncdiagg} def
/levelsep 3 store
/armA 30 store
/angleA 180 store
0 0 Tc rootnode 
[right (A) Tc (B) Tc (C) Tc (D) Tc] 
tree