autocrop
#tex# $J_2$
#tex# $J_1$
#tex# $K_2$
#tex# $K_1$
#tex# $Y_2$
#tex# $Y_1$
#tex# $X_2$
#tex# $X_1$
1 setdboxit setTimes

/treenodesep 20 def
/treesep 4 def
/levelsep 1 def
/treehookii {
   /thislevelsep 3 def
} def

-5 0 Tc rootnode 
[right 
   Tc
   [{autotreesepOn}
      Tc [/label0 TR /label1 TR]
      Tc [/label2 TR /label3 TR]
   ]
   Tc
   [{autotreesepOn}
      Tc [/label4 TR /label5 TR]
      Tc [/label6 TR /label7 TR]
   ]
] 
tree