(FILECREATED " 8-MAR-78 12:38:58" <KRL>TESTREES.;2
 3044   

     changes to:  TREEB TREEC TREED

     previous date: " 2-FEB-78 11:23:59" <KRL>TESTREES.;1)


(PRETTYCOMPRINT TESTREESCOMS)

(RPAQQ TESTREESCOMS
 ((VARS * TESTREES)))

(RPAQQ TESTREES
 (TREE1 TREE2 TREE3 TREE4 TREE5 TREEA TREEB TREEC TREED PTREE PTREE2))

(RPAQQ TREE1
 [0 [1 [2 (0 (2 (1 (0)
			       (5))
			    (2 (-3)
			       (3)))
			 (1 (1 (3))
			    (2 (-3)
			       (0)
			       (2))
			    (3 (-2)
			       (3]
		   (1 [1 (0 (1 (5)
			       (2))
			    (2 (5)
			       (-5]
		      (2 (0 (0 (0)
			       (1]
		[2 [2 [1 (0 (1 (5)
			       (1))
			    (2 (-3)
			       (0]
		      (2 (2 (0 (-5)
			       (5)))
			 (1 (0 (-3)
			       (3]
		   (1 (0 (0 (0 (2]
		(3 [3 [1 (0 (1 (3))
			    (2 (-3)
			       (0]
		      (2 (0 (1 (-1)
			       (-2))
			    (2 (0)
			       (1]
		   [2 [1 (0 (0 (4)
			       (5]
		      (2 (0 (0 (1)
			       (-1]
		   (1 (0 (2 (0 (-1)
			       (3)))
			 (1 (1 (-3)
			       (2))
			    (2 (-2])

(RPAQQ TREE2
 [AAA (BB1 (C1 (1)
			   (2)
			   (3))
		       (C22 (1)
			    (2))
		       (C3))
		  (BB2 (D1 (1)
			   (99))
		       (D2))
		  (BB3)
		  (BB4 (EFGHIJ)
		       (KLM (1)
			    (2 (XY)
			       (Z])

(RPAQQ TREE3
 [0 [1 [2 (3 (4 (5 (6)
			       (7))
			    (8 (9)
			       (10)))
			 (11 (12 (13))
			     (14 (15)
				 (16)
				 (17))
			     (18 (19)
				 (20]
		   (21 [22 (23 (24 (25)
				   (26))
			       (27 (28)
				   (29]
		       (30 (31 (32 (33)
				   (34]
		[35 [36 [37 (38 (39 (40)
				    (41))
				(42 (43)
				    (44]
			(45 (46 (47 (48)
				    (49)))
			    (50 (51 (52)
				    (53]
		    (54 (55 (56 (57 (58]
		(59 [60 [61 (62 (63 (64))
				(65 (66)
				    (67]
			(68 (69 (70 (71)
				    (72))
				(73 (74)
				    (75]
		    [76 [77 (78 (79 (80)
				    (81]
			(82 (83 (84 (85)
				    (86]
		    (87 (88 (89 (90 (91)
				    (92)))
			    (93 (94 (95)
				    (96))
				(97 (98])

(RPAQQ TREE4
 (0 (1)
		(2)
		(3)))

(RPAQQ TREE5
 NOBIND)

(RPAQQ TREEA
 (TOP (ONE (2)
		       (3))
		  (TWO (A (B)
			  (C)
			  (D (E)))
		       (L (M (N))
			  (P)))
		  (THREE)))

(RPAQQ TREEB
 ((TOP @1)
	      ((ONE @2)
	       ((2 @3))
	       ((3 @3)))
	      [(TWO @2)
	       [(A @3)
		(B @4 T)
		((C @4 T))
		((D @4)
		 ((E @5 T]
	       ((L @3)
		((M @4)
		 ((N @5 T)))
		((P @4 T]
	      ((THREE @2 T))))

(RPAQQ TREEC
 NIL)

(RPAQQ TREED
 NIL)

(RPAQQ PTREE
 (KrlTopLevel (Input)
			  (PreProcess (FindCategory (Proc23)
						    (Proc24)
						    (Proc25)
						    (Proc26))
				      (Pre1)
				      (Pre2))
			  (Evaluate (Evaluate1)
				    (Evaluate2))
			  (Report)))

(RPAQQ PTREE2
 (KrlTopLevel (GeneratePossibilities)
			   (Evaluate (OrderEvaluation)
				     (EvaluateEach)
				     (ChooseBest)
				     (ReportChoice))
			   (Report)))
(DECLARE: DONTCOPY
  (FILEMAP (NIL)))
STOP