origin = ( 3.0, 8.5 )
	
		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 = 2.0_*cht; cwid = 4.0_*cwid
		move to (4,3.25 )
		box invisible '\_f(rm\_c(rdTree data structure'