origin = ( 3,3 )

	boxht = 0.75*boxht
	boxwid = 0.8*boxwid
	bht = 0.5*boxht
        offset  = 0.25*boxwid

	cht = 0.08; cwid = 0.65*cht
ROOT:	box ht bht  width 0.5*boxwid 
RLAB:	box invisible with .south at .top  of ROOT 'Root'
	arrow -> from ROOT.center

STAR:	box '*'
	down
	box ht bht ; line from last box.north to last box.south
	STARLP: last box.center - ( offset,0.0 )
	STARRP: last box.center + ( offset,0.0 )

	downleft
	arrowlen = 2.0*arrowlen
	arrow ->  from STARLP
	arrowlen = 0.5*arrowlen
	down
PLUS:	box '+' 
	box ht bht ; line from last box.north to last box.south
	PLUSLP: last box.center - ( offset,0.0 )
	PLUSRP: last box.center + ( offset,0.0 )

	downright
	arrowlen = 2.5*arrowlen
	arrow ->  from STARRP
	arrowlen = 1.0/4.0*arrowlen
	down
MINUS:	box '-' 
	box ht bht ; line from last box.north to last box.south
	MINUSLP: last box.center - ( offset,0.0 )
	MINUSRP: last box.center + ( offset,0.0 )

	downleft
	arrow ->  from PLUSLP
	down
IDA:	box 'a' 
	box ht bht ; line from last box.north to last box.south
	IDALP: last box.center - ( offset,0.0 )
	IDARP: last box.center + ( offset,0.0 )

	downright
	arrow ->   from PLUSRP
	down
SLASH:	box '/' 
	box ht bht ; line from last box.north to last box.south
	SLASHLP: last box.center - ( offset,0.0 )
	SLASHRP: last box.center + ( offset,0.0 )

	downleft
	arrow ->  from SLASHLP
	down
IDB:	box 'b' 
	box ht bht ; line from last box.north to last box.south
	IDBLP: last box.center - ( offset,0.0 )
	IDBRP: last box.center + ( offset,0.0 )

	downright
	arrow ->   from SLASHRP
	down
IDC:	box 'c' 
	box ht bht ; line from last box.north to last box.south
	IDCLP: last box.center - ( offset,0.0 )
	IDCRP: last box.center + ( offset,0.0 )

	downleft
	arrow ->  from MINUSLP
	down
IDD:	box 'd' 
	box ht bht ; line from last box.north to last box.south
	IDDLP: last box.center - ( offset,0.0 )
	IDDRP: last box.center + ( offset,0.0 )

	downright
	arrow ->   from MINUSRP
	down
STAR2:	box '*' 
	box ht bht ; line from last box.north to last box.south
	STAR2LP: last box.center - ( offset,0.0 )
	STAR2RP: last box.center + ( offset,0.0 )

	downleft
	arrow ->  from STAR2LP
	down
IDE:	box 'e' 
	box ht bht ; line from last box.north to last box.south
	IDELP: last box.center - ( offset,0.0 )
	IDERP: last box.center + ( offset,0.0 )

	downright
	arrow ->   from STAR2RP
	down
IDE:	box 'f' 
	box ht bht ; line from last box.north to last box.south
	IDFLP: last box.center - ( offset,0.0 )
	IDFRP: last box.center + ( offset,0.0 )

	down
        cht = 3.0*cht; cwid = 4.0*cwid
	move to (4,4.25 )
	box invisible '\f(rm\c(rdTree data structure'