autocrop
-5 20 setxrange
-10 10 setyrange
setTimes
20 setxunit

#tex# $1\over 2$ %% label0

/treenodesep 15 def
/levelsep 3.5 def
-3 0 (0) Tcc rootnode
[right
   (1) Tcc (Y) dlput /label0 urput
   [
      (2) Tcc (D) dcput [((3,3)) TRc (R) dcput ((0,1)) TRc (L) ucput]
      (2) Tcc (U) ucput [((1,2)) TRc (R) dcput ((2,0)) TRc (L) ucput]
   ]
   (1) Tcc (X) ulput /label0 drput
   [
      (2) Tcc (D) dcput [((3,0)) TRc (R) dcput ((1,1)) TRc (L) ucput]
      (2) Tcc (D) ucput [((0,0)) TRc (R) dcput ((4,1)) TRc (L) ucput]
   ]
] tree*
/arcangleA 20 def
/arcangleB arcangleA def
(A01) (A11) (-) ncarc
(A10) (A00) (-) ncarc