autocrop
setTimes
/treeedge {(-) nccurve} def
/levelsep 4 store
/angleB 180 store
/nodesep 2 store
0 0 Tc rootnode 
[right (a) Tr (b) Tr (c) Tr (d) Tr] 
tree