gmt-fork/test/postscriptlight/psldemo.ps

%!PS-Adobe-3.0
%%BoundingBox: 0 0 612 792
%%HiResBoundingBox: 0 0 612 792             
%%Title: PSL v5.0 document
%%Creator: PSL
%%For: unknown
%%CreationDate: Sat Oct 14 09:28:26 2017
%%LanguageLevel: 2
%%DocumentData: Clean7Bit
%%Orientation: Portrait
%%Pages: 1
%%EndComments

%%BeginProlog
% Begin pslib header
250 dict begin
/! {bind def} bind def
/# {load def}!
/A /setgray #
/B /setdash #
/C /setrgbcolor #
/D /rlineto #
/E {dup stringwidth pop}!
/F /fill #
/G /rmoveto #
/H /sethsbcolor #
/I /setpattern #
/K /setcmykcolor #
/L /lineto #
/M /moveto #
/N /newpath #
/P /closepath #
/R /rotate #
/S /stroke #
/T /translate #
/U /grestore #
/V /gsave #
/W /setlinewidth #
/Y {findfont exch scalefont setfont}!
/Z /show #
/FP {true charpath flattenpath}!
/MU {matrix setmatrix}!
/MS {/SMat matrix currentmatrix def}!
/MR {SMat setmatrix}!
/edef {exch def}!
% Path fill
/FS {/fc edef /fs {V fc F U} def}!
/FQ {/fs {} def}!
% Outline off or on
/O0 {/os {N} def}!
/O1 {/os {P S} def}!
% Set both fill and outline
/FO {fs os}!
% Star: radius xc yc
/Sa {M MS dup 0 exch G 0.726542528 mul -72 R dup 0 D 4 {72 R dup 0 D -144 R dup 0 D} repeat pop MR FO}!
% Box: height width xll yll
/Sb {M dup 0 D exch 0 exch D neg 0 D FO}!
% Rounded box: height width radius xll yll
/SB {MS T /BoxR edef /BoxW edef /BoxH edef BoxR 0 M
  BoxW 0 BoxW BoxH BoxR arct BoxW BoxH 0 BoxH BoxR arct 0 BoxH 0 0 BoxR arct 0 0 BoxW 0 BoxR arct MR FO}!
% Circle: radius xc yc
/Sc {N 3 -1 roll 0 360 arc FO}!
% Diamond: radius xc yc
/Sd {M 4 {dup} repeat 0 G neg dup dup D exch D D FO}!
% Ellipse: major minor angle xc yc
/Se {N MS T R scale 0 0 1 0 360 arc MR FO}!
% Octagon: radius xc yc
/Sg {M MS 22.5 R dup 0 exch G -22.5 R 0.765366865 mul dup 0 D 6 {-45 R dup 0 D} repeat pop MR FO}!
% Hexagon: radius xc yc
/Sh {M MS dup 0 G -120 R dup 0 D 4 {-60 R dup 0 D} repeat pop MR FO}!
% Inverted triangle: radius xc yc
/Si {M MS dup neg 0 exch G 60 R 1.732050808 mul dup 0 D 120 R 0 D MR FO}!
% Rotated rectangle: height width angle xc yc
/Sj {M MS R dup -2 div 2 index -2 div G dup 0 D exch 0 exch D neg 0 D MR FO}!
% Pentagon: radius xc yc
/Sn {M MS dup 0 exch G -36 R 1.175570505 mul dup 0 D 3 {-72 R dup 0 D} repeat pop MR FO}!
% Dot: radius xc yc [hardwired as circle with no outline]
/Sp {N 3 -1 roll 0 360 arc fs N}!
% Patch fill: x1 y1 ... xn yn n
/SP {M {D} repeat FO}!
% Rectangle: height width xc yc
/Sr {M dup -2 div 2 index -2 div G dup 0 D exch 0 exch D neg 0 D FO}!
% Rounded rectangle: height width radius xc yc
/SR {MS T /BoxR edef /BoxW edef /BoxH edef BoxR BoxW -2 div BoxH -2 div T BoxR 0 M
  BoxW 0 BoxW BoxH BoxR arct BoxW BoxH 0 BoxH BoxR arct 0 BoxH 0 0 BoxR arct 0 0 BoxW 0 BoxR arct MR FO}!
% Square: radius xc yc
/Ss {M 1.414213562 mul dup dup dup -2 div dup G 0 D 0 exch D neg 0 D FO}!
% Triangle: radius xc yc
/St {M MS dup 0 exch G -60 R 1.732050808 mul dup 0 D -120 R 0 D MR FO}!
% Single-headed vector
/SV {0 exch M 0 D D D D D 0 D FO}!
% Double-headed vector
/Sv {0 0 M D D 0 D D D D D 0 D D FO}!
% Pie Wedge: radius angle1 angle2 xc yc
/Sw {2 copy M 5 2 roll arc FO}!
% Cross: radius xc yc
/Sx {M 1.414213562 mul 5 {dup} repeat -2 div dup G D neg 0 G neg D S}!
% Y-dash: radius xc yc
/Sy {M dup 0 exch G dup -2 mul dup 0 exch D S}!
% Plus: radius xc yc
/S+ {M dup 0 G dup -2 mul dup 0 D exch dup G 0 exch D S}!
% X-dash: radius xc yc
/S- {M dup 0 G dup -2 mul dup 0 D S}!
% String width, height, depth and total height (height-depth)
/sw {stringwidth pop}!
/sh {V MU 0 0 M FP pathbbox N 4 1 roll pop pop pop U}!
/sd {V MU 0 0 M FP pathbbox N pop pop exch pop U}!
/sH {V MU 0 0 M FP pathbbox N exch pop exch sub exch pop U}!
/sb {E exch sh}!
% To align text {bottom,middle,top}{left,center,right}
/bl {}!
/bc {E -2 div 0 G}!
/br {E neg 0 G}!
/ml {dup 0 exch sh -2 div G}!
/mc {dup E -2 div exch sh -2 div G}!
/mr {dup E neg exch sh -2 div G}!
/tl {dup 0 exch sh neg G}!
/tc {dup E -2 div exch sh neg G}!
/tr {dup E neg exch sh neg G}!
% Maximum of two numbers
/mx {2 copy lt {exch} if pop}!
% Translate and memorize advance
/PSL_xorig 0 def /PSL_yorig 0 def
/TM {2 copy T PSL_yorig add /PSL_yorig edef PSL_xorig add /PSL_xorig edef}!
% To reencode one font with the provided encoding vector
/PSL_reencode {findfont dup length dict begin
  {1 index /FID ne {def}{pop pop} ifelse} forall
  exch /Encoding edef currentdict end definefont pop
}!
/PSL_eps_begin {					% Marks begin of EPSF inclusion
  /PSL_eps_state save def				% Save state for cleanup
  /PSL_dict_count countdictstack def			% Count objects on dict stack
  /PSL_op_count count 1 sub def				% Count objects on operand stack
  userdict begin					% Push userdict stack
  /showpage {} def					% Deactivate showpage command
  0 setgray 0 setlinecap 1 setlinewidth			% Prepare clean graphics state
  0 setlinejoin 10 setmiterlimit [] 0 setdash newpath
  /languagelevel where	% If level != 1, set strokeadjust and overprint to their defaults
  {pop languagelevel 1 ne {false setstrokeadjust false setoverprint} if} if
}!
/PSL_eps_end {						% Marks end of EPSF inclusion
  count PSL_op_count sub {pop} repeat			% Clean up operand stack
  countdictstack PSL_dict_count sub {end} repeat	% Clean up dict stack
  PSL_eps_state restore					% Restore saved state
}!
/PSL_transp {						% Set transparency
  /.setopacityalpha where {pop .setblendmode .setopacityalpha}{		% Using ghostscript
  /pdfmark where {pop [ /BM exch /CA exch dup /ca exch /SetTransparency pdfmark}	% Or Adobe
  {pop pop} ifelse} ifelse				% Or skip if neither are supported
}!

/Standard+_Encoding [
/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef
/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef
/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef	/.notdef
/.notdef	/threequarters	/threesuperior	/trademark	/twosuperior	/yacute		/ydieresis	/zcaron
/space		/exclam		/quotedbl	/numbersign	/dollar		/percent	/ampersand	/quoteright
/parenleft	/parenright	/asterisk	/plus		/comma		/hyphen		/period		/slash
/zero		/one		/two		/three		/four		/five		/six		/seven
/eight		/nine		/colon		/semicolon	/less		/equal		/greater	/question
/at		/A		/B		/C		/D		/E		/F		/G
/H		/I		/J		/K		/L		/M		/N		/O
/P		/Q		/R		/S		/T		/U		/V		/W
/X		/Y		/Z		/bracketleft	/backslash	/bracketright	/asciicircum	/underscore
/quoteleft	/a		/b		/c		/d		/e		/f		/g
/h		/i		/j		/k		/l		/m		/n		/o
/p		/q		/r		/s		/t		/u		/v		/w
/x		/y		/z		/braceleft	/bar		/braceright	/asciitilde	/florin
/Atilde		/Ccedilla	/Eth		/Lslash		/Ntilde		/Otilde		/Scaron		/Thorn
/Yacute		/Ydieresis	/Zcaron		/atilde		/brokenbar	/ccedilla	/copyright	/degree
/divide		/eth		/logicalnot	/lslash		/minus		/mu		/multiply	/ntilde
/onehalf	/onequarter	/onesuperior	/otilde		/plusminus	/registered	/scaron		/thorn
/.notdef	/exclamdown	/cent		/sterling	/fraction	/yen		/florin		/section
/currency	/quotesingle	/quotedblleft	/guillemotleft	/guilsinglleft	/guilsinglright	/fi		/fl
/Aacute		/endash		/dagger		/daggerdbl	/periodcentered	/Acircumflex	/paragraph	/bullet
/quotesinglbase	/quotedblbase	/quotedblright	/guillemotright	/ellipsis	/perthousand	/Adieresis	/questiondown
/Agrave		/grave		/acute		/circumflex	/tilde		/macron		/breve		/dotaccent
/dieresis	/Eacute		/ring		/cedilla	/Ecircumflex	/hungarumlaut	/ogonek		/caron
/emdash		/Edieresis	/Egrave		/Iacute		/Icircumflex	/Idieresis	/Igrave		/Oacute
/Ocircumflex	/Odieresis	/Ograve		/Uacute		/Ucircumflex	/Udieresis	/Ugrave		/aacute
/acircumflex	/AE		/adieresis	/ordfeminine	/agrave		/eacute		/ecircumflex	/edieresis
/egrave		/Oslash		/OE		/ordmasculine	/iacute		/icircumflex	/idieresis	/igrave
/oacute		/ae		/ocircumflex	/odieresis	/ograve		/dotlessi	/uacute		/ucircumflex
/udieresis	/oslash		/oe		/germandbls	/ugrave		/Aring		/aring		/ydieresis
] def
/PSL_font_encode 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 39 array astore def	% Initially zero
/F0 {/Helvetica Y}!
/F1 {/Helvetica-Bold Y}!
/F2 {/Helvetica-Oblique Y}!
/F3 {/Helvetica-BoldOblique Y}!
/F4 {/Times-Roman Y}!
/F5 {/Times-Bold Y}!
/F6 {/Times-Italic Y}!
/F7 {/Times-BoldItalic Y}!
/F8 {/Courier Y}!
/F9 {/Courier-Bold Y}!
/F10 {/Courier-Oblique Y}!
/F11 {/Courier-BoldOblique Y}!
/F12 {/Symbol Y}!
/F13 {/AvantGarde-Book Y}!
/F14 {/AvantGarde-BookOblique Y}!
/F15 {/AvantGarde-Demi Y}!
/F16 {/AvantGarde-DemiOblique Y}!
/F17 {/Bookman-Demi Y}!
/F18 {/Bookman-DemiItalic Y}!
/F19 {/Bookman-Light Y}!
/F20 {/Bookman-LightItalic Y}!
/F21 {/Helvetica-Narrow Y}!
/F22 {/Helvetica-Narrow-Bold Y}!
/F23 {/Helvetica-Narrow-Oblique Y}!
/F24 {/Helvetica-Narrow-BoldOblique Y}!
/F25 {/NewCenturySchlbk-Roman Y}!
/F26 {/NewCenturySchlbk-Italic Y}!
/F27 {/NewCenturySchlbk-Bold Y}!
/F28 {/NewCenturySchlbk-BoldItalic Y}!
/F29 {/Palatino-Roman Y}!
/F30 {/Palatino-Italic Y}!
/F31 {/Palatino-Bold Y}!
/F32 {/Palatino-BoldItalic Y}!
/F33 {/ZapfChancery-MediumItalic Y}!
/F34 {/ZapfDingbats Y}!
/F35 {/Ryumin-Light-EUC-H Y}!
/F36 {/Ryumin-Light-EUC-V Y}!
/F37 {/GothicBBB-Medium-EUC-H Y}!
/F38 {/GothicBBB-Medium-EUC-V Y}!

/PSL_pathtextdict 26 dict def			% Local storage for the procedure PSL_pathtext.

/PSL_pathtext					% PSL_pathtext'' will place a string
  {PSL_pathtextdict begin			% of text along any path. It takes
    /ydepth exch def                            % a string and starting offset
    /textheight exch def			% distance from the beginning of
    /just exch def				% the path as its arguments. Note
    /offset exch def				% that PSL_pathtext assumes that a
    /str exch def				% path has already been defined
						% and after it places the text
						% along the path, it clears the
						% current path like the ``stroke''
						% and ``fill'' operators; it also
						% assumes that a font has been
						% set. ``pathtext'' begins placing
						% the characters along the current
						% path, starting at the offset
						% distance and continuing until
						% either the path length is
						% exhausted or the entire string
						% has been printed, whichever
						% occurs first. The results will
						% be more effective when a small
						% point size font is used with
						% sharp curves in the path.
						

    /pathdist 0 def				% Initialize the distance we have
						% travelled along the path.
    /setdist offset def				% Initialize the distance we have
						% covered by setting characters.
    /charcount 0 def				% Initialize the character count.
    /justy just 4 idiv textheight mul 2 div neg ydepth sub def % Compute the y-shift
    V flattenpath				% Reduce the path to a series of
						% straight line segments. The
						% characters will be placed along
						% the line segments in the
						% ``linetoproc.''
	{movetoproc} {linetoproc}		% The basic strategy is to process
	{curvetoproc} {closepathproc}		% the segments of the path,
	pathforall				% keeping a running total of the
						% distance we have travelled so
						% far (pathdist). We also keep
						% track of the distance taken up
						% by the characters that have been
						% set so far (setdist). When the
						% distance we have travelled along
						% the path is greater than the
						% distance taken up by the set
						% characters, we are ready to set
						% the next character (if there are
						% any left to be set). This
						% process continues until we have
						% exhausted the full length of the
						% path.
    U N						% Clear the current path.
    end
  } def

PSL_pathtextdict begin
/movetoproc					% ``movetoproc'' is executed when
  { /newy exch def /newx exch def		% a moveto component has been
						% encountered in the pathforall
						% operation.
    /firstx newx def /firsty newy def		% Remember the ``first point'' in
						% the path so that when we get a
						% ``closepath'' component we can
						% properly handle the text.
    /ovr 0 def
    newx newy transform
    /cpy exch def /cpx exch def			% Explicitly keep track of the
						% current position in device
						% space.
  } def

/linetoproc					% ``linetoproc'' is executed when
						% a lineto component has been
						% encountered in the pathforall
						% operation.
  { /oldx newx def /oldy newy def		% Update the old point.
    /newy exch def /newx exch def		% Get the new point.
    /dx newx oldx sub def
    /dy newy oldy sub def
    /dist dx dup mul dy dup mul add sqrt def	% Calculate the distance between
						% the old and the new point.
    dist 0 ne
    { /dsx dx dist div ovr mul def		% dsx and dsy are used to update
      /dsy dy dist div ovr mul def		% the current position to be just
						% beyond the width of the previous
						% character.
      oldx dsx add oldy dsy add transform
      /cpy exch def /cpx exch def		% Update the current position.
      /pathdist pathdist dist add def		% Increment the distance we have
						% travelled along the path.
      {setdist pathdist le			% Keep setting characters along
						% this path segment until we have
						% exhausted its length.
	  {charcount str length lt		% As long as there are still
	      {setchar} {exit} ifelse}		% characters left in the string,
						% set them.
	  { /ovr setdist pathdist sub def		% Keep track of how much we have
	    exit}				% overshot the path segment by
	  ifelse					% setting the previous character.
						% This enables us to position the
						% origin of the following
						% characters properly on the path.
      } loop
    } if
  } def

/curvetoproc					% ``curvetoproc'' is executed when
  { (ERROR: No curveto's after flattenpath!)	% a curveto component has been
    print					% encountered in the pathforall
  } def						% operation. It prints an error
						% message since there shouldn't be
						% any curveto's in a path after
						% the flattenpath operator has
						% been executed.

/closepathproc					% ``closepathproc'' is executed
  {firstx firsty linetoproc			% when a closepath component has
    firstx firsty movetoproc			% been encountered in the
  } def						% pathforall operation. It
						% simulates the action of the
						% operator ``closepath'' by
						% executing ``linetoproc'' with
						% the coordinates of the most
						% recent ``moveto'' and then
						% executing ``movetoproc'' to the
						% same point.

/setchar					% ``setchar'' sets the next
  { /char str charcount 1 getinterval def	% character in the string along
						% the path and then updates the
						% amount of path we have
						% exhausted.
    /charcount charcount 1 add def		% Increment the character count.
    /charwidth char stringwidth pop def		% Find the width of the character.
    V cpx cpy itransform T			% Translate to the current
						% position in user space.
      dy dx atan R				% Rotate the x-axis to coincide
						% with the current segment.
      0 justy M
      char show
      0 justy neg G
      currentpoint transform
      /cpy exch def /cpx exch def		% Update the current position
    						% before we restore ourselves to
						% the untransformed state.
    U /setdist setdist charwidth add def	% Increment the distance we have
  } def						% covered by setting characters.
end

% PSL LABEL CLIP FUNCTIONS

% Two main functions deals with label placement and clipping:
% PSL_curved_path_labels: 	handles texts that must follow curved baselines
% PSL_straight_path_labels:	handles texts that have straight baselines
%
% Both functions assume that several variables have been predefined:
%
% First we have these two constant settings for all text boxes:
%
%   PSL_setboxpen  Function that sets the text box pen attributes (width, texture, color)
%   PSL_setboxrgb  Function that sets the opaque text box color
%
% Then several arrays are placed.  Since a set of several lines segments may each
% have many labels along them, we end up with these variables:
%
%   PSL_n_paths		Total number of segments
%   PSL_path_x		x coordinates of the paths (all concatenated one after another)
%   PSL_path_y		y coordinates of the paths (all concatenated one after another)
%   PSL_path_n		Array with number of points per segment
%   PSL_label_str  	Array with all the labels for all segments
%   PSL_label_n		Array with number of labels per segment
%   PSL_angle		The annotation angle for each label
%
% PSL_curved_path_labels expects those labels to be placed along several
% lines and it needs the node numbers where to place text:
%
% PSL_node	Array with (x,y) node number of label position
%
% PSL_straight_path_labels are simpler and instead expects
%
% PSL_txt_x	(x,y) coordinates of the location of the m labels
% PSL_txt_y

/PSL_set_label_heights
{	% Create array PSL_heights with full label heights
  /PSL_n_labels_minus_1 PSL_n_labels 1 sub def	% Upper limit in loop over labels
  /PSL_heights PSL_n_labels array def		% Create array with text heights
  0 1 PSL_n_labels_minus_1			% Loop psl_k = 0 < PSL_n_labels
  { /psl_k exch def				% Current label index psl_k
    /psl_label PSL_label_str psl_k get def	% Current text label
    PSL_label_font psl_k get cvx exec		% Get and set this label's font attributes
    psl_label sH /PSL_height edef		% Compute the height of this string
    PSL_heights psl_k PSL_height put		% Store it in the array
  } for
} def

% Curved Baseline Text Placement Functions

/PSL_curved_path_labels
{ /psl_bits exch def				% 4 on/of bit settings as indicated below
  /PSL_placetext psl_bits 2 and 2 eq def		% true to place text, false to just make space
  /PSL_clippath psl_bits 4 and 4 eq def		% false inactive, true creates clippath for labels
  /PSL_strokeline false def			% true draws line, false skips
  /PSL_fillbox psl_bits 128 and 128 eq def		% true to paint box opaque before placing text, false gives transparent box
  /PSL_drawbox psl_bits 256 and 256 eq def		% true to draw box outline before placing text, false gives no outline
  /PSL_n_paths1 PSL_n_paths 1 sub def		% one less is the upper limit in for loop over the paths
  /PSL_usebox PSL_fillbox PSL_drawbox or def	% true if we need box outline for fill or stroke or both

  PSL_clippath {clipsave N clippath} if		% Bracket with clipsave/cliprestore and start clip path
  /psl_k 0 def
  /psl_p 0 def
  0 1 PSL_n_paths1
  { /psl_kk exch def						% Index into the PSL_n PSL_m arrays
    /PSL_n PSL_path_n  psl_kk get def				% Get the number of points in this line segment
    /PSL_m PSL_label_n psl_kk get def				% Get the number of labels for this line segment
    /PSL_x PSL_path_x psl_k PSL_n getinterval def		% Get the subset that is the current line segment x-coordinates
    /PSL_y PSL_path_y psl_k PSL_n getinterval def		% Get the subset that is the current line segment y-coordinates
    /PSL_node_tmp PSL_label_node psl_p PSL_m getinterval def	% Get the subset of node values for current line segment
    /PSL_angle_tmp PSL_label_angle psl_p PSL_m getinterval def	% Get the subset of angle values for current line segment
    /PSL_str_tmp PSL_label_str psl_p PSL_m getinterval def		% Get the subset of string values for current line segment
    /PSL_fnt_tmp PSL_label_font psl_p PSL_m getinterval def		% Get the subset of font settings for current line segment
    PSL_curved_path_label					% Operate on this segment only
    /psl_k psl_k PSL_n add def					% Go to next segment start index for path
    /psl_p psl_p PSL_m add def					% Go to next segment start index for nodes
  } for  % The loop over segments
  			
  PSL_clippath {PSL_eoclip} if N			% Activate clip path and return

} def

/PSL_curved_path_label
{	% Deals with a single line segment and its labels
  /PSL_n1 PSL_n 1 sub def	% one less is the upper limit in for loops
  /PSL_m1 PSL_m 1 sub def	% same

  PSL_CT_calcstringwidth	% Calculate the width of each label string
  PSL_CT_calclinedist		% Calculate along-track distances
  PSL_CT_excludelabels		% Possibly eliminate labels outside of line domain
  PSL_CT_addcutpoints		% Expand path to include the cut points

% Now we have the final xx/yy array and we are ready to simply lay down the lines
% and place the text along the line where there are labels.  We will use the
% new array PSL_xp/yp to store the final points prior to use

  /PSL_nn1 PSL_nn 1 sub def		% End index in for loop
  /n 0 def				% Toggle: 0 means line, 1 means text
  /k 0 def				% Index of the current text string
  /j 0 def				% Output point number counter
  /PSL_seg 0 def			% Line segment number
  /PSL_xp PSL_nn array def
  /PSL_yp PSL_nn array def
  PSL_xp 0 PSL_xx 0 get put		% Place first point in array
  PSL_yp 0 PSL_yy 0 get put
  1 1 PSL_nn1				% Loop over rest of points
  { /i exch def				% Index into PSL_xx/yy arrays
    /node_type PSL_kind i get def	% Check what kind of point the current point is
    /j j 1 add def			% Update point count
    PSL_xp j PSL_xx i get put		% Add this point to the path
    PSL_yp j PSL_yy i get put
    node_type 1 eq			% If this is a cut point we either stroke or place text
    {n 0 eq				% n is 0 so this is the strokable segment
      {PSL_CT_drawline}
      {	PSL_CT_reversepath		% here, n = 1 so this is the segment along which text should be placed
	PSL_CT_textline} ifelse		% Reverse path if needed to place text correctly
      /j 0 def
      PSL_xp j PSL_xx i get put		% Place new first point in array
      PSL_yp j PSL_yy i get put
    } if
  } for
  n 0 eq {PSL_CT_drawline} if	% Finish off the last line segment

} def

/PSL_CT_textline
{ PSL_fnt k get cvx exec		% Get and set this label's font attributes
  /PSL_height PSL_heights k get def	% Recall the height of this text
  PSL_placetext	{PSL_CT_placelabel} if	% If we want to place the text
  PSL_clippath {PSL_CT_clippath} if
  /n 0 def /k k 1 add def		% Set n back to 0, goto next label
} def

/PSL_CT_calcstringwidth			% Calculate the width of each label string
{ /PSL_width_tmp PSL_m array def	% Assign space for distance
  0 1 PSL_m1
  { /i exch def
    PSL_fnt_tmp i get cvx exec					% Get and set this label's font attributes
    PSL_width_tmp i PSL_str_tmp i get stringwidth pop put	% Compute width and store in the array
  } for
} def

/PSL_CT_calclinedist			% Calculate the distance along the line
{ /PSL_newx PSL_x 0 get def
  /PSL_newy PSL_y 0 get def
  /dist 0.0 def			% Cumulative distance at first point is 0
  /PSL_dist PSL_n array def	% Assign array space for distance
  PSL_dist 0 0.0 put		% Distances start at 0 and the 'th point
  1 1 PSL_n1			% Loop over the remaining points
  { /i exch def
    /PSL_oldx PSL_newx def
    /PSL_oldy PSL_newy def
    /PSL_newx PSL_x i get def
    /PSL_newy PSL_y i get def
    /dx PSL_newx PSL_oldx sub def
    /dy PSL_newy PSL_oldy sub def
    /dist dist dx dx mul dy dy mul add sqrt add def
    PSL_dist i dist put
  } for
} def

% Some labels (in particular first and last per segment) may be too long
% to actually fit inside the length of the line.  We precalculate the
% start and end distances for each label and those that exceed the length
% of the line cannot be plotted and are thus skipped.  The surviving labels
% and their information is copied to the final PSL arrays

/PSL_CT_excludelabels
{ /k 0 def				% Current cut point
  /PSL_width PSL_m array def		% New array of distances
  /PSL_angle PSL_m array def		% New array of angles
  /PSL_node PSL_m array def		% New array of nodes
  /PSL_str PSL_m array def		% New array of strings
  /PSL_fnt PSL_m array def		% New array of fonts
  /lastdist PSL_dist PSL_n1 get def	% Length of line 
  0 1 PSL_m1				% For each of the m labels
  { /i exch def						% Index for label distance
    /dist PSL_dist PSL_node_tmp i get get def		% Recall the distance to this label center
    /halfwidth PSL_width_tmp i get 2 div PSL_gap_x add def	% Set the halfwidth + gap distance
    /L_dist dist halfwidth sub def			% Distance at beginning of label gap
    /R_dist dist halfwidth add def			% Distance at the end of label gap
    L_dist 0 gt R_dist lastdist lt and		% Yes, label is inside line ends
    { % These are the labels we will use
      PSL_width k PSL_width_tmp i get put	% Copy over width
      PSL_node k PSL_node_tmp i get put		% Copy over node
      PSL_angle k PSL_angle_tmp i get put	% Copy over angle
      PSL_str k PSL_str_tmp i get put		% Copy over text
      PSL_fnt k PSL_fnt_tmp i get put		% Copy over font
      /k k 1 add def
    } if
  } for
  /PSL_m k def	% New number of labels
  /PSL_m1 PSL_m 1 sub def
} def

% Initialize an array with all the original line points plus the set of 2*m
% points at the transition from line to labelspace at each label
% At the end of this section, the PSL_xx/yy array will be the array to use.

/PSL_CT_addcutpoints
{ /k 0 def				% Current cut point
  /PSL_nc PSL_m 2 mul 1 add def		% 2*m points + one last acting as infinity
  /PSL_cuts PSL_nc array def		% The array of distances to each cut
  /PSL_nc1 PSL_nc 1 sub def		% One less to use in for loop limits
  0 1 PSL_m1				% For each of the m labels
  { /i exch def						% Index for label distance
    /dist PSL_dist PSL_node i get get def		% Recall the distance to this label center
    /halfwidth PSL_width i get 2 div PSL_gap_x add def	% Set the halfwidth + gap distance
    PSL_cuts k dist halfwidth sub put			% Distance at beginning of label gap
    /k k 1 add def					% Was at start, now go to end distance node
    PSL_cuts k dist halfwidth add put			% Distance at the end of label gap
    /k k 1 add def					% Was at end, move to next
  } for
  PSL_cuts k 100000.0 put				% Last cut has ~infinite distance

  /PSL_nn PSL_n PSL_m 2 mul add def	% The total path will be 2*m points longer
  /PSL_xx PSL_nn array def		% Assign new space for x and y
  /PSL_yy PSL_nn array def
  /PSL_kind PSL_nn array def		% 0 = ordinary point, 1 = added point for label gap
  /j 0 def				% Index for new track array
  /k 0 def				% Index for current cut distance
  /dist 0.0 def				% Current distance along track, starting at zero
  0 1 PSL_n1				% Loop over every original line point
  { /i exch def				% Index into current point on original line xy array
    /last_dist dist def			% Update distance to last point (initially zero)
    /dist PSL_dist i get def		% Distance to current point
    k 1 PSL_nc1				% Loop over remaining cuts (starting with all)
    { /kk exch def			% Index into current cut distance
      /this_cut PSL_cuts kk get def	% Distance to start of this label gap
      dist this_cut gt			% Oh, oh, we just stepped over a cut point
      { /ds dist last_dist sub def	% Change in distance
	/f ds 0.0 eq {0.0} {dist this_cut sub ds div} ifelse def	% Get fractional change in distance
	/i1 i 0 eq {0} {i 1 sub} ifelse def
	PSL_xx j PSL_x i get dup PSL_x i1 get sub f mul sub put	% Calc (x,y) at label start (or stop) point
	PSL_yy j PSL_y i get dup PSL_y i1 get sub f mul sub put
	PSL_kind j 1 put		% Set PSL_kind to 1 since it is an added cut point
	/j j 1 add def			% Go to next output point
	/k k 1 add def			% Done with this cut point
      } if
    } for
    dist PSL_cuts k get le		% Having dealt with the cut, we may add the regular point
    {PSL_xx j PSL_x i get put PSL_yy j PSL_y i get put
      PSL_kind j 0 put			% Ordinary (original) coordinates
      /j j 1 add def			% Go to next output point
    } if
  } for
} def

/PSL_CT_reversepath
{PSL_xp j get PSL_xp 0 get lt	% Path must first be reversed to avoid upside-down text
  {0 1 j 2 idiv		% Loop over half the path and swap left/right points
    { /left exch def		% Current left point
      /right j left sub def	% Matching right point
      /tmp PSL_xp left get def	% Swap left and right values for x then y
      PSL_xp left PSL_xp right get put
      PSL_xp right tmp put
      /tmp PSL_yp left get def
      PSL_yp left PSL_yp right get put
      PSL_yp right tmp put
    } for
  } if
  % Now PSL_xp/yp has the correct order to give proper text angles
} def

/PSL_CT_placelabel
{ % Places the curved text label on current segment
  /PSL_just PSL_label_justify k get def	% Get this labels justification
  /PSL_height PSL_heights k get def	% Recall the height of this string
  /psl_label PSL_str k get def		% Get the current label
  /psl_depth psl_label sd def		% Determine depth beneath baseline
  PSL_usebox		% Want to lay down box outline or fill
  {PSL_CT_clippath	% Box path now current path
    PSL_fillbox		% Want to paint box
    {V PSL_setboxrgb fill U} if
    PSL_drawbox		% Want to draw outline of box
    {V PSL_setboxpen S U} if N
  } if
  PSL_CT_placeline psl_label PSL_gap_x PSL_just PSL_height psl_depth PSL_pathtext
} def

/PSL_CT_clippath
{ % Lays down a curved clipbox for one label
  /H PSL_height 2 div PSL_gap_y add def
  /xoff j 1 add array def
  /yoff j 1 add array def
  /angle 0 def	% So it is at least a defined variable
  0 1 j {	% Loop over points along line to calculate angle and offsets
    /ii exch def	% Index
    /x PSL_xp ii get def
    /y PSL_yp ii get def
    ii 0 eq {	% Are we at the first point and hence must calculate angle using 0 and 1?
      /x1 PSL_xp 1 get def
      /y1 PSL_yp 1 get def
      /dx x1 x sub def
      /dy y1 y sub def
    }
    { /i1 ii 1 sub def	% Previous point
      /x1 PSL_xp i1 get def
      /y1 PSL_yp i1 get def
      /dx x x1 sub def
      /dy y y1 sub def
    } ifelse
    dx 0.0 eq dy 0.0 eq and not
    { /angle dy dx atan 90 add def} if	% Only calculate new angle if not duplicates
    /sina angle sin def
    /cosa angle cos def
    xoff ii H cosa mul put
    yoff ii H sina mul put
  } for

  % Lay down next clip segment

  PSL_xp 0 get xoff 0 get add PSL_yp 0 get yoff 0 get add M
  1 1 j {	% Loop over the rest of the upper line
    /ii exch def
    PSL_xp ii get xoff ii get add PSL_yp ii get yoff ii get add L
  } for
  j -1 0 {	% Loop backwards over the rest of the lower line
    /ii exch def
    PSL_xp ii get xoff ii get sub PSL_yp ii get yoff ii get sub L
  } for P
} def

/PSL_CT_drawline
{
  /str 20 string def
  % PSL_strokeline PSL_seg 0 eq and		% If we asked to draw lines...
  PSL_strokeline				% If we asked to draw lines...
  {PSL_CT_placeline S} if			% Lay down the rest of the path and stroke it
  /PSL_seg PSL_seg 1 add def			% Goto next segment number
  /n 1 def					% Set n to 1
} def

/PSL_CT_placeline
{PSL_xp 0 get PSL_yp 0 get M			% Set the anchor point of the path
  1 1 j { /ii exch def PSL_xp ii get PSL_yp ii get L} for	% Lay down the rest of the path
} def

% Draw Baseline Text Segment Lines
% PSL_draw_path_lines will draw the lines that have been stored in the concatenated
% PSL_path_x and PSL_path_y arrays using the pen attributes in the PSL_path_pen array

/PSL_draw_path_lines
{	% Draws the lines already stored in the PSL_path_x|y arrays
  /PSL_n_paths1 PSL_n_paths 1 sub def		% One less is the upper limit in for loop over the paths
  V
  /psl_start 0 def					% Start index of segment in concatenated path array
  0 1 PSL_n_paths1					% Loop over all segments
  { /psl_k exch def					% Index into the PSL arrays
    /PSL_n PSL_path_n psl_k get def			% Get the number of points in this line segment
    /PSL_n1 PSL_n 1 sub def				% One less is the upper limit in for loop over points
    PSL_path_pen psl_k get cvx exec			% Get and set this line's pen
    N							% Clean path
    PSL_path_x psl_start get PSL_path_y psl_start get M	% Place anchor point of this segment
    1 1 PSL_n1						% Loop over points in this segment
    { /psl_i exch def					% Local index of next point in segment
      /psl_kk psl_i psl_start add def			% Equivalent index in concatenated array of all segments
      PSL_path_x psl_kk get PSL_path_y psl_kk get L	% Draw to next point
    } for
    /psl_xclose PSL_path_x psl_kk get PSL_path_x psl_start get sub def	% Difference between first and last x coordinate
    /psl_yclose PSL_path_y psl_kk get PSL_path_y psl_start get sub def	% Difference between first and last y coordinate
    psl_xclose 0 eq psl_yclose 0 eq and { P } if	% Explicitly close the path
    S							% Stroke this path
    /psl_start psl_start PSL_n add def			% Go to next segment and update start index for path
  } for
  U
} def

% Straight Baseline Text Placement Functions
% PSL_straight_path_labels deals with straight text labels w/wo textboxes (rect or rounded).
% Only the (x,y) location of each label is needed.
% Use <flags> PSL_straight_path_labels to paint|draw textboxes and place text
% Use <flags> PSL_straight_path_clip to use textboxes to define and activate clipping
% Subroutines of these functions are called PSL_ST_*
% Local variables are called psl_*, global are called PSL_*

/PSL_straight_path_labels
{	% This function will lay down (a) text box paint, (b) text box outline, and (c) text labels
	% All of these are optionals specified by the bit flag.
  /psl_bits exch def				% Single bitflag argument passed
  /PSL_placetext psl_bits 2 and 2 eq def	% true to place text, false to just make space
  /PSL_rounded psl_bits 32 and 32 eq def	% true for rounded box shape, false gives rectangular box
  /PSL_fillbox psl_bits 128 and 128 eq def	% true to paint box opaque before placing text
  /PSL_drawbox psl_bits 256 and 256 eq def	% true to draw box outline before placing text
  /PSL_n_labels_minus_1 PSL_n_labels 1 sub def	% Upper limit in loop over labels
  /PSL_usebox PSL_fillbox PSL_drawbox or def	% true if we need box outline for fill or stroke or both
  0 1 PSL_n_labels_minus_1			% Loop psl_k = 0 < PSL_n_labels
  { /psl_k exch def				% Current label index psl_k
    PSL_ST_prepare_text				% Get all dimensions, coordinates, etc. for this label
    PSL_usebox					% If a text box is requested we go in here:
    {  PSL_rounded				% Place text box path, either straight or rounded, on stack
        {PSL_ST_textbox_round}
        {PSL_ST_textbox_rect}
      ifelse
      PSL_fillbox {V PSL_setboxrgb fill U} if	% Paint it, if requested
      PSL_drawbox {V PSL_setboxpen S U} if	% Outline it, if requested
      N						% Done, so remove path
    } if
    PSL_placetext {PSL_ST_place_label} if	% Show text, if requested
  } for
} def

/PSL_straight_path_clip
{	% This function will create a total clip path for all the labels in PSL_txt
  /psl_bits exch def				% Single bit flag argument passed
  /PSL_rounded psl_bits 32 and 32 eq def	% true for rounded box shape, false gives rectangular box
  /PSL_n_labels_minus_1 PSL_n_labels 1 sub def	% Upper limit in loop over labels

  N clipsave clippath				% Start clip path by selecting the entire mappable area
  0 1 PSL_n_labels_minus_1			% Loop over all labels
  { /psl_k exch def				% Current label index psl_k
    PSL_ST_prepare_text				% Get all dimensions, coordinates, etc. for this label
    PSL_rounded					% Get either straight or rounded text box path
      {PSL_ST_textbox_round}
      {PSL_ST_textbox_rect}
    ifelse
  } for
  PSL_eoclip N					% Set the new clip path, increment clip counter and clear path
} def

/PSL_ST_prepare_text		% Compute various dimensions and coordinates for one label
{ % The current label has index psl_k
  /psl_xp PSL_txt_x psl_k get def		% Get text placement x coordinate
  /psl_yp PSL_txt_y psl_k get def		% Get text placement y coordinate
  /psl_label PSL_label_str psl_k get def	% Current text label
  PSL_label_font psl_k get cvx exec		% Get and set this label's font attributes
  /PSL_height PSL_heights psl_k get def		% Recall the height of this string
  /psl_boxH PSL_height PSL_gap_y 2 mul add def	% Set height of current label including clearance
  /PSL_just PSL_label_justify psl_k get def	% Get text justification (1-11)
  /PSL_justx PSL_just 4 mod 1 sub 2 div neg def % This is 0, -0.5, or -1 for relative x-shift 
  /PSL_justy PSL_just 4 idiv 2 div neg def	% This is 0, -0.5, or -1 for relative y-shift 
  /psl_SW psl_label stringwidth pop def		% Width of current label space
  /psl_boxW psl_SW PSL_gap_x 2 mul add def	% Width of current label space including clearance
  /psl_x0 psl_SW PSL_justx mul def		% (psl_x0,psl_y0) is rotated/adjusted text LL point on inside rectangle relative to psl_xp,psl_yp
  /psl_y0 PSL_justy PSL_height mul def		%
  /psl_angle PSL_label_angle psl_k get def	% The angle of text w.r.t. baseline
} def

/PSL_ST_textbox_rect	% Compute and place rectangular path for current label
{
  psl_xp psl_yp T psl_angle R psl_x0 psl_y0 T	% Rotate the coordinate system to follow baseline text and make (psl_x0,psl_y0) the new origin
  PSL_gap_x neg PSL_gap_y neg M			% Set LL anchor point for rectangular box
  0 psl_boxH D psl_boxW 0 D 0 psl_boxH neg D P	% Draw text box going CW
  psl_x0 neg psl_y0 neg T psl_angle neg R psl_xp neg psl_yp neg T	% Unto trans/rot above
} def

/PSL_ST_textbox_round	% Compute and place rounded rectangular path for current label
{
  /psl_BoxR PSL_gap_x PSL_gap_y lt {PSL_gap_x} {PSL_gap_y} ifelse def	% Smallest gap distance is our corner radius
  /psl_xd PSL_gap_x psl_BoxR sub def 			% When x_gap exceeds y_gap there will be an adjustment in x, else 0
  /psl_yd PSL_gap_y psl_BoxR sub def 			% When y_gap exceeds x_gap there will be an adjustment in y, else 0
  /psl_xL PSL_gap_x neg def				% Left-most x coordinate of text box
  /psl_yB PSL_gap_y neg def				% Bottom y coordinate of text box
  /psl_yT psl_boxH psl_yB add def			% Top y coordinate of text box
  /psl_H2 PSL_height psl_yd 2 mul add def		% Inner height when adjusting for any psl_yd offset
  /psl_W2 psl_SW psl_xd 2 mul add def			% Inner width when adjusting for any psl_xd offset
  /psl_xR psl_xL psl_boxW add def			% Right-most x coordinate of text box
  /psl_x0 psl_SW PSL_justx mul def			% (psl_x0,psl_y0) is rotated/adjusted text LL point on inside rectangle relative to psl_xp,psl_yp
  psl_xp psl_yp T psl_angle R psl_x0 psl_y0 T		% Rotate the coordinate system to follow baseline text and make (psl_x0,psl_y0) the new origin
  psl_xL psl_yd M					% LL anchor point for rounded box is on lower left side just before rounded corner
  psl_xL psl_yT psl_xR psl_yT psl_BoxR arct psl_W2 0 D	% Draw UL rounded corner and line to start of UR rounded corner
  psl_xR psl_yT psl_xR psl_yB psl_BoxR arct 0 psl_H2 neg D	% Draw UR rounded corner and line to LR rounded corner
  psl_xR psl_yB psl_xL psl_yB psl_BoxR arct psl_W2 neg 0 D	% Draw LR rounded corner and line to LL rounded corner
  psl_xL psl_yB psl_xL psl_yd psl_BoxR arct P			% Draw LL rounded corner and close the clippath segment
  psl_x0 neg psl_y0 neg T psl_angle neg R psl_xp neg psl_yp neg T	% Unto trans/rot above
} def

/PSL_ST_place_label	% Just place the current label
{
    V psl_xp psl_yp T psl_angle R	% Set origin at text point and rotate the coordinate system to follow baseline text
    psl_SW PSL_justx mul psl_y0 M	% Goto LL point on label
    psl_label dup sd neg 0 exch G show	% Place the text, adjust vertically for any depth below baseline
    U					% Undo damage to coordinate system
} def

/PSL_nclip 0 def							% The depth of clipping in effect
/PSL_clip {clip /PSL_nclip PSL_nclip 1 add def} def			% Clip and update PSL_nclip
/PSL_eoclip {eoclip /PSL_nclip PSL_nclip 1 add def} def			% Even-odd clip and update PSL_nclip
/PSL_cliprestore {cliprestore /PSL_nclip PSL_nclip 1 sub def} def	% Cliprestore and update PSL_nclip

%%EndProlog

%%BeginSetup
/PSLevel /languagelevel where {pop languagelevel} {1} ifelse def
PSLevel 1 gt { << /PageSize [612 792] /ImagingBBox null >> setpagedevice } if
%%EndSetup

%%Page: 1 1

%%BeginPageSetup
%
% Init coordinate system and scales
%
%
% Scale initialized to 0.06, so 1 inch equals 1200 Postscript units
%
V 0.06 0.06 scale
%%EndPageSetup

%
% End of PSL header
%
/PSL_page_xsize 10200 def
/PSL_page_ysize 13200 def
/PSL_completion {} def
10 setmiterlimit
0 A
FQ
O0
% Set plot origin:
1200 1200 TM
33 W
{0.9 0.9 9 C} FS
O1
10320 2160 120 -480 Sb
{1 0 0 C} FS
180 480 0 Sx
180 480 720 S-
180 480 1440 Sy
180 480 2160 S+
180 480 2880 Sp
180 480 3600 Sc
180 480 4320 Sd
180 480 5040 Sh
180 480 5760 Si
180 480 6480 Sg
180 480 7200 Sn
180 480 7920 Ss
180 480 8640 Sa
180 480 9360 St
{0.5 0.7 0.1 C} FS
O0
180 1200 0 Sx
180 1200 720 S-
180 1200 1440 Sy
180 1200 2160 S+
180 1200 2880 Sp
180 1200 3600 Sc
180 1200 4320 Sd
180 1200 5040 Sh
180 1200 5760 Si
180 1200 6480 Sg
180 1200 7200 Sn
180 1200 7920 Ss
180 1200 8640 Sa
180 1200 9360 St
FQ
O1
180 1920 0 Sx
180 1920 720 S-
180 1920 1440 Sy
180 1920 2160 S+
180 1920 2880 Sp
180 1920 3600 Sc
180 1920 4320 Sd
180 1920 5040 Sh
180 1920 5760 Si
180 1920 6480 Sg
180 1920 7200 Sn
180 1920 7920 Ss
180 1920 8640 Sa
180 1920 9360 St
17 W

V 3120 0 T 0 R
N 0 0 M 4800 0 D S
417 0 M 0 -83 D S
417 -167 M PSL_font_encode 0 get 0 eq {Standard+_Encoding /Helvetica /Helvetica PSL_reencode PSL_font_encode 0 1 put} if	% Set this font
167 F0
(40) tc Z
1252 0 M 0 -83 D S
1252 -167 M (60) tc Z
2087 0 M 0 -83 D S
2087 -167 M (80) tc Z
2922 0 M 0 -83 D S
2922 -167 M (100) tc Z
3757 0 M 0 -83 D S
3757 -167 M (120) tc Z
4591 0 M 0 -83 D S
4591 -167 M (140) tc Z
2400 -417 M 250 F0
(Some Axis) tc Z
U

V 3120 0 T 90 R
N 0 0 M 3600 0 D S
3600 0 M 0 83 D S
3600 167 M 167 F0
(0) bc Z
2700 0 M 0 83 D S
2700 167 M (25) bc Z
1800 0 M 0 83 D S
1800 167 M (50) bc Z
900 0 M 0 83 D S
900 167 M (75) bc Z
0 0 M 0 83 D S
0 167 M (100) bc Z
1800 417 M 250 F0
(A Reversed Axis) bc Z
U
83 W
3329 2700 M
626 540 D
417 -1440 D
1253 -1332 D
834 792 D
919 -360 D
S
17 W
{1 0 0 C} FS
180 3329 2700 Sa
180 3955 3240 Sa
180 4372 1800 Sa
180 5625 468 Sa
180 6459 1260 Sa
180 7378 900 Sa
%
% Define pattern 92
%
/image92 {<~
J-X0td.%*)!Z$]O!mu:$?6CX(TV<U?!-\\c'F3!YCd;8IKEqepfbegM+W-?^d"r0#69l>YKJDDY!'qeEb"'C%JM<$S,`r?X
@Gr>_'ckWB-";]bW)bF3$O#aW3Z9XXOi1+ZoQn1_XpBpf=a7H$:_O<E+kaYU?mc9i"IB]GZ3C[V#6A?CA42GS'9!4un=a5`
+ZKmb-ZX(61_gQ)_LmC>N8Qi*Qc/QZ&9O!Y&XirVj+-E/2Mm?K&G_"%C*49'##gKMN':>YD>-,Jon[?+1^n@+/dDas,WlZ-
`dtXQ^c(?bZm3kg'I[W1EHLet*p]+N&"!NKnj1'7/hd]\r*GFcK@^kB3W#aE9L8B6DES(Bd.#C#^VQsA*C"Ei?8r4n6;I9c
m[LZ=[n_`A-j44P-EDk'!.O.C/b0Ic00qiWr$!]M-n$5*`(nUam,VER0#;=4)+J%BE#>P\^d+8VC/C!G$*j8oL9%:o#8i&U
3X1ZgBU],8Kn9RoM1U;g>Qr&AZVlL]m-%7T#_BcJ.gZ5[rY)f7f^Kfq5bLp_c+r$[j9VoHC=g%93/\NcaMKe1b0><H*M_hV
I-@f.1fiKh_<i12_+[t#7`176oh$qk)htOC&^hl_]C6c^Uq)R(>W`8a2,QlLmONDHXhd+HgHSGB4Ud,)LsR?$K7jD+['Z(]
lFH?[$6"MJLfk#"XV9b7,KSo^("<[Cf\j=liq<kimI^1k1G%9<C!eb1khK3P6tXsQl.'[2.tQW_,"PTCGVBD:ikIh;QeJs1
#i[g!N`o)epk1+_4q](H$k!:rN.S99,7G`S'G1o9#[BTM/9X..;HF2:M7PLm<tJ0Ml<u.J#pKY-=t`ODF15RW'iWX?7WFED
1o6W^:K,aX<X5bt-Cdpk]@BjcK>M$El(S>-W9QC^1uR)$o4eG`!5^k^]Ch_6n'Xu/oGN_lDUD%]m[].QAsH2Al*o(eVaeI>
*denqBL?P5[oX'BiG/r;f&3S$S_1(qPT%A_EWP`R(o=_,,:%uTm$&9oZT]%LU$.O9Ko3bB<%SIa^Fs/!I/(Jn_-+HfP0<@-
&O`@1XRcQR9mUQ7e%Q)mqQcPQ55Dim1N<&no;6frj-tMQd8LN"'*6#!>rmf,hS+-'<5/-W!7]T-Z,23:i*<i=%hkj/f+*cd
4[=@#Gt7^j';GDY?/4^deqpGV9's<cd`-^!klYhCi8$<_fQ5=-q_uY/r":i&$pe8T"n6%=J`'?2T^X9T:DnU2nfn)H@3($j
S<tuA1;a,Rlo(Y5Z[uS`'7f":#QT.Q!JRsP*H3ZG:@oAN+CGD5HR:Gf=G&m1TR>#$gI)PIQC@D)\kU$_JWDCT[tRWb"9PQ4
NNN*\`H2\q,&0("*'=jTT$bZ2hM^PD0JetlBj'/g3\'(^*%2q3hBDVG7'PGhkDp:mZh.m"Q*mS>b+>6\.g=1Vjr:73'2Epf
N:7Z&P=5OXM8<G<%+.JZ1eLf.m!p_PL]mg@+p.iO*J>P==FkE6"=7^n1!(%a[mJ*H_=XT.c."9HjG6;LJSHILXGN][3AR:K
@8$Zg&d(C("Mu9J#(\HO!m#,`c7-J_V8NhA7.dkI\0>)@,k\qX/kqo5G:(?*6bIqM[+l<ZND/=m]`<[0T?3jU:<#3*K#VF;
,]X.JE'JuRl3kNi7V<>j`ZEh8gW_gJ/k+13.%,GlA)X.ID;mZA,DuMsj:*qD5l&*d>fff03)Qu!!##X><hdqjBdZ&R]@E/'
:DA.C;L"$6oj]Qhibt??E;p'+H4jNLRs4@!QFTUn18\eaM1CF2Jb"pZJg*#UkCR8=Un5(]5]?o3l7&,f&=j?*"&A#eqD_uP
bgB8i1P?oDK4b1/VZG,<a&2!=g'D_dikqEFniB7me8X7.2PDM`3J3226s8G1&)e+j1b0L`%(abhd8[Y&L:nR$`+N5.8C9uj
g1BX9#^UY**iOl)=O-l&#EoGP]_B@i-c&tDm="T96]?";.M7(6'rct=SSG-EKK$r9.0U;)(W(u`$hZZ$3P)0O;RHhB,`W!q
;Ip"?U^24@)/Xo>TEl=%]g,2_('ri[`Yn$8/>RRcQtU)c.3LZTCJL<#AS0iG9n@0t!sU>LG]jRS$F/_?2+L^@FO1p5;bCT=
fapFU'@dKr=Ghn;B%GL4.ib1DKh=O\6[9>j/3HMhH<Z#i)(gH=D/\,gKN0=8PZ'eGa/-`d[a*T:X#GD+h5q<4U2q#_n5\*u
_&O4YnkR(^#U1B@<;#;a(Uui3i<Vr-J7p9]UHCT\.MG"XDPF@dM.BF;jJ%Eoc#K^n_70uJ]mNf"0UOTsJ\2h"6gh7cQn)Fl
#3+_j1:@n(`?p<Y5#6KW@'3eS<%R=Q`Z-jVn9?M$Z+!#O"5p^mC*6PlJQ-)*GFu_[2cqC_+6`LtZmU6Q:.,r"TN6N5R]\\g
+RhXLrJ2-:Pl&RFp,o%V1EXH6G[m,-,fUM3p0grSdf@E;@d<<FNb(4i7O>I_[j*5YAk@uf7H)%]M^G)AqUWf@9#Zt5OVPaC
h?ra3"IRL/F:m0T[eUB&("bq4No>NPTqsnR#G+g=!skmlIG6hr`Gs(BD76iXn!#]Dj$*8`>TC66oW<&cAX`sVr$5F<M*GJk
8DSSW)_Ir!3>m\=ap)3\>jP):nLe#QRo<+):k&=Y'#fn?E8g).H(ce!7bXuhB4f!bLU*VB45h%="H^tEDPbk?>]gK83)apW
*`:ib)-d>aiY03PJIQ&c7#0_&,t&SW&]($8K]\QQT&C'/3>dMn\&f[52Vd4n`TnA;GM#dp642]40Em"-(]*,l4YORi@CqU0
?WH(hV1r@!.]i+FrAKPIXj"*$#`a`[3fZ-f:6IZ!/65?q;Ui\UA%'h30c*c%C:*0%G`%:gL>Sg#']hd^XisZ`&T)cN&Qa^%
gnJqD`F/[s7csJ2c$WW*VadP;E7,PKn58ShK=HZNe,&?V<^$*S.]$kEh[D6RnmR&<$/l^8JRfIG0GX[R!+A&'JPZu0h@cLL
#pA^EkNJ)(`*^Cd?Xg0S"\QT^)T+oTN:,I-mcY1sa:?#,rF"Us+R8CR"q6%A%'VqWbt@TJ#".H>[)pBa,hrN[OG#<.W=XIO
!)P:YhPh''#V(q%!'11S1'5gb#;C1RX%]$uPYL'M$K+n6Lr@jsN9Y9dB4\0qa4,mG&EchG"tVI(YIN<2KPaDEN%]dA,HNG6
,^b6m6OlRGL<>Wh#[5Q31Z\m1bj8J!Y$Rj".\`s@^q'lg\dK)]llbj)k+Yl\?mWn(#1*#I5qWfo.0Le2&qL`0JKb[L1)'a<
!<FV;5gBZZ!<NB9$DVXE6s;*6rWI.[[;,!T^fM8gFRq1g%%uAc+O^mPS.'qq(X[dNJBA5E^D0#:D/:IlD.GKD/ktY*-:;N7
#<"--b#W<g1Zp5n0jtiY^o-IH70707,N?t-^-Eu6j^=1V/l^q_OV.(Ho-=D%Xorm'N\6%<#Crr\Agdj25`G'BZYb`adG42i
r,6(eJg8]c#\lh:GR5aPgZ:d)+CZh^#^8!#P!aUJm)1<fC^0r_,[b^A6BE[u_Z@QV)23$RnmGThE;Zmg"<dIN+Q"!.jq%O]
(Z<aF0NA86lLN-,\\kfH`0V^od\K7Yhs:u`0-1T'Uq2[&$Nti)U5B4SXpK]J/!1VI@(m9SfRD!VTVG+CW\uIr\IIJGe6m8J
`?7/m]"%7BU!"EMB[g^WA2,k%32]"pi&1rF!-Fl5$@pV1O#%n7#p;#<FO)`05ZgFqMH24=0G43dF"]<16OaFb1T$[YXAi1'
_Y56:f;$bcnZW1nV]t0:_6LQSDdOppE[=%oK8;jI,&nmFO=*Yh]-+gh$-'8;^dCf1,Qb"rY9a&;O"9gd8.YG@L.[i8n8]_`
3baP?V/U!!f);nT.l4gdb.]c#O=<M<r@eusmASiRY#`C`S7:P/kg\+gjNrP;o70q(AL/XbR5`QMf]I0*de<:mM_o7U3Kl''
+HcfH:]qC4<$TjXUXLn%5!SYui'a#diol,Kd"\?f@"ZocPX,`br&7K_6A+tnk%O&_`jbF_I47p^8mFQ`>XsHb9;ut='5BEo
"ssLn-,_WqZXT).rh[[q-PVI3_VZX`HP#,p$k'#-%q<NiKMD[,1&r[/+@6-+TL;73/a,0GjD.7V1kOh!2aT'JP!M4r>dgC?
;5-2\-G"-ZnKS3V6Nf7nAapH8'2Lnf'7i/>TfGnF6TOWWE,P[)$l75b#ei%n+>-p;Z/Eh0HpBJE3KrPk`+7B=HUC%m1GSkj
k,Qu8#/3f=$W>\QAW?dVTWMjm>8$_u?qe(_eF<N]*roFYa"V30%&ebt4CWjZ!3cks\57d1#f)6#^j$$5;?dh^'lmV57:Q!<
B0tNM"X#Qm'pbg#k_"Q"W<?i[MOm3MYtIo.k3n=GUd/-NpbRZ509b/oQ';Ifi_$5.<`H_a:i[m\=:??<%OgWIBG`A]njJ"6
5SEiG`kk''djRK?-ajp&dX>Q_(_ORt@?PsRYN.p-)%;KSghm/sNAgZl%/KQi^D/@_/3.5'I#+]QN[u)_8CYAHOQHOpk^\,s
"R(h8H:8&R6gkX;m<VkGpK"WO3N?9U"h.7$*D"(Z(U6"5<Za5u2-Rqk7cd*;<8L#>OYijG:%Yc,OH,V\PQK!iCh[odP$#;V
_Cag;HXL)dJep:SQra_t3VC/s!0^`NOFrh39Q\<Z.:OY;L^eo'%Z'Dm6_7?fRO2KObV-QT,JGDGW>Dso$\EU0QS2GUKb4=K
%m[)s+JoepcA[PNk)0#XYfLGe>k>lK<06`6kT+?u@s2;i5ctP`j-\I,2cR'<;@NV#AoMNQ5A.4AgB=*i%l6MuaWjSrF!E(_
lad8(U-qO*,fhtP&<JE)Qt4*2KCtsMVjI^`&=4LP!WX*cTG_Qid<uBr8<\I,1u_0tE:q<u<d$U56c<l<&T6Ni-OFgH2<%9;
`e0?#$m?/jn_?*?jonQ/bMmIg:Z0m%9k[Fb2+"2kFHe5kTieV4-W54<:X\5]'2J<n#NU].oH%JJ&il-nKpYkoK:#1uoHG`/
,up]G+qZZ["WurD+=0Lk77SB$=Slo`NT;O5K8U\#%"fZNWJ=f!j4$4>e3;MsQt"'58BsU7G(\^6G,!k9X.8B@X>L^)7cZj8
5[_OtqH\u?QSum#@d,-)MRpU;45^oJ0Qr9BAl`GD1i3L]N8ucl>Z+J:%?C:/p;-p@re't#]1g9R#_kH1E4VAd.l++8i;sOq
M-L7TN1rFdoo99BH6Umt,hYm;Pe_oCZ3H]-M$fM".#_1t4p?I9"'9)jiuG..5+5#a"2MDP5X5V5?39E'R3L3/<Sf?qmn6Dn
-Gspm!sY1oTEB6AGm5cTV0r/_s+nX.$KnTDj2=u-O[HDrRjdeUi)F9B?CaE!1QTVfbG["k4t.$!nr.eujiF#)VUo?VJ#ZS"
E#qPP[KOZ(r@s\lkN3r**L3@05-4*>#C?!M;Uk.PD/P$j:;\P[I5fQ@kY+W^7gqO,lLH-F.70U5nW=WkpF)%MeqJ;Q+D_6)
A:unDDr>&MeX(&\7jJGMGJbk.GkI!1:7PfB-9u7k5ahp#2j^M>#68cG=,ntL]9r`kXeY;>Lp)Wq-qWZr?s0LPo+RSgZMDkr
T*/-<M$c(-krKqn8bpGAD4Cf!66UAW\hPV27?o!_ehpou?',\tkBd.P`Zf\ok8)kI,nd2e*D.tS,?R8u$Z)$$+sM0:UNtQD
<([:8:4+Z$nO)<Q'jLr;O-05%Ng9AL2aRr6oNX7m3u%/iE==5&Mcd9oV"ZC'E#sI=&Xde)#W$=`FdFB#RP%K@[4Fr]4$'RD
c<05a[MJ"6q5/6.Gou/]@:gu[M1dA@r>W`'X()>^TKb+D#rRtsXD$t'$M:i&&3)#n7OaQe[9mGX:,$4Wr#73$"q6ec.4kNX
bMm)jV70`sL*4j3:b(7AA[[JJ#ir1$+X:#VCYUZk`eku32ZpZ3-PSF_:HKCd,?lOrHoo5rIO!")Bh<n-@sm[IcOlt'.92:H
r*1XZPXiTg-&sBT@VEG/K5>:b>H)+\WJc;BcXofkViOGuEg)C8,gFT.Imo5PBON[f:c%_h$O.RQmnUjj:duXk,%AbJ"qj#D
#R1!F>%W^9a:K]A#?kM=.3%,U8'ia`]Y!_nbmE<QUa^*0a@'^!oLCU+0VMbV](P2d]nR$p%9#n\L]e<m1ZVU5`O@c!f_'Qn
4-_RR[b1p4@P+>3Q*?_`.QC&D9d>'B?58ebkW_&"TEog;VHHYNe;sh/9-f4#$D@"uFA>gR$7!]UI0@-7.<6r$;!:=n<V0r,
PeMcQD?T/UBbY._aeT;pHj,t%LtQ#8HJQ;tpBW!W,j9S]-"=ON/NcD:gE8\;@VsoT#VRSrbmpnc&frV3\hV<s8](e\TLUjm
A0^P[cGT+=b2ai4aAsb09%7G"OSl!&V?DutW1uPJ?2r?aJZ*u$Eok(m8P1ON<GdPLO<n@/Y`T85($'c:i,SJcjKiEUd^65o
>bjlTjPa8[AqN?^"TVk%\O0K,ie*Q;D&[LMPt'E/K^Y`D9B:$45en)Ll&k=]3$LIc1p'LYIF2A!"*p3$^a>P$=G#eZM2@pn
BO-n6Q^J&hQR(T`e?/$SFbu;1eCpDo=bHkAYTUl_]m86cV49URo"`n=G+oc0,6k-!d)`Om8UD;SDcPdG!s]]M/q3.Ej(_DP
MCrB!2;9`PSb(h=]m>t516!U``PRl_C=Q9<AVd@2\%TV7-::Bp<Ooh/KiYVICV>dr;WV,rLT'Bh&Wl6X!uM'gpV$5_RJ6bV
HVmg*jhl48MkK1pEq2LBNQYlY"sF\^:*L9<oKTLAAXXgoXLb!ke.;\siX6l"@N\dA>JM`]F2=VVr#1G<lF5Wc5MX2K.fT0+
^N'R]:QOYC?m5S&(DI%Io"_n#5S69>:e4u=THar0"E9J7:iINeNW_(M^jmgu&4`K=5sT<^-l<78nM(k3J/sP<Uu>_fF?hf$
c:,#V"H$J1&-BfOM;V94+=IVMjag6U^al:>KLLHj/79;*$3\k0,eC2s##4DmC/DELG:&.X"7Y:IF_i.UOQ7@Wg?WYt?EX$B
H5qog&fq8o/05S\4@#+Lk5m2hH75(iK>R^LY[B,U!^Zn/i?7&V/0G>['0sJa=;,D'+u;LR-rC`]`rX<Cn6fWGKae+.i36I*
*=,CB.<MI;-\r'$S.X,X^bH!,"r1"6n=V*J%ROI*OW9B!/<W??6;S?8(@VMt"G$M)Vl@"#kM7kG^cO1BLZQn!i3!fO!l.S0
LP#S5*Y&4L>VlZQ+CsA_@t8m)WW?=s(rHj$Zlk!p@qls;n)>bo^M[9Lj.rBY>`FCbqEEU8JG>3A`NDQZY9W<FI%Da:_FtRi
Og7TA-dgpqYd4@V_W?>8\t5k;c-(9hXIu@j)5jFS((c'i6;We1iGe9.Y[T"=49hjJ>X,Cn$KSlpF)(\!9nEf#)Su$oMUr)b
8FS.F_A^(V"/*.H#W%!=.L^pW\6RAf6MW;n#UD[6ekB!b-81&2#f%B11'0ZE6-_!19XO'UP88aZ3(6NNTO=E(8\n@[ot=h]
YRh9H:iJCP+X$P3"-t&i?O$Y*e/C>iRR#O-Jq>V;7PSRr%Z'+p2f&T"h6[jM5hn;<5N,iU(Xq?NeTFiqZn-r9YkU3hL*9rT
)+uAfo_1@[RM:ZNB`s6STi&-F*$oUQ'c>n<&1S4mF=OsC8@TpPKjb!C_R%+bMPBE+19st4`U&jo=3OTZ`ZO<1AEc_oPI=T2
cBG'j_nl/lM`YMp8H:8uUX5k`N<4oF,DXd!?_WE%M&n=u@pl0-N;6t4_lcqU)TSYQ4MS$p%K55D,1>Pb(^"NEFr=504+D;V
O*,UW%tk5F7M/"bni@J<QMNrWKAbN3%YN-,.ukg"/QW'J3l;`iFj%[JKn9_&&]Ckp2n9%b1bj/1ogiS:WRB&j&LGU]$l?kp
-2W<>JH13:84_fLg@fN!DNf^H5W%QFq_MuQUPg)_hpc@H.\ZX#XDl90kfV3HFK2(;-7bJHBU8DWj-ITd;ocp8Y#D)(_G2V"
cF3Z[7*;sIi1SqlY^r2B-KZKa*\;eM_c.'38XQ%/p'dA:KMKgt*tjgPXB3M@22GDk-rbS7d!DX47\'F15_'(A?t'Fnr'6%a
jrac9E":j<&I6]3++n)G$%]lK"\/t9!^L-"XY&$aU+Eg8gQhs-8.d"W`fs)9)fuFdqB6u-CeaH*/EiVu06<(@&`HA6jLK^?
p#_UsYr?jePq%lk^2aSAAKrV2;+?ms#2#?,7kojOOf**N;?BH@a&o=Lj5e9RbR@tJV2,..P2g"[H@/;\4@I:.CXjn_M2\_e
29@7VRc1>`M=kun&C;"_:et[TE_Za:VKJ^TVj"&fXsH#K]i?6c2sn-_`,NL'_72`8CXjlP6WC[TM(Ur"O=g]eX;=4=8.#AP
U]]k!%`5GI$'Q-7baG(3@7XK/6#eH;@!i+iU02Pm\J#PifVf=C$p^`klPbk"I@g>@,GnSe!C1<+J=8AbBZ0g#@Q7&tJ/Uo?
.Y#I4ZTf%DBm8p&&fFjQ[:B,N">UHGP0!#1Q!Eg(<)=%EU7Btu>^f3(S]DC2>9M3`=]8#%1*#CK'NbACG>@BRdhc[dP0?mL
7pmL1PEKe)eM<WXd'0@49#?]r1j6%M.%+S.O-$XXHH7?WL-YkZk)`XR+`oAni6E$)3+#tt2$]Y\3YMQ+/-`oJ*@.Z;$:09)
-\0hdK-4h7!I.!<5gj?K^p"C]_2sHaE"3$?J-V,,c'?PM(p>WL%KP%="&T(hUC%B?5f,*n28.lJWTt]U)'!ZDehn.Bc:UuE
$mmC"3[3QZ:COQ27HBar'2log5hR2LUkuDl=oq4Xi$s=)7E:m$(mjM>[uBcDV5I^',D&7%JHnU(W5'tSb6SFW+@bWE<=2lH
V:`CR7H<5[Dg3oX*Dj4IU>D&OGOE`B]`d.XW,No)$1h4WWnFOA\5jON88+GXr'Z>!![U5RM$sDfUH6=J;SbM="o(?gfs4Lj
_%8$t+F`f<HoRI24G*d0KEd&s+c-2l/-S:S&:iP;4RmR4TB1hG'pG`b%Tu(@9?tf/`THG+680ga*2#`9FVuq_,.k+MUqOc!
_+;1E")f4<[Zkt-h4tEolmjOt'BK?hFWdAZ*@k=A,6CO@=YPc4ZD^`=[-;#961R:mY,99Zi6.pJ%Z+"]r:\1I>G4DAM`nX\
SNAG&Hj7P`lSR6j)lA]r$Gfsl"H\hClBl5nTt!(:Qu3RV6;q/e33QU\[S>0Pa27n+qEV985_;6S?EWPPJedF(@c=_N(n20l
/TBgs3E@V@S^8hgXE)C0nAh=SEIp,FQSNDsWCP<t38B"#!:4$8KXo+_JhG[Gbo2R;4""Tk;&gNJe29n3W1:8sn*4pMJW[a3
Q?UP\'>eqB,b<u,ZQ/nZJUB)Hh=:YN,+0Q'H?;Xld@k+?gCk?AB86gc+YY=C'C,!7br8@(n=UC5O@$&lkTU-@NQAsq+4Aqo
:6q!1%g0UB8npQZ!,rPPDk]M0(XnkJ[&5P(UQ(bae;?X!;%O9hRr`4QrLo&hK[]AS.U!P:+"L=Y[T`YS02ZJrS<uk@G?uI]
;d!;U[:kAibM&M91>:K"DBkPj[W^IH-![seqLn0Me7m`%P.R+_)`(4!TH#,.ID3j2/7YM;DB3=N:eBEK"p$t2GonEp]Vh+e
hII^Q_O'@2?^UDuLWWRl*0eqI<t'Yu1?iM=P.;"Gp%%'fbgq07'TXspGLH3d*cdu+gt\'D@W%>TTA"Vt,KE2m+?A%7JPO9U
$n,ZMR`FK-C3c^oe!(en*G;X5,dSrr(83ib>#1=-`nHQ=[Pmp##eC)dLe/PqjZ41q(aZei4j3O#$.n">o&5,Yc)M_-2j0%2
$K[[Y1,s&+PlhmZ#c3a$n$5d3JKa'Z8.u@\o<1/ON0<T8](<+Y%R@&bY0-5bg@-fNnd4NFM^ggtPE;hQbe\hRN_>ZR=;i/M
-^kSqSRTY@TFh2Kl7CZ"!K\f56$%[/,b!^?*,2lG1!L5RKbipuX;!'!&_9.Ue/tJ;SJsElM1CEAFFd[J1AbH<JJA3+/&Oqm
N`dSBW1o2"L,RF\_J*)dPB+FciBOZX^JGBF^os[%/e(]]6R]!mb;#JbGVZ#SXh-?PCP2_FS>S-]/`>;+@]#=Re!?Yd#bjIB
r&Y@Lj1DQ76_$la+J,^Z:&u<PJQ)?+TS==7<kP.5M7X-Ei3!)i[mPtS/TQCC3LGm>':YZuOBDd>^aK4C1'0-J27$LR0GU(N
;Q"!=M%L+^GkW#:bITD%%p@I&M!UZ,k`mXUZhe_X"76[cNXkU)&-E,,&Eo-84!%X%MR"BMfiPr*"ueV[U9jV^A3Qe-1:!Z"
$2\_E+YK#sN5+X$ZgarZ'.h'm(8.`u2k\#,@)KW$K"uUI$oou13Q@J,1)#d/MeSV998,r("#s4@Pq85]M2sIgSf(Zh\+1jT
@Rq'!;4Z/#7C6;MF:U$_CQ+Fj/&D3S#kbcZ.KXQ!"%/*L0GZOM1'4Zq8rsf/@:u:n1.,S*Ll<_fZ$DZ2D7X-=Ru%,:C9\40
3<A2]%^>o>dX+Jp0o.kj#X!@L_!=>YAg/oD6Yq#rd#/s=Bqia#2R2?q\sL@jI(&MRO_FNL<,s*Zi^@3+_tj^rN/Tk+"=[I:
On#d!W/Qm)U5<rW+M%>.!$Ip[Q%=lHZaeQei%tL+d=V4u!r8IQ$^[Kq-FmW5`-C:O)6Ji"QND-4^!T<W,i]SSI>QCP"'jWO
kk1UYhNnkl!:pr,kk)lNk`VB3QSOVZZEat`@t>2L&)6:KM._^6%1kN.1de>MXKFuoqD*[DLl'[nP^>5<2lsRNM%VrYMEVJH
a-,\DRnQ_tWZdLui65<,4*$7M8<,8NPJdi@*Ad_Q=XFQ^;*QIfY3=%e'8Rbbe!X]BM-F!]!E+h,cAeop8P)#P]6lfY::#0c
%U%?a\3,BD=G;Q1dEkjH+B4$U+,&QGK`F^ILdZlrQN@1M3'<GH_(na,R%64[*]ZY13c7ZsVh4iuNk#83nGl31(!Cl(!I,!A
UgVX3Z[o\bP+*CdJGkMtmhZ+7Lp<ef=Fs=h+\T^=^C7h3jS>AAQTkPUJ[jaa>,!hD,*9=uUG*?1)ro:,\0H&n(fU-t0UT`X
&B";a#`GW(Pma0+a\^A:!<XbZYq2^$(mOO=Sts+-o/.T;dKtd43(XAblpqRs!"/)nMHh-S?r$o6^'%h9"AhPjE(&827"h4(
KM<\DXP6Io>ZImQJWZ6mZdY.qVUj.f;UINHYm`!BGF,PfNq17i3<@6;M%FLk9n=aLATtP-DShi^*JFV&fVP_IF9+6V'['rU
W?Sr^%8TX]a^GC3!^E7>MDPHV2p11gm/jmZLt%;;)bN&G;u47N4#/f;Xl8--OJS`*:=T%T2eWXXAPsI,ZDg2QSuAPWMuu9u
V^*8-MTbKb@m%*5WCtqg&B/K)12I$OBdT!O!l^len2*:!1;V$W"3;_38/XN'LJ:W,;Me&kZ;7,22Ln%P!J1C,GqgUqN3RU;
7ghSE=U(%Nh%H,A2Cu#*Rp7i9+P>>Ca)okP4EJm]iCU@;NjGaBeF^pPe_+AFPnS5A?,4C2_H?#f*h"VjTkV84MqG.(>[o-K
E"F&;(7mXA]*1t_'arYZ&jRI88-su>X[KWidm,0@]:b%QdXmI[:C&K0-K-D<N7YpFiEaCa+XfFLPE<J6*Spk*!am&M_IN^X
:9'Q6aYUcTQlstA(lQn4\om:hkqa8eRAjH8N%6`E3diS&g;:`l1S_o^S*uK5e\2\O-i(asGdGlO)c]G[NICW/V#T*^r/)>m
b\[]<>l2`ie$idN_.%FT4Hth6.@c(j!<_g8&]Ut:Mbmf83WgV4"8muRI6*)`i5)dg/IjWmYMD9)NBERG/HssG$<4.O:R0-Q
pmit*\<?[/Qc'^kEsP4U(b98:0XD$O,%ZuRk"-8F@NdOk8dA7&;iU0M.XhM#WL")+_kJ>@(l8)sN15fR77/aEbQYRA&aCU'
P*UuDMK*bPl1m<HqQl^CgUljOE?F*i]`D@c'^].jI*RU%#ZOCl7jNr@FkF,)6JR6A=J\Tt]Y>IQOXGhggo1!Too[=C5?Y'D
MB%9U5!:rc<i,/-9H]To@#b`'%GqI0.M@?Oc;U3#5:n)->mWqQU`[G[7_lYPX)eXTiB\aeMkE?oi_5U<Og.p#'$K*,1b7l!
NETO?pu7qQOc&&1dO9p25s0+m\c_Yo/bIZ1X#1>jV`&F"Q26T6/5',B3WjHXpno<1SAr!!`&SeQSV?'"((dfm@^\P@B\?dl
Oc6[L=M4psZ@(`?5QM1OhnTneZ&l($G@[9t(h#%ufuD&UlD=95+C#Zf:oVMG&RCbG&[@:Fg6db%FtH7B#[j5aS!qV^$T0=B
kt3'ag&DICh?""QiZ#_D2CB'Z3*7UA=hs0rL1=c9+'Fu4`F=!\]o9n^TXr4@S8!_6bfU6LR>P<,@o+3le\#-%qFb!$%FiNT
JE8R=Zq,&[JT-MY&19MNRbl966\4V2NVKmqJ)$-hSk:t,DLC6^2OL@<2?Q/mD,:5k.pQttLf*36fU!_&/;^3]PurjpYo(-L
#7Ai$4WW#Q0ag/PDMZEpkt:GZ8[GDC2?aXQ)2Yd>YeV-pblRYf+NCM,E7O+p:8O.=D3u']m>!:_X(I%ZJJo[d]<eJkWKdM)
W."s5`&+l:P[dIjgTVW4L;(\V)aFVL52mtn!?)"^/-3'[1hjQ(GZ+b':2]U!U*M=JM&<L(gloiV't)-(ou3M6bJUlsTV1$+
I't*8:uq-k14ZP93RR5mZe[4\=fA5@U>?1fL1H.F#X+KmCk"ud0oU0MM%c=<Ys]:-$OKNY)?hQm`6:dr1>_ZRa[iDlG"hul
>;cqP3gF";\>[0&2m0F@giPE0^-R;]r(f[H;sU*ShPdo7,/8Z]C7s2glfs%5h2=ABcqX4kiX-!Ph7TLXYYZaXgIBb"A6&d6
KGgpmetEdpR$*1'`#_6'mSuKni5JF6Wc%TIi#8og<FFs</Q1$&f]EoL-/ZeAWY$k`DYnB,S'`pE$MKA@rK&i-pD\13OD^5P
UKHK(NK!oY\Re2naPsiI71Y42^+!-ELtQcEV`\ag4ui=68Ur:$?=.JZ4Ho4>DD"QIaW4l"21&ISKhTYbHs]\dNjD+6(E9(c
V`/#;Z'rjlTm[1lU07_o-8K9YO=DD\/j27p.0BolIPUA#-g%@h7&0\KMeVc?c!^mB85son$.<hOYfI<P`?bdd(n7+o@"F8'
!Do+9#/O\c5_/,'lkpeaL?3;lX"F;N!N`_he_6#1VQ,fY7ibT<1'eQUE8`HI$<^RW&_1W,3dB/mLl#d>nQKSNaWRR5=Hkmd
JE?&KI!F>!Xis`cC]O/k6L]!\5DuN:YS1beEE@C?20hCeEh+aH*!(tZ\O/tGJ1Iil*T0maUH($7mkT1/1N.X<VgbF<G=&P,
8jmRR[nAr!5Ro%>OEYP9A@.0&?=EHh$$5mr$=1oFpl+R!KOjYJETZG82bole('.D%V!:VLIQA294u>T"#WT0]?\@14`.@Yg
Va0uLTGPcjkn)*%1!?m(*AI">1<G"eI)loH47a&[/9NoaGVC5[,siCMjuQ4bf81!BEtlKBn#-#-aoiK=c5`!GO29Z-0]Lpp
bO#h&Iq1)?AGI$_?T$4a59iC5o7sLFK6CAbrN^9u)(=#es&/r:[p5kuE&f$7@*$7&j#;aWLl1)UGl2%>)a62f;scm@k8<!k
V0%3\&Se*cVk4b*,6C+D`d59'!77*"((lB)Ej6`g!u;P?+gN65)\4\;Ka!'YS;p)J`oF>F^n*#(O%5"Z!9"K.)O1N#OHE[.
J0'ln8B)6u+L!47'Eln40cZi**YJS8Jd?H\5S4DQ_=Bju4>73L700'cL6YH/LoOmVW+7Jg$W]X'9/)`"+r^q[6/b(tV`ZdF
7OE^8/5R/f<e>u*BY:Q&&=NeH6GSs::p3e!K)jaj2gl1r`0]uu?m\AU#RCLuQ;AtX%>RFT&Fi"UM\-3<!kh-c@LF"W/com_
?mn"Yj8i^$PuonLc%pq)!='F!Qj![\2a"NXc(iAK.K\AUlUfU/LW]b$B,!U-(O*Lq&SDe=8.kF6*1Z2n8+QM'2EN!&QbTWG
DL3uI&dSMuBHl>c:bp*-"qB4*#sghL=;:p(-pe,iY"U5J__B:e$,[pZ>R?/sCe"^8!9?b9K8G[P/dO`EJ>>$E9M5W,nZ3NG
W@@t>&&(p+M@[b/__C,b!>$"h"/&moaZHM[^B?)ab08Uo!3dlZ"AnE-&.'SsXr!*+b4aT5Ta8FQ9`_R3'0*#X,j`*YK])UL
luRFS:12iIn;H6ebl"q&US@Lgb<iS=aNW*moec%I@*?tNP5O^Q%.INE:NM08qR(-Mg'TtRbHE1j9iLW8\PJ.9r6MHSbu$VT
jPmkSc4g-i[kR#Z))l;(+!q)U'Y=:q<]E(_5#mSMn%@'7HD(FXMtk:O[5Ed7fM0SL,6:-@<?j]p<+Hb4lKdN`]&@%IM-[=.
"<Up#PD'F]6$mM.9&Q?p#QbAYnh61/@!Fd>'@Qg8"@Bn=f*-?m<C[0LX0g<^oYjkNKM8`^I'iUB'3MLkReG.7mGKCk[)!2/
7&u;Ie!N:Vpfde\/L?)7daR5@"#>c40\/H!,l<<YcFUVO]bnppo2Sb*3CVG9,HkR`QiM*)1"ohkY(qU">p.qR9A]Iu6$RW.
#[u`Y["r.0^_hdC5]42i]=.)]#eOJZ(CC1Z;Ntk_rSrUjWf-J`"gpsjG_Q;#J&d?B2U?'33F.<tm,;oF(PE^JDBK13=#_#-
iJ<L9;[p=d[D4I8SEl%X35-Mt!iFlm^t@^D28%Ro0Wt.fgU>s6T`n.72pMV$gpiWGXfeX`c:mME$f3o]"S1mLq+-`++[Q>H
P:lUm5hgA+Kte9FdSh4TB0.o<:g'$:Za`G8j\KO](=UEoC*)rWku!Tp$R$c',Lt4D$ut`;TMQkbn1Lr0nN$upoHArScl#0S
>mgZM,_VOG(*Kt&%'Z0."G"9$;<^+Ek`p9/p?\Y"(e=u71!kQ^e6L1a<t-<p.u05&"ptJc81n<s1b`1!?=PrJC12@si1TA(
arNa'a;@?"GT6cX[W_c1+.d(*>ZMMZ#4+?^0rLu?!@'+?ltuh@jW^$5)7`_O,h413YcWiROC`.G-GE"P#TiTq1?O\W)('%B
JKb%MkS[Vno00(@@>n25WJmGoe9`Iom:m0mq\lAa;\tl578P$.P[r^p%H58p6oYXIkm7:u4?5=]OPriaY(7D#pN6K2+pEL5
M*dk1"-2J#[ppslSU%\s&<,g%(4^&?!^UWg":r-[:jEPF">4+.1^+Gj*eKbM%KT1@"W3sL!VGWH_+JbN\],?Cn1tUV2;]GH
%.;C#Ot`QI$)dIG<)06)@_d\V8b\JG'.dZPZmC^F'0=HB/)r^P9\Q2hTPkp*SrO"ditiF9Uu*qmTn$SE7nQNX@sj_GMKV`Z
1W_"OU"<<&MGC2e%,"bY<(?(/Z+l#KMNMDhD!\7^!,rPP66JQ"_H^#rEHj-ji.2N8$mGfsBN^6:?O4p(#H]?X$Cm9H5a)Ts
#;H3!`?;H#K#D%)+YYGMr':`$XJS$YTM^8NfJ<ks-l#9n('>+Q%"\U>LCk.>6O8JVi?UYlH/@DIdfg&o+?Y<rGTXdF,S(*L
3!1W0)32gL<7.'?-C,YRf\8BBZlV0@K')Re3W2NI'G*AU!bA)'b5tI=hHJ*Ac/36c1EbHh;PUPoO?pubNu4`mRL)BAN@m#n
E5ja2,B_BAdOWb'S_K>JBc"&_1.R5g,_VD=AVAb?DCKkBphUTJT\(/Mi-p_knU@[_bSfFjq4&Yk:_o07L*3V?(Ga2V`!Cc-
K-4G,EK2Q'+M&7R]P!-@jsSc>NW_6+&%j/_I%;bL"sI/heR8\lK<9n<Fu2#8"MPW'Ec"NY\2XS`-lO2149K$M)WUPfh$fEV
1Cd$-]sA@N-o9FapI/7l)$+[4,1CjOSlmLqjArMTfsZXt:;-7G+i)f:2oqMqAa#`:Er4(l&qCSCFu"&@Wh:h%c;1Q25hTk2
34m4CT7J3#Ai$F+3=lmmWT3)4:.VW*,,Y=rZ*ZNGOR+'aZMfWB5UA-@.n?:H/-64gC7WO\!gb%aki#Hg7[>"1U5N+3+^L$:
]8@rn`Zq(oKbcuH(5F&p3/1]q,r"1*`L+b$*c.$QJ]9bTJ;2G3+C65.2U$@mEfhF:m>Xe3SpcqhnRq7-S1X;D1li!uT4f()
.'@+9O.k\b2']Sh"UdAJc:4OQkp&jU.mp7Xl=TphqWO+\<QC9g?@Z<O=cFJg7oBST;E8V98W4n8Yk`(EVTSE_fc25IFq4&e
Ui4PBd_(J;%'3--ot&R?9<#d'`TIL.9iDj\OE1mtKJZ-l3u?Vk$0%jU!8I<7ED$VEK>=]'0f=UlJc%okm[tZ,<[nR<<',eb
!#OZO%b^p+*!<=1#m:5mg3Zo,YiE$+b3Eb:C4sSOg'k+.3S2J.K6V&Z7&A-(N6Vk;.\u:h#1BR+9<rc!)cN`O4B9J5=fsom
>Wf<aj"kJ?Mo7*oa`V[j8=O#!L:"o.Bb;np$Gg)rDQMc3&e45W5`;D(\9#]FcQjRES(e;_E\0-4Vo8[*+JMmVj]mD)LE]ts
M,%!q\aZsC_U)-fnPP5b;:c&(>S[3V=4,9o^R+*kRVVuH*!<]g`LTd?:H%T)qYLFPiVXhb^c3G5'q_l<6\$A.OIt!;rLg2t
W=LJRb#g-G.$>fkJY\<?.OYB(c?eD&bO6.*-8qNR%".5_",RkC-F3/OP+R@^]I^p_c4J=*.0+1Wok^FS8MJI7Qrer-7E7Tj
&+h=2p+_4u-"T2\VcGE%LA&kC*J)3NTt8!I(_VB67RgF4`MAb$b]bTNHU[AfDJZHVAAR5HkK9G1jl02LZuJKaqZEdF89-[Y
mO4`]KQ"p@aF&dDiX>gi%Nq?ZjrE_>XGd-arXR!Sm?m5+MRgWLR1!"!_ceN:&2L(5"GP5'9uu4ED!u2A8HbJYbCVS33mAqm
UB!"]_R*lenF+Au129KUX%]7`ps"_'no%iaW]L@%qHH@Q"O!nMcMWrCE[l[TJakd$K4L36&k58gcAl?;jlSJZX9p);eNrC?
9ea=766*g4'd5QN@r;M7cG5#e>!lD5B)XDj=9TgTXUiVb09?ft9G;t:l>E,6Xr?OI^hj.#5g2p9@`VCJPV+H5%&MZpL;7\b
7fEtg#VlE';"CsWr`<RI1C&:bltTQ.#W.VqRSZhFAi;CK>7g<J(1Z43MAeDTp/Iro3!6%CXJ2"q4A2ca18huJMj0q!W];[3
nd:%+K<B^(B`sG9CTfq5_ldaPp,-KA.YKRm6E(+*QK#b@7>@9K7nQ%b#dA(OpZP)K&mteIEsZ<1XAOZ&K'#=Pq>pf,?JpVD
^j-ioHo0oq=_#0i-IN(\'Uut<K*K=RjL$ULej+pCSaY>;aM@05#9Y\Xm-KDl.n[@ihMfb:0dBds8GOInrq5\#\&YL*L8rRP
<s!9jUe)-L8hrCZkQEYOok%$8l^Zc">e.ft\SsONYWg9-9^^*:VU%/45Y!/[qXYroo1QZ)Al/L??9'SB'h2di+q+V6(hhr9
N5jZ)Lit8.31C3/.>+eTMS9;_=sGG$$-(t20[@VUmZukO/&LG8kfiBA[Ka(^qaSjq_Y.;TcA*_6XTI2\:qCL6Addki$*a%)
5n>X?q_-=glm!e#,a@W#(,b03C9I]$"&@f1895/F1<Al_o.8ZO$p,c=0oVW3D_Dl(<]MHK1+Gp@lo][YG.A!93&5I.9<CXA
qV0GGbVMZ2Z[;gq*@.ET0daU<d$m;H[Vgr]`bOlN!1obRMR+qB$hTP#ChGfE2`h,UEf&FcaANBO/dVRb#683aaaTd3AdEqd
#nlq:o?//oghNU32PRqI@cFG_W-#?9Z]Y=05ZeWJ_[c5:0Fb!89QF6'ZrGB&0[,\Ndh`Zr8J2-.8CV*o'Hg:0?LnEb!KsBb
j(c,t-<#V1]CJZ`^aDMP0]3%a2(p1(LXb;S+$n6VQ:X/<.V/3.E21Id:G3EE!j<D;#iLWL81LnLLskDmaDqme=9@c.;>.;K
`p>&C0P.$e^qKtA*2$\Ceu(S+o$:?E1g1,,Dbe1JK+-?#Sr.(^8P/Xk&MO>Wm4V#GlgDM@[.-B/#daSC0RtLWluMFYP%"Ru
;Na;Sn5`KT$qTqb'ac"ZB;&6M9/Djo2RX%r'gU$]1=!b52K;5Skk^Si3E+uKndY$1K7K[&1B:BY<UW"=&U.CB.3sr:'8''=
7B-JfIO/L@V;PH?2,tH)1KUI`$-nDV`MG9LdQ)#DU]WB[^a)hi^2ai#"`W[C-ZV*uL^328@Po83`p@_=+:@%9%dEI:e^CfV
X^.%]%nq["_Y,O5Md&h@TB+^F`HP.uP!"MM0ddf0'gQ<03FH?#473R^ap`R;6r,%X97u)%,LC/E@9Sd\,p5`X[Do$Qqe0LL
2R!CH00WWWib4Kn2XUds:eFqlAFPm`1\FjN6WcfGA8"nRP4h7CcT-$`5\)+R9l*'>e-Z@l%*jV>1\,5IV[ttG$rf"rFl64I
&pZ'0QAcT\`ceAf0#L@VP0#VlljRqFd.RtMM]`T+0\4kXG0GmF7LfEF?DRS?UO<iOYBJO92<PBpaIE>:=*N8KDcPdU/PU0E
%qC5U9k?n7/eN'n7(4C@+ok/?D\alsQ8A7b2E#Q)DAP34>@c9$<3=&MaR^&sp17b*JO@6i_NI>V!bd=8&jS_tcp<>BrgSPe
<^iT.bs'W%c%@qI3_<<,B=q1J6TGA83A7VK6Wi[KQu84o$+%l\-K@)ZPD8Cc?@r]'pS%mpJ@,QfHN]Tu%@@.ri)2'h9rtaA
$_;t[Gn5g"fu*CpA<oeP7L]?C>@S-Pi*gII+AZfh;e.q.f:e0N8Pl',9;ogGP>4o+aB2&7FE`6<aNug/rf%Ko@Kj>'$NXE6
TIGZm]$%HB,RCHFR=dGiZn)J-R#3dOb4B\K.O\;Q0<j\+Lk<LT?8cg-YC]'8c"[_&FQZQNUY._@eB^Kd+_/5S'P],_1j_aB
IHIjrJ5;PBD[^8IBW!qZ&34D/<dRHLJ@#U&1rXbGEo5LV3#Q"=)7EW!eo8TG.dKl9$UX2<`3_,p"2em-jg6uLKP^FtZpP6'
R+>'=*bEpl"]aP;9KQYBW2smMCNe*@@h"OmRPj307,tG@/6KkW(_a_&`Q?tuE!S!.4.c6R"a?Uf$&ShPMG8:tPZ^D,#>1?@
a:?#-%KO;N!0;0!?)*]g.)878/s^UZ\2bdeLG7$pDcB)7.u[u2Ht+QlVLEkZDEs@917Eooq86X,0JA$cP(LX_PjSf;kDJ2:
lnBJJUt3UiiK1slN+7cm^j?Ql5AXKa2ms8"(nXZAW!%kb%o:lO5\#jU(:WE?@@+>Op=;.+08A199e/\NR*5eq\llqbJ$!ti
m\UVJ+qZQOZ(Vf4Th*-oj)QR`T"mBJpsXNmUd^$a5m(G0o=!n0J-0BN5_@4.>#S!'ZtsZ6T2AuNL#ZP@,X\oM9/F:5A!270
<^;=aYH1'%i'q\9SrD.b?pNB0i9tF$Ei`s!Ei@H+[JDb>KZI*c#WSh>%"R#bZ)P>A5S`OQNo)[9j@NM4fpU)k'e*)b:5m/q
WM@_@43"Wem$kkZ9k4/Pk(/T<oha?AOLkUfHKgb=<'KU<F/Ue,C75FV`$hR%%KOi_OGjcHVkh,LD!-L[j_d5Kdd1a5-j3\/
VAsVJIOr\)fPbjIOiZ[<&m_Ob0RI+T/i,bQMjD5Y;\-hT5q!NM=N*k[I7F^(@$5KXWL!.sa"Z^pS!"536k4ao'u9pmT]cdB
*3nfRrIiWn;j%V!LPZ"RbBT1f=E0j=AD)s5>su\:)qY3`s$.RI>pRl$\F:t("V0b3ra9lMEBoJaF1rQ`Xq&V?q;>:3L.p[V
:i4K-ReZua9Oo"GYkeg5!,\C-PmcfQLGS!LlI!F_S:kU.#0.Ir>3n4P`Jja"ZgF,`+up-XNc@Fb^2?jBbP'J:fF8tM6`8H2
6t.Ss#V%u*.u1O+_&3ULY50;<_Z=3YJPZuDc.DZTDDZH-.4&_A;UkZF#L$;hg/=IuKal:PgA->?BdYIs3LE/t;]0$LeY6Cj
&8`,aLPX#)HbfX9`N%-t>,Ub6Drgn^`/j&#^!(OoK;`uUYtSCd2#QHp_R*5\o5i[^De_$Y8i6/#gS;ql^pl(3_P1@M/Et@@
4lB`cA/;9QoliYg,m3b?G^BrRbLKuVUC0pI!)LR,pDM4XeWHBP7IF`48o-mACrZK@.Ls@8Ws`01dHspR;kPS>pq5DkHo"V_
L"iFP:#klGl,Z>#Ct)phW%sg%bC]FE7WqiI+NhF@cpF/)R-C29GZ6*iS2e]=pRtB!F[ed1lob8X`7MXEFfVeT9g/IXEd0J-
LeGDuI._iOgB6trCiJ-d2-]Yf#KC*<Bu,eR[/NL^Go?k"JDHb7"27cop:UAg?"[V,bD,l6.,9/UEo]ti#XQ&qT46>TH8PML
RflC9h8\DcZBso9_gRQtEQHdN`4*?S#)%D)&p"k>7WM128IT%^BSFG+?]kNDBarZAR2k!h[Q=VW15D"i"8?b$UX+29@Fq%L
L.<$E7G%IVXLbXV.ThY!grPo:[aT[_>Le$9HlrNB!)QK;&!@*i6GSs:2]"a^@F;lD6s(@Z`W:UgA1\?('Eu>D^oBgKObc[5
@/5=S'cP2(io,/jHlsO>K>N0nYZ)MS747(CfN9[J%aIJYd6MFl+Vtapo,;F14>7G(8HLUQTOK'(%"sE;pi-3n(_Qr3E]@[?
?*4\I"'M#*W[CoQ(/?f(FkHY91#-T2@qgbQF#915Q(Y@#*4h%6+oG_eH"[MH`'XTVq@<lH#/gUpC11MB9<$A)7FI#@\5jgh
#u,0=Y'D]&nY&:"Lg4=)mm\J[J<!8Q'o:-;d;csD1I)UDL_=ue5]JV2O<&EDJP:/%Tub+2q$+]#&gN7'Z.6=C`YTNtp=jC3
9HuA)5/Y^3EngEc,qo%0PQo6e@[AmQ^c78T$&eB8#HI9)#baPb/eK9-TR[S#@IQB%6Kfg5&;!K3hY=jJ5[onV@=eo@2uoaY
"N)A_>UUaMC5NM@/HS39XjR=(Q8l[I^(\H3*"iF/!5aj=-o'(b(kt;S5RE$u&7@0siS_KpWN]QpP/8o2aqkR$im9'/!:i_h
%0:"b+/R>gYWrT_!Kt1#ljEB&S;/i?1(Y[8(E3OOi3!fM!QZN:$Kuh[j$E.,(*E^d(tMcVjbZ`BQ.5>09pR$_<'i`DF5Z]r
!XLiaWh@g%\ZTY)1`m#+J>=]U,6`$8#m10s>;N7"JDgWG^df;4Q:qXI=fDRpOJ)u=3t"N:mBVC7M6L6_W[YTrN3f`,gEM=>
b"HN)!8M7S=`""XR)eVMg6g%a"N5s?%2JCO6]tP+J>:Na;[C5.<.Aqjj+*<'a-"f*.Y;&!+9l:iC?I0APZ84"KD%it/4f5]
g@YT$^i>EkJcIdj=S9IRR*bIbk!0FB\R]Fo$pe?%N[.0]Do9C(i#9*6RjX9Ll^YO0LOt,@M<%!HJ3&\NW:)eUnE,On/cnRQ
1^Kd_?j\>Jeg@ulN9[9k6O`tP%FuJo5AoB1Ad6T4&R\0IKUZ/I^V^Y%#IpG3k6JZAQlc^TK,ad$"/Kk0?$i7a7C\Fc!@@no
X-hYqQ7>FrnBSb-#[9q(YdPVk6uZKsY,h"mC?>][J;]+-+lMi;CdK^jHpg5c,qDKIkCHe^!T:1+C&p3'/.)D;N%fu:S<0r7
q#&ta6J_^*4::cSD/SV?*iZ/VLduD.p9""KV8N#R>7Lra5bkrtorqO@"".!]OON>;&$U_K,a>.N.4dfI1amso.()VbdU)E+
U*@S1],XItD=D8[0%T%@>M3%r+In$C#6bB`gPph>XGjMW,RThtoH^Zc%6-*G]uUkT1[E8LS7RRrQZtb!Y,-K,[o/13dN!2p
YsYai\AA_aq+1hn.%bScn.i:J!JMB1!u<fa&'6G,,rJbto[X8!3)B]nII.+`5-#]57Qt@Y$5/Qn$q%O!GR+am0t2HBU^G.E
mm+qpoG2iT:f%?///US6g]\gJN\d]c/[bn7</Se=L2]8A+4HC!UX2_H&%qG&kkQ:])@o%cGn*;1ZPd>2=^&gR%"corh9aU+
>HcU_RO,QS(C=5J;H/_t="$M$Enc?:(1!(+B&V/%+XN.BOubIp:$(E),1.]0]$RYhcs$U-//99Mj6hc%62HJS`;1FJ17$SJ
M'0"s)$@ksM4t-qEs,5oZrWpM>)C$]/?BgA&l)LE3!p#NW_`fN7k+PtIgD*g5QuE7J]L6!<M7\V!C`;lc_:;$ltlcrpOM^!
"7ARt!4e7q%abtOZ^`k`R`$Y>9+D!<-,n/*_t$:%ek-]\/tCb"G_h>/5m`;=1kCaCM,[=M7$_U4=tR.\Zs;CXS$cpbeGrt]
OA%\XDB^-sl@;I'\19hNC2HXh-;E&s)bY0.`Y"PK'EO'i5DTA&:>%'!gtRj."R,s2MUn+[HAMfAd&7(Wi6eW;"=oWT,#EKV
a6[ApZ[mWCf`5r"WS,"^O2U"ad#nd)?lY.Q<66!m%qMUIiN\GShbr3&E=!NMW&9:7JO`Vc,Wa&/nf=/DG!9PQMBAih?+7Z$
k?(g&Y[?!J`/l2.hB?\p+Eor!UE^^;mg0j]FZ-*b>22KdE=F)\BRqf0h__%r2NHjsQ68'A6_-ifS$gB_1r<sR*,$T`Z!o5U
X:In^`I8$7VVU"4&Nq)$3[Mt^M];qkomr*d7eF)g,BJeI"*cM5JD;)pq_Zf=hC?K:.aVZ!Y$C>t2?iQn&K*Ri7t@GU_l2?3
>*+OU!O[l<j^uWg8]"&:49kupcL5%#R,*V4c%ZF[k0'Ul;VOZF.;7rn'P)?R8hijc%APZlU6(EQ%Kg]FqQi-A>BM9W-dIXg
UGt9*6fGb&"0TfCY#82$)uA6j3U&%3L,XXQ@>um[ZNCrt)5%NVOXl;_qi_cs]T!RDL,`U14Tdcd;0k0_lb=%*CeP)Xliu!Q
%7Ad"9(r]_93E_aQS_2p:"25ST:glV=R9d+18[nO;WVQ89$i*Gq>o#8%Y>=[/Q\n#\19L;&3srS:!g3?Uf</(lO4k=Tr-e3
5dOQ<1l&SK=Y6%?,SLegk,ZVO<&e]^)o5/.T-?(\1\n.mi=qZ6#]u\HgFTPAlM3N*L'e0QM6eQ5O#YQtWKlOJ/@IEd'3OtF
6h]IR;kn_[<i'ipA6B#lHl-fC'ob0,3;?^n<BN-F`8%Z-P7_Ai8^9p<3@I[WT?[lG-HIgjW8C/[#RYP5/"#%u-%4;H5-ja,
]>*#Ugr)dnd42=gLqP&GTPeXPV[Ckh\6b[->'i5U82&[>]<m4Qs)q7WNB&mA[bf%u64b*R]II3iob%C?A*PM6Hnk@nC"i<J
[=`P5:JI\!,`/d\)me+7\Cs(g9!F$4?Pgt@S+D$s&j]d?`&X"F=fYV)SkMK![,(+5(s0HURG"k!)oK5bZ2o.'-L]Pfo^H)/
_%t]O*Wkd-GQW/Zec_?Jp&ktp2tIX")$H,boZMN,aRdqU+F`59rV`i2Z>(VBTQSQn"<TukNtt/:T=l?K^._Qkn96Y(AK/?h
M90<X@BG)f*tTs<!_aON1,K;NQg#9Ol7001#*6?[SoKac"3\4_PQA,&]#-$.))8ZmpcT3h'iNf"R_uU*'gIoB&@9'+>:$1D
ql0(C.=6$2Z<OVe@_L0"RNaaA(sF:gAL_\o4R;.8@XkNf'YJ/$0#Q]]i23EWDn[E$52dBn"*0]kEi(YCRNkZn$OFIuon[[[
&:g"33J7ooBb-?[$@un:aj#ppeWD@-!V$X<EMke<?%W,-K1IVe^aR+K/J?`(MlD5aCP8;M;&^EK3`(o#_0W.S[XiM$[p+nJ
R-$Y<dCdSBVH`I@S..VSYq0*T]X[)1N#)Mpr&Y5m.eBF:&/Q(fd_r2!^pI#V#`5_*LG$atZ\]3YJ=JK9h`pr,Q.Y>S5Vn$$
@026PK(pUi\pQ)'%tV<X*P't%@Si,;Q4JP+Z$?$q!>:9?cB$$UK><h130_BtH_rcg7edn?!0!"2GH<#TLdB3;8p_L*W/VEC
UA,RW3$/mAq7b8jSfrJ+X(;<p80,m=2[e?$'#'GMO?MN`XkNZc,06kVcl+VP(tpGL@qIt[(EHX[\#LO,@A^]<bE%7IJ[?1'
_#(W8'ZUIo3T(s>ac2n9&L5*gYGjH'Glkhim66B@*@XQ=:mNKE)TG;u`ZR(+gnPeC@flS*U^6d[K7j_+PQA^E'-j0<0]+S6
Xq-(nVCMJXMRW[cO$^sP'19;Ln:r#E*4*5&J\`':gA%n>'/KA(Lat5(+KHmf5V'>Q%-`G>Mk,l$_n:Yl8Q,a)$VHq`#F=;q
5hqSi$IF]gaU<uh!T<VbUS#3@H`D2/%riPV&X"^O3(5+1QpEPuPaIJ%J:I~>
/LZWDecode filter} def
%
% Setup image fill using pattern 92
%
/pattern92 {V 1620 1128 scale
<< /PaintType 1 /PatternType 1 /TilingType 1 /BBox [0 0 1 1] /XStep 1 /YStep 1 /PaintProc
   {begin /DeviceRGB setcolorspace
<< /ImageType 1 /Decode [0 1 0 1 0 1] /Width 135 /Height 94 /BitsPerComponent 8
   /ImageMatrix [135 0 0 -94 0 94] /DataSource image92
>> image end}
>> matrix makepattern U} def
{pattern92 I} FS
O0
-720 2504 5207 2520 Sb
%
% Define pattern 13
%
/image13 {<~
J1tA-3"_/[#D3JZ:q0>B*=mro6]fB"+qXs:7T_BY
4Alt.O@/'TW8njS-]Q5Y@qc@+=!]TD,?"nR[QuR0bbHsc*82\uN_Z>_aRo<R5`8I3PXqVh+\7O>TX(Qa3ZV%Lal"9~>
/LZWDecode filter} def
%
% Setup imagemask fill using pattern 13
%
/pattern13 {V 768 768 scale
<< /PaintType 1 /PatternType 1 /TilingType 1 /BBox [0 0 1 1] /XStep 1 /YStep 1 /PaintProc
   {begin [/Indexed /DeviceGray 0 <00>] setcolorspace
<< /ImageType 1 /Decode [0 1] /Width 64 /Height 64 /BitsPerComponent 1
   /ImageMatrix [64 0 0 -64 0 64] /DataSource image13
>> imagemask end}
>> matrix makepattern U} def
pattern13 I
300 5207 2520 Sp
0.5 0.7 0.1 C 0.5 /Normal PSL_transp
300 5625 468 Sp
1 /Normal PSL_transp 1 0 0 C
{pattern13 I} FS
O1
300 5833 2520 Ss
%
% Define pattern 13
%
/image13 {<~
J1tA-3"_/[
#D3JZ:q0>B*=mro6]fB"+qXs:7T_BY4Alt.O@/'TW8njS-]Q5Y@qc@+=!]TD,?"nR[QuR0bbHsc*82\uN_Z>_aRo<R5`8I3
PXqVh+\7O>TX(Qa3ZV%Lal"9~>
/LZWDecode filter} def
%
% Setup imagemask fill using pattern 13
%
/pattern13 {V 768 768 scale
<< /PaintType 1 /PatternType 1 /TilingType 1 /BBox [0 0 1 1] /XStep 1 /YStep 1 /PaintProc
   {begin [/Indexed /DeviceGray 0 <00>] setcolorspace
<< /ImageType 1 /Decode [1 0] /Width 64 /Height 64 /BitsPerComponent 1
   /ImageMatrix [64 0 0 -64 0 64] /DataSource image13
>> imagemask end}
>> matrix makepattern U} def
480 600 100 6459 2520 Sj
%
% Define pattern 14
%
/image14 {<~
J1se2-mAZ2!/&-R")(pt(`WND,#K2Q:)Ok&_P'e./.OfGKLfNKLr<%_'oGR-1+5P>59,_RUb\lr
U/)P[9'0%X'Y6RcK?Yam3Q.qK5(V$&d`N!\CH%s6VuR0)+bNIVe#8PCPqoI6WR.X[$LI2C<if52<]Z4TO$%rC~>
/LZWDecode filter} def
%
% Setup imagemask fill using pattern 14
%
/pattern14 {V 768 768 scale
<< /PaintType 1 /PatternType 1 /TilingType 1 /BBox [0 0 1 1] /XStep 1 /YStep 1 /PaintProc
   {begin [/Indexed /DeviceRGB 0 <80B21A>] setcolorspace
<< /ImageType 1 /Decode [0 1] /Width 64 /Height 64 /BitsPerComponent 1
   /ImageMatrix [64 0 0 -64 0 64] /DataSource image14
>> imagemask end}
>> matrix makepattern U} def
{pattern14 I} FS
300 240 100 7085 2520 Se
%
% Define pattern 14
%
/image14 {<~
J1se2-mAZ2
!/&-R")(pt(`WND,#K2Q:)Ok&_P'e./.OfGKLfNKLr<%_'oGR-1+5P>59,_RUb\lrU/)P[9'0%X'Y6RcK?Yam3Q.qK5(V$&
d`N!\CH%s6VuR0)+bNIVe#8PCPqoI6WR.X[$LI2C<if52<]Z4TO$%rC~>
/LZWDecode filter} def
%
% Setup image fill using pattern 14
%
/pattern14 {V 768 768 scale
<< /PaintType 1 /PatternType 1 /TilingType 1 /BBox [0 0 1 1] /XStep 1 /YStep 1 /PaintProc
   {begin [/Indexed /DeviceRGB 1 <80B21AFF0000>] setcolorspace
<< /ImageType 1 /Decode [0 1] /Width 64 /Height 64 /BitsPerComponent 1
   /ImageMatrix [64 0 0 -64 0 64] /DataSource image14
>> image end}
>> matrix makepattern U} def
360 45 315 7711 2520 Sw
0 A
33 W
N 2640 3840 M 2760 0 D S
1 setlinecap
N 2640 3960 M 2760 0 D S
[83 67] 0 B
N 2640 4080 M 2760 0 D S
[133 33 67 17 33 17 67 33] 67 B
17 W
0 setlinecap
N 2640 4200 M 2760 0 D S
2 setlinecap
[17 17] 0 B
N 2640 4320 M 2760 0 D S
1 setlinecap
50 W
[0 67] 0 B
N 2640 4440 M 2760 0 D S
[] 0 B
8 W
1 0 0 C
2640 5520 M 500 F0
(Hei Verden!) bl Z
{0.5 0.7 0.1 C} FS
5400 5400 M (Hoi Wereld!) tr false charpath fs S
FQ
2640 4800 M (Olß Mundo!) bl false charpath fs S
{0.5 0.7 0.1 C} FS
%
% PSL_plottextbox begin:
%
V
(Hey World!) V MU 0 0 M E /PSL_dim_w edef FP pathbbox N /PSL_dim_h edef /PSL_dim_x1 edef /PSL_dim_d edef /PSL_dim_x0 edef U
/PSL_dx 120 def
/PSL_dy 120 def
6000 4800 T 90 R PSL_dim_w -2 div 0 T
PSL_dim_h PSL_dim_d sub PSL_dy 2 mul add PSL_dim_x1 PSL_dim_x0 sub PSL_dx 2 mul add 120 PSL_dim_x0 PSL_dx sub PSL_dim_d PSL_dy sub SB
U
%
% PSL_plottextbox end:
%
0 A
{1 A} FS
6000 4800 M V 90 R (Hey World!) bc false charpath fs S U
{0 A} FS
O0
PSL_font_encode 6 get 0 eq {Standard+_Encoding /Times-Italic /Times-Italic PSL_reencode PSL_font_encode 6 1 put} if	% Set this font
2640 6360 M 367 F6
(E = mc) Z
0 128 G 257 F6 (2) Z
0 -128 G 367 F6 (, ) Z
367 F12 (D) Z
367 F6 (g = 2) Z
367 F12 (pr) Z
367 F6 (gh) Z
7800 8400 M 300 F6
V MU 0 0 M (E = mc) FP 0 105 G 210 F6 (2) FP 0 -105 G 300 F6 ( + ) FP 300 F12 (e) FP 300 F6 (?) FP pathbbox N 4 1 roll exch pop add exch U neg exch neg exch G
(E = mc) Z
0 105 G 210 F6 (2) Z
0 -105 G 1 0 0 C 300 F6 ( + ) Z
300 F12 (e) Z
0 A 300 F6 (?) Z
7800 7800 M 300 F6
(1 \375ngstr\371m) tr Z
PSL_font_encode 33 get 0 eq {Standard+_Encoding /ZapfChancery-MediumItalic /ZapfChancery-MediumItalic PSL_reencode PSL_font_encode 33 1 put} if	% Set this font
3900 10500 M 533 F33
(PSL v5.0 Demonstration Page) tc Z
PSL_font_encode 4 get 0 eq {Standard+_Encoding /Times-Roman /Times-Roman PSL_reencode PSL_font_encode 4 1 put} if	% Set this font
25 W
{0.9 0.9 9 C} FS
O1
%
% PSL_setparagraph settings:
%
/PSL_linespace 180 def
/PSL_parwidth 3000 def
/PSL_parjust 4 def
PSL_font_encode 5 get 0 eq {Standard+_Encoding /Times-Bold /Times-Bold PSL_reencode PSL_font_encode 5 1 put} if	% Set this font

/PSL_setfont {	% Set Font, size, and color if needed
  /f exch def % Gets word flag from stack
  /k1 exch def % Gets word index from stack
  /fz PSL_size k1 get def	% Get font size
  /fn PSL_fnt k1 get def	% Get font
  fn PSL_lastfn eq fz PSL_lastfz eq and not {
    fz PSL_fontname fn get Y	% Set font and size
    /PSL_lastfn fn def
    /PSL_lastfz fz def
  } if
  /fc PSL_color k1 get def
  fc PSL_lastfc ne {
    /PSL_c fc 3 mul def
    0 1 2 {PSL_c add PSL_rgb exch get} for C	% Get and set color
    /PSL_lastfc fc def
  } if
  f 32 and 32 eq { % Underline
    /PSL_UL fz 0.075 mul def
    fz 0.025 mul W
    /PSL_show {PSL_ushow} def
  }
  {
    /PSL_show {ashow} def
  } ifelse
}!

/PSL_setfont2 {	% Only set font and size
  /f exch def % Gets word flag from stack
  /k1 exch def % Gets word index from stack
  /fz PSL_size k1 get def	% Get font size
  /fn PSL_fnt k1 get def	% Get font
  fn PSL_lastfn eq fz PSL_lastfz eq and not {
    fz PSL_fontname fn get Y	% Set font and size
    /PSL_lastfn fn def
    /PSL_lastfz fz def
  } if
}!

/PSL_wordheight {	% Gets word from stack, and calculates any adjustment to box height
  0 0 M false charpath flattenpath pathbbox /up exch def pop /down exch def pop newpath
  down PSL_ymin lt {/PSL_ymin down def} if
  up PSL_ymax gt {/PSL_ymax up def} if
}!

/PSL_ushow {
  currentpoint /y0 exch def /x0 exch def
  ashow
  currentpoint pop /x1 exch def
  x0 y0 PSL_UL sub M x1 y0 PSL_UL sub L S
  x1 y0 M
}!

% Set font, size, and color.  Adjust baseline if needed. Place space and word

/PSL_placeword {
  /k exch def % Gets word index from stack
  /flag PSL_flag k get def
  k flag PSL_setfont
  /sshow {ashow} def
  PSL_col 0 eq {		% First word on a line
    /PSL_t 0 def			% 0 spaces before this word
    flag 4 and 4 eq {	% Must skip one TAB
      pr_char 0 (    ) ashow
    } if
  }
  {				% Need to find spaces before this word
    /f PSL_flag k 1 sub get def	% f is flag for previous word
    /PSL_t f 3 and def		% PSL_t is index into PSL_spaces and PSL_spacewidths for previous word
    f 32 and 32 eq flag 32 and 32 eq and {/sshow {PSL_ushow} def} if
  } ifelse
  /thisword_bshift PSL_bshift k get def	% The baseline shift
  thisword_bshift 0.0 ne {0 thisword_bshift G} if	% Shift baseline
  flag 8 and 8 eq {	% First composite char
    pr_char 0 PSL_spaces PSL_t get sshow
    k PSL_composite
  } if
  flag 24 and 0 eq {	% Anything but composite chars
    pr_char 0 PSL_spaces PSL_t get sshow pr_char 0 PSL_word k get PSL_show
    PSL_width k get 0 gt {/PSL_col PSL_col 1 add def} if
  } if
  thisword_bshift 0.0 ne {0 thisword_bshift neg G} if	% Shift baseline
}!

/PSL_composite {	% Place a composite character
  /k1 exch def % Get word index from stack
  /k2 k1 1 add def
  /char1 PSL_word k1 get def
  /char2 PSL_word k2 get def
  /w1 char1 stringwidth pop def
  /w2 char2 stringwidth pop def
  /delta w1 w2 sub 2 div PSL_scale mul def
  delta 0.0 gt {
    /dx1 0 def
    /dx2 delta def
  }
  { /dx1 delta neg def
    /dx2 0 def
  } ifelse
  dx1 0 G currentpoint
  pr_char 0 char1 PSL_show M
  delta 0 G
  pr_char 0 char2 ashow
  dx2 0 G
}!

% Determine how much to expand text and also justify left/center/right

/PSL_expand {
  /k1 exch def % Get word index from stack
  /extra PSL_parwidth previous_linewidth sub comp_width add def
  PSL_CRLF k1 PSL_n1 eq or {/spread 0 def} {/spread extra def} ifelse
  /PSL_scale previous_linewidth 0.0 gt {PSL_parwidth previous_linewidth div} {1.0} ifelse def
  /ndiv lsum ncomp sub def
  ndiv 0 eq {/ndiv 1 def} if
  PSL_parjust 4 eq {/pr_char spread ndiv div def} {/pr_char 0 def} ifelse
  PSL_parjust 2 eq {extra 2 div 0 G} if
  PSL_parjust 3 eq {extra 0 G} if
  /PSL_col 0 def
}!

% Calculate text paragraph height:

/PSL_textjustifier {
  /PSL_mode exch def	% From stack. 0 -> calculate height, no text is placed, 1 -> place text
  /PSL_col 0 def
  /PSL_ybase 0 def
  /PSL_parheight 0 def
  /PSL_ymin 0 def
  /PSL_ymax 0 def
  /PSL_top 0 def
  /PSL_bottom 0 def
  /last_font PSL_fnt 0 get def		% The previous font number
  /last_size PSL_size 0 get def		% The previous font size
  /last_color PSL_color 0 get def	% The previous color index
  /previous_linewidth 0 def
  /stop 0 def
  /start 0 def
  /lsum 0 def
  /line 0 def
  /ncomp 0 def
  /comp_width 0 def
  0 1 PSL_n1 {		% Loop over all the words
    /i exch def		% The current loop index
    /thisflag PSL_flag i get def					% # of space chars to follow this word
    i 0 eq {
      /PSL_t 0 def
      /lastflag 0 def
    }
    { /lastflag PSL_flag i 1 sub get def
      /PSL_t lastflag 3 and def
    } ifelse
    % PSL_t is index into PSL_spaces and PSL_spacewidths
    i thisflag PSL_setfont2							% Get and set font and size
    /thisword_width PSL_width i get def
    /comp_add 0 def
    /compw_add 0 def
    /PSL_tabwidth (    ) stringwidth pop def					% Get width of the TAB
    /PSL_spacewidths PSL_spaces {stringwidth pop} forall 3 array astore def	% and the spaces
    /ccount PSL_count i get def								% # of characters in this word
    thisflag 4 and 4 eq {	% Had leading tab
      /thisword_width thisword_width PSL_tabwidth add def
      /ccount ccount 4 add def
    } if
    lastflag 8 and 8 eq {/PSL_t 0 def /comp_add 1 def /compw_add thisword_width def} if
    /new_linewidth previous_linewidth thisword_width add PSL_spacewidths PSL_t get add def	% Width of line if word added
    /PSL_CRLF thisword_width 0.0 eq thisflag 16 and 0 eq and def
    /special thisflag 16 and 16 eq {true} {thisword_width 0.0 gt} ifelse def
    new_linewidth PSL_parwidth le special and
    { % Word will fit on current line
      PSL_col 0 eq {
        /PSL_ymin 0 def
        /PSL_ymax 0 def
      } if
      /stop stop 1 add def			% Include this word
      /PSL_col PSL_col 1 add def		% Column place of next word
      /previous_linewidth new_linewidth def	% Update the unadjusted line width
      /lsum lsum ccount add PSL_t add def	% Update character count
      /ncomp ncomp comp_add add def
      /comp_width comp_width compw_add add def
    }
    { % Must process current line and move to next
      1 PSL_mode eq {		% Write out the first word on this line
	% Determine how much to expand text and also justify left/center/right
        start PSL_expand
	start PSL_placeword
      }
      {PSL_word start get PSL_wordheight
      } ifelse
      /last stop 1 sub def
      /start start 1 add def
      1 PSL_mode eq {		% Write out the remaining words on this line
        start 1 last {PSL_placeword} for
      }
      {start 1 last {PSL_word exch get PSL_wordheight} for
        line 0 eq { /PSL_top PSL_ymax def} if	% First outputline
      } ifelse

      /start stop def
      /PSL_ybase PSL_ybase PSL_linespace sub def
      1 PSL_mode eq {0 PSL_ybase M} if	% CR/LF
      /stop stop 1 add def				% Include this word
      /previous_linewidth thisword_width def
      /lsum ccount def
      /ncomp comp_add def
      /comp_width compw_add def
      /PSL_col 0 def
      /line line 1 add def
    } ifelse
  } for
  /last stop 1 sub def
  last PSL_n lt {	% One or more words left hanging on last line
    /PSL_CRLF true def
    1 PSL_mode eq {
      % Determine how much to expand text and also justify left/center/right
      start PSL_expand
      start PSL_placeword
      /start start 1 add def
      start 1 last {PSL_placeword} for
    }
    { /PSL_ymin 0 def
      PSL_word start get PSL_wordheight
      /start start 1 add def
      start 1 last {PSL_word exch get PSL_wordheight} for
      line 0 eq {	% First outputline
        /PSL_top PSL_ymax def
      } if
    } ifelse
  } if
  /PSL_bottom PSL_ymin def
  /PSL_parheight PSL_ybase neg PSL_top add PSL_bottom sub def
} def % PSL_textjustifier

%
% PSL_plotparagraph begin:
%
%
% Define array of fonts:
%
/PSL_fontname
/Times-Roman
/Times-Bold
/Times-Italic
3 array astore def
%
% Initialize variables:
%
/PSL_n 89 def
/PSL_n1 88 def
/PSL_y0 9720 def
/PSL_spaces [() ( ) (  ) ] def
/PSL_lastfn -1 def
/PSL_lastfz -1 def
/PSL_lastfc -1 def
/PSL_UL 0 def
/PSL_show {ashow} def
%
% Define array of words:
%
/PSL_word
() (PSL) (was) (created) (to) (make) (the) (generation) (of) (PostScript) (page) (description)
(code) (easier.) (PostScript) (is) (a) (page) (description) (language) (that)
(was) (developed) (by) (Adobe) (for) (specifying) (how) (a) (printer) (should) (render)
(a) (page) (of) (text) (or) (graphics.) (It) (uses) (a) (reverse) (Polish) (notation)
(that) (puts) (and) (gets) (items) (from) (a) (stack) (to) (draw) (lines,) (text,) (and)
(images) (and) (even) (perform) (calculations.) () () (PSL) (is) (a) (self-contained)
(library) (that) (presents) (a) (series) (of) (functions) (that) (can) (be) (used)
(to) (create) (plots.) (The) (resulting) (PostScript) (code) (is) (ASCII) (text.)
89 array astore def
%
% Define array of word font numbers:
%
/PSL_fnt
0 1 0 0 0 0 0 0 0 2 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 2 0 0 0 0
89 array astore def
%
% Define array of word fontsizes:
%
/PSL_size
200 200 200 200 200 200 200 200 200 200 200 200 200 200 200
200 200 200 200 200 200 200 200 200 200 200 200 200 200 200
200 200 200 200 200 200 200 200 200 200 200 200 200 200 200
200 200 200 200 200 200 200 200 200 200 200 200 200 200 200
200 200 200 200 200 200 200 200 200 200 200 200 200 200 200
200 200 200 200 200 200 200 200 200 200 200 200 200 200
89 array astore def
%
% Define array of word spaces to follow:
%
/PSL_flag
4 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1
1 1 1 1 1 1 1 1 1 1 1 0 0 4 1 1 1 33 1 1 1 1 1 1 1
1 1 1 1 1 1 2 1 1 1 1 1 1 0
89 array astore def
%
% Define array of word baseline shifts:
%
/PSL_bshift
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0
89 array astore def
%
% Define array of word colors indices:
%
/PSL_color
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0
89 array astore def
%
% Define array of word colors:
%
/PSL_rgb
0 0 0
1 0 0
6 array astore def
%
% Define array of word widths:
%
/PSL_width 89 array def
/PSL_max_word_width 0 def
0 1 PSL_n1 {	% Determine word width given the font and fontsize for each word
  /i edef	% Loop index i
  PSL_size i get PSL_fontname PSL_fnt i get get Y	% Get and set font and size
  PSL_width i PSL_word i get stringwidth pop put	% Calculate and store width
  PSL_width i get PSL_max_word_width gt { /PSL_max_word_width PSL_width i get def} if	% Keep track of widest word
} for
PSL_max_word_width PSL_parwidth gt { /PSL_parwidth PSL_max_word_width def } if	% Auto-widen paragraph width if widest word exceeds it
%
% Define array of word char counts:
%
/PSL_count 89 array def
0 1 PSL_n1 {PSL_count exch dup PSL_word exch get length put} for
%
% For composite chars, set width and count to zero for 2nd char:
%
1 1 PSL_n1 {
  /k edef
  PSL_flag k get 16 and 16 eq {
    /k1 k 1 sub def
    /w1 PSL_width k1 get def
    /w2 PSL_width k get def
    PSL_width k1 w1 w2 gt {w1} {w2} ifelse put
    PSL_width k 0 put
    PSL_count k 0 put
  } if
} for
V 2640 9720 T
/PSL_xgap 120 def
/PSL_ygap 120 def
0 0 M
0 PSL_textjustifier	% Just get paragraph height
/PSL_justify 9 def
/PSL_x0 PSL_parwidth PSL_justify 1 sub 4 mod 0.5 mul neg mul def
/PSL_y0 0 def
/PSL_txt_y0 PSL_top neg def
PSL_x0 PSL_y0 T
%
% Start PSL box beneath text block:
%
/XL PSL_xgap neg def
/XR PSL_parwidth PSL_xgap add def
/YT PSL_ygap def
/YB PSL_parheight PSL_ygap add neg def
%
% PSL_path:
%
XL YT M XL YB L XR YB L XR YT L
FO U
%
% End PSL box beneath text block:
%
V 2640 9720 T
0 0 M
0 PSL_textjustifier	% Just get paragraph height
/PSL_justify 9 def
/PSL_x0 PSL_parwidth PSL_justify 1 sub 4 mod 0.5 mul neg mul def
/PSL_y0 0 def
/PSL_txt_y0 PSL_top neg def
PSL_x0 PSL_y0 T
0 PSL_txt_y0 T	% Move to col 0 on first baseline
0 0 M
1 PSL_textjustifier U	% Place the paragraph
%
% Start of Gray image [8 bit]
%
V N 6000 8494 T 1800 1346 scale /DeviceGray setcolorspace
<< /ImageType 1 /Decode [0 1] /Width 107 /Height 80 /BitsPerComponent 8
   /ImageMatrix [107 0 0 -80 0 80] /DataSource currentfile /ASCII85Decode filter /LZWDecode filter
>> image
J,hhG0E;@a"Tgr^?l2]A'F"OX9u;E_"B^IHT?jEf
aqYJ>5G4+;<9h;=^0n.0$OK0T]\[,!g2co)9r?-EY\-Vj_V&b0<@F'r,r2/r]MX@elGFG=#6]VYTb,je3Z/B^!5O+GU^FS,
W<gki5j00h0L6dVB/>t6ru+(n:e=X7SS#<8/elaQo,Y(i>@6.6<h/;r4J+,=$2!@<LoOJ]`5qTo.L?Q:=#07p]jLqGbsL?=
8qBDP3sl!R,GW5^gMOHl:FFXA/L[N!/Ct7drUGLu@'&j"7Qq];^0</=MKKPG.$7&snZ'F8:q"gh6L'(Q$p1jsbCI6*MN3Yf
H5Hd#A5d3#ghi'fXti)AkB<@r:D_6pHLYC2Y\CA0S0]c?<)]"Ad4XWKKXj>g!J/XY2#p>9_X]2'_`I9D?l0"H"XM1%(BQ:h
MD5J?^r6!Y"2Obm2Pds(>8P803)qsb`!0E\L1.='-HWfM?755./k`b9M%M%s,cH:tKnRQmZU8X-4UrqI>K75c_SIcMKn+1a
'?)\0fK$BMklBHP78n;.''n7FS?Yr`K#/Cc6"Ze#`2&QT&*-##,(O)Ul>d#G$nEo,DZ$f=1\>>\!lNpr#X].)-q4?4U+B9q
bk"NXOd$HG:.:BNADCRZ"Z]7c^d_dNSB-D:(BmAC;DL@qj=#T[K4=Ab00Cfq,-Jfl\-DAP!%f`+P_2ea&)"`HQn](\f_R_*
Mi-@V<.tJ1:_:)LE*X7)@>b/RVC@O7QdR$i><sOrE^UGub1Jh2i!:APQmBhJA^[[W].25#@MI&lAK\u5K#gIa,[3XX"HXkH
.05?g6s2?D'Lf8Z6Bd*h:0SNg;MJT8V;ZZ(<if.p;\TtaSrXDWS)>%^+@plX(Q*Q&8MitMM1gC4&fh=;AB:to"/oT9&W]>Z
5Y@8P"T;U<"C=2cPQdI76"IMdD3Yf(k$$hH`=Y((D=U0)6sF/7g,t8nTE50!jWTWj.lpH0/#q%P0.aHn8fRqp">HPfJG,oC
)\<-tNcZ9GR@\"<jY8eg'3-Jt:67lk;)]8,?IGJ.H[:EH('T7k;\S5fN^Qs.E+$sHB)$1n["p3(88urI_;hQ_!X8lC,H.%J
!Ha\/$`ekn^3:S;fpR#NV8JTtjQ+%se+Q3b35)8%3ETK&k'I'O*<s?O@-^n3>T#*;:c(<Sl=pZLS3bqTD]"0L#R#C6q$[CB
3$A?4&cr'c*WVn4HO]M:XW(1()=Pg5Md\+1b^c]-_Iuf)Tk#mtpuia9iYE&%l9&L*ocKs=Bo4VJ>6>M.+Q*A3#3!9@a;`$2
&.!isAr8msiDfl.&0_HH[LU+j!<U'4+T]s>3X3sW>m0f41;j0$7P#Vpm[R6;E@rab;"u,pXF(Q2>!6;%rJ"1jG7);E6k(7>
"9H#HMFW0tQ:jeHXWA[:<@DO?:h+4TkS""/O;(!"<.2X9@&(P?/-W8hAWO?C%_&_i6hm8fc[j^TTl`GQYjNNA`-W"leiTX[
/0=uDIuj-t5DP&4$).D2!(8::5ko46ipigp0G<kQ_,WhI+9DOU'`Z=#FV)As*s6K%+9E*bK$:dX$@tSp,fm8-!sKc,JYjX/
m%P1iW*9SEE'&gH.3>8:G`LskjsRD$*\uGRL7f"^!M"Z?i!9\pEHF%Q6)4MbJYSXN3:Vf,#,4P'8H9n*=M`?p'-RW.,P6d@
SYTb=;I!<Zi`o.[UEj@OMNWi?HoHgGj;i9fInt;gr$+c2+/<KQJ?W,]fT6jX_T6YHjXi8R9M(&;BnRn3Lf;)CNt.id1(,5S
#KuVL'nTCM#8C!lK/di^!d3-G!O+?_TSPWqLnfo+?oB0)mMeL_k(U%.%tX4E%"\IP$k^5o.G,[Ai:o/4J/L$C+KQQ5OoL[k
]VEW^^FJRr/:fN2(rDrY&-*83N=dWX_9`\n:_\V6YV6Fd@"8uE6t_A'p=4j!?krhIBSo(1&:k)o;RSgt"<db!@q^BDiLEDm
i/eTSE1J%&rmE*k$>3,q&iE3k.Y)%r('PhK">)GP!N2+m5ViQdUbDq(+M8QmO?*W^^^pM8/.2IFUR1(6AXWdg=25(j%\l^7
"!@^``?:HYiTN(SdHhJO1drQq'Eh_]W6pD_MF2P\!JE`[-:O"P#/LqK*QIe?$JCn^ejtKD;n,*.0jIk!71GLN&648uQ5JP=
"pjut/;,^F*l29uROc1[Y8]s:R1(L%+f5r>!%E2.=Ft"d*!F'E&-;h?"4WtD!T3eT1k5u:!0A<+5c.E[i$N(o."VP(m"tn=
?sq*MVC[LZ9t,CYL;]99+V\AE!5YUN#G;b:$F*@KmOSNm!%8&f!%.q/_+m5c(^%R($]rr!9*"=m"R).W!?`Wl!8<T$oP%+<
To9Zkn\-\mOS00q$RWe.LLc9]#QZb/!hIH&7#2aZ"(k_(6kUI?!&t4]ZjZs8E#JhokUm#]3a[F,MAq2H?3m4J#&%Bs!ru6E
]Hf<93=lD$[2)sL!4Xcl_6c&\W-Xl.5nAJg'r6lc#U&[W'bE&2[TZ66(P*/k@[+/!!([Kcb:KU8i!9Gcpb2ss6j3_@*%++h
D%IN!#&1bu!+Z+*_;#83Pimc%J?UsF_e<mVTaUp?DG3-F+V/#BYlZ])bq"Tt)[E#g!$fAbhL&jcibd<O!O,8u@0B(-Tb\aQ
fHp[21kNer6:4!\$JRTF&*^m.0Lm8Z+6$oS`$Y_0XI_ejJ,h<pS=-Q[Sn'XB/];2Q!!RoR-4,5;&8,U<6LpcR!57TrJ7',o
SdS.@J8@aKOoHMbq-[(p-PS")_k9VP)8R<NJUgdT^%)?OfVX-&!5KV@!LPVHi4pfEU'6fa;$^&f#QXpU('4j5:+AL3+UiVH
0._HC4DcIZOA$V:<*P4)@&+3]"e+Fj5RR3#:]u>gKGFYdD@Bqr&:e/$d0+DSYl%lBKg<YTJ:8O>GVoi%iX,a1akX/@O9,Yn
Zo3GP9TLW=K+SBIX^4\Uh4PGn=RL-*?j6X'NknDp!"2I'E"E+Z+9<`;!'gqp5X5GZOoZnU#2nbZ_+50Rg]S*J.S6.T/c_ST
4s5G""Q=qSiU#HYSE$LYLe!9gD8&Bq#Q\JSrlfoU!#5FV5]FLIfoI0S5ZeADW!qVbGOQ$j!*foLc3jVWYi;t,mPLUbr`R#P
4@$u[@33'5r+QN_Z7P,e_?9kS,/ku642:p_8.pJ+nB6=pn]^+rTL&o,c3]"(!FcZak_]C7SjKEH.F;tUOLFm5#i,NY9Ma<.
XR*5aHso]p;/Kj1jW4HE!)g%+fF<Fo%LCEH((,SF$Ylhj-NsOg87846.\`aRBFtt%]U#4pH:NS]7@#Fn(4ZAd=i.>mE?In)
FNZ7DmgQ?UJe0*@('_S(&`Fc5ALuS0Yl71[(+GL@Ob1GZ(^$J/++Zu%0C2>)mOIZVZ4!QGYhKs<T`38<Bh%h9,,2GP"p)RX
!K=%'E(5Xs&no.[)F=Q962hoJ>monSM.3WUbi]4LcD`P;"H>hXmb/gX)!:l+!J$X-^]4G;,"'cUlsc^jU8G5H#Qc0`+5mXK
_Qo#.<,,3.92B(@Y?l0Z*WXHjWJ)HFXLRi#!36+.Dd\A,N3IOZ]^bMd(b7!Y!;%Al^&cZ0Bk"GY7e[e%m_MJR;N_CXTGY<n
gEkha).oZGN)BX@FreCiBcn2f?qpe(.,-=3dqfqharDP*6HEOA"E(U^Z?Cd,-@elKehZ;R%G^oDr?EL+2*_EK^aoW(e."Z"
+CKjDTm7Eh5RYB9"Mchr5V*#q3WibC!H/rU'%X@?ZkS)jBIno)-Bq.K.bG8B9+[u>%;Z%f)?IVn!oQTQ^k<*2gol8;#Ts8L
+?C6fl766\!'hS15hll8W!.]8e'&f!UpBpA.2K^o+"J3c`%r_&NhT85@3u=<"WHD$'EWeS$NTl6Th#\ZA-%37")TsUVKrBk
&ck6q$)&CU9"5>'Qj=h%$%Q,snBDkI-icPX+5m5-%p#)N_W)3L"k,jr"r73S0Ef1=$@p2/_)`>t*!\_W!rt@aTGRcFFq6i]
!IuR",cC]N(^+5a"Mem\T_&tM$jQ-s_rA&>m_YC-[NFJ+*>#hJ8.=s)>;PJrR(rh1TcOi_*9dJR'#:^R5Ss\*Hj!h."TX2[
^`Wc1YR-sd!oP%!J/L$P+pEL!"&DI3F$d6rm.MP;h$s0KnB22t,2;Q<1b0][/\3)J":5(`$BIXZ^gTfb5R'Ji"Q1[3+C$FI
)T<ga#_4Kn[.Xa?M?s97#U!X[6S&3gYnjQ^7KOH%!!!Q?[`&Wp1\B9:WZ\U"15N(D:Ol3f5Y(tb6im?."/&Q:#c%l;*XlU<
!h`d$^chh8+p&l.!T5@/+Ck[A=9cQa"i*A+?q:C:.\Y'5=jS,g!(\,=aS<#0=X:'kasf>G`)9t]!u6h!Co%gY'Hg#@!NWF@
JK>1'UG[mg\cNWJ+=0.XO9FK(1;p;#c*RHa3>J9o.Igb+:O+D=gem6d!C/aN+@ZG\K+Fe*^8u\_+JKF_l3dTJ":k(Y-(Fu!
OGP85@Snpfo0EZ?L`XB'H8A#gD]ZKSf_i)bnR)pfXkL'u0_[/J!$EHhPb,cgWlpN81U1EDmP,=^*DCFf!"?pe@I+*AmolTJ
3C4-mBahjV&B%Fo1^T7+9C;i]63Vm7#/FIG!#[]ZSB:7LCD!*f.#err;Y$`]!C4XHi4R6Qi7=*t6gjZlZ9_4NG91=[@#,@s
F]nou63Y/8"7<D;U(.5)/-1gocHh#D"?.fHJ-5nopC5j:mo[-*/j$C'_o"CgJ-ddr)Cn&q"9:sq?qplU8ONuc/AM_si%P3H
67ZUkLsbT/1#l1t5k?WYm;I"G%D>ra+MOnF.j,8O<]+Xo%KO9i!h^oB?m5WO"othk(:5XA'e^H1j]cQ`h-`Ji!;-"DK$,Ar
2YWD>EOAb'8-&$;#:)Fdl6PnbWs1Gm`S_@2!%J#47cmd]I1%,*/^,>51:h$I)m$Wn[s[O>&5l?W!HOqacM$+NOt2fa!e:Y6
@N`je(EN+OLsnQ._@:AON3TL4k6ZP:;ibK9+R]o2mgV+I2R,;p*!61GDa4@,n/5_$!!/`T!k8Bf.$c#8+'Wk;1ZBMZ+gbWZ
<n37[e&`)]<i5UJfU3/X!:g,00)-U*D@JjI+cC:_,0U#e+9T`HMT(nMC+4eTOT;.E'-Z?9D8%MJK]Qh>"#`#];l#5N\hugi
]H^CpmH,nVHju`j;S[YdO('QR('97,!JN'IcW,s+r$fEZ+5jUI[U_`J'opiE>BFnZAsVVS$pq2P!rsMqJ9?s**!d\*YjMLQ
!#!r$\=m@ShN/\;$Rf].>]:rJ1Op_Q0`uh>AD?T=/(L3kU+83XOpI`S#WYrM,+Jb.57AE)eh_X@;%e\iH[PmM*seUP&7coV
2?Lu2P&t+AZIP>"(6H<E#V;2?@$hM9&2dksRE$XUjX5r&&cf]co#V<.G5[a/"p$sn(Qps<Xa2gS&d/1d>?N<>+;Y'1SD_6o
4+L]J^ht;<Qk=.Z2.6UpJcqi#!)eq#+LdI&bUDS`E6&"f#_B>aUb_CN$j%P@!_i-DDfkXC<Lb6M=hk:LJK+p3*M+uh!$H.j
5fd*DD@Z`7\nQP:?nMPlA#0]=RsB'^^^M,he3bs"b2>#X!$X5O'IkRT!<>XlCma5?WLfuM#U'0VJfFsq!"@tZ"b?(NnM&]c
5@FO4%BQ\%aF\XZ`YY)\9,\VJ)T9^?p0`r?#0RkP9UeQ1iX#Z!#2o1`K"(u7p'g25"bq,%E+kWaoEE\o*S8i3ee\bRZj;f(
J)D:Li$Pp3TpI,:Z+q[lNc,];+Td1%$t,N<+ES*dW;Ic3%Nrm'JBeRR-icLT#YPX-TFM,^0a_*4BUZp@_!6uu_0tbOV&0)j
0`3(Z/dB+c"D+)(,Z4mjF:!K=%"O3BJ>*Fpc4.S2\KI7HJ@E'3F9b'%"c^4s5UHnIU''QP"ju_B<VugsL_l)=gIVgrZCeN8
g7Eh`.psh0^d\Fa9ig1G"MdP0J1(Lb>R+Y=";QXs5[4Da/-/![b_*P4a]9''U;[0W_"0F9+92GYH(hk`!2)9XO*@;n7f^=o
"9ALV"c6KF.KKt?mb%=DN'O%KL'GKRY$ab&lpRhUg;j>e&ATFhJ--*#;ogoFA)[gs!+aE,ljI2->I@Q6^`!5])pWS/H7_23
Xt--2V!;$AdQ;=f+ik@J3q(_K]$D1W.@^^K3m^,i%7"JN>6+Dl"q+j1&AU3^!#iunaoe;&6Jt"K^e*#u8C9\!"FsAQQ&YtI
2?Nq8H6=n^V%NqSA-2n*,]"i4DsV4\f_-F3$c$u7(XQiG"0c0VOL0-VN4o<eYQ<@EaqFe2F34RB.n\Ei2,E3U"1SH+:'>C\
;V:MMneuK,X![$:SBO_.1o(],3$K6kfH;F@^bQ#@!!4qW=$R]Y*EE6p`WI>A!^f0IC*:]M-j>,K=e)kTO!n2?B_]@C"2M-<
3CTT./d`a%$6gUdMBi3RT6]%_arWYHIII==0B?Lg:jN6!:RVA=j006Ja[qp%!)a)Q0^4nU@517BTV;ri(j\]&mr)G3THi0=
l2oe3"!3H_=/&ip$(%_jfq)p>P[Km8C'3#&"kHjbB,8C6/ndsag[eEjTJ,2Q1'4*o!e*Z'^a@Jr[4^bgJGu6Q&S2a(m4>cN
JP^9F*0o]=ZapVJ!Ii5pF")CM/*PKaO9L\%gUD6jrL=b6JMFKQ/N93#+?[5_1bTPW/`n2V)jfJF"2Hes4o%^s7H!?^\_^KZ
QTirSHGp<7?t,h(9j)B\/1Q7YU-KOsW$2>n/cr4@Lil.$?6lf_QJTId:i:4R'qJ71\"UkE1C0*hSXJhp,g;;8lr-:EhbHfS
oY-Vg4#laD/ScUIe1.D[RB=,P)20:6hX.$A+<U~>
U
%
% End of Gray image
%
%
% Undefine patterns and images
%
currentdict /image12 undef
currentdict /pattern12 undef
currentdict /image13 undef
currentdict /pattern13 undef
currentdict /image91 undef
currentdict /pattern91 undef
%%PageTrailer
%
% Reset transformations and call showpage
%
U
showpage

%%Trailer

end
%%EOF