DIRECTORY
NPGSConDefs USING [ExpandPInfo, ExpandRhsChar, ExpandSInfo, inchar, MakePInfo, MakeRhsChar, MakeSInfo, maxProd, maxRhsSymbols, outchar, outeol, outnum, outstring, outtime, NPGSFail, query, sourceName, symTabSize, tokenSize],
NPGSTypes USING [HashHeads, HashHeadsRef, PInfo, RhsChar, SInfo, SInfoRec],
RefText USING [InlineAppendChar],
Rope: TYPE USING [Fetch, FromProc, ROPE];

NPGSFormat: CEDAR PROGRAM
IMPORTS NPGSConDefs, RefText, Rope
EXPORTS NPGSConDefs = {


sInfIndex: CARDINAL м 0;
aliasIndex, lastTerminal: CARDINAL;
symString: REF TEXT;
aliasText: REF TEXT;
sInfo: NPGSTypes.SInfo;
pInfo: NPGSTypes.PInfo;
rhsText: NPGSTypes.RhsChar;


leftIndex, symIndex, nextProd, nextRhsChar, topSymbol: CARDINAL м 0;
rule, nextRule: CARDINAL м 0;

KeyWord: TYPE = {table, type, export, goal, terminals, aliases, productions};

text: Rope.ROPE = "TABLETYPEEXPORTSGOALTERMINALSALIASESPRODUCTIONS";
textKeys: ARRAY KeyWord OF RECORD[index, len: CARDINAL] =
[[0,5], [5,4], [9,7], [16,4], [20,9], [29,7], [36,11]];

Error: PROC = {
rhsText м NIL;
sInfo м NIL; pInfo м NIL;
symString м NIL;
aliasText м NIL;
ERROR NPGSConDefs.NPGSFail[];
};

Directive: PROC[key: KeyWord] RETURNS[BOOL] = {
IF symIndex # textKeys[key].len+leftIndex+1 OR symString[symIndex-1] # ': THEN
RETURN[FALSE];
FOR i: CARDINAL IN [0..textKeys[key].len) DO
IF symString[leftIndex+i] # text.Fetch[textKeys[key].index+i] THEN RETURN[FALSE]
ENDLOOP;
RETURN[TRUE];
};

GetItem: PROC RETURNS[Rope.ROPE] = {
i: NAT;
p: SAFE PROC RETURNS[c: CHAR] ~ TRUSTED { c м symString[i]; i м i+1 };
GetText[];
i м leftIndex;
RETURN[Rope.FromProc[symIndex-leftIndex, p]];
};

hashChain: NPGSTypes.HashHeadsRef м NIL;

FindText: PROC RETURNS[CARDINAL] = {
h, i, j, k: CARDINAL;
h м (256*(symIndex-leftIndex)+symString[leftIndex].ORD) MOD hashChainн.LENGTH;
j м hashChain[h];
WHILE j#0 DO
IF symIndex-leftIndex = sInfo[j+1].symPtr-sInfo[j].symPtr THEN { -- same length
i м sInfo[j].symPtr;
FOR k IN [leftIndex..symIndex) DO
IF symString[k]#symString[i] THEN EXIT;
i м i+1;
REPEAT
FINISHED => {symString.length м symIndex м leftIndex; RETURN[j]};
ENDLOOP
};
j м sInfo[j].link;
ENDLOOP;
sInfo[sInfIndex] м [leftIndex,hashChain[h],0]; 
hashChain[h] м sInfIndex;
sInfIndex м sInfIndex+1;
sInfo[sInfIndex].symPtr м symIndex; 
IF sInfIndex=sInfo.length THEN
sInfo м NPGSConDefs.ExpandSInfo[sInfo, sInfo.length/8];
RETURN[sInfIndex-1];
};

Formatter: PROC RETURNS[tableId, typeId, exportId: Rope.ROPE м NIL] = {

DoTerminals: PROC ~ {
symString.length м symIndex м leftIndex;
DO
GetText[];
IF symString[symIndex-1] = ': AND (Directive[aliases] OR Directive[productions])
THEN EXIT;
[] м FindText[];
ENDLOOP
};

DoAliases: PROC ~ {
append: PROC[char: CHAR] ~ {
aliasText м RefText.InlineAppendChar[aliasText, char];
aliasIndex м aliasIndex+1;
};
SetTextLength[leftIndex];
DO
GetText[];
IF Directive[productions] THEN EXIT;
FOR i: CARDINAL IN [leftIndex..symIndex) DO append[symString[i]] ENDLOOP;
append[' ];
symString.length м symIndex м leftIndex;
GetText[];
FOR i: CARDINAL IN [leftIndex..symIndex) DO append[symString[i]] ENDLOOP;
append[' ];
symString.length м symIndex м leftIndex;
ENDLOOP;
};

DoProductions: PROC ~ {
chain: BOOL;
SetTextLength[leftIndex];
nextProd м 1;
nextRhsChar м 0;
GetText[];
topSymbol м FindText[];
DO -- exit from this loop on EndOfFIle, topSymbol distinguishes cases
GetText[];
IF symString[leftIndex] = ': AND symString[leftIndex+1] = ':
AND symString[leftIndex+2] = '= THEN {
i, oldi: CARDINAL м 0;
IF symIndex-leftIndex=4 AND symString[leftIndex+3]='C
THEN chain м TRUE
ELSE IF symIndex-leftIndex=3 THEN chain м FALSE ELSE GOTO notlhs;
symString.length м symIndex м leftIndex;
pInfo[nextProd] м [rule,chain,0,nextRhsChar];
IF (i м sInfo[topSymbol].lhsHead)=0
THEN sInfo[topSymbol].lhsHead м nextProd
ELSE {
WHILE i#0 DO oldi м i; i м pInfo[i].link ENDLOOP;
pInfo[oldi].link м nextProd;
};
nextProd м nextProd+1;
IF nextProd=pInfo.length THEN
pInfo м NPGSConDefs.ExpandPInfo[pInfo, pInfo.length/8];
topSymbol м 0; GetText[]; topSymbol м FindText[];
LOOP
EXITS notlhs => NULL
};
rhsText[nextRhsChar] м topSymbol; nextRhsChar м nextRhsChar+1;
IF nextRhsChar = rhsText.length THEN
rhsText м NPGSConDefs.ExpandRhsChar[rhsText, rhsText.length/8];
topSymbol м FindText[];
ENDLOOP
};

NPGSConDefs.outstring["-- file "];  NPGSConDefs.outstring[NPGSConDefs.sourceName];
NPGSConDefs.outstring[" rewritten by NPGS, "];  NPGSConDefs.outtime[];  NPGSConDefs.outeol[1];
ScanInit[]; 
DO 
GetText[];
IF Directive[$table] THEN tableId м GetItem[]
ELSE IF Directive[$type] THEN typeId м GetItem[]
ELSE IF Directive[$export] THEN exportId м GetItem[]
ELSE EXIT;
ENDLOOP;

IF Directive[$goal] THEN {
SetTextLength[0];
GetText[];
sInfIndex м 1;
[] м FindText[];
}
ELSE Error[];
GetText[];

IF Directive[$terminals] THEN DoTerminals[];
lastTerminal м sInfIndex-1;
aliasIndex м 0;
IF Directive[$aliases] THEN DoAliases[];
IF Directive[$productions]
THEN DoProductions[ ! EndOfFile => CONTINUE]
ELSE Error[];
};

Format: PUBLIC PROC RETURNS [table, type, export: Rope.ROPE] = {
nextRule м 0;
symIndex м 0;
hashChain м NEW[NPGSTypes.HashHeads м ALL[0]];
rhsText м NPGSConDefs.MakeRhsChar[NPGSConDefs.maxRhsSymbols+1];
sInfo м NPGSConDefs.MakeSInfo[NPGSConDefs.symTabSize+1];
pInfo м NPGSConDefs.MakePInfo[NPGSConDefs.maxProd+1];
symString м NEW[TEXT[500]];
aliasText м NEW[TEXT[100]];
[tableId: table, typeId: type, exportId: export] м Formatter[
! UNWIND => hashChain м NIL];
hashChain м NIL;
IF topSymbol#0 THEN {
rhsText[nextRhsChar] м topSymbol;
nextRhsChar м nextRhsChar+1;
};
sInfo[sInfIndex].symPtr м symIndex;
pInfo[nextProd].rhsPtr м nextRhsChar;
};


char: CHAR м 0C;	-- current (most recently scanned) character
EndOfFile: SIGNAL = CODE;

cr: CHAR = 015C;
nl: CHAR = 012C;

GetText: PROC = {
c: CHAR;
WHILE char IN ['\000..' ] DO
IF char='\032--нZ-- THEN
WHILE (char#cr) AND (char#nl) DO NPGSConDefs.outchar[char,1]; NextChar[]; ENDLOOP;
NPGSConDefs.outchar[char,1];
IF (char=cr) OR (char=nl) THEN {
WHILE char IN ['\000..' ] DO NextChar[]; NPGSConDefs.outchar[char,1] ENDLOOP;
c м char; NextChar[]; NPGSConDefs.outchar[char,1];
IF c#char OR c#'- THEN {NextChar[]; FindHeader[]}
};
NextChar[];
ENDLOOP;
leftIndex м symIndex;
WHILE char NOT IN ['\000..' ] DO
NPGSConDefs.outchar[char,1];
symString м RefText.InlineAppendChar[symString, char];
symIndex м symIndex+1;
NextChar[];
ENDLOOP
};

SetTextLength: PROC [newLen: NAT] = INLINE {
symString.length м symIndex м newLen;
};

FindHeader: PROC = {
bIndex, i, k: CARDINAL;
maxLength: CARDINAL = 2000;
buffer: REF TEXT м NEW[TEXT[maxLength]];  -- line assembly area
BufferOverflow: ERROR = CODE;

PutChar: PROC = {
IF bIndex = maxLength THEN ERROR BufferOverflow;
buffer[bIndex] м char;
bIndex м bIndex+1;
NextChar[];
};

DO
{
bIndex м 0;
WHILE char IN ['\000..' ] DO
IF char = cr OR char = nl OR char = '\032 --нZ-- THEN GOTO copyline; PutChar[];
ENDLOOP;
IF char NOT IN ['0..'9] AND char # NPGSConDefs.query THEN GOTO copyline; PutChar[];
WHILE char IN ['0..'9] DO PutChar[] ENDLOOP;
WHILE char IN ['\000..' ] DO
IF char = cr OR char = nl OR char='\032 --нZ-- THEN GOTO copyline; PutChar[];
ENDLOOP;
IF char # '= THEN GOTO copyline; PutChar[];
IF char # '> THEN GOTO copyline; PutChar[];
WHILE char IN ['\000..' ]
DO IF char = cr OR char = nl OR char='\032 --нZ-- THEN GOTO copyline; PutChar[];
ENDLOOP;
IF char # '- THEN GOTO copyline; PutChar[];
IF char # '- THEN GOTO copyline;
FOR i м bIndex-1, i-1 WHILE buffer[i] # '= DO NULL ENDLOOP;
k м 0;
FOR j: CARDINAL IN [0..i) DO k м IF buffer[j] = '\t THEN k+8 ELSE k+1 ENDLOOP;
NPGSConDefs.outnum[nextRule,k-2]; rule м nextRule; nextRule м nextRule+1;
NPGSConDefs.outchar[' ,2]; FOR j: CARDINAL IN [i..bIndex) DO NPGSConDefs.outchar[buffer[j],1] ENDLOOP;
NPGSConDefs.outchar['-,1];
RETURN
EXITS
copyline => {
FOR i: CARDINAL IN [0..bIndex) DO NPGSConDefs.outchar[buffer[i],1] ENDLOOP;
NPGSConDefs.outchar[char,1];
WHILE (char # cr) AND (char # nl) DO NextChar[]; NPGSConDefs.outchar[char,1] ENDLOOP;
NextChar[];
};
};
ENDLOOP
};

NextChar: PROC = {
ended: BOOL;
[char, ended] м NPGSConDefs.inchar[];
IF ended THEN SIGNAL EndOfFile[];
};

ScanInit: PROC = {
[char, ] м NPGSConDefs.inchar[];
FindHeader[];
NextChar[];
};

PrintGrammar: PUBLIC PROC = {
i, p, s, listIndex: CARDINAL;
list: NPGSTypes.SInfo;

PrintToken: PROC [i: CARDINAL] RETURNS [length: CARDINALм0] = {
FOR j: CARDINAL IN [sInfo[i].symPtr..sInfo[i+1].symPtr) DO
NPGSConDefs.outchar[symString[j],1];
length м length+1;
ENDLOOP;
};

PrintSymbol: PROC[i: CARDINAL] = {
NPGSConDefs.outnum[s, 3];
s м s+1; NPGSConDefs.outchar[' , 2];
[] м PrintToken[i]; NPGSConDefs.outeol[1];
};

PrintProd: PROC[i, p: CARDINAL, first: BOOL] = {
NPGSConDefs.outnum[s,3]; s м s+1;
NPGSConDefs.outstring[IF pInfo[p].chain THEN " C " ELSE "   "];
NPGSConDefs.outnum[pInfo[p].rule,3]; NPGSConDefs.outchar[' ,2];
NPGSConDefs.outchar[' ,NPGSConDefs.tokenSize-(IF first THEN PrintToken[i] ELSE 0)];
NPGSConDefs.outstring[IF first THEN " ::= " ELSE "   | "];
FOR j: CARDINAL IN [pInfo[p].rhsPtr..pInfo[p+1].rhsPtr) DO
[] м PrintToken[rhsText[j]]; NPGSConDefs.outchar[' , 1] ENDLOOP;
NPGSConDefs.outeol[1];
};

NPGSConDefs.outstring["-- grammar extracted from "];  NPGSConDefs.outstring[NPGSConDefs.sourceName];
NPGSConDefs.outstring[" by NPGS, "];  NPGSConDefs.outtime[];  NPGSConDefs.outeol[2];

NPGSConDefs.outstring["||CHAIN ||LISTS\n\n"];

NPGSConDefs.outstring["||TABLE1\n"]; s м 1;
IF lastTerminal=1
THEN
FOR i IN [2..sInfIndex) DO IF sInfo[i].lhsHead=0 THEN PrintSymbol[i] ENDLOOP
ELSE
FOR i IN [2..lastTerminal] DO PrintSymbol[i] ENDLOOP;
NPGSConDefs.outnum[s, 3]; s м s+1; NPGSConDefs.outstring["  eof\n\n"];

NPGSConDefs.outstring["||TABLE2\n"];
PrintSymbol[1]; p м 1;
FOR i IN (lastTerminal..sInfIndex) DO
IF sInfo[i].lhsHead#0 THEN {PrintSymbol[i]; p м p+1};
ENDLOOP;

IF aliasIndex # 0 THEN {
state: {init, id1, sp, id2} м init;
nc: CARDINAL м 0;
NPGSConDefs.outstring["\n\n||TABLE3\n"];
FOR i IN [0..aliasIndex) DO
c: CHAR = aliasText[i];
IF c # '  THEN {
NPGSConDefs.outchar[c, 1];
nc м nc+1;
state м SELECT state FROM
init => id1, sp => id2, ENDCASE => state;
}
ELSE SELECT state FROM
id1 => {NPGSConDefs.outchar[' , NPGSConDefs.tokenSize-nc]; nc м 0; state м sp};
id2 => {NPGSConDefs.outeol[1]; nc м 0; state м init};
ENDCASE;
ENDLOOP;
IF state # init THEN NPGSConDefs.outeol[1];
};

NPGSConDefs.outstring["\n\n||TABLE4\n\n"];  s м 1;
list м NPGSConDefs.MakeSInfo[p];
p м sInfo[1].lhsHead; list[0] м [1,pInfo[p].rule,p]; listIndex м 1;
FOR i IN (lastTerminal..sInfIndex) DO
IF (p м sInfo[i].lhsHead)#0 THEN {
list[listIndex] м [i,pInfo[p].rule,p]; listIndex м listIndex+1
};
ENDLOOP;
FOR i DECREASING IN [0..list.length) DO
noSwap: BOOL м TRUE;
FOR p IN [0..i) DO
IF list[p].link>list[p+1].link THEN {
t: NPGSTypes.SInfoRec м list[p];
list[p] м list[p+1]; list[p+1] м t; noSwap м FALSE
};
ENDLOOP;
IF noSwap THEN EXIT;
ENDLOOP;
FOR i IN [0..list.length) DO
p м list[i].lhsHead; PrintProd[list[i].symPtr,p,TRUE]; p м pInfo[p].link;
WHILE p#0 DO PrintProd[0,p,FALSE]; p м pInfo[p].link ENDLOOP;
NPGSConDefs.outeol[1];
ENDLOOP;
list м NIL;
rhsText м NIL;
sInfo м NIL;
pInfo м NIL;
symString м NIL;
aliasText м NIL;
};

}.

   ъ  
NPGSFormat.mesa
Copyright ╙ 1985, 1988, 1990, 1992 by Xerox Corporation.  All rights reserved.
Satterthwaite, October 16, 1985 5:38:49 pm PDT
Maxwell, August 9, 1983 9:38 am
Wyatt, March 29, 1984 2:45:26 pm PST
Russ Atkinson (RRA) March 17, 1988 9:56:03 am PST
JKF May 24, 1990 3:38:56 pm PDT
Michael Plass, December 10, 1992 9:51 pm PST

shared global state (set by Format, used by PrintGrammar)
grammar extraction and source rewriting
new symbol
text input routines
grammar output
Э╩g  Ц"cedarcode" styleХNewlineDelimiter
Щ ЪЬЩJЪЬ
╧eЬCЩNJЪЬ.Щ.JЪЬЩJЪЬ$Щ$JЪЬ1Щ1JЪЬЩJЩ,JЩ ЧcodeЪ╧k	Ш	KЪЬЮЬ╧ШрKЪЬ
ЮЬ<ШKKЪЬЮЬШ!KЪЬЮЬЮЬЮЬШ)ЧKШ Ъ╧n
ЬЮЬЮШKЪЮЬШ"ЪЮЬШKШ ЧKШ JЪЬ9Щ9KЪЬЮ	ЬЮЬШKЪЬЮЬШ#KЪЬЮЬЮЬШKЪЬЮЬЮЬШKШKШKШKШ KШ JЪЬ'Щ'KЪЬ7Ю	ЬЮЬШDKЪЬЮ	ЬЮЬШKШ KЪЬ	ЮЬ@ШMKШ KЪЬЮЬ5ШDKЪ	Ь
ЮЬ	ЮЬЮЬЮЬШ9KШ7KШ ЪЯЬЮЬШKЪЬ
ЮЬШKЪЬЮЬ
ЮЬШKЪЬЮЬШKЪЬЮЬШKЪЮЬШKШЧKШ ЪЯ	ЬЮЬЮЬЮЬШ/KЪЮЬ*ЮЬЮШNKЪЮЬЮЬШЪЮЬЮЬЮЬЮШ,KЪЮЬ<ЮЬЮЬЮЬШPKЪЮЬШЧKЪЮЬЮЬШKШЧKШ ЪЯЬЮЬЮЬЮЬШ$KЪЬЮЬШKЪЬЮЬЮЬЮЬЮЬЮЬШFKШ
KШKЪЮЬ'Ш-KШЧKШ KЪЬ$ЮЬШ(KШ ЪЯЬЮЬЮЬЮЬШ$KЪЬЮЬШKЪЬ3ЮЬЮЬЮЬШNKШЪЮЬЮШЪЮЬ8ЮЬ╧cШOKШЪЮЬЮЬЮШ!KЪЮЬЮЬЮЬШ'KШKЪЮШKЪЮЬ.ЮЬШAKЪЮШЧKШЧKШKЪЮЬШЧJЪЬ
Щ
KШ/KШKШKШ$KЪЮЬЮШKШ7KЪЮЬШKШЧKШ Ъ
Я	ЬЮЬЮЬ!ЮЬЮЬШGKШ ЪЯЬЮЬШKШ(ЪЮШKШ
KЪЮЬЮЬЮЬШPKЪЮЬЮЬШ
KШKЪЮШЧKШЧKШ ЪЯ	ЬЮЬШЪЬЮЬЮЬШKШ6KШKШЧKШЪЮШKШ
KЪЮЬЮЬЮЬШ$KЪ
ЮЬЮЬЮЬЮЬЮЬШIKШKШ(KШ
KЪ
ЮЬЮЬЮЬЮЬЮЬШIKШKШ(KЪЮЬШЧKШЧKШ ЪЯЬЮЬШKЪЬЮЬШKШKШKШKШ
KШЪЮЬаBШEKШ
KЪЮЬЮЬШ<ЪЮЬЮЬШ&KЪЬ	ЮЬШKЪЮЬЮЬШ5ЪЮЬ	ЮШKЪЮЬЮЬЮЬ	ЮЬЮЬЮЬШAЧKШ(KШ-KЪЮЬ!Ш#ЪЮЬ$Ш(ЪЮЬШKЪЮЬЮЬЮЬШ1ЧKШKШЧKШKЪЮЬЮШKШ7KШ1KЪЮШKЪЮЬЮШKШЧKШ>KЪЮЬЮШ$KШ?KШKЪЮШЧKШЧKШ KШRKШ^KШЪЮЬШKШ
ЪЮЬЮЬШ-KЪЮЬЮЬЮЬШ0KЪЮЬЮЬЮЬШ4KЪЮЬЮЬШ
ЧKЪЮЬШЧKШ ЪЮЬЮЬШKШKШ
KШKШKШЧKЪЮЬ	ШKШ
KШ KЪЮЬЮЬШ,KШKШKЪЮЬЮЬШ(KЪЮЬШKЪЮЬЮЬШ,KЪЮЬ	ШKШЧKШ Ъ
ЯЬЮЬЮЬЮЬЮЬШ@KШKШKЪЬЮЬЮЬШ.KШ?KШ8KШ5KЪЬЮЬЮЬШKЪЬЮЬЮЬШШ=KЪЬЮЬЮЬШЧKЪЬЮЬШЪЮЬЮЬШKШ!KШKШЧKШ#KШ%KШЧKШ KШ JЪЬЩKЪЬЮЬЮЬа,Ш=KЪЯ	ЬЮЬЮЬШKШ KЪЬЮЬШKЪЬЮЬШKШ ЪЯЬЮЬШKЪЬЮЬШЪЮЬЮЬЮШKЪЮЬаЬаЬЮШKЪЮЬЮЬ*ЮЬШRKШЪЮЬЮЬШ KЪЮЬЮЬЮЬ)ЮЬШMKШ2KЪЮЬЮЬЮЬШ1KШЧKШKЪЮЬШЧKШЪЮЬЮЬЮЬЮШ KШKШ6KШKШKЪЮШЧKШЧKШ ЪЯЬЮЬ
ЮЬЮЬШ,KШ%KШЧKШ ЪЯ
ЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪ
ЬЮЬЮЬЮЬЮЬаШ?KЪЯЬЮЬЮЬШKШ ЪЯЬЮЬШKЪЮЬЮЬЮЬШ0KШKШKШKШЧKШ ЪЮШШKШЪЮЬЮЬЮШKЪЮЬЮЬ
ЮЬаЬаЬЮЬЮЬШOKЪЮЬШЧKЪЮЬЮЬЮЬ
ЮЬЮЬЮЬШSKЪЮЬЮЬ
ЮЬЮЬШ,ЪЮЬЮЬЮШKЪЮЬЮЬ
ЮЬаЬаЬЮЬЮЬШMKЪЮЬШЧKЪЮЬЮЬЮЬШ+KЪЮЬЮЬЮЬШ+KЪЮЬЮЬШЪЮЬЮЬЮЬ
ЮЬаЬаЬЮЬЮЬШPKЪЮЬШЧKЪЮЬЮЬЮЬШ+KЪЮЬЮЬЮЬ
Ш KЪ
ЮЬЮЬЮЬЮЬЮЬШ;KШKЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШNKШIKЪЬЮЬЮЬЮЬЮЬ"ЮЬШfKШKЪЮШKЪЮШШKЪ
ЮЬЮЬЮЬЮЬ"ЮЬШKKШKЪЮЬЮЬ)ЮЬШUKШKШЧKШЧKЪЮШЧKШЧKШ ЪЯЬЮЬШKЪЬЮЬШKШ%KЪЮЬЮЬЮЬШ!KШЧKШ ЪЯЬЮЬШKШ KШKШKШЧKШ JЪЬЩЪЯЬЮЬЮЬШKЪЬЮЬШKШKШ Ъ
Я
ЬЮЬЮЬЮЬ
ЮЬШ?ЪЮЬЮЬЮЬ&ЮШ:KШ$KШKЪЮЬШЧKШЧKШ ЪЯЬЮЬЮЬШ"KШKШ$KШ*KШЧKШ ЪЯ	ЬЮЬЮЬ	ЮЬШ0KШ!KЪЬЮЬЮЬЮЬШ?KШ?KЪЬ.ЮЬЮЬЮЬШSKЪЬЮЬЮЬ	ЮЬ
Ш:ЪЮЬЮЬЮЬ&ЮШ:KЪЬ8ЮЬШ@ЧKШKШЧKШ KШdKШTKШ KШ-KШ KШ+KЪЮЬШKЪЮШKЪЮЬЮЬЮЬЮЬЮЬЮШLKЪЮШKЪЮЬЮЬЮЬЮЬШ5KШFKШ KШ$KШЪЮЬЮЬЮШ%KЪЮЬЮЬШ5KЪЮЬШЧKШ ЪЮЬЮЬШKШ#KЪЬЮЬШKШ(ЪЮЬЮЬЮШKЪЬЮЬШЪЮЬЮЬШKШKШ
ЪЬЮЬЮШKЪЬЮЬ
Ш)ЧKШЧЪЮЬЮЬЮШKШOKШ5KЪЮЬШЧKЪЮЬШЧKЪЮЬЮЬШ+KШЧKШ KШ2KШ KШCЪЮЬЮЬЮШ%ЪЮЬЮЬШ"KШ>KШЧKЪЮЬШЧЪЮЬЮ
ЬЮЬЮШ'KЪЬЮЬЮЬШЪЮЬЮЬЮШЪЮЬЮЬШ%KШ KЪЬ-ЮШ2KШЧKЪЮЬШЧKЪЮЬЮЬЮЬШKЪЮЬШЧЪЮЬЮЬЮШKЪЬ0ЮЬШIKЪЮЬЮЬЮЬЮЬШ=KШKЪЮЬШЧKЪЬЮЬШKЪЬ
ЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKЪЬЮЬШKШЧKШ KШЧKШ Ч ЕЧ    +В  ;╙  