autocrop
2 setdboxit
setTimes
/treeedge {(->) ncdiagg} def 
/levelsep 3 def /nodesep 2 def
/angleB 90 def /angleA -90 def
0 5 Tc rootnode
[
   [-30 dir (1) Tc (2) Tc (3) Tc (4) Tc] 
   [-150 dir (a) Tc (b) Tc (c) Tc (d) Tc] 
] 
tree