$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron3.0>Derived>SaffronPGDeclsDef.Mesa!4 0000000 - - S a f f r o n P G D e c l 0000020 s D e f . m e s a \r - - C o 0000040 p y r i g h t 323 1 9 8 7 b 0000060 y X e r o x C o r p o r a t 0000100 i o n . A l l r i g h t s 0000120 r e s e r v e d . \r - - G 0000140 e n e r a t e d b y R a u e 0000160 n . p a a t J u n e 1 6 , 0000200 1 9 8 8 3 : 2 8 : 5 1 p m 0000220 P D T \r - - u s i n g 0000240 T h r e e C a s a b a F o u r 0000260 [ 1 . 2 ] o f J u n e 1 , 0000300 1 9 8 7 6 : 0 0 : 0 0 p m 0000320 P D T \r \r D I R E C T O R Y \r 0000340 \t I O , \r \t R o p e , \r \t S a f 0000360 f r o n B a s e D e f ; \r \r S a 0000400 f f r o n P G D e c l s D e f : 0000420 C E D A R D E F I N I T I O 0000440 N S = \r B E G I N \r O P E N 0000460 I O , R o p e , S a f f r 0000500 o n B a s e D e f ; \r P r o g r 0000520 a m G r a p h N o d e : \t T Y P 0000540 E = R E F P r o g r a m G 0000560 r a p h N o d e B o d y ; \r P r 0000600 o g r a m G r a p h N o d e B o 0000620 d y : \t T Y P E ; \r \r E v a l u 0000640 a t e d E x p r e s s i o n N o 0000660 d e : \t T Y P E = R E F E 0000700 v a l u a t e d E x p r e s s i 0000720 o n N o d e B o d y ; \r E v a l 0000740 u a t e d E x p r e s s i o n N 0000760 o d e B o d y : \t T Y P E ; \r \r 0001000 M a k e B o g u s P G N : \t P R 0001020 O C R E T U R N S [ P r o g r 0001040 a m G r a p h N o d e ] ; \r \r M 0001060 a k e S e m i B o g u s P G N : 0001100 \t P R O C [ E v a l u a t e d E 0001120 x p r e s s i o n N o d e ] R 0001140 E T U R N S [ P r o g r a m G r 0001160 a p h N o d e ] ; \r \r P r i n t 0001200 P r o g r a m G r a p h : \t P R 0001220 O C [ S T R E A M , P r o g r 0001240 a m G r a p h N o d e ] R E T 0001260 U R N S [ B O O L E A N ] ; \r \r 0001300 M a k e I n t e g e r E v E x p 0001320 : \t P R O C [ I N T ] R E T U 0001340 R N S [ E v a l u a t e d E x p 0001360 r e s s i o n N o d e ] ; \r \r M 0001400 a k e R e a l E v E x p : \t P R 0001420 O C [ R E A L ] R E T U R N S 0001440 [ E v a l u a t e d E x p r e s 0001460 s i o n N o d e ] ; \r \r M a k e 0001500 B o o l e a n E v E x p : \t P R 0001520 O C [ B O O L E A N ] R E T U 0001540 R N S [ E v a l u a t e d E x p 0001560 r e s s i o n N o d e ] ; \r \r M 0001600 a k e R o p e E v E x p : \t P R 0001620 O C [ R O P E ] R E T U R N S 0001640 [ E v a l u a t e d E x p r e s 0001660 s i o n N o d e ] ; \r \r M a k e 0001700 C o m p u t e d E v E x p : \t P 0001720 R O C [ P r o g r a m G r a p h 0001740 N o d e ] R E T U R N S [ E v 0001760 a l u a t e d E x p r e s s i o 0002000 n N o d e ] ; \r \r I s I n t e g 0002020 e r E v E x p : \t P R O C [ E v 0002040 a l u a t e d E x p r e s s i o 0002060 n N o d e ] R E T U R N S [ B 0002100 O O L E A N ] ; \r \r I s R e a l 0002120 E v E x p : \t P R O C [ E v a l 0002140 u a t e d E x p r e s s i o n N 0002160 o d e ] R E T U R N S [ B O O 0002200 L E A N ] ; \r \r I s B o o l e a 0002220 n E v E x p : \t P R O C [ E v a 0002240 l u a t e d E x p r e s s i o n 0002260 N o d e ] R E T U R N S [ B O 0002300 O L E A N ] ; \r \r I s R o p e E 0002320 v E x p : \t P R O C [ E v a l u 0002340 a t e d E x p r e s s i o n N o 0002360 d e ] R E T U R N S [ B O O L 0002400 E A N ] ; \r \r I s C o m p u t e 0002420 d E v E x p : \t P R O C [ E v a 0002440 l u a t e d E x p r e s s i o n 0002460 N o d e ] R E T U R N S [ B O 0002500 O L E A N ] ; \r \r I n t e g e r 0002520 E v E x p V a l : \t P R O C [ E 0002540 v a l u a t e d E x p r e s s i 0002560 o n N o d e ] R E T U R N S [ 0002600 I N T ] ; \r \r R e a l E v E x p 0002620 V a l : \t P R O C [ E v a l u a 0002640 t e d E x p r e s s i o n N o d 0002660 e ] R E T U R N S [ R E A L ] 0002700 ; \r \r B o o l e a n E v E x p V 0002720 a l : \t P R O C [ E v a l u a t 0002740 e d E x p r e s s i o n N o d e 0002760 ] R E T U R N S [ B O O L E A 0003000 N ] ; \r \r R o p e E v E x p V a 0003020 l : \t P R O C [ E v a l u a t e 0003040 d E x p r e s s i o n N o d e ] 0003060 R E T U R N S [ R O P E ] ; \r 0003100 \r C o m p u t e d E v E x p V a 0003120 l : \t P R O C [ E v a l u a t e 0003140 d E x p r e s s i o n N o d e ] 0003160 R E T U R N S [ P r o g r a m 0003200 G r a p h N o d e ] ; \r \r D o T 0003220 a r g e t M a c h i n e O p : \t 0003240 P R O C [ A T O M , E v a l u 0003260 a t e d E x p r e s s i o n N o 0003300 d e , E v a l u a t e d E x p 0003320 r e s s i o n N o d e ] R E T 0003340 U R N S [ E v a l u a t e d E x 0003360 p r e s s i o n N o d e ] ; \r \r 0003400 G e n e r a t e P G P r o c T y 0003420 p e : \t T Y P E = P R O C [ 0003440 R E F A N Y , C o m p i l e 0003460 r S t a t e N o d e ] R E T U 0003500 R N S [ P r o g r a m G r a p h 0003520 N o d e ] ; \r \r E v a l u a t e 0003540 P r o c T y p e : \t T Y P E = 0003560 P R O C [ R E F A N Y ] R 0003600 E T U R N S [ E v a l u a t e d 0003620 E x p r e s s i o n N o d e ] ; 0003640 \r \r E N D . . \r 0003650