1 setdboxit
autocrop
%/dotstyle {times} def
/dotscale {1.2 dup} def

/nodesep 0 def
/treenodesep 5 def

setTimes
#tex# $A_0$
-2 5 (1) Tc rootnode 

[
   Tdot
   (2) Tcc
   Tc 
   [
      Tc 
      Tc 
      /label0 Tbc [[1.5 dup] {90}] Toptaff
   ]
   (!gnuhead) Tcc [[.05 dup]] Toptaff
   /label0 Tcc
] 
tree*