Exteor/distr/app/Примеры/Конструкты/012 Последовательность.trs

<EFBFBD><EFBFBD><EFBFBD>
__@VERSION@__<00><><EFBFBD>Exteor 4.7.10.1200 - 05/28/2019<00><><EFBFBD>>A;54>20B5;L=>ABL<04><><EFBFBD>012<00><><EFBFBD><00><>Q<><51><EFBFBD>X1
<00><><EFBFBD>!" "+<04><><EFBFBD><00><><EFBFBD><00><><EFBFBD>
<00><><EFBFBD>M;5<5=BK<04><><EFBFBD>M;5<5=BK<04><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><>73<37><33><EFBFBD>S1<00><><EFBFBD>!" "+<04><><EFBFBD>,!(X1<00>X1)<00><><EFBFBD><00><><EFBFBD>
<00><><EFBFBD>>B=>H5=85 A;54>20=8O<04><><EFBFBD>>B=>H5=85 A;54>20=8O<04><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD>P<>_E<5F><45><EFBFBD>D1<00><><EFBFBD><00><><EFBFBD>Pr1(S1)<00><><EFBFBD><00><><EFBFBD>
<00><><EFBFBD>?@54K4CI85 @{X1|nomn|plur}<00><><EFBFBD>?@54K4CI85 M;5<5=BK<04><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD>5<>
<1B><><EFBFBD>D2<00><><EFBFBD><00><><EFBFBD>Pr2(S1)<00><><EFBFBD><00><><EFBFBD>
<00><><EFBFBD>?>A;54CNI85 @{X1|nomn|plur}<00><><EFBFBD>?>A;54CNI85 M;5<5=BK<04><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD>g<<3C><00><><EFBFBD>A5<00><><EFBFBD><00><><EFBFBD>card(X1\D1) = 1<00><><EFBFBD><00><><EFBFBD>
<00><><EFBFBD>548=AB25==>ABL @{D5|gent|sing}<00><><EFBFBD>!548=AB25==>ABL :>=5G=>3> M;5<5=B0<04><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><>^W<><57><EFBFBD>A6<00><><EFBFBD><00><><EFBFBD>card(X1\D2) = 1<00><><EFBFBD><00><><EFBFBD>
<00><><EFBFBD>548=AB25==>ABL @{D6|gent|sing}<00><><EFBFBD>"548=AB25==>ABL =0G0;L=>3> M;5<5=B0<04><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD>5<>YE<59><45><EFBFBD>D5<00><><EFBFBD><00><><EFBFBD>
debool(X1\D1)<00><><EFBFBD>1@{X1|nomn|sing}, =5 @{-1|8<5NI89} @{D2|gent|plur}<00><><EFBFBD>)M;5<5=B, =5 8<5NI89 ?>A;54CNI8E M;5<5=B>2
<00><><EFBFBD>:>=5G=K9 @{X1|nomn|sing}<00><><EFBFBD>:>=5G=K9 M;5<5=B<04><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><>- <20><><EFBFBD>D6<00><><EFBFBD><00><><EFBFBD>
debool(X1\D2)<00><><EFBFBD>1@{X1|nomn|sing}, =5 @{-1|8<5NI89} @{D1|gent|plur}<00><><EFBFBD>(M;5<5=B, =5 8<5NI89 ?@54K4CI8E M;5<5=B>2
<00><><EFBFBD>=0G0;L=K9 @{X1|nomn|sing}<00><><EFBFBD>=0G0;L=K9 M;5<5=B<04><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00>`fd<66><64><EFBFBD>A7<00><><EFBFBD><00><><EFBFBD>"<22>"D1 card(Fi1[{<00>}](S1))=1<00><><EFBFBD><00><><EFBFBD>
<00><><EFBFBD>548=AB25==>ABL @{D2|gent|sing}<00><><EFBFBD>$548=AB25==>ABL ?>A;54CNI53> M;5<5=B0<04><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><14>4<EFBFBD><34><EFBFBD>F1<00><><EFBFBD><00><><EFBFBD> [<00>"D1] pr2(debool(Fi1[{<00>}](S1)))<00><><EFBFBD>?@{X1|nomn|sing}, @{-1|A;54CNI89} 70 @{1|40==K<} @{X1|ablt|sing}<00><><EFBFBD>&M;5<5=B, A;54CNI89 70 40==K< M;5<5=B><
<00><><EFBFBD>+@{D2|nomn|sing} 4;O 40==>3> @{X1|gent|sing}<00><><EFBFBD>(?>A;54CNI89 M;5<5=B 4;O 40==>3> M;5<5=B0<04><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD>Q<08>^<5E><><EFBFBD>F2<00><><EFBFBD><00><><EFBFBD> [<00>"D1] pr2(debool(Fi1[{<00>}](S1)))<00><><EFBFBD>B@{X1|nomn|sing}, @{-1|?@54H5AB2CNI89} @{1|40==><C} @{X1|datv|sing}<00><><EFBFBD>(M;5<5=B, ?@54H5AB2CNI89 40==><C M;5<5=BC
<00><><EFBFBD>+@{D1|nomn|sing} 4;O 40==>3> @{X1|gent|sing}<00><><EFBFBD>'?@54K4CI89 M;5<5=B 4;O 40==>3> M;5<5=B0<04><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD><00><><EFBFBD>
Q<08>^