%% d'après http://www.ilemaths.net/forum-sujet-76625.html
autocrop
-8 15 setxrange
-12 12 setyrange
20 setxunit
setTimes

#tex# $P$
#tex# $F$

/levelsep 3 def
/treenodesep 10 def
/treesep 10 def
/treehooki {/treesep 4.5 def} def
/treehookii {/treesep 3 def} def

-7 -3 ((5,2)) TR rootnode
[right
   ((5,1)) TR /label1 dcput [
      ((5,0)) TR /label1 dcput 
      ((4,1)) TR /label0 ucput [
   	 ((4,0)) TR /label1 dcput 
   	 ((3,1)) TR /label0 ucput [
   	    ((3,0)) TR /label1 dcput 
   	    ((2,1)) TR /label0 ucput [
   	       ((2,0)) TR /label1 dcput 
   	       ((1,1)) TR /label0 ucput [
   		  ((1,0)) TR /label1 dcput 
   		  ((0,1)) TR /label0 ucput 
               ]
            ]
         ]
      ]
   ]
   ((4,2)) TR /label0 ucput [
      ((4,1)) TR /label1 dcput [
   	 ((4,0)) TR /label1 dcput 
   	 ((3,1)) TR /label0 ucput [
   	    ((3,0)) TR /label1 dcput 
   	    ((2,1)) TR /label0 ucput [
   	       ((2,0)) TR /label1 dcput 
   	       ((1,1)) TR /label0 ucput [
   		  ((1,0)) TR /label1 dcput 
   		  ((0,1)) TR /label0 ucput 
               ]
            ]
         ]
      ]
      ((3,2)) TR /label0 ucput [
   	 ((3,1)) TR /label1 dcput 
   	 ((2,2)) TR /label0 ucput [
   	    ((2,1)) TR /label1 dcput 
   	    ((1,2)) TR /label0 ucput [
   	       ((0,2)) TR /label1 dcput 
   	       ((1,1)) TR /label0 ucput [
   		  ((1,0)) TR /label1 dcput 
   		  ((0,1)) TR /label0 ucput 
               ]
            ]
         ]
      ]
   ]
] tree