autocrop
-5 20 setxrange
-10 10 setyrange
setTimes
20 setxunit
/treenodesep 15 def
/levelsep 3.5 def
-3 0 (0) Tcc rootnode
[right
   (1) Tcc
   [
      (2) Tcc [((3,3)) TRc ((0,1)) TRc]
      (2) Tcc [((1,2)) TRc ((2,0)) TRc]
   ]
   (1) Tcc
   [
      (2) Tcc [((3,0)) TRc ((1,1)) TRc]
      (2) Tcc [((0,0)) TRc ((4,1)) TRc]
   ]
] tree*
/arcangleA 20 def
/arcangleB arcangleA def
(A01) (A11) (-) ncarc
(A10) (A00) (-) ncarc