Source
autocrop
#tex# $(P,P,P)$
#tex# $(P,P,F)$
#tex# $(P,F,P)$
#tex# $(P,F,F)$
#tex# $(F,P,P)$
#tex# $(F,P,F)$
#tex# $(F,F,P)$
#tex# $(F,F,F)$
1 setdboxit setTimes
/levelsep 1 def /treesep 4 def
/treehooki {/thistreesep 2 def} def
/treehookii {
   /thislevelsep 3 def
   /thistreesep 1 def
} def

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