autocrop
setTimes
/treeedge {(->) ncangle} def
/levelsep 4 store
/angleA -90 store
/angleB 90 store
/armB 50 store
/nodesep 2 store
7 setdboxit
0 0 (root) Tb rootnode 
[{1 setdboxit} Tc Tc Tc Tc] 
tree